graphics/spirals/spiral7.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 = 0 TO 97.35 STEP .15\r
  14 tor = tor + 1\r
  15 su = SIN(a / 31) * 100\r
  16 x = SIN(a) * su * 3 + 320\r
  17 y = COS(a) * su + 250\r
  18 y = y - (COS(a / 31) * 200)\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 = 97.35 TO 0 STEP -.15\r
  25 tor = tor + 1\r
  26 su = SIN(a / 31) * 50\r
  27 x = SIN(a) * su * 3 + 320\r
  28 y = COS(a) * su + 350\r
  29 y = y - (COS(a / 31) * 100)\r
  30 torux(tor) = x\r
  31 toruy(tor) = y\r
  32 PSET (x, y), 15\r
  33 NEXT a\r
  34 \r
  35 FOR a = 0 TO 97.35 STEP .15\r
  36 tor = tor + 1\r
  37 su = SIN(a / 31) * 25\r
  38 x = SIN(a) * su * 3 + 320\r
  39 y = COS(a) * su + 300\r
  40 y = y - (COS(a / 31) * 50)\r
  41 torux(tor) = x\r
  42 toruy(tor) = y\r
  43 PSET (x, y), 15\r
  44 NEXT a\r
  45 \r
  46 FOR a = 97.35 TO 0 STEP -.15\r
  47 tor = tor + 1\r
  48 su = SIN(a / 31) * 12.5\r
  49 x = SIN(a) * su * 3 + 320\r
  50 y = COS(a) * su + 325\r
  51 y = y - (COS(a / 31) * 25)\r
  52 torux(tor) = x\r
  53 toruy(tor) = y\r
  54 PSET (x, y), 15\r
  55 NEXT a\r
  56 \r
  57 zzx = (tor - 42) / 4\r
  58 CLS\r
  59 FOR a = 1 TO zzx * 4\r
  60 LINE (torux(a), toruy(a))-(torux(a + 42), toruy(a + 42)), 15\r
  61 LINE (torux(a), toruy(a))-(torux(a + 1), toruy(a + 1)), 15\r
  62 NEXT a\r
  63 a$ = INPUT$(1)\r
  64 SYSTEM\r
  65 \r