unsorted/font.bas

   1 ' Svjatoslav Agejenko\r
   2 ' year: 2001\r
   3 ' alien text\r
   4 \r
   5 DEFINT A-Z\r
   6 DECLARE SUB prch (x, y, n, s)\r
   7 DIM SHARED co(1 TO 4)\r
   8 co(1) = 7\r
   9 co(2) = 7\r
  10 co(3) = 0\r
  11 co(4) = 0\r
  12 \r
  13 \r
  14 SCREEN 12\r
  15 RANDOMIZE TIMER\r
  16 \r
  17 PAINT (1, 1), 0\r
  18 \r
  19 siz = 4\r
  20 \r
  21 tmp = 0\r
  22 FOR y = 1 TO 480 - siz - 2 STEP siz + (siz \ 2)\r
  23 tmp1 = 0\r
  24 FOR x = 1 TO 640 - siz - 2 STEP siz + (siz \ 2)\r
  25 prch x, y, RND * 16, siz\r
  26 tmp1 = tmp1 + 1\r
  27 IF tmp1 > 20 THEN tmp1 = 0: x = x + (siz)\r
  28 NEXT x\r
  29 tmp = tmp + 1\r
  30 IF tmp > 5 THEN tmp = 0: y = y + (siz)\r
  31 NEXT y\r
  32 \r
  33 SUB prch (x, y, n, s)\r
  34 sp = s \ 2\r
  35 \r
  36 c = co(RND * 3 + 1)\r
  37 LINE (x, y)-(x + s, y), c\r
  38 LINE (x, y)-(x + sp, y + sp), c\r
  39 LINE (x + s, y)-(x + sp, y + sp), c\r
  40 PAINT (x + 2, y + 1), c\r
  41 \r
  42 c = co(RND * 3 + 1)\r
  43 LINE (x, y)-(x, y + s), c\r
  44 LINE (x, y)-(x + sp, y + sp), c\r
  45 LINE (x, y + s)-(x + sp, y + sp), c\r
  46 PAINT (x + 1, y + 2), c\r
  47 \r
  48 c = co(RND * 3 + 1)\r
  49 LINE (x + s, y)-(x + s, y + s), c\r
  50 LINE (x + s, y)-(x + sp, y + sp), c\r
  51 LINE (x + s, y + s)-(x + sp, y + sp), c\r
  52 PAINT (x + s - 1, y + 2), c\r
  53 \r
  54 c = co(RND * 3 + 1)\r
  55 LINE (x, y + s)-(x + s, y + s), c\r
  56 LINE (x, y + s)-(x + sp, y + sp), c\r
  57 LINE (x + s, y + s)-(x + sp, y + sp), c\r
  58 PAINT (x + 2, y + s - 1), c\r
  59 \r
  60 END SUB\r
  61 \r