Bubble Trail

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

mike_g	Created : 27 December 2006 Edited : 27 December 2006 Language : Blitz Bubble Trail
My first attempt at doing particles. I'll be working making it nicer and get it running faster. Play around with the variables in the NEW_BURST function to alter the effects. Graphics 1024, 768 Global particles = CreateImage(GraphicsWidth(), GraphicsHeight()) Global count, oldtime, fps ;for fps Type particle Field x#, y#, id, ang#, spd ;For colour effects Field col, fade ;for circle particles. start size and expand rate Field rad#, expand#, expand_max End Type SetBuffer BackBuffer() While Not KeyHit(1) Cls CIRCLE_PARTICLES() NEW_BURST(MouseX(), MouseY(), 10) DrawImage particles, 0, 0 FPS() Flip Wend ;---------------------------; Function NEW_BURST(x_pos, y_pos, parts) a_step# = Float(360)/parts test = a_step# For i = 1 To parts p.particle = New particle p\x = x_pos p\y = y_pos p\ang# = angle# angle# = angle# + a_step# p\expand = 0.1 p\rad =0 p\expand_max = 15 p\spd =2 p\fade = 5 + (5 Shl 8) + (5 Shl 16) r = (255 Shl 16) g = (255 Shl 8) b = 255 p\col = (r+g+b) Next End Function ;---------------------------; Function CIRCLE_PARTICLES() SetBuffer ImageBuffer(particles) Cls LockBuffer For p.particle = Each particle If p\x < -rad Or p\x >= GraphicsWidth()+rad Or p\y < -rad Or p\y >= GraphicsWidth()+rad Delete p.particle Else If p\rad# < p\expand_max Then p\rad# = p\rad# + p\expand# p\col = p\col - p\fade p\x = p\x +Cos(p\ang)p\spd p\y = p\y +Sin(p\ang)p\spd CIRCLE(p\x, p\y, p\rad, p\col) If p\col < 10 Then Delete p.particle EndIf Next UnlockBuffer SetBuffer BackBuffer() End Function ;---------------------------; Function CIRCLE(cx, cy, rad, col) inc# = Float(360/(radPi2)) steps = 360/inc# For i = 0 To steps x = (cx - rad * Cos(deg#)) y = (cy - rad * Sin(deg#)) If x >= 0 And x < GraphicsWidth() And y >= 0 And y < GraphicsHeight() WritePixelFast x, y, col EndIf deg# = deg# + inc# Next End Function ;---------------------------; Function FPS() Text 0, 0, fps time = MilliSecs() - oldtime count = count + 1 If time >= 1000 fps = count count = 0 oldtime=MilliSecs() EndIf End Function --v

Comments
Wednesday, 27 December 2006, 21:36
magicman	Thats pretty cool! could use some color though...
Thursday, 28 December 2006, 07:01
mike_g	You can alter the clour by editing the r, g, or b. you can have the colour transform by editing th fade variables in the NEW_BURST function. The fading can come out looking a little strange though, something I got to work on.
Saturday, 30 December 2006, 13:27
mike_g	Okay magicman. You wanted colour, you got it
Saturday, 30 December 2006, 22:27
magicman	very nice, very nice indeed!
Sunday, 31 December 2006, 00:29
shroom_monk	That's pretty cool. But perhaps the bubbles could be given off in more random or different directions? Cos at the moment they are always given off in the same directions.
Sunday, 31 December 2006, 09:56
mike_g	Personally I like the non-randomised effect. If you want some randomisation in the angles try changing this line in the NEW_BURST function: p\ang# = angle# --v To: p\ang# = angle#+Rand(-5, 5) --v Or: p\ang = Rand(0, 359) --v

Comments