Option explicit
Option default integer
Dim integer small,nt=4 'Number of triangles being updated
Dim integer xx0(nt*2-1),yy0(nt*2-1),xx1(nt*2-1),yy1(nt*2-1)
dim integer xx2(nt*2-1),yy2(nt*2-1),tcol(nt*2-1),secs,mins,hours
CLS
small=MM.HRes:If MM.VRes < small Then small=MM.VRes
'RTC gettime
SetTick 600000,timecorrect
secs=Val(Right$(Time$,2))
mins=Val(Mid$(Time$,4,2))
hours=Val(Left$(Time$,2))
Do
secs=Val(Right$(Time$,2))
mins=Val(Mid$(Time$,4,2))
hours=Val(Left$(Time$,2))
hands(secs,mins,hours,(small\2-small\12),small\2, small\2)
Do
Loop While Val(Right$(Time$,2))=secs
Loop
End
'
Sub timecorrect
'  RTC gettime
End Sub

Sub hands(seconds , minutes ,  hours , size , x , y )
  Local integer x1,y1,x2,y2,x0,y0,i
  Local float angle=seconds*6
  rotate(2,RGB(RED),angle,x,y,-3,50,3,50,-3,-size)
'make up the second hand with two triangles
  rotate(3,RGB(RED),angle,x,y,3,-size,3,50,-3,-size)
  angle=minutes*6 + seconds/10
  rotate(0,RGB(BLUE),angle,x,y,-size/15,0,size/15,0,0,-size*0.8)
  angle=hours*30 + minutes/2
  rotate(1,RGB(GREEN),angle,x,y,-size/12,0,size/12,0,0,-size*0.5)
  Triangle xx0(), yy0(), xx1(), yy1(), xx2(), yy2() ,tcol(), tcol()
  Circle x,y, size\12, 0, , RGB(red), RGB(red))
  Circle x,y, size\15, 0, , 0, 0
  Circle x,y, size\20, 0, , RGB(gray), RGB(gray)
End Sub

Sub rotate(n , col , angle As float, x ,y , x0 , y0 , x1 , y1 , x2 , y2 )
 Local float sine=Sin(Rad(angle)),cosine=Cos(Rad(angle))
 Local integer x0a,y0a,x1a,y1a,x2a,y2a
 x0a= x0*cosine - y0 * sine + x
 y0a= y0*cosine + x0 * sine + y
 x1a= x1*cosine - y1 * sine + x
 y1a= y1*cosine + x1 * sine + y
 x2a= x2*cosine - y2 * sine + x
 y2a= y2*cosine + x2 * sine + y
 xx0(n)=xx0(n+nt)
 yy0(n)=yy0(n+nt)
 xx1(n)=xx1(n+nt)
 yy1(n)=yy1(n+nt)
 xx2(n)=xx2(n+nt)
 yy2(n)=yy2(n+nt)
 xx0(n+nt)=x0a
 yy0(n+nt)=y0a
 xx1(n+nt)=x1a
 yy1(n+nt)=y1a
 xx2(n+nt)=x2a
 yy2(n+nt)=y2a
 tcol(n)=0
 tcol(n+nt)=col
End Sub