graphics/presentations/KHK Intellektika 2004 demo/KHKDEMO3.BAS

   1 SCREEN 7, , , 1\r
   2 \r
   3 1\r
   4 LINE (0, 0)-(319, 199), RND, BF\r
   5 SOUND 0, 1\r
   6 frm = frm + 1\r
   7 st = (SIN(frm / 10) + 2) / 3\r
   8 x = SIN(frm / 30) * 50\r
   9 y = COS(frm / 42) * 30\r
  10 \r
  11 \r
  12 FOR a = .1 TO 10 STEP st\r
  13   CIRCLE (160 + x, 100 + y), 80, 10, , , a\r
  14 NEXT a\r
  15 \r
  16 c = RND * 2 + 12\r
  17 FOR a = 0 TO 50\r
  18    f = (a + frm) / 12\r
  19    f2 = (a + frm) / 7\r
  20    x1 = SIN(f) * 50\r
  21    y1 = COS(f) * 30\r
  22    x2 = SIN(f2 + 6) * 80\r
  23    y2 = COS(f2 + 6) * 120\r
  24    LINE (x1 + 180, y1 + 150)-(x2 + 180, y2 + 150), c\r
  25 NEXT a\r
  26 \r
  27 FOR a = 0 TO 50\r
  28    f = (a * 15 + frm) / 12\r
  29    f2 = (a * 15 + frm) / 7\r
  30    x1 = SIN(f) * 50\r
  31    y1 = COS(f) * 30\r
  32    x2 = SIN(f2 + 6) * 80\r
  33    y2 = COS(f2 + 6) * 120\r
  34    CIRCLE (x1 + 80, y1 + 50), a / 2, 14\r
  35    PAINT (x1 + 80, y1 + 50), 14\r
  36 NEXT a\r
  37 \r
  38 \r
  39 FOR a = 0 TO 15\r
  40    f = (a + frm) / 12\r
  41    f2 = (a + frm) / 7\r
  42    x1 = SIN(f) * 50\r
  43    y1 = COS(f) * 30\r
  44    x2 = SIN(f2 + 6) * 80\r
  45    y2 = COS(f2 + 6) * 120\r
  46    LINE (x1 + 180, y1 + 150)-(x2 + 180, y2 + 150), c\r
  47 NEXT a\r
  48  \r
  49 FOR a = 0 TO 50\r
  50   x = RND * 320\r
  51   y = RND * 320\r
  52   PSET (x, y), RND * 15\r
  53 NEXT a\r
  54 \r
  55 PCOPY 0, 1\r
  56 CLS\r
  57 \r
  58 IF frm > 100 THEN GOTO 2\r
  59 GOTO 1\r
  60 2\r
  61 CHAIN "KHKDEMO4.BAS"\r
  62 \r