DIM t(1000)
DIM o(1000)

sugar1 = 0
sugar2 = 250
koz = 10
pi = 3.1415925#
'DEF fnf = 0
'DEF fnf = szog * 30
'DEF fnf = ABS(pi - szog) * 30
'DEF fnf = COS(szog) * 30
'DEF fnf = szog * 30 + 2 ^ ((sugar - sugar2) / 10) * 40 - 50
'DEF fnf = szog * 10 - 2 ^ ((sugar1 - sugar) / 30) * 100
'DEF fnf = -2 ^ ((sugar1 - sugar) / 30) * 100 + 2 ^ ((sugar - sugar2) / 10) * 40
DEF fnf = -2 ^ ((sugar1 - sugar) / 30) * 100 - 2 ^ ((sugar - sugar2) / 10) * 100
'DEF fnf = COS(szog * 4) * 10
'DEF fnf = SIN(sugar / 20) * 20
'DEF fnf = sugar - 170
'DEF fnf = 2 ^ (-(szog - 2 * pi / 3) ^ 2 * 10) * sugar ^ .9
'DEF fnf = SIN(3 * szog) * SIN(sugar / 20) * 10
'DEF fnf = SIN(sugar * ABS(pi - szog) / 50) * 20
SCREEN 12
CLS

FOR sugar = sugar1 TO sugar2 STEP koz
FOR i = 0 TO 100
szog = i * pi / 50
IF INT(i / 5) = i / 5 THEN szogszin = 14 ELSE szogszin = 2
IF INT(sugar / 50) = sugar / 50 THEN sugarszin = 12 ELSE sugarszin = 9
a$ = INKEY$
IF a$ <> "" THEN END
a = sugar * COS(szog)
b = sugar * SIN(szog)

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

IF sugar > sugar1 THEN LINE (t(INT(500 * szog / pi)), o(INT(500 * szog / pi)))-(t, o), szogszin
t(INT(500 * szog / pi)) = t
o(INT(500 * szog / pi)) = o
t1 = t
o1 = o
NEXT i

NEXT sugar

