graphics/texture generation/map2.bas

   1 ' Old paper surface\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2003.12\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslav@svjatoslav.eu\r
   6  \r
   7 DEFINT A-Z\r
   8 SCREEN 13\r
   9 RANDOMIZE TIMER\r
  10 FOR a = 0 TO 63\r
  11 OUT &H3C8, a\r
  12 OUT &H3C9, a  'R\r
  13 OUT &H3C9, a  'G\r
  14 OUT &H3C9, a  'B\r
  15 NEXT a\r
  16 \r
  17 z = 0\r
  18 \r
  19 FOR y = 1 TO 190\r
  20 FOR x = 1 TO 310\r
  21 p = p + 1\r
  22 IF p > 10 THEN z = RND * c / 20: p = p - (RND * 20 + 10)\r
  23 c1 = POINT(x, y - 1)\r
  24 c = (c1 + c) \ 2 + ((RND * 2) - z)\r
  25 IF c < 0 THEN c = 0\r
  26 IF c > 63 THEN c = 63\r
  27 PSET (x - 1, y), c\r
  28 \r
  29 NEXT x\r
  30 PSET (0, y + 1), c\r
  31 NEXT y\r
  32 a$ = INPUT$(1)\r
  33 \r
  34 SYSTEM\r
  35 \r