CLEAR ALL
BITMAP 1 TEXTURE "fill",EXPORT$(RND.COLOR)
SPRITE 1 BIND BITMAP 1 SHOW SCALE 2,2
a$="Fill":GOSUB again
BITMAP 1 TEXTURE "blobs","9876543,8,1"
a$="Blobs":GOSUB again
BITMAP 1 TEXTURE "cellmachine","1234,99"
a$="Cell Machine":GOSUB again
BITMAP 1 TEXTURE "checkerboard",EXPORT$(16,16,RND.COLOR,RND.COLOR)
a$="Checkerboard":GOSUB again
BITMAP 1 TEXTURE "mandelbrot","-3700,1100,-3300,1500"
a$="Mandlebrot":GOSUB again
BITMAP 1 TEXTURE "particle","100"
a$="Particle":GOSUB again
BITMAP 1 TEXTURE "perlinnoise","128,9876543,256,8,150,1"
a$="Perlin Noise":GOSUB again
BITMAP 1 TEXTURE "sineplasma","74,74,256"
a$="Sine Plasma":GOSUB again
BITMAP 1 TEXTURE "subplasma","128,9876543,256,1"
a$="Sub Plasma":GOSUB again
END
again:
CLS
PRINT a$
LOCATE ,TEXT.ROWS-2
PRINT LINE CENTER "Press any key to continue."
GETKEY b$
RETURN
