Нетбы учёным чёнить стоещее изобрести, а они формулы канопли выводят.
Наркоманы пля.
Так будет лучше )
В стиле инков.
Graphics 1024,768,32,2
SetBuffer BackBuffer()
a#=0
Color 255,255,255
While a<360
a=a+1.7
R# = (3+Sin(a))*(30-.1*Abs(Sin(4*a)))*(.004+.900*Cos(200*a))
x#=320+Sin(a+90)*R*3
y#=400+Cos(a+90)*R*3
Plot x,y
Wend
Flip
WaitKey