graphics/texture generation/test3.bas

   1 ' Strange 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 SCREEN 13\r
   8 \r
   9 FOR y = 1 TO 199\r
  10 FOR x = 1 TO 319\r
  11 c = SIN((x ^ 2 + y ^ 2) / 10) * 10\r
  12 IF c < 0 THEN c = 0\r
  13 IF c > 15 THEN c = 15\r
  14 PSET (x, y), c + 16\r
  15 NEXT x\r
  16 NEXT y\r
  17 \r
  18 \r
  19 \r