The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

Mandelbrot Explorer

Use your mouse to "Point-and-Click" your way through the beautiful and colorful Mandelbrot Set. Boldly go where no man has gone before! (Yes, most of the set has never been explored!)

Instructions: Use the left and right arrow keys to set the size of the zoom window. Left-click the mouse to "zoom into" the zoom window. Right-click to "zoom out" by the same corresponding zoom factor. Press the Esc key to halt plotting. Spacebar toggles animation on/off. ("Off" helps to see the zoom window.) Press Esc again to end the program.

The program first generates a "quick-look" view by skipping over most of the pixels. It then goes back and fills in the remaining pixels.

Source Listing

* * * * * * * * * * * * * * * * * * * * * * * * * * * * Explore the Mandelbrot Set! * * --------------------------- * * * * (Author: Bob Bishop) * * * * * * * * * * * * * * * * * * * * * * * * * * * * Pro-SiMPLE Float2 a, b, mag Int mx, my, mz a=-0.75; b=0; mag=1 new palette @ +setwritemode (1); +setlinestyle (0, 0, 3); Do dmag=16; dlogmag=4 limitx=150*(Log(mag)+1) If limitx>32750 Set limitx=32750 limit=Int(limitx) step=0.004/mag left=a-step*319 top=b+step*239 cls //Generate the "quick-look" view Do yy=0,479,3 y=top-step*yy Do xx=0,639,4 x=left+step*xx z=Mandelbrot(x,y,limit) If (z!=limit) Putpixel (xx, yy, 1+z%15) Loop xx If (Readkey(27)) Goto done Loop yy //Fill in the rest of the image Do yy=0,479 y=top-step*yy Do xx=0,639 If xx%4=0 And yy%3=0 Continue x=left+step*xx z=Mandelbrot(x,y,limit) If (z!=limit) Putpixel (xx, yy, 1+z%15) Loop xx If (Readkey(27)) Goto done Loop yy done: aniflag=1 //Let the user specify the next region Do dx=319/dmag dy=239/dmag Read mouse (mx, my, mz) If mz Break rectangle (mx-dx, my-dy, mx+dx, my+dy) key=Readkey() If key=333 dmag=dmag*2 If (dmag>128) dmag=128 End If key=331 dmag=dmag/2 If (dmag<2) dmag=2 End If (key=32) aniflag=1-aniflag If (key=27) Quit delay (50) rectangle (mx-dx, my-dy, mx+dx, my+dy) If (aniflag) cycle colors (+1) @ Loop a=a+step*(mx-319) b=b-step*(my-239) If (mz=1) mag=dmag*mag Else mag=mag/dmag If (mag<1) mag=1 Loop Task new palette Common Int r[]={0,63,63,63,63,63,31, 0, 0,31,31,31,47,63,63,63} Common Int g[]={0, 0,15,31,47,63,63,63,63,31,15, 0, 0, 0, 0, 0} Common Int b[]={0, 0, 0, 0, 0, 0, 0, 0,31,63,63,63,63,63,42,21} graph on Do i=1,15 +setpalette (i_, i_); +setrgbpalette (i_, r_[i_], g_[i_], b_[i_]); Loop Task cycle colors (Int delta) Common Int offset=0 offset=cycle (offset+delta, 15) Do k=15,1 color=1+(k+offset-1)%15 +setpalette (k_, color_); Loop

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