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+1
	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