graphics/spirals/spiral6.bas

   1 ' spiral\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2003.12\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslav@svjatoslav.eu\r
   6  \r
   7 DIM SHARED torux(1 TO 10000)\r
   8 DIM SHARED toruy(1 TO 10000)\r
   9 DIM SHARED sinus1(1 TO 10000)\r
  10 DIM SHARED sinus2(1 TO 10000)\r
  11 DIM SHARED tor\r
  12 SCREEN 12\r
  13 su = 200\r
  14 tor = 0\r
  15 FOR a = 1 TO 150 STEP .05\r
  16 tor = tor + 1\r
  17 su = 150 - a\r
  18 x = SIN(a) * su * 3 + 320\r
  19 y = COS(a) * su + 300\r
  20 y = y + (SIN((a + 20) / 10) * (a / 5 + 1))\r
  21 sinus1(tor) = SIN(a)\r
  22 sinus2(tor) = SIN((a + 20) / 10)\r
  23 torux(tor) = x\r
  24 toruy(tor) = y\r
  25 PSET (x, y), 15\r
  26 NEXT a\r
  27 \r
  28 FOR a = 1 TO tor - 127\r
  29 LINE (torux(a), toruy(a))-(torux(a + 126), toruy(a + 126)), 15\r
  30 \r
  31 tee = 1\r
  32 IF sinus1(a) > .8 AND sinus2(a) < sinus2(a + 125) THEN tee = 0\r
  33 IF sinus1(a) < -.2 AND sinus2(a) - .4 > sinus2(a + 125) THEN tee = 0\r
  34 IF tee = 1 THEN LINE (torux(a), toruy(a))-(torux(a + 1), toruy(a + 1)), 15\r
  35 \r
  36 tee = 0\r
  37 IF sinus1(a) > .8 AND sinus2(a) > sinus2(a + 125) THEN tee = 1\r
  38 IF sinus1(a) < -.2 AND sinus2(a) < sinus2(a + 125) THEN tee = 1\r
  39 IF tee = 1 THEN LINE (torux(a), toruy(a))-(torux(a + 127), toruy(a + 127)), 15\r
  40 \r
  41 tee = 0\r
  42 IF sinus1(a) > .9 AND sinus2(a) > sinus2(a + 125) THEN tee = 1\r
  43 IF sinus1(a) < -.5 AND sinus2(a) < sinus2(a + 125) THEN tee = 1\r
  44 IF tee = 1 THEN LINE (torux(a), toruy(a))-(torux(a + 125), toruy(a + 125)), 15\r
  45 \r
  46 NEXT a\r
  47 \r
  48 a$ = INPUT$(1)\r
  49 SYSTEM\r
  50 \r