graphics/texture generation/map1.bas

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