The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

Cellophane

Select the color of the Cellophane filter (Red, Geen, or Blue)
by pressing either the "R", "G", or "B" key on your keyboard.
Use your mouse to move the filter. The "ESC" key exits the program.

[To use your own bitmap image, just modify the path specified
in the "Open image" statement (see line 8) of the source listing.]

Source Listing

// // Program: Cellophane // Author: Bob Bishop // Ultra-SiMPLE Int xsize, ysize, xm, ym open screen (1); open screen (2); open screen (3) ihand=open image ("\\simple\\bin\\start.sys") //Or use your own image get bmp data (ihand, xsize, ysize) xl=(xpixels()-xsize)/2; xr=xl+xsize yt=(ypixels()-ysize)/2; yb=yt+ysize select screen (1); cls (15) select screen (2); cls (15) bhand=open blt (ihand); bitblt (ihand, bhand, xl, yt) line size (10); line color (rgb(255,0,0)) round rectangle (xl-60, yt-60, xr+60, yb+60, 75, 75) line color (rgb(0,255,0)) round rectangle (xl-40, yt-40, xr+40, yb+40, 55, 55) line color (rgb(0,0,255)) round rectangle (xl-20, yt-20, xr+20, yb+20, 35, 35) line color (0) round rectangle (xl, yt, xr, yb, 15, 15) color=rgb(255,0,0); hide mouse Do key=readkey(); If key=27 Break If (char(key) ~ "R") color=rgb(255,0,0) If (char(key) ~ "G") color=rgb(0,255,0) If (char(key) ~ "B") color=rgb(0,0,255) select screen (1); solid color (color); solid circle (100, 100, 100) read mouse (xm, ym, 0) select screen (3); bitblt screen (2) bitblt screen (1, xm-100, ym-100, 200, 200, 0, 0, 200, 200, SRCAND) line color (rgb(96,96,96)); circle (xm, ym, 100) select screen (0); bitblt screen (3) Loop close blt (bhand); close image (ihand) close screen (3); close screen (2); close screen (1) quit

How To Run The Program

If you're feeling ambitious and have nothing better to do, you could just copy
the source listing by hand! However, there is a much easier way to do it:

Copy the source listing into the Windows Clipboard

Paste the Clipboard into a new text document

Drop that text document onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)