The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

3-D Kaleidoscope

A simple kaleidoscope in three dimensions.
(Slowly move your mouse to view the
image from slightly different angles.)

Source Listing

// // Program: 3-D Kaleidoscope // Author: Lucia Grossberger // Common Int rgb Common Float ct, st, cp, sp Int x[360], y[360], z[360] Int xm, ym randomize hide mouse xx=75; yy=50; zz=25 Do k=0,359 x[k]=0 y[k]=0 z[k]=0 Loop ndx=0 Do read mouse (xm, ym, 0) p=(xm-320)/150.0; t=(96-ym)/150.0 ct=cos(t); st=sin(t) cp=cos(p); sp=sin(p) xx=xx+random(10)-5 yy=yy+random(11)-5 zz=zz+random(12)-5 If iabs(xx)>250 Or iabs(yy)>250 Or iabs(zz)>250 xx=0; yy=0; zz=0 Endif x[ndx]=xx y[ndx]=yy z[ndx]=zz cls Do k=0,249 rgb=k/30+1 mirror (x[k], y[k], z[k]) @ Loop ndx=(ndx+1)%250 If readkey(27) Call quit delay (50) Loop Task mirror (Int x, Int y, Int z) octants (x, y, z) @ octants (x, z, y) @ octants (y, z, x) @ octants (y, x, z) @ octants (z, x, y) @ octants (z, y, x) @ Task octants (Int x, Int y, Int z) project (+x, +y, +z) @ project (+x, +y, -z) @ project (+x, -y, +z) @ project (+x, -y, -z) @ project (-x, +y, +z) @ project (-x, +y, -z) @ project (-x, -y, +z) @ project (-x, -y, -z) @ Task project (Int x, Int y, Int z) Common Int rgb Common Float ct, st, cp, sp xc=xpixels()/2; yc=ypixels()/2 xx=cp*x+sp*(ct*z+st*y) yy=ct*y-st*z zz=cp*(ct*z+st*y)-sp*x put pixel (xc+xx, yc-yy, rgb+8*(zz>0))

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.)