Dim k1, k2, q%, xcen, ycen, r1, k2, a2, r2, xs, ys, n, a1, m, x, y, z$
OpenW # 1, 50, 50, 300, 300
TitleW # 1, "Soleil"
k1 = 5.3333
k2 = 1.1
q% = 1
xcen = 160
ycen = 100
r1 = 2 * 2
k2 = 1.1 * Sqr(2.4 / k1) * 2
For m = 1 To 600
  a2 = a2 + k1
  r2 = k2 * (a2 ^ 0.5)
  xs = r2 * Cos(a2) + xcen
  ys = r2 * Sin(a2) + ycen
  For n = 0 To 5
    a1 = 2 * PI * (n / 5) + a2
    x = r1 * Cos(a1) + xs
    y = r1 * Sin(a1) + ys
    If n = 0
      Plot x * q%, y
    Else
      Draw  To x * q%, y
    EndIf
  Next n
Next m
'##E#
Print AT(1, 18); "Appuyer sur une touche pour arręter"
KeyGet z$
CloseW # 1