Kaleido-Doodle

Create colorful kaleidoscopic patterns with your mouse. [Left button to draw   -   Right button to erase   -   "Esc" key to exit]

Source Listing

// // Program: Kaleido-Doodle // Author: Cindy Koffler // Call graph on Set x=0 Set y=0 Set z=0 Set d=(xpixels()-ypixels())/2 loop: Call show mouse Call read quit key (27) Call read mouse (x,y,z) If (z=0) Goto loop Call hide mouse If (z=1) Goto draw Call cls Goto loop draw: Set color=random(15)+1 Call solid color (color) Call solid circle (x,y,3) Call solid circle (x,ypixels()-y,3) Call solid circle (xpixels()-x,y,3) Call solid circle (xpixels()-x,ypixels()-y,3) Call solid circle (y+d,x-d,3) Call solid circle (ypixels()-y+d,x-d,3) Call solid circle (y+d,ypixels()-x+d,3) Call solid circle (ypixels()-y+d,ypixels()-x+d,3) Goto 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.)

  [ Webmaster | FAQ's | Home Page | Contact Us ]

© Copyright 2006 SiMPLE CodeWorks, Inc. All rights reserved.