' spiral ' made by Svjatoslav Agejenko ' in 2003.12 ' H-Page: svjatoslav.eu ' E-Mail: svjatoslav@svjatoslav.eu DIM SHARED torux(1 TO 10000) DIM SHARED toruy(1 TO 10000) DIM SHARED sinus1(1 TO 10000) DIM SHARED sinus2(1 TO 10000) DIM SHARED tor SCREEN 12 su = 200 tor = 0 FOR a = 1 TO 150 STEP .05 tor = tor + 1 su = 150 - a x = SIN(a) * su * 3 + 320 y = COS(a) * su + 300 y = y + (SIN((a + 20) / 10) * (a / 5 + 1)) sinus1(tor) = SIN(a) sinus2(tor) = SIN((a + 20) / 10) torux(tor) = x toruy(tor) = y PSET (x, y), 15 NEXT a FOR a = 1 TO tor - 127 LINE (torux(a), toruy(a))-(torux(a + 126), toruy(a + 126)), 15 tee = 1 IF sinus1(a) > .8 AND sinus2(a) < sinus2(a + 125) THEN tee = 0 IF sinus1(a) < -.2 AND sinus2(a) - .4 > sinus2(a + 125) THEN tee = 0 IF tee = 1 THEN LINE (torux(a), toruy(a))-(torux(a + 1), toruy(a + 1)), 15 tee = 0 IF sinus1(a) > .8 AND sinus2(a) > sinus2(a + 125) THEN tee = 1 IF sinus1(a) < -.2 AND sinus2(a) < sinus2(a + 125) THEN tee = 1 IF tee = 1 THEN LINE (torux(a), toruy(a))-(torux(a + 127), toruy(a + 127)), 15 tee = 0 IF sinus1(a) > .9 AND sinus2(a) > sinus2(a + 125) THEN tee = 1 IF sinus1(a) < -.5 AND sinus2(a) < sinus2(a + 125) THEN tee = 1 IF tee = 1 THEN LINE (torux(a), toruy(a))-(torux(a + 125), toruy(a + 125)), 15 NEXT a a$ = INPUT$(1) SYSTEM