graphics/strange2.bas

   1 ' Svjatoslav Agejenko 2000\r
   2 \r
   3 \r
   4 DECLARE SUB lu (x%, y%, l%, c2%)\r
   5 DEFINT A-Z\r
   6 SCREEN 12\r
   7 \r
   8 FOR a = 0 TO 16\r
   9 OUT &H3C8, a\r
  10 OUT &H3C9, a * 4\r
  11 OUT &H3C9, a * 4\r
  12 OUT &H3C9, a * 4\r
  13 NEXT\r
  14 \r
  15 FOR x = 0 TO 200\r
  16 y = SQR((200 - x) * x) / 2\r
  17 lu x + 200, y + 200, y * 2, t\r
  18 LINE (x + 200, y + 202)-(x + 200, y + 250), t\r
  19 IF x < 195 THEN\r
  20 LINE (300 + ((x - 100) / 2), y / 2 + 328)-(x + 200, y + 252), t\r
  21 END IF\r
  22 LINE (300 + ((x - 100) / 2), y / 2 + 330)-(300 + ((x - 100) / 2), y / 2 + 370), t\r
  23 NEXT x\r
  24 \r
  25 SUB lu (x, y, l, c2)\r
  26 \r
  27 c = 650 - y - x\r
  28 1\r
  29 IF c > 30 THEN c = c - 30: GOTO 1\r
  30 c2 = c\r
  31 IF c2 > 15 THEN c2 = 30 - c2\r
  32 \r
  33 FOR y1 = y TO y - l STEP -1\r
  34 c1 = c\r
  35 IF c1 > 15 THEN c1 = 30 - c1\r
  36 PSET (x, y1), c1\r
  37 c = c + 1\r
  38 IF c > 30 THEN c = c - 30\r
  39 NEXT y1\r
  40 END SUB\r
  41 \r