Graphics 250,250

Global frametimer = CreateTimer (50)
Global Runde, Stopper, Now, TimeDiff
Global Bild
Global Ende = 60


Dim Zahn(5,360)
Dim Kreis#(360,1)


ClsColor 255,255,255
Color 0,0,0
TFormFilter 0

Now = MilliSecs()

For I = 0 To 360
	Kreis(I,0) = Sin(I)+1
	Kreis(I,1) = Cos(I)+1
Next
;CreateZahn(ID,W,H)
CreateZahn(0,25,70)
CreateZahn(1,20,30)
Runde = MilliSecs()
Stopper = Runde-Now

Repeat
	WaitTimer (frametimer)
	SetBuffer BackBuffer()
	Cls
	Now = MilliSecs()
	TimeDiff = (Now-Runde)
	
	Color 100,100,100
	;Zahnrad(ID,X,Y,W,H,R,Speed,LaufR,Max,EndW)
	Zahnrad(0,90,90,25,70,60,10,1,60,5)
	Zahnrad(1,0,50,20,30,50,20,0,72,4)
	Zahnrad(1,100,0,30,20,40,30,1,45,7)
	
	Color 255,0,0
	Text 0,15,\"Laufzeit: \"+TimeDiff+\" ms\"
	Text 0,30,\"Preload:  \"+Stopper+\" ms\"
	
	
	Flip 
Until KeyHit(1)




Function Zahnrad(ID,X,Y,W,H,R,Speed,LaufR,Max,Anzahl)

	FrameAkt = TimeDiff/Speed
	
	Oval X+H*3/4,Y+H*3/4,R*2-H/2,R*2-H/2
	For I=0 To Anzahl
		Wert = (FrameAkt+I*Max) Mod 360
		If LaufR Then Wert = 360-Wert
		Frame = (Wert/6) Mod Ende
		
		XW = X + H/2 + R * Kreis#(Wert,0)
		YW = Y + H/2 + R * Kreis#(Wert,1)
		DrawImage Zahn(ID,Frame),XW,YW
	Next
End Function



Function CreateZahn(ID,Width,Height)
	Bild = CreateImage(Width,Height)
	SetBuffer ImageBuffer(Bild)
		Rect 0,0,Width,Height
	SetBuffer BackBuffer()
	MaskImage Bild,242,0,242
	For I=0 To Ende-1
		Zahn(ID,I) = CopyImage(Bild)
		RotateImage Zahn(ID,I),(Ende-I)*6
		MidHandle Zahn(ID,I)
	Next
End Function