DIM t(1000)
DIM o(1000)

pi = 3.1415925#
CLS
SCREEN 12

'DEF fnf = 0
DEF fnf = sugar / 3 - 50
'DEF fnf = 2 ^ ((sugar - sugar2) / 10) * 20 + 50
'DEF fnf = 2 ^ ((sugar1 - sugar) / 10) * 20 + 2 ^ ((sugar - sugar2) / 10) * 20

'DEF fnf = -polarszog * 10 + sugar / 5 - 50
'DEF fnf = -polarszog * 10
'DEF fnf = -polarszog * 10 + 2 ^ ((sugar - sugar2) / 10) * 20 + 50
'DEF fnf = -polarszog * 10 + 2 ^ ((sugar1 - sugar) / 10) * 20 + 2 ^ ((sugar - sugar2) / 10) * 20

FOR i = 0 TO 100
polarszog = i * pi / 50
IF INT(i / 5) = i / 5 THEN sugarszin = 14 ELSE sugarszin = 2
'sugar1 = 100
'sugar2 = 200
'sugar2 = 200 + SIN(polarszog / 2) * 100

'sugar1 = 80 / (1 + .5 * COS(polarszog))
'sugar2 = 140 / (1 + .5 * COS(polarszog))

sugar1 = 100 / SQR(1 + 3 * SIN(polarszog) ^ 2)
sugar2 = 200 / SQR(1 + 8 * SIN(polarszog) ^ 2)




FOR j = 0 TO 20
sugar = sugar1 + (sugar2 - sugar1) * j / 20
IF INT(j / 5) = j / 5 THEN polarszogszin = 12 ELSE polarszogszin = 9
a$ = INKEY$
IF a$ <> "" THEN END
a = sugar * COS(polarszog)
b = sugar * SIN(polarszog)

t = a + 300
o = 250 - fnf - b * .4
IF j > 0 THEN LINE (t, o)-(t1, o1), sugarszin
IF i > 0 THEN LINE (t(j), o(j))-(t, o), polarszogszin
t(j) = t
o(j) = o
t1 = t
o1 = o

NEXT j
NEXT i

