' Spiral ' made by Svjatoslav Agejenko ' in 2003.12 ' H-Page: svjatoslav.eu ' E-Mail: svjatoslavagejenko@gmail.com DIM SHARED torux(1 TO 10000) DIM SHARED toruy(1 TO 10000) DIM SHARED tor SCREEN 12 su = 200 tor = 0 FOR a = 0 TO 97.35 STEP .15 tor = tor + 1 su = SIN(a / 31) * 100 x = SIN(a) * su * 3 + 320 y = COS(a) * su + 250 y = y - (COS(a / 31) * 200) torux(tor) = x toruy(tor) = y PSET (x, y), 15 NEXT a FOR a = 97.35 TO 0 STEP -.15 tor = tor + 1 su = SIN(a / 31) * 50 x = SIN(a) * su * 3 + 320 y = COS(a) * su + 350 y = y - (COS(a / 31) * 100) torux(tor) = x toruy(tor) = y PSET (x, y), 15 NEXT a FOR a = 0 TO 97.35 STEP .15 tor = tor + 1 su = SIN(a / 31) * 25 x = SIN(a) * su * 3 + 320 y = COS(a) * su + 300 y = y - (COS(a / 31) * 50) torux(tor) = x toruy(tor) = y PSET (x, y), 15 NEXT a FOR a = 97.35 TO 0 STEP -.15 tor = tor + 1 su = SIN(a / 31) * 12.5 x = SIN(a) * su * 3 + 320 y = COS(a) * su + 325 y = y - (COS(a / 31) * 25) torux(tor) = x toruy(tor) = y PSET (x, y), 15 NEXT a zzx = (tor - 42) / 4 CLS FOR a = 1 TO zzx * 4 LINE (torux(a), toruy(a))-(torux(a + 42), toruy(a + 42)), 15 LINE (torux(a), toruy(a))-(torux(a + 1), toruy(a + 1)), 15 NEXT a a$ = INPUT$(1) SYSTEM