Graphics 1024,768,16,3
SetBuffer BackBuffer()

Const puls=300,maxage=0,modus=$100,head_size=10,abstand=10

Global h#

Type point
Field x,y,age
End Type

While Not KeyHit(1)
h=h+100
If h>1023 Then h=0

sinkurv=sinkurv+1
Cls
For i=0 To 10
point.point=New point
point\x=h
point\y=768/2+Sin(sinkurv)*puls+i*abstand
point\age=abstand+abstand*Sin(i)+abstand*ATan(i)
Next
LockBuffer()

;Line 0,300,800,300
lastpointx=0
lastpointy=300
For po.point=Each point
po\age=po\age-1
Color po\age,po\age*modus*2,po\age*modus*3
If lastpointx<1022 Then Line lastpointx,lastpointy+1,po\x,po\y+abstand+1
;WritePixelFast po\x,po\y,po\age*modus

lastpointx=po\x
lastpointy=po\y
If po\age<1 Then Delete po

Next
UnlockBuffer()
po.point=Last point


Flip 0
Wend