3d particle effects

Azan
The Ascended One

This image has not been photoshopped. (really)

Posts: 3,259

3d particle effects Jul 24, 2005 12:28:21 GMT -5

Quote

Post by Azan on Jul 24, 2005 12:28:21 GMT -5

; Graphics3D Example 
; ------------------ 

; Set 3D graphics mode 

Graphics3D 800,600,32,1 
SetBuffer BackBuffer() 

Global cr,cg,cb,rr,rg,rb
Global qr=Rnd(5)
Global qg=Rnd(5)
Global qb=Rnd(5)

camera=CreateCamera() 

light=CreateLight() 

Global cone=CreateSphere(17) 
EntityAlpha cone,.3

Const FPS# = 65;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
period = 1000/FPS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
timer = MilliSecs();;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Type par
	Field entity,dirx,diry,dirz,timer
End Type


PositionEntity cone,0,0,5 

While Not KeyHit( 1 ) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;THIS ALSO MAKE FR CONSTANT
ticks = (MilliSecs()-timer)/period;;;;;;;;;;;;;;;;;;;;;;;;
For k=1 To ticks;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
timer=timer+period;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RenderWorld
createpar()
createpar()
updatepar()
cg=cg-50

sr=cr
sg=cg
sb=cb

	If cb<=3 Then
		rb=True
		cb=13
		qb=Rnd(22)
	EndIf
	If cb>=252 Then
		rb=False
		cb=242
		qb=Rnd(22)
	EndIf
	
	If cg<=3 Then
		rg=True
		cg=13
		qg=Rnd(22)
	EndIf
	If cg>=252 Then
		rg=False
		cg=242
		qg=Rnd(22)
	EndIf
	
	If cr<=3 Then
		rr=True
		cr=13
		qr=Rnd(22)
	EndIf
	If cr>=252 Then
		rr=False
		cr=242
		qr=Rnd(22)
	EndIf

		CameraClsColor camera,cr,cg,cb

	If rb=True Then
		cb=cb+qb
	EndIf
	If rr=True Then
		cr=cr+qr
	EndIf
	If rg=True Then
		cg=cg+qg
	EndIf
	If rb=False Then
		cb=cb-qb
	EndIf
	If rr=False Then
		cr=cr-qr
	EndIf
	If rg=False Then
		cg=cg-qg
	EndIf
If cr=sr Then 
	cr=Rnd(1,255)
EndIf
If cg=sg Then 
	cg=Rnd(1,255)
EndIf
If cb=sb Then 
	cb=Rnd(1,255)
EndIf
Flip 
Next
Wend 

End 

Function createpar()
	p.par=New par
	p\entity=CopyEntity(cone)
	p\dirx=Rnd(180)
	p\diry=Rnd(180)
	p\dirz=Rnd(360)
	EntityColor p\entity,cr,cg,cb 
	p\timer=150
	;FreeEntity p\entity
	;RotateEntity p\entity,p\dirx,p\diry,p\dirz
	RotateEntity p\entity,0,0,p\dirz
End Function

Function updatepar()
	For p.par=Each par
	MoveEntity p\entity,.04,0,0
	p\timer=p\timer-1
	If p\timer=0 Then
		FreeEntity p\entity
		Delete p
	EndIf
	Next
End Function

www.almosteternity.com
Currently adding more features, if you want your own Personal Page just register there and ask me.

112% of all people have random statistics in their signature. If you are one of the -12% that don't, put this in your signature.

Azan
The Ascended One

This image has not been photoshopped. (really)

Posts: 3,259

3d particle effects Jul 24, 2005 12:28:45 GMT -5

Quote

Post by Azan on Jul 24, 2005 12:28:45 GMT -5

; Graphics3D Example 
; ------------------ 

; Set 3D graphics mode 

Graphics3D 800,600,32,1 
SetBuffer BackBuffer() 

Global cr,cg,cb,rr,rg,rb
Global qr=Rnd(5)
Global qg=Rnd(5)
Global qb=Rnd(5)

camera=CreateCamera() 

light=CreateLight() 

Global cone=CreateSphere(35) 
EntityAlpha cone,.07

Type par
	Field entity,dirx,diry,dirz,timer
End Type

Const FPS# = 65;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
period = 1000/FPS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
timer = MilliSecs();;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PositionEntity cone,0,0,5 

While Not KeyHit( 1 ) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;THIS ALSO MAKE FR CONSTANT
ticks = (MilliSecs()-timer)/period;;;;;;;;;;;;;;;;;;;;;;;;
For k=1 To ticks;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
timer=timer+period;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RenderWorld
createpar()
updatepar()
cg=cg-50

sr=cr
sg=cg
sb=cb

	If cb<=3 Then
		rb=True
		cb=13
		qb=Rnd(22)
	EndIf
	If cb>=252 Then
		rb=False
		cb=242
		qb=Rnd(22)
	EndIf
	
	If cg<=3 Then
		rg=True
		cg=13
		qg=Rnd(22)
	EndIf
	If cg>=252 Then
		rg=False
		cg=242
		qg=Rnd(22)
	EndIf
	
	If cr<=3 Then
		rr=True
		cr=13
		qr=Rnd(22)
	EndIf
	If cr>=252 Then
		rr=False
		cr=242
		qr=Rnd(22)
	EndIf

		CameraClsColor camera,0,55,255

	If rb=True Then
		cb=cb+qb
	EndIf
	If rr=True Then
		cr=cr+qr
	EndIf
	If rg=True Then
		cg=cg+qg
	EndIf
	If rb=False Then
		cb=cb-qb
	EndIf
	If rr=False Then
		cr=cr-qr
	EndIf
	If rg=False Then
		cg=cg-qg
	EndIf
If cr=sr Then 
	cr=Rnd(1,255)
EndIf
If cg=sg Then 
	cg=Rnd(1,255)
EndIf
If cb=sb Then 
	cb=Rnd(1,255)
EndIf
Flip 
Next
Wend 

End 

Function createpar()
	p.par=New par
	p\entity=CopyEntity(cone)
	p\dirx=Rnd(180)
	p\diry=Rnd(180)
	p\dirz=Rnd(360) 
	p\timer=150
	;FreeEntity p\entity
	;RotateEntity p\entity,p\dirx,p\diry,p\dirz
	RotateEntity p\entity,0,0,p\dirz
End Function

Function updatepar()
	For p.par=Each par
	MoveEntity p\entity,.04,0,0
	p\timer=p\timer-1
	If p\timer=0 Then
		FreeEntity p\entity
		Delete p
	EndIf
	Next
End Function

www.almosteternity.com
Currently adding more features, if you want your own Personal Page just register there and ask me.

112% of all people have random statistics in their signature. If you are one of the -12% that don't, put this in your signature.

Azan
The Ascended One

This image has not been photoshopped. (really)

Posts: 3,259

3d particle effects Jul 24, 2005 12:29:03 GMT -5

Quote

Post by Azan on Jul 24, 2005 12:29:03 GMT -5

; Graphics3D Example 
; ------------------ 

; Set 3D graphics mode 

Graphics3D 800,600,32,1 
SetBuffer BackBuffer() 

Global cr,cg,cb,rr,rg,rb
Global qr=Rnd(5)
Global qg=Rnd(5)
Global qb=Rnd(5)

camera=CreateCamera() 

light=CreateLight() 

Global cone=CreateSphere(17) 
EntityAlpha cone,.3


Type par
	Field entity,dirx,diry,dirz,timer
End Type

Const FPS# = 65;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
period = 1000/FPS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
timer = MilliSecs();;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PositionEntity cone,0,0,5 

While Not KeyHit( 1 ) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;THIS ALSO MAKE FR CONSTANT
ticks = (MilliSecs()-timer)/period;;;;;;;;;;;;;;;;;;;;;;;;
For k=1 To ticks;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
timer=timer+period;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RenderWorld
createpar()
createpar()
updatepar()
cr=cr-50

sr=cr
sg=cg
sb=cb

	If cb<=3 Then
		rb=True
		cb=13
		qb=Rnd(22)
	EndIf
	If cb>=252 Then
		rb=False
		cb=242
		qb=Rnd(22)
	EndIf
	
	If cg<=3 Then
		rg=True
		cg=13
		qg=Rnd(22)
	EndIf
	If cg>=252 Then
		rg=False
		cg=242
		qg=Rnd(22)
	EndIf
	
	If cr<=3 Then
		rr=True
		cr=13
		qr=Rnd(22)
	EndIf
	If cr>=252 Then
		rr=False
		cr=242
		qr=Rnd(22)
	EndIf

		CameraClsColor camera,cr,cg,cb

	If rb=True Then
		cb=cb+qb
	EndIf
	If rr=True Then
		cr=cr+qr
	EndIf
	If rg=True Then
		cg=cg+qg
	EndIf
	If rb=False Then
		cb=cb-qb
	EndIf
	If rr=False Then
		cr=cr-qr
	EndIf
	If rg=False Then
		cg=cg-qg
	EndIf
If cr=sr Then 
	cr=Rnd(1,255)
EndIf
If cg=sg Then 
	cg=Rnd(1,255)
EndIf
If cb=sb Then 
	cb=Rnd(1,255)
EndIf
Flip 
Next
Wend 

End 

Function createpar()
	p.par=New par
	p\entity=CopyEntity(cone)
	p\dirx=Rnd(180)
	p\diry=Rnd(180)
	p\dirz=Rnd(360)
	EntityColor p\entity,cr,cg,cb 
	p\timer=150
	;FreeEntity p\entity
	;RotateEntity p\entity,p\dirx,p\diry,p\dirz
	RotateEntity p\entity,0,0,p\dirz
End Function

Function updatepar()
	For p.par=Each par
	MoveEntity p\entity,.04,0,0
	p\timer=p\timer-1
	If p\timer=0 Then
		FreeEntity p\entity
		Delete p
	EndIf
	Next
End Function

www.almosteternity.com
Currently adding more features, if you want your own Personal Page just register there and ask me.

112% of all people have random statistics in their signature. If you are one of the -12% that don't, put this in your signature.

Azan
The Ascended One

This image has not been photoshopped. (really)

Posts: 3,259

3d particle effects Jul 24, 2005 12:29:21 GMT -5

Quote

Post by Azan on Jul 24, 2005 12:29:21 GMT -5

; Graphics3D Example 
; ------------------ 

; Set 3D graphics mode 

Graphics3D 800,600,32,1 
SetBuffer BackBuffer() 

Global cr,cg,cb,rr,rg,rb
Global qr=Rnd(5)
Global qg=Rnd(5)
Global qb=Rnd(5)
Global z=1
camera=CreateCamera() 

light=CreateLight() 

Global cone=CreateSphere(17) 
EntityAlpha cone,.3

Const FPS# = 65;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
period = 1000/FPS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
timer = MilliSecs();;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Type par
	Field entity,dirx,diry,dirz,timer
End Type


PositionEntity cone,0,0,5 

While Not KeyHit( 1 ) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;THIS ALSO MAKE FR CONSTANT
ticks = (MilliSecs()-timer)/period;;;;;;;;;;;;;;;;;;;;;;;;
For k=1 To ticks;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
timer=timer+period;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

RenderWorld
createpar()
createpar()
updatepar()
cr=cr-50

sr=cr
sg=cg
sb=cb

	If cb<=3 Then
		rb=True
		cb=13
		qb=Rnd(22)
	EndIf
	If cb>=252 Then
		rb=False
		cb=242
		qb=Rnd(22)
	EndIf
	
	If cg<=3 Then
		rg=True
		cg=13
		qg=Rnd(22)
	EndIf
	If cg>=252 Then
		rg=False
		cg=242
		qg=Rnd(22)
	EndIf
	
	If cr<=3 Then
		rr=True
		cr=13
		qr=Rnd(22)
	EndIf
	If cr>=252 Then
		rr=False
		cr=242
		qr=Rnd(22)
	EndIf

		

	If rb=True Then
		cb=cb+qb
	EndIf
	If rr=True Then
		cr=cr+qr
	EndIf
	If rg=True Then
		cg=cg+qg
	EndIf
	If rb=False Then
		cb=cb-qb
	EndIf
	If rr=False Then
		cr=cr-qr
	EndIf
	If rg=False Then
		cg=cg-qg
	EndIf
If cr=sr Then 
	cr=Rnd(1,255)
EndIf
If cg=sg Then 
	cg=Rnd(1,255)
EndIf
If cb=sb Then 
	cb=Rnd(1,255)
EndIf

Flip 
Next
Wend 

End 

Function createpar()
	p.par=New par
	p\entity=CopyEntity(cone)
	p\dirx=Rnd(180)
	p\diry=Rnd(180)
	p\dirz=Rnd(360)
	EntityColor p\entity,cr,cg,cb 
	p\timer=150
	;FreeEntity p\entity
	;RotateEntity p\entity,p\dirx,p\diry,p\dirz
	RotateEntity p\entity,0,0,z
	z=z+1

End Function

Function updatepar()
	For p.par=Each par
	MoveEntity p\entity,.04,0,0
	p\timer=p\timer-1
	If p\timer=0 Then
		FreeEntity p\entity
		Delete p
	EndIf
	Next
End Function

www.almosteternity.com
Currently adding more features, if you want your own Personal Page just register there and ask me.

112% of all people have random statistics in their signature. If you are one of the -12% that don't, put this in your signature.

Azan The Ascended One This image has not been photoshopped. (really) Posts: 3,259	3d particle effects Jul 24, 2005 12:30:01 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by Azan on Jul 24, 2005 12:30:01 GMT -5 Its messy code I know but at least it produces nice results, please tell me which one you like best or what you think of them (note: really easy to make)
	www.almosteternity.com Currently adding more features, if you want your own Personal Page just register there and ask me. 112% of all people have random statistics in their signature. If you are one of the -12% that don't, put this in your signature.

Azan The Ascended One This image has not been photoshopped. (really) Posts: 3,259	3d particle effects Aug 28, 2005 13:03:32 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by Azan on Aug 28, 2005 13:03:32 GMT -5 Anyone? I need feedback to make sure they work correctly.
	www.almosteternity.com Currently adding more features, if you want your own Personal Page just register there and ask me. 112% of all people have random statistics in their signature. If you are one of the -12% that don't, put this in your signature.

Umbrafire Platinum Member Do or do not. There is no try Posts: 2,480	3d particle effects Aug 28, 2005 13:48:24 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by Umbrafire on Aug 28, 2005 13:48:24 GMT -5 the first and the fourth ones I couldnt exit out of with esc, but they all looked kool to me
	"Man is but a reed, the weakest in nature, but he is a thinking reed." - Blaise Pascal

Azan The Ascended One This image has not been photoshopped. (really) Posts: 3,259	3d particle effects Aug 28, 2005 13:56:00 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by Azan on Aug 28, 2005 13:56:00 GMT -5 Yeah, same here, must be something wrong in my code, oh well.
	www.almosteternity.com Currently adding more features, if you want your own Personal Page just register there and ask me. 112% of all people have random statistics in their signature. If you are one of the -12% that don't, put this in your signature.

xXF4LL3NXx Silver Member Posts: 123	3d particle effects Apr 11, 2006 18:37:38 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by xXF4LL3NXx on Apr 11, 2006 18:37:38 GMT -5 pretty cool.. you shoud put in a rotate camera function though =)

3d particle effects

Post by Azan on Jul 24, 2005 12:28:21 GMT -5

Post by Azan on Jul 24, 2005 12:28:45 GMT -5

Post by Azan on Jul 24, 2005 12:29:03 GMT -5

Post by Azan on Jul 24, 2005 12:29:21 GMT -5

Post by Azan on Jul 24, 2005 12:30:01 GMT -5

Post by Azan on Aug 28, 2005 13:03:32 GMT -5

Post by Umbrafire on Aug 28, 2005 13:48:24 GMT -5

Post by Azan on Aug 28, 2005 13:56:00 GMT -5

Post by xXF4LL3NXx on Apr 11, 2006 18:37:38 GMT -5