Particle Glitch?

Blitz3D Forums/Blitz3D Beginners Area/Particle Glitch?

Guy Fawkes

(Posted 2009) [#1]

Why is my particle looking weird? What did I do wrong in this code?

here's what it SHOULDN'T do:

here's what it SHOULD do:

glitch code:

Global width=1024
Global height=768
Global depth=0
Global mode=2

SetGfx3D(width,height,depth,mode)

SetBuffer BackBuffer()

AmbientLight 255,255,255

Global cam=CreateCamera()
PositionEntity cam,0,1,0

CameraRange cam,.1,9999

Global sky = CreateSphere(100.5)
ScaleEntity sky,1000,1000,1000
EntityColor sky,102,102,255
FlipMesh sky

Global land=CreatePlane()
Global landtex=LoadTexture("GRASS.jpg")
EntityTexture land,landtex

Include "particle candy.bb"
Include "particle types.bb"

; --------------------------------------------------
; CREATE EMITTERS & PARTICLES
; --------------------------------------------------
SetParticleWind 2

InitParticles(Cam,"Media\particles.png", 3)
SetParticleUpdateCycle 2

Listener = CreateListener(Cam, .5, 1, 1)

Global EM1

EM1 = CreateEmitter_Waterfall()
PositionEntity EM1,0,10,0

Emitter_Start(EM1)

While Not KeyHit(1)

If Emitter_HasFinished(EM1) Then Emitter_Start(EM1)

MoveEntity cam,0,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*.1
TurnEntity cam,0,(KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*1,0

UpdateWorld
RenderWorld

updateparticles

Flip
Wend

freeparticlesystem

Function SetGfx3D(width=800,height=600,depth=0,mode=2)
Graphics3D width,height,depth,mode
End Function

compare it to this code:

Text 10,10,"USE FULLSCREEN (Y/N)?"

While a% = 0
	a% = GetKey()
	If a = 122 Or a = 121
		Graphics3D 800,600,0
	Else If a = 110
		Graphics3D 800,600,0,2
	Else
		a = 0
	End If
Wend

SetBuffer BackBuffer()

CamPiv = CreatePivot()

Cam    = CreateCamera(CamPiv)
MoveEntity Cam,0,0,-15

Light  = CreateLight()

Listener = CreateListener(Cam, .005, 1, 1)

Include "..\particle candy.bb"
Include "particle types.bb"

InitParticles(Cam,"..\Media\particles.png", 3)
SetParticleUpdateCycle 2

;----------------------------------------

EM0 = CreateEmitter_Test()
EM1 = CreateEmitter_Rocks()
EM2 = CreateEmitter_Explosion1()
EM3 = CreateEmitter_Explosion2()
EM4 = CreateEmitter_Smoke()
EM5 = CreateEmitter_Torch()
EM6 = CreateEmitter_Sparks()
EM7 = CreateEmitter_FlameThrower()
EM8 = CreateEmitter_Waterfall()
EM9 = CreateEmitter_WaterFontain()
EM10 = CreateEmitter_SmokeFlares()

PositionEntity EM4,0,-7,0
PositionEntity EM5,0,-7,0
RotateEntity   EM9,0,0,45
Emitter_SetScale EM2,.75
Emitter_SetScale EM3,.75
Emitter_SetScale EM6,1.5

showText% = 1
oldtime   = MilliSecs()

While Not KeyDown(1)

	;TurnEntity CamPiv,0,.5,0
	TurnEntity EM7,0,0,.35
	
	;TurnEntity EM8,0,0,.5

	If KeyHit(30)
		ClearParticles
		Emitter_Start(EM0)
	End If
	
	If KeyHit(48)
		If Emitter_IsActive(EM0) Then ClearParticles
		Emitter_Start(EM1)
	End If

	If KeyHit(46)
		PositionEntity EM2,Rand(-5,5),Rand(-5,5),0
		If Emitter_IsActive(EM0) Then ClearParticles
		Emitter_Start(EM2)
	End If

	If KeyHit(32)
		PositionEntity EM3,Rand(-5,5),Rand(-5,5),0
		If Emitter_IsActive(EM0) Then ClearParticles
		Emitter_Start(EM3)
	End If

	If KeyHit(18)
		If Emitter_IsActive(EM0) Then ClearParticles
		Emitter_Start(EM4)
	End If

	If KeyHit(33)
		If Emitter_IsActive(EM0) Then ClearParticles
		Emitter_Start(EM5)
	End If

	If KeyHit(34)
		If Emitter_IsActive(EM0) Then ClearParticles
		Emitter_Start(EM6)
	End If

	If KeyHit(35)
		If Emitter_IsActive(EM0) Then ClearParticles
		Emitter_Start(EM7)
	End If

	If KeyHit(23)
		If Emitter_IsActive(EM0) Then ClearParticles
		Emitter_Start(EM8)
	End If

	If KeyHit(36)
		If Emitter_IsActive(EM0) Then ClearParticles
		Emitter_Start(EM9)
	End If

 	If KeyHit(37)
		If Emitter_IsActive(EM0) Then ClearParticles
		Emitter_Start(EM10)
	End If

	If KeyHit(57) showText = Not showText
	
	UpdateParticles
	
	RenderWorld

	; STATS ----------------
	fps = fps + 1
	now = MilliSecs()
	If now - oldtime > maxframedur
		maxframedur = now - oldtime
	End If
	If now > oldtime + 1000
		oldtime = now
		totalfps = fps
		fps = 0
	EndIf
	
	Text 5,0, "FRAMES: " + totalfps + " PARTICLES: " + pt_numParticles + " PARTICLES RENDERED: " + pt_particlesRendered
	If showText
		y = 20 : Text 5,20,"A = 4000 PARTICLES"
		y = y + 15 : Text 5,y,"B = STONE SMASH"
		y = y + 15 : Text 5,y,"C = EXPLOSION I"
		y = y + 15 : Text 5,y,"D = EXPLOSION II"
		y = y + 15 : Text 5,y,"E = SMOKE"
		y = y + 15 : Text 5,y,"F = TORCH"
		y = y + 15 : Text 5,y,"G = ELECTRIC SPARKLES"
		y = y + 15 : Text 5,y,"H = FLAME THROWER"
		y = y + 15 : Text 5,y,"I = WATERFALL"
		y = y + 15 : Text 5,y,"J = FONTAIN"
		y = y + 15 : Text 5,y,"K = PARTICLE TRAILS"
		y = y + 15 : Text 5,y,"SPACE = TEXT ON/OFF (FASTER!)"
	End If
	; ---------------------

	Flip 0
	
Wend

FreeParticleSystem

End

Thank you! :)

Guy Fawkes

(Posted 2009) [#2]

EDIT: NVM, I found the problem