CLEAR ALL
BACKGROUND RGB(25,25,50)
BITMAP 1 TEXTURE "checkerboard",EXPORT$(79,80,RGB(0,128,0),RGB(255,255,0))
TARGET BITMAP 1
SPRITE 1 BIND BITMAP 1 SHOW XYSIZE 2,2
CLS:PRINT "Checkerboard"
GETKEY a$
FILTER BITMAP "dilate"
CLS:PRINT "Filter Dilate"
GETKEY a$
FILTER BITMAP "dilate"
CLS:PRINT "Filter Dilate"
GETKEY a$
FILTER BITMAP "mediancut"
CLS:PRINT "Filter Median cut"
GETKEY a$
FILTER BITMAP "sharpen"
CLS:PRINT "Filter Sharpen"
GETKEY a$
FILTER BITMAP "sharpen"
CLS:PRINT "Filter Sharpen"
GETKEY a$
FILTER BITMAP "maketileable","64"
CLS:PRINT "Filter Make tileable"
GETKEY a$
FILTER BITMAP "kaleidoscope","1"
CLS:PRINT "Filter Kaleidoscope"
GETKEY a$
FILTER BITMAP "noise","1234567,3"
CLS:PRINT "Filter Noise"
GETKEY a$
SPRITE 1 TILE
CLS:PRINT "Tile"
