Graphics3D 800,600,16,2
SetBuffer BackBuffer()

Camera = CreateCamera()
CameraRange Camera,1,800

Type Partikel
 Field x#,y#,speed#,winkel,rotate,alpha#,entity
End Type

For i = 1 To 1000
 CreatePartikel(400,300,2,2)
Next

Global FPSSEC = MilliSecs(), FPS, FRAMES

Timer1 = MilliSecs()
Repeat
Cls

UpdatePartikel()

RenderWorld()

; --- DEBUG INFO ONLY ---
Text 0,30, "FPS: " + FPS(1) + " FPS"
p.partikel = First partikel
Text 0,0, "X: " + p\x#
Text 0,10, "Y: " + p\y#
; ---

Flip
Until KeyHit(1)
End


Function CreatePartikel(x,y,w,h)
 p.partikel = New partikel
p\x# = (x*2)-800+w
p\y# = -(y*2)+600-h
 p\speed# = Rnd(1,5)
 p\winkel = Rnd(0,359)
 p\alpha# = Rnd(0,1)
 p\entity = CreateSprite()
 ScaleSprite p\entity, w, h
 EntityAlpha p\entity, p\alpha#
 EntityColor p\entity, 255,Rnd(0,255),0
 PositionEntity p\entity, p\x#, p\y#, 800
End Function


Function UpdatePartikel()
 For p.partikel = Each partikel
  p\x# = p\x# + Cos(p\winkel) * p\speed#
  p\y# = p\y# + Sin(p\winkel) * p\speed#
  PositionEntity p\entity, p\x#, p\y#, 800
  p\rotate = p\rotate + p\speed*3
  If p\ rotate > 360 Then p\rotate = 0
  RotateSprite p\entity, p\rotate
 Next
End Function


Function FPS(MODE)
 If MODE = 1 Then
  FRAMES = FRAMES + 1
  If MilliSecs() - FPSSEC => 1000 Then
   FPS = FRAMES
   FRAMES = 0
   FPSSEC = MilliSecs()
  EndIf
 EndIf
 
 Return FPS
End Function