Cosmic Explosion!

Turn off all the lights ... Put on your asbestos gloves ... Sit back ... and watch ... [CAUTION: Keep all inflammable materials away from the screen!]

Source Listing

// // Program: Cosmic Explosion! // Author: Mike Watson // Common Float x[2500], y[2500], dx[2500], dy[2500] Common Int color[2500] randomize hide mouse; cls Do n=0,2499 init (n) @ Loop xc=xpixels()/2; yc=ypixels()/2 Do Do n=0,2499 put pixel (x[n]+xc, y[n]+yc, 0) x[n]=x[n]+dx[n]; y[n]=y[n]+dy[n] If (iabs(x[n])>xc Or iabs(y[n])>yc) init (n) @ put pixel (x[n]+xc, y[n]+yc, color[n]) Loop read quitkey Loop Task init (Int n) Common Float x[2500], y[2500], dx[2500], dy[2500] Common Int color[2500] x[n]=0; y[n]=0 dx[n]=(float(random(10000))/1000)*(2*random(2)-1) dy[n]=(float(random(10000))/1000)*(2*random(2)-1) color[n]=random(15)+1

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.