graphics/spirals/spiral4.bas

   1 ' spiral\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2003.12\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslavagejenko@gmail.com\r
   6  \r
   7 DIM SHARED torux(1 TO 10000)\r
   8 DIM SHARED toruy(1 TO 10000)\r
   9 DIM SHARED tor\r
  10 SCREEN 12\r
  11 su = 200\r
  12 tor = 0\r
  13 FOR a = 1 TO 100 STEP .05\r
  14 tor = tor + 1\r
  15 su = 100 - a\r
  16 x = SIN(a) * su * 3 + 320\r
  17 y = COS(a) * su + 300\r
  18 y = y + (SIN((a + 20) / 10) * a)\r
  19 torux(tor) = x\r
  20 toruy(tor) = y\r
  21 PSET (x, y), 15\r
  22 NEXT a\r
  23 \r
  24 FOR a = 1 TO tor - 125\r
  25 LINE (torux(a), toruy(a))-(torux(a + 125), toruy(a + 125)), 15\r
  26 NEXT a\r
  27 \r
  28 a$ = INPUT$(1)\r
  29 SYSTEM\r
  30 \r