Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|110\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Engines

magicman	Created : 26 September 2006 Language : Blitz Circular Particals Particals that are...you guessed it, circular!!
This is pretty self explanitory, their particals, and they form circles. ;I wrote this code for anyone that may wish to use it. It teachs you how to make circular particals. ;Nothing to special, but i remember people asking how to do such a thing, and well, here it is. ;I hope this will be some help to someone. ENJOY!!!!! ;set up the graphics mode, buffer, automidhandle, name, pretty simple. AppTitle "Circular Partical Explosions" Graphics 800,600,16,2 AutoMidHandle True SetBuffer BackBuffer() ;make our type "partical" with a few fields, x,y,xv(velocity),yv,w(width),h(height),v(speed) ;r(red),g(green),b(blue), and squaretype, wich is use to say if the sqaure is hollow or filled Type partical Field x#,y#,xv#,yv#,w,h,v#,r,g,b,squaretype End Type ;set up globals that will make the paritcals uniform Global squaretype = 0 Global height = 5 Global x = 400 Global y = 300 Global red = 0 Global green = 0 Global blue = 0 While Not KeyDown(1) Cls ;make totaly random SeedRnd MilliSecs() ;if keyhit spacebar, create particals If KeyHit(57) ;set variables to random value that will make the particals uniform, if you just say p\x = rnd(800,600), it wont work x = Rnd(0,800) y = Rnd(0,600) height = Rnd(10,20) red = Rnd(5,255) green = Rnd(5,255) blue = Rnd(5,255) squaretype = Rnd(0,1) ;for i = 0 to 36, 3610 = 360, a full circle, wich is why we add angle + 10 at the end of the loop For i = 0 To 35 p.partical = New partical p\x# = x;Rnd(0,800) p\y# = y;Rnd(0,600) p\xv# = Cos(angle) p\yv# = Sin(angle) p\v# = 3 p\r = red p\g = green p\b = blue p\w = height p\h = height p\squaretype = squaretype angle = angle + 10 Next EndIf ;do the stuff to the partical that moves it, colors it, and what not For p.partical = Each partical ;set color Color p\r,p\g,p\b ;draw a square. the p\sqauretype is what makes it full or not, or 0 and 1, 1 is faster Rect p\x#,p\y#,p\w,p\h,p\squaretype ;move partical p\x# = p\x# + (p\xv# p\v#) p\y# = p\y# + (p\yv# * p\v#) ;make partical fade(seem to at least) away p\r = p\r - 2 p\g = p\g - 2 p\b = p\b - 2 ;if the color values are less then 5 they equal 5, if you dont do this the color gets all wierd and the partical may never get deleted If p\r =< 5 p\r = 5 If p\g =< 5 p\g = 5 If p\b =< 5 p\b = 5 ;delete the partical if the red,green, and blue values are =< 5, wich is close to black, ;so against a black background it looks like they have faded out, so you delete it If p\r =< 5 If p\g =< 5 If p\b =< 5 Delete p EndIf EndIf EndIf Next Color 255,255,255 Text 0,10,"PRESS SPACE FOR THE PARTICALS" ;flip the buffer, end the while loop, and make it so that annoying thing dosnt say "PROGRAM HAS ENDED" or whatever it says Flip Wend End ;and thats it, feel free to use the code, its pretty simple, just requires some math. ;if you want to contact me for any reason(not sure why you would want to) my e-mail address is..... ;magicman0201@yahoo.com ;good luck in any projects you may be working on, and KEEP ON ROCKIN' IN THE FREE WORLD!!!!!!!! --v

Comments
Wednesday, 13 December 2006, 14:01
MikeT	cheers - i like it. My wifes comment when i ran the code..... "That's pretty" Mike
Wednesday, 13 December 2006, 14:48
magicman	Ah, well, thank you!
Wednesday, 13 December 2006, 14:52
Jayenkai	She's right. That is pretty
Wednesday, 13 December 2006, 14:54
HoboBen	Hey, turn the keyhit into a keydown.... Pretty fun, actually!
Wednesday, 13 December 2006, 14:56
magicman	runs to slow when in keydown()
Wednesday, 13 December 2006, 14:58
HoboBen	Slow-motion prettiness...
Wednesday, 13 December 2006, 15:16
magicman	AHHHH

Circular Particals

Comments