Effects

Community Forums/Showcase/Effects

SSS	(Posted 2010) [#1]

Hi Guys,

Last night I was intoxicated and decided to do a bit of coding. I think I managed to create an interesting effect, though it could obviously be faster. The coding isn't great either since I was pretty messed up!

It's all blitzmax code.

SuperStrict

Graphics(800,600,32)

Type ParticleEmitter
	Global list:TList = New TList

	Field p_list:TList
	Field time:Int
	Field LeftBound:Int, RightBound:Int, TopBound:Int, BottomBound:Int
	
	Method New()
		p_list = New TList
		list.addlast(Self)
	End Method
	
	Method Process(dt:Int) Abstract
	
	Method Update()
		Local dt:Int = MilliSecs()-time
		time = MilliSecs()
'		If dt<100
			Process(dt)
			For Local p:Particle=EachIn(p_list)
				p.Update(dt)
			Next
'		EndIf
	End Method
	
	Method Render() Abstract
	
	Method Draw()
		Render()
		For Local p:Particle = EachIn(p_list)
			p.Render()
		Next
	End Method
End Type

Type StandardEmitter Extends ParticleEmitter
	Field x:Int,y:Int
	Field start:Int 
	Field Dir:Int
	
	Method New()
		p_list = New TList
		start = 0
		Dir = False
	End Method
	
	Method Process(dt:Int)
		If Rand(100)<5 And start <= 0
			start = Rand(20,80)
			dir = Rand(0,1)
		EndIf
		If start>0 Then start:-1
		If start Mod 2 = 0 And start>0
			For Local i:Int = 10 To 3+Rand(100)
				Local p:Particle = New Particle
				p.v_r = 0
				p.v_g = -Rand(255)
				p.v_b = 0
				If dir = 1
				p.r = Rand(255)
				p.g = 0
				p.b = 0
				
				p.x = Rnd(GraphicsWidth())
				p.y = 0'50'y+Rnd(-5,5)
				p.v_y = 2
				p.v_x = Rnd(-0.5,0.5)
				Else
				p.g = Rand(255)
				p.r = 0
				p.b = 0
				p.y = Rnd(GraphicsHeight())
				p.x = 0'50'y+Rnd(-5,5)
				p.v_y = Rnd(-0.5,0.5)
				p.v_x = 2
				EndIf
				'p.r = -255.0*Abs(p.v_x/0.5)
				p.size = 3+Rnd(20)
				P.Emitter = Self
				p_list.addlast(p)
			Next
			LeftBound = -200
			RightBound = GraphicsWidth()
			topBound = -200
			bottomBound = GraphicsHeight()
		EndIf
		For Local p:Particle = EachIn(p_list)
			'p.v_y:+0.1*(5-Abs(p.v_y))/5
			'p.r = -Min(0.1+Abs(p.v_y)/6.0,1.0)*p.v_g
		Next
	End Method
	
	Method Render()
	End Method
	
End Type

Type RotatingEmitter Extends ParticleEmitter
	Field x:Int,y:Int
	Field start:Int 
	Field Dir:Int
	Field angle:Float,v_angle:Float
	
	Method New()
		p_list = New TList
		start = 0
		Dir = False
	End Method
	
	Method Process(dt:Int)
		If Rand(100)<5 And start <= 0
			start = Rand(20,80)
			dir = Rand(0,1)
		EndIf
		If start>0 Then start:-1
		If start Mod 2 = 0 And start>0
			For Local i:Int = 10 To 3+Rand(140)
				Local p:Particle = New Particle
				p.v_r = 0
				p.v_g = -Rand(255)
				p.v_b = 0
				If dir = 1
				p.r = Rand(255)
				p.g = 0
				p.b = 0
				
				p.tx = Rnd(-80,GraphicsWidth()+80)
				p.ty = 0'50'y+Rnd(-5,5)
				p.v_y = 2
				p.v_x = Rnd(-0.5,0.5)
				Else
				p.g = Rand(255)
				p.r = 0
				p.b = 0
				p.ty = Rnd(-80,80+GraphicsWidth())
				p.tx = 0'50'y+Rnd(-5,5)
				p.v_y = Rnd(-0.5,0.5)
				p.v_x = 2
				EndIf
				'p.r = -255.0*Abs(p.v_x/0.5)
				p.size = 3+Rnd(20)
				P.Emitter = Self
				p_list.addlast(p)
			Next
			LeftBound = -200
			RightBound = 200+GraphicsWidth()
			topBound = -200
			bottomBound = 200+GraphicsHeight()
			v_angle = 0.6
		EndIf
		angle:+v_angle
		For Local p:Particle = EachIn(p_list)
			p.x:Float = p.tx
			p.y:Float = p.ty
			p.x:-GraphicsWidth()/2
			p.y:-GraphicsHeight()/2
			Local t:Float = Sqr(p.x*p.x+p.y*p.y)
			Local tangle:Float = ATan2(p.y,p.x)
			p.x = t*Cos(angle+tangle)+GraphicsWidth()/2
			p.y = t*Sin(angle+tangle)+GraphicsHeight()/2
			
			'p.v_y:+0.1*(5-Abs(p.v_y))/5
			'p.r = -Min(0.1+Abs(p.v_y)/6.0,1.0)*p.v_g
		Next
	End Method
	
	Method Render()
	End Method
	
End Type

Type Particle
	Field Emitter:ParticleEmitter

	Field x:Float, y:Float
	Field v_x:Float, v_y:Float
	Field tx:Float, ty:Float
	Field r:Float, g:Float, b:Float 
	Field v_r:Float, v_g:Float, v_b:Float
	Field finiteLife:Int, lifetime:Int 
	Field mass:Float, size:Float

	
	Method New()
		finiteLife = False
	End Method
	
	Method Update(dt:Int)

		If finiteLife 
			lifetime:-dt
			If lifetime<0 Then Emitter.p_list.Remove(Self)
		EndIf
		If x-size/2 <Emitter.LeftBound Then Emitter.p_list.Remove(Self)
		If y-size/2 <Emitter.TopBound Then Emitter.p_list.Remove(Self)
		If x+size/2 >Emitter.RightBound Then Emitter.p_list.Remove(Self)
		If y+size/2 >Emitter.BottomBound Then Emitter.p_list.Remove(Self)
		tx:+ v_x
		ty:+ v_y
		If r+v_r<255 And r+v_r>0 
			r:+v_r
		ElseIf  g+v_g<255 And g+v_g>0
			g:+v_g 
		ElseIf b+v_b<255 And b+v_b>0 
			b:+v_b
		EndIf
	End Method
	
	Method Render()
		SetColor r,g,b
		DrawOval x-size/2.0,y-size/2.0,size,size
		SetColor 255,255,255
	End Method
	
End Type

Local e:RotatingEmitter = New RotatingEmitter
e.x = GraphicsWidth()/2
e.y = GraphicsHeight()/2

While Not KeyDown(KEY_ESCAPE)
	Cls
	e.Draw()
	e.Update()
	Flip
Wend

Taron

(Posted 2010) [#2]

Uuuhh...nice! And...did it help you to throw up? 8)))
I'm feeling a bit dizzy now myself...

Really neat depth to it for sure! Great job! Drink more! (or what ever you've done?!) ;}

Brucey

(Posted 2010) [#3]

The depth effect is very cool :-)