Ok I gave up with RootParticles(see the post) And now I'm working with Lotus. Hoping someone use it, I 'm here to ask help. I'm tring to draw 5-6 fires, but I don't know If it is the right way... here it is (the code):
;use the arrow keys to move
;refer to Example.lps for the emitter settings
Graphics3D 800,600,32,2
SetBuffer BackBuffer()
Include "h_lotus.bb"
InitLotus()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Using a type to draw some fires
Type fire
Field x#
Field y#
Field z#
Field flame#
End Type
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
C = CreateCamera()
PositionEntity C,-10,10,-10
CameraClsColor C,32,32,32
CameraClsMode C,1,1
CameraRange C,.01,10000
SetLotusCamera C
;; FPS
MFPS = 45
Period = 1000/MFPS
Time = MilliSecs()-Period
Global fps,timenext,frames
;; LIGHT
L = CreateLight(2)
PositionEntity L,24,24,24
LightRange L,Sqr(64*64*3)/4
LightColor L,255,255,255
AmbientLight 128,128,128
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Here I create 6 fires... Is the right way???
For a = 0 To 5
fire1.fire = New fire
fire1\flame = LoadASCIIEmitters("Example.lps")
fire1\x = Rand(0,50)
fire1\y = Rand(0,50)
fire1\z = Rand(0,50)
Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
S = CreateSphere(32)
ScaleMesh S,32,32,32
FlipMesh S
UpdateNormals S
EntityColor S,128,128,1
EntityShininess S,.05
T = LoadTexture("media/diffuse4.bmp")
ScaleTexture T,.25,.25
EntityTexture S,T,0,0
Repeat
Repeat
Elapsed = MilliSecs() - time
Until Elapsed
Ticks=Elapsed/Period
Tween#=Float(Elapsed Mod Period) / Float(Period)
If KeyDown(57) Then WireFrame 1 Else WireFrame 0
For U = 0 To Ticks
Time = Time + Period
;; UPDATE CAMERA
mxs# = mxs + Float(MouseXSpeed())/3
mys# = mys + Float(MouseYSpeed())/3
mxs = mxs - mxs/4
mys = mys - mys/4
TurnEntity C,mys,-mxs,0
RotateEntity C,Min(Max(EntityPitch(C),80),-80),EntityYaw(C),0
MoveEntity C,(KeyDown(205)-KeyDown(203))*.2,0,(KeyDown(200)-KeyDown(208))*.2
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
;; UPDATE PARTICLES
UpdateLotusParticles()
UpdateWorld
If U = Ticks Then CaptureWorld
Next
RenderWorld Tween
Text 2,2,"FPS: "+GetFPS(False)
Text 2,22,"Particles: "+gLotusParticleCount
Flip False
Until KeyHit(1)
KillLotus()
Function GetFPS(JustChecking = False)
If Not JustChecking Then frames = frames+1
If MilliSecs() > timenext Then
timenext = MilliSecs()+1000
fps = frames
frames = 0
EndIf
Return fps
End Function
And It doesn't works... Why??? What I have to do???
|
