graphics/3D/KHK Intellektika 2004 demo/KHKDEMO2.BAS

   1 SCREEN 7, , , 1\r
   2 \r
   3 1\r
   4 FOR a = 1 TO SIN(frm / 30) * 3 + 4\r
   5   LOCATE a * 2, a * 4\r
   6   COLOR RND * 5 + 10\r
   7   PRINT "Programmeerimine ***"\r
   8 NEXT a\r
   9 \r
  10 frm = frm + 1\r
  11 st = (SIN(frm / 10) + 2) / 3\r
  12 x = SIN(frm / 30) * 50\r
  13 y = COS(frm / 42) * 30\r
  14 \r
  15 \r
  16 FOR a = .1 TO 10 STEP st\r
  17   CIRCLE (160 + x, 100 + y), 80, 2, , , a\r
  18 NEXT a\r
  19 \r
  20 c = RND * 2 + 12\r
  21 FOR a = 0 TO 10\r
  22    f = (a + frm) / 12\r
  23    f2 = (a + frm) / 7\r
  24    x1 = SIN(f) * 50\r
  25    y1 = COS(f) * 30\r
  26    x2 = SIN(f2 + 6) * 50\r
  27    y2 = COS(f2 + 6) * 30\r
  28    LINE (x1 + 180, y1 + 150)-(x2 + 180, y2 + 150), c\r
  29 NEXT a\r
  30 \r
  31 FOR a = 0 TO 50\r
  32   x = RND * 320\r
  33   y = RND * 320\r
  34   PSET (x, y), RND * 15\r
  35 NEXT a\r
  36 \r
  37 \r
  38 \r
  39 PCOPY 0, 1\r
  40 CLS\r
  41 \r
  42 IF frm > 200 THEN GOTO 2\r
  43 GOTO 1\r
  44 2\r
  45 CHAIN "KHKDEMO3.BAS"\r
  46 \r