CLEAR ALL
'bitmap 2 texture "perlinnoise",export$(128,9876543,256,8,150,1)
BITMAP 2 LOAD "Eagle.bmp" RESCALE 256,256
BITMAP 1 NEW 256,256
TARGET BITMAP 1
GOSUB refresh
SPRITE 1 BIND BITMAP 1 SHOW SCALE 2,2
u=1
a$="Original":GOSUB again
FILTER BITMAP "adjusthsv","50,60,10"
a$="Adjust HSV (Hue, Saturation, and Brightness)":GOSUB again
FILTER BITMAP "adjustrgb","-50,-50,50"
a$="Adjust RGB (Red, Green, and Blue)":GOSUB again
FILTER BITMAP "blur"
a$="Blur":GOSUB again
FILTER BITMAP "dilate"
a$="Dilate":GOSUB again
FILTER BITMAP "edgehorizontal"
a$="Edge Horizontal":GOSUB again
FILTER BITMAP "edgevertical"
a$="Edge Vertical":GOSUB again
FILTER BITMAP "emboss"
a$="Emboss":GOSUB again
FILTER BITMAP "equalizefull"
a$="Equalize Full":GOSUB again
FILTER BITMAP "equalizestretch"
a$="Equalize Stretch":GOSUB again
FILTER BITMAP "erode"
a$="Erode":GOSUB again
FILTER BITMAP "grayscale"
a$="Gray Scale":GOSUB again
FILTER BITMAP "invert"
a$="Invert":GOSUB again
FILTER BITMAP "kaleidoscope","1"
a$="Kaleidoscope":GOSUB again
FILTER BITMAP "logpolar"
a$="LogPolar":GOSUB again
FILTER BITMAP "maketileable","64"
a$="Make Tileable":GOSUB again
FILTER BITMAP "mediancut"
a$="Median Cut":GOSUB again
FILTER BITMAP "motionblur","8"
a$="Motion Blur":GOSUB again
FILTER BITMAP "move","128,128"
a$="Move":GOSUB again
FILTER BITMAP "noise","1234567,3"
a$="Noise":GOSUB again
FILTER BITMAP "pixels",EXPORT$(RGB(0,0,0),25000)
a$="Pixels":GOSUB again
FILTER BITMAP "scalehsv","90,110,150"
a$="Scale HSV (Hue, Saturation, and Brightness)":GOSUB again
FILTER BITMAP "scalergb","128,130,90"
a$="Scale RGB (Red, Green, and Blue)":GOSUB again
FILTER BITMAP "sculpture"
a$="Sculpture":GOSUB again
FILTER BITMAP "sepia"
a$="Sepia":GOSUB again
FILTER BITMAP "sharpen"
a$="Sharpen":GOSUB again
FILTER BITMAP "sine","100,25,125,20"
a$="Sine":GOSUB again
FILTER BITMAP "sinergb","32,16,8"
a$="Sine RGB (Red, Green, and Blue)":GOSUB again
FILTER BITMAP "tile"
a$="Tile":GOSUB again
FILTER BITMAP "tunnel","16"
a$="Tunnel":GOSUB again
FILTER BITMAP "twirl","200,50"
a$="Twirl":GOSUB again
FILTER BITMAP "wood","2"
a$="Wood":u=0:GOSUB again
END
refresh:
BLIT BITMAP 2 TO 0,0
RETURN
again:
CLS
PRINT a$
LOCATE ,TEXT.ROWS-2
PRINT LINE CENTER "Press any key to continue."
GETKEY b$
IF u THEN GOSUB refresh
RETURN
