Graphics3D 800,600,32,2
Global MaxPatikel=16000
Global IstPatikel
Global MaxQuellPat
Global PatikelUpdateTakt
Global MaxPatikelStep=40
Dim Patikel#(MaxPatikel*16)
Dim PatikelMesh(10)
Dim QPatikel#(5000*16)
Dim PatFarbe(MaxPatikelStep*4+4)

SeedRnd(MilliSecs())
;Patikel Eigenschafften
;0=QuellID
;1=XPos
;2=YPos
;3=ZPos
;4=XMove
;5=YMove
;6=ZMove
;7=IstZyklus







For I=0 To MaxPatikelStep
  R=255-I*2 R=R*(R>0) PatFarbe(I*4+0)=R ;Rot
  G=255-I*4 G=G*(G>0) PatFarbe(I*4+1)=G ;Grün
  B=0       B=B*(B>0) PatFarbe(I*4+2)=0 ;Blau 
Next


InitPatikelMesh()
InitCamera()
CreateQuellPatikel()






SetBuffer BackBuffer()
Repeat

  MS=MilliSecs():FPSz=FPSz+1
  If MS>FPSt Then FPSt=MS+999:FPS=FPSz:FPSz=0
       
  UpdatePatikel(20):If KeyDown(57) Then CreatePatikel(80)
  ;UpdatePatikel(-1):CreatePatikel(80) ;VolleBelastung

     
 
 RenderWorld
 Text 10,10,FPS+" "+IstPatikel+"   Drücke Space"
 Flip 0
Until KeyDown(1)=1
End




Function UpdatePatikel(Takt)

If MilliSecs()<PatikelUpdateTakt Then Return
PatikelUpdateTakt=MilliSecs()+Takt


Surf=GetSurface(PatikelMesh(0),1)
V1=0:V2=1:V3=2:LastP=IstPatikel Shl 4

While I<IstPatikel Q=Patikel(P)
  Zyk=Patikel(P+7)+1:Patikel(P+7)=Zyk
 
  If Zyk=>MaxPatikelStep Then
    ;---ToterPatikel tauschen mit Letzten---
    For K=0 To 15 Patikel(P+K)=Patikel(LastP+K) Next
    Q=Patikel(P) V=IstPatikel*3
   ;----Den Letzten löschen----
    VertexCoords Surf,V,0,0,0
    VertexCoords Surf,V+1,0,0,0
    VertexCoords Surf,V+2,0,0,0
    IstPatikel=IstPatikel-1:LastP=IstPatikel Shl 4
  End If


  FarbWert=Zyk Shl 2
  R=PatFarbe(FarbWert+0):G=PatFarbe(FarbWert+1):B=PatFarbe(FarbWert+2)

  X#=Patikel(P+1)+Patikel(P+4):Patikel(P+1)=X:VertexColor Surf,V1,R,G,B
  Y#=Patikel(P+2)+Patikel(P+5):Patikel(P+2)=Y:VertexColor Surf,V2,R,G,B
  Z#=Patikel(P+3)+Patikel(P+6):Patikel(P+3)=Z:VertexColor Surf,V3,R,G,B

  VertexCoords Surf,V1,X+QPatikel(Q+3),Y+QPatikel(Q+4),Z+QPatikel(Q+5)
  VertexCoords Surf,V2,X+QPatikel(Q+6),Y+QPatikel(Q+7),Z+QPatikel(Q+8)
  VertexCoords Surf,V3,X+QPatikel(Q+9),Y+QPatikel(Q+10),Z+QPatikel(Q+11)
  V1=V1+3:V2=V2+3:V3=V3+3:I=I+1:P=P+16
Wend

If IstPatikel<1 Then HideEntity PatikelMesh(0)
End Function


Function InitCamera()
CameraPivot=CreatePivot()
CamRollPiv=CreatePivot(CameraPivot)
Camera=CreateCamera(CamRollPiv)
MoveEntity Camera,0,0,-5
;CameraClsColor Camera,0,0,200
Licht=CreateLight():TurnEntity Licht,45,45,0
End Function


Function CreateQuellPatikel()
Spalt#=0:Gr#=.025

Sphere=CreateSphere(50):Surf=GetSurface(Sphere,1)
MaxV=CountVertices(Surf)-1:RotateMesh Sphere,0,0,45

For I=0 To MaxV:X#=VertexX(Surf,I)
  Y#=VertexY(Surf,I):Z#=VertexZ(Surf,I)
  If X<-Spalt Or X>Spalt Then
    If Y<-Spalt Or Y>Spalt Then
      If Z<-Spalt Or Z>Spalt Then
         ;-----Zum Mittlepunkt drehen
        TFormVector Gr#,-Gr#,0,Piv,0
        QPatikel(J+3) = TFormedX#()
        QPatikel(J+4) = TFormedY#()
        QPatikel(J+5) = TFormedZ#()
        TFormVector -Gr#,-Gr#,0,Piv,0
        QPatikel(J+6) = TFormedX#()
        QPatikel(J+7) = TFormedY#()
        QPatikel(J+8) = TFormedZ#()
        TFormVector 0,0,0,Piv,0
        QPatikel(J+9) = TFormedX#()
        QPatikel(J+10) = TFormedY#()
        QPatikel(J+11) = TFormedZ#()   
        MaxQuellPat=MaxQuellPat+1:QPatikel(J+0)=X
        QPatikel(J+1)=Y:QPatikel(J+2)=Z::J=J+16
     End If
    End If
  End If

Next
  FreeEntity Sphere
End Function


Function CreatePatikel(AddMaxPat)
If IstPatikel=>MaxPatikel Then Return 


  For I=0 To AddMaxPat
    Speed#=Rnd(.02,.1)
    J=Rand(MaxQuellPat)*16
    PID=IstPatikel Shl 4
    Patikel(PID)=J:Patikel(PID+1)=0
    Patikel(PID+2)=0:Patikel(PID+3)=0

    Patikel(PID+4)=QPatikel(J)*Speed
    Patikel(PID+5)=QPatikel(J+1)*Speed
    Patikel(PID+6)=QPatikel(J+2)*Speed
    Patikel(PID+7)=0
    IstPatikel=IstPatikel+1
    If IstPatikel=>MaxPatikel Then Exit
  Next
ShowEntity PatikelMesh(0)
End Function






Function InitPatikelMesh()
MaxMesh=1
  For PM=0 To MaxMesh PatikelMesh(PM)=CreateMesh()
    Surf=CreateSurface(PatikelMesh(PM)):EntityFX PatikelMesh(PM),19

    For Tri=0 To MaxPatikel-1
        v1 = AddVertex(surf,0,0,0,1,1)
        v2 = AddVertex(surf,0,0,0,0,1)
        v3 = AddVertex(surf,0,0,0,1,0)
        AddTriangle(surf,v1,v2,v3)
    Next
  Next
End Function