Const speed=110

;Deklarationen
Type TDot
	Field x,y,val
End Type


;Hauptprogramm
Graphics 1260,600,0,6
SetBuffer BackBuffer()

Local device%=OpenDevice(0)
If device<>0 Then RuntimeError "Cant find card"

Local timer=CreateTimer(speed)
Local time,Dot.TDot
Local fps#,FPS_LAST
Local colour
Const red=-65536,green=-16711936,yellow=-256
While KeyHit(1)=0
	Text 1,1,"Feldstärke:"
	
	LockBuffer BackBuffer()
	For i=1 To 1259
		
		WritePixelFast i,300-128,2147483647,BackBuffer()
		WritePixelFast i,300,2147483647,BackBuffer()
		WritePixelFast i,300+127,2147483647,BackBuffer()
		
	Next
	For Dot.TDot=Each TDot
		colour=GetColour(Dot\val)
		WritePixelFast Dot\x,Dot\y,colour,BackBuffer()
	Next
	UnlockBuffer BackBuffer()
	time=time+1
	
	If time>1259
		time=0
		Delete Each TDot
	End If
	
	Dot.TDot=New TDot
	Dot\x=time
	Dot\val=ReadAnalogChannel(1)
	Dot\y=300+((255-Dot\val)-128)
	WaitTimer timer
	fps#=(19*fps#+(1000./(MilliSecs()-FPS_LAST)))/20.:FPS_LAST=MilliSecs();FPS zählen
	Text 1,15,fps#+" FPS";FPS anzeigen#
	Flip 0
	Cls
Wend
ClearAllAnalog()
ClearAllDigital()
CloseDevice()
End

Function GetColour(val%)
	Local col%
	If val<=85
		col=red
	ElseIf val<=2*85 And val>85
		col=yellow
	ElseIf val>2*85
		col=green
	Else
		col=-1
	End If
	Return col
End Function