Graphics3D 1280,800,32,1
SetBuffer BackBuffer()
SeedRnd MilliSecs

Type Partikel
Field part
Field alpha#
Field xt#
Field yt#
Field zt#
Field r#
End Type


light=CreateLight()

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

Global Karte=CreateMesh()
Surface=CreateSurface(Karte)
v0=AddVertex(Surface,0,0,0,0.9,0.5)
v1=AddVertex(Surface,0.05,0,0,0.5,0.5)
v2=AddVertex(Surface,0,-0.05,0,0.5,0.5)
v3=AddVertex(Surface,0.05,-0.05,0,0.5,0.5)
AddTriangle(Surface,v0,v1,v2)
AddTriangle(Surface,v1,v3,v2)
UpdateNormals Karte

HideEntity karte

;EntityColor karte,230,210,0
While Not KeyDown(1)

If KeyDown(57) Then addqualm()

;PositionEntity Karte,MouseX(),MouseY()*(-1),0
If KeyDown(205) Then MoveEntity karte,0.01,0,0
If KeyDown(203) Then MoveEntity karte,-0.01,0,0
If KeyDown(200) Then MoveEntity karte,0,0.01,0
If KeyDown(208) Then MoveEntity karte,0,-0.01,0

;p\alpha#=0.4

UpdateWorld



UppQualm()

RenderWorld

Rect EntityX(karte)*650+655,-EntityY(karte)*650+420,6,6,0

Flip
;Cls

Wend

End


Function addqualm()

;For i=0 To 0.1

p.partikel= New partikel
p\part=CopyEntity(karte)
p\alpha#=Rnd(0.5,0.7)
p\xt# = Rnd(-0.003,0.003)
p\yt# = Rnd(-0.002,0.002)
p\zt# = 0
p\r# = Rnd(-1,1);<------------------------drehen
;Next
End Function

Function UppQualm()

   For p.partikel = Each partikel   

      If p\alpha# > 0 Then
         p\alpha#=p\alpha#-Rnd(0.003,0.004)
         
         EntityAlpha P\part,P\alpha#
      End If
      
      RotateMesh p\part, 0,0,p\r#;<----------------------------drehen
      
      MoveEntity p\part, Sin(p\xt#)*30,p\yt#,0
      If p\alpha# = 0 Then
         FreeEntity P\part
         Delete P
      End If

   Next

End Function

For p.partikel = Each partikel   
      p\alpha#=p\alpha#-Rnd(0.003,0.004)
      If p\alpha# <= 0 Then
         FreeEntity P\part
         Delete P           
      else
         turnentity p\part, 0,0,p\r#;<----------------------------drehen
         EntityAlpha P\part,P\alpha#
         MoveEntity p\part, Sin(p\xt#)*30,p\yt#,0
      End If
Next