;Analoge Uhr
;Programmed by Carsten Schmidt
;.:|:. Visit Datis.de.vu .:|:.
Graphics 1024,768,16,2
SetBuffer BackBuffer()
AppTitle "BlitzClock 2D"
timer=CreateTimer(60)
ClsColor 20,103,205

Repeat
time$=CurrentTime$()
sec=Int(Right$(time$,2))
min#=Int(Mid$(time$,4,2))+sec/60.0
h#=Int(Left$(time$,2))+min/60.0
winkelSEC=Int((sec/60.0)*360.0)+90
winkelMIN=Int((min/60.0)*360.0)+90
winkelH=Int((h/60.0)*360.0)+90

Cls
Text 10,10,time$
Text 10,30,"Sekunden: "+sec
Text 10,50,"Winkel (s): "+(winkelSEC-90)
Text 10,70,"Minuten: "+Int(min)
Text 10,90,"Winkel (min): "+(winkelMIN-90)
Text 10,110,"Stunden: "+Int(h)
Text 10,130,"Winkel (h): "+(winkelH-90)

Line GraphicsWidth()/2,GraphicsHeight()/2,GraphicsWidth()/2-300*Cos(winkelSEC),GraphicsHeight()/2-300*Sin(winkelSEC)
Line GraphicsWidth()/2,GraphicsHeight()/2,GraphicsWidth()/2-280*Cos(winkelMIN),GraphicsHeight()/2-280*Sin(winkelMIN)
Line GraphicsWidth()/2,GraphicsHeight()/2,GraphicsWidth()/2-150*Cos(winkelH),GraphicsHeight()/2-150*Sin(winkelH)
Oval GraphicsWidth()/2-310,GraphicsHeight()/2-310,620,620,0
Oval GraphicsWidth()/2-3,GraphicsHeight()/2-3,6,6

Flip 0
WaitTimer timer
Until KeyHit(1)
End