OpenW 1, 50, 50, 1000, 800
Win_1.BackColor = RGB(0, 0, 0)
' Fougère
Open "fougete.txt" for Output As # 2
TitleW 1, "Fougère  "
Global f1# = .4, f2# = .85, w1# = 35, w2# = 5
f1 = .4, f2 = .85
Local t# = Timer
dessiner 100, 130, 160, 100
Me.Caption = Me.Caption & Timer - t#
Do
  Sleep
Loop Until Me Is Nothing
Proc dessiner(x, y, l, r)
  Local x1#, y1#
  RGBColor RGB(0, 255 - l, 0)
  Draw "ma" x, y, "tt" r, "fd", l
  x1 = Draw(0), y1 = Draw(1)
  If l > .5
    dessiner x1, y1, l * f1, r + w1
    dessiner x1, y1, l * f1, r - w1
    dessiner x1, y1, l * f2, r + w2
  EndIf
'##E#
EndProc