'Flame generator ' By Bobby K,Insanity Dreams 'Mail me : christie@intonet.co.uk ' 'This program will work for any image. ' 'Check out the Insanity Dreams homepage - search for Laz AND Curry, then 'goto the big fat QBasic page ' 'There are also a couple of animation sequences i have generated using this 'program. Why not pick them up whilst your there. Or mail me for them. DEFINT A-Z DIM image(10000) RANDOMIZE TIMER SCREEN 13 FOR m = 0 TO 63 PALETTE m, m + INT(m / 2) * 256 PALETTE m + 64, m + m * 256 + m * 256 ^ 2 PALETTE m + 128, m + m * 256 + m * 256 ^ 2 NEXT m COLOR 63 PRINT "FLAME" FOR x = 0 TO 38 FOR y = 0 TO 7 a = POINT(x, y) IF a <> 0 THEN LINE (x * 5 + 50, y * 6 + 120)-(x * 5 + 54, y * 6 + 120), 70 + y * 6 'LINE (x * 5 + 50, y * 6 + 121)-(x * 5 + 54, y * 6 + 121), 71 + y * 6 LINE (x * 5 + 50, y * 6 + 122)-(x * 5 + 54, y * 6 + 122), 72 + y * 6 'LINE (x * 5 + 50, y * 6 + 123)-(x * 5 + 54, y * 6 + 123), 73 + y * 6 LINE (x * 5 + 50, y * 6 + 124)-(x * 5 + 54, y * 6 + 124), 74 + y * 6 END IF NEXT y NEXT x LINE (0, 0)-(100, 8), 0, BF FOR n = 100 TO 199 FOR m = 0 TO 319 IF POINT(m, n) <> 0 AND POINT(m, n - 1) = 0 AND RND > .5 THEN PSET (m, n), POINT(m, n) + 64 NEXT m NEXT n FOR n = 169 TO 0 STEP -1 FOR x = 0 TO 319 a1 = POINT(x, n + 1) a2 = POINT(x, n + 2) a3 = POINT(x + 1, n + 1) a4 = POINT(x - 1, n + 2) IF a1 > 127 THEN a1 = 0 IF a2 > 127 THEN a2 = 0 IF a3 > 127 THEN a3 = 0 IF a4 > 127 THEN a4 = 0 IF a1 > 63 THEN a1 = 63 IF a2 > 63 THEN a2 = 63 IF a3 > 63 THEN a3 = 63 IF a4 > 63 THEN a4 = 63 i = ((a1 + a2 + a3 + a4) / 4) - 1 IF i < 0 THEN i = 0 IF POINT(x, n) = 0 THEN PSET (x, n), i NEXT x NEXT n