Dim xc, yc, xr, zr, h, w, z, x1, y1, x2, y2, xl, yl, x, y, z$
OpenW # 1, 50, 500, 600, 300
TitleW # 1, " Le chapeau de cowboy"
Cls
xc = 320
yc = 115
xr = 175
zr = 120
h = 40
w = 0.043
For z = -zr + 1 To zr - 1 Step 10
  xl = Int(xr * Sqr(1 - z * z / zr / zr) + 0.5)
  x = -xl
  y = h * Sin(w * Sqr(x * x + z * z))
  x1 = x + xc + z
  y1 = Int(199 - (yc + y + z / 2) + 0.5)
  For x = -xl + 1 To xl - 1
    y = h * Sin(w * Sqr(x * x + z * z))
    x2 = xc + x + z
    y2 = Int(199 - (yc + y + z / 2) + 0.5)
    Draw x1, y1 To x2, y2
    x1 = x2
    y1 = y2
  Next x
Next z
Print AT(1, 1); "Appuyer sur une touche pour quitter"
'##E#
KeyGet z$
CloseW # 1
End