Type partikel
 Field x#,y#,gx#,gy#,zielx,ziely,grad,counter,grun,blau,rot
End Type
Global partikel.partikel

Graphics 800,600,16,0
SetBuffer BackBuffer()

Repeat
Color 255,255,255
Text 0,0,"fps:"+fps+"    Maustaste gedrückt halten um Partikel zu erstellen!"

winkel1 = (winkel1+10) Mod 360
winkel2 = (winkel2+10) Mod 360
x = 400 + Cos(winkel1) * 20 + Cos(winkel2) * 2
y = 300 + Sin(winkel1) * 20 + Sin(winkel2) * 2


If MouseDown(1)
For par = 0 To 10
CreatePartikel(x,y,x+Rnd(-500,500),y+Rnd(-500,500),200,Rnd(248),Rnd(248),Rnd(248))
Next
EndIf

updatepartikel()

Flip  
Cls

If MilliSecs() - fps_ms > 999 Then
fps = fps_f
fps_f = 0
fps_ms = MilliSecs()
EndIf
fps_f = fps_f + 1

Until KeyHit(1)

Function CreatePartikel(x,y,zielx,ziely,counter,rot,grun,blau)
partikel.partikel = New partikel
partikel\x = x
partikel\y = y
partikel\zielx = zielx
partikel\ziely = ziely
partikel\counter = counter
partikel\grun = grun
partikel\blau = blau
partikel\rot = rot
End Function

Function UpdatePartikel()
For partikel.partikel = Each partikel
partikel\counter = partikel\counter - 1
Color partikel\rot,partikel\grun,partikel\blau
Plot partikel\x,partikel\y
partikel\grad = ATan2(partikel\ziely-partikel\y,partikel\zielx-partikel\x)
If partikel\grad >= 360 Then partikel\grad = partikel\grad Mod 360
If partikel\grad < 0 Then partikel\grad = 360 + partikel\grad
partikel\gy = Sin(partikel\grad)*2
partikel\gx = Cos(partikel\grad)*2
partikel\x = partikel\x + partikel\gx
partikel\y = partikel\y + partikel\gy
If partikel\counter = 0 Then Delete partikel.partikel
Next
End Function