graphics/spirals/spiral2.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 DECLARE SUB linem (x1!, y1!, x2!, y2!, col!)\r
   8 DIM SHARED linevx(1 TO 100)\r
   9 DIM SHARED linevy(1 TO 100)\r
  10 DIM SHARED z\r
  11 DIM SHARED zz\r
  12 SCREEN 12\r
  13 su = 200\r
  14 z = 0\r
  15 FOR a = 1 TO 30 STEP .1\r
  16 su = (30 - a) * 7\r
  17 x = SIN(a) * su + 200\r
  18 y = COS(a) * su + 200\r
  19 zz = a\r
  20 linem x + (x / 2) + (a * 3), (y - (x / 3)) + (a * 3), x + 25, y + 25 - (a * 3), z\r
  21 z = 15\r
  22 NEXT a\r
  23 \r
  24 a$ = INPUT$(1)\r
  25 SYSTEM\r
  26 \r
  27 SUB linem (x1, y1, x2, y2, col)\r
  28 x3 = (x2 - x1) / zz\r
  29 y3 = (y2 - y1) / zz\r
  30 \r
  31 FOR a = 1 TO zz\r
  32 IF linevx(a) > 0 THEN LINE (linevx(a), linevy(a))-(x1, y1), col\r
  33 linevx(a) = x1\r
  34 linevy(a) = y1\r
  35 x1 = x1 + x3\r
  36 y1 = y1 + y3\r
  37 LINE (linevx(a), linevy(a))-(x1, y1), col\r
  38 NEXT a\r
  39 END SUB\r
  40 \r