Graphics 800,600,0,2
SetBuffer BackBuffer()

timer=CreateTimer(60)
While Not KeyHit(1)
	drawClock()
	
	Flip 0 : Cls
	WaitTimer(timer)
Wend

Function drawClock(r#=150)
	time$=CurrentTime()
	
	h=Int(Left(time$,2)) Mod 12
	m=Int(Mid(time$,4,2))
	s=Int(Right(time$,2))
	
	mx#=GraphicsWidth()/2.
	my#=GraphicsHeight()/2.
	
	Color 255,255,255
	Oval mx-r,my-r,r*2,r*2,0
	
	For i=0 To 360 Step (360/12)
		Line mx+Sin(i)*r,my-Cos(i)*r,mx+Sin(i)*(r*0.9),my-Cos(i)*(r*0.9)
	Next
	
	phiH#=(360./12.)*h+(360./12./60.)*m+(360./12./60./60.)*s
	Line mx,my,mx+Sin(phiH)*(r*0.7),my-Cos(phiH)*(r*0.7)
	
	phiM#=(360./60.)*m+(360./60./60.)*s
	Line mx,my,mx+Sin(phiM)*(r*0.85),my-Cos(phiM)*(r*0.85)
	
	Color 255,0,0
	phiS#=(360./60.)*s
	Line mx,my,mx+Sin(phiS)*(r*0.9),my-Cos(phiS)*(r*0.9)
End Function