Option explicit
Option angle degrees

Dim integer background = RGB(white)
Dim integer xpos,ypos

Dim integer clk_hand_col(15) = (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
Colour Map clk_hand_col(),clk_hand_col()

Dim integer clk_radius = 200

Dim integer clk_face_bc = clk_hand_col(9)
Dim integer clk_face_fc = clk_hand_col(1)
Dim integer clk_face_lw = 10
Dim integer clk_face_sec_length = 10
Dim integer clk_face_5min_length = 20
Dim integer clk_face_sec_col = clk_hand_col(15)
Dim integer clk_face_5min_col = clk_hand_col(14)
Dim integer clk_face_sec_lw = 3
Dim integer clk_face_5min_lw = 5

Dim integer clk_hand_cover_radius = 10
Dim integer clk_hand_cover_lw = 3
Dim integer clk_hand_cover_bc = clk_hand_col(0)
Dim integer clk_hand_cover_fc = clk_hand_col(15)

Dim integer clk_hand_width_sec = 5
Dim integer clk_hand_length_sec = clk_radius - clk_face_lw
Dim integer clk_hand_bc_sec = clk_hand_col(0)
Dim integer clk_hand_fc_sec = clk_hand_col(1)

Dim integer clk_hand_width_min = 10
Dim integer clk_hand_length_min = clk_hand_length_sec - 20
Dim integer clk_hand_bc_min = clk_hand_col(0)
Dim integer clk_hand_fc_min = clk_hand_col(13)

Dim integer clk_hand_width_hr = 15
Dim integer clk_hand_length_hr = clk_hand_length_min - 30
Dim integer clk_hand_bc_hr = clk_hand_col(0)
Dim integer clk_hand_fc_hr = clk_hand_col(3)

Dim integer clk_hand_xp(2), clk_hand_yp(2),clk_hand_x_base, clk_hand_y_base, clk_hand_width
Dim integer clk_hand_base_diff, clk_hand_length, clk_hand_bc, clk_hand_fc, hand_value
Dim integer t, dx, dy, dx1, dy1, hr, min, sec
Dim string clk_time$

CLS background
MODE 3
FRAMEBUFFER create

Do
'  If Inkey$ <> "" Then Save image "b:clock.bmp"
 If Timer > 1000 Then
   Timer = 0
   clk_time$ = Time$
   draw_time(MM.HRES / 2, MM.VRES / 2, clk_time$)
 EndIf
Loop


Sub draw_time(xpos, ypos,clk_time$)

 FRAMEBUFFER write f
 CLS RGB(white)
 draw_clk_face(xpos,ypos)

 'Draw hour
 hr = (Asc(Mid$(clk_time$, Len(clk_time$) - 7, 1)) - 48) * 10 + Asc(Mid$(clk_time$, Len(clk_time$) - 6, 1)) - 48
 min = (Asc(Mid$(clk_time$, Len(clk_time$) - 4, 1)) - 48) * 10 + Asc(Mid$(clk_time$, Len(clk_time$) - 3, 1)) - 48
 min = min / 60 * 5
 If hr > 11 Then
 hr = (hr - 12) * 5
 Else
 hr = hr * 5
 EndIf
 hand_value = (hr + min - 30) * -6
 clk_hand_base_diff =  clk_hand_cover_radius - Sqr(clk_hand_cover_radius ^2 - (clk_hand_width_hr / 2) ^2)
 clk_hand_width = clk_hand_width_hr
 clk_hand_length = clk_hand_length_hr
 clk_hand_bc = clk_hand_bc_hr
 clk_hand_fc = clk_hand_fc_hr
 draw_clk_hand(xpos,ypos)
 'Draw minute
 min = (Asc(Mid$(clk_time$, Len(clk_time$) - 4, 1)) - 48) * 10 + Asc(Mid$(clk_time$, Len(clk_time$) - 3, 1)) - 48
 hand_value = (min - 30) * -6
 clk_hand_base_diff =  clk_hand_cover_radius - Sqr(clk_hand_cover_radius ^2 - (clk_hand_width_min / 2) ^2)
 clk_hand_width = clk_hand_width_min
 clk_hand_length = clk_hand_length_min
 clk_hand_bc = clk_hand_bc_min
 clk_hand_fc = clk_hand_fc_min
 draw_clk_hand(xpos,ypos)
 'Draw second
 sec = (Asc(Mid$(clk_time$, Len(clk_time$) - 1, 1)) - 48) * 10 + Asc(Right$(clk_time$, 1)) - 48
 hand_value = (sec - 30) * -6
 clk_hand_base_diff =  clk_hand_cover_radius - Sqr(clk_hand_cover_radius ^2 - (clk_hand_width_sec / 2) ^2)
 clk_hand_width = clk_hand_width_sec
 clk_hand_length = clk_hand_length_sec
 clk_hand_bc = clk_hand_bc_sec
 clk_hand_fc = clk_hand_fc_sec
 draw_clk_hand(xpos,ypos)

 Circle xpos, ypos, clk_hand_cover_radius, clk_hand_cover_lw,, clk_hand_cover_bc, clk_hand_cover_fc
 FRAMEBUFFER copy f,n
End Sub


Sub draw_clk_hand(xpos,ypos)
 clk_hand_x_base = (clk_hand_cover_radius - clk_hand_base_diff) * Sin(hand_value)
 clk_hand_y_base = (clk_hand_cover_radius - clk_hand_base_diff) * Cos(hand_value)
 clk_hand_xp(0) = clk_hand_length * Sin(hand_value)
 clk_hand_yp(0) = clk_hand_length * Cos(hand_value)
 clk_hand_xp(1) = clk_hand_x_base - Cos(hand_value) * clk_hand_width / 2
 clk_hand_yp(1) = clk_hand_y_base + Sin(hand_value) * clk_hand_width / 2
 clk_hand_xp(2) = clk_hand_x_base + Cos(hand_value) * clk_hand_width / 2
 clk_hand_yp(2) = clk_hand_y_base - Sin(hand_value) * clk_hand_width / 2
 For t = 0 To 2
   clk_hand_xp(t) = clk_hand_xp(t) + xpos
   clk_hand_yp(t) = clk_hand_yp(t) + ypos
 Next t
 Polygon 3, clk_hand_xp(), clk_hand_yp(), clk_hand_bc, clk_hand_fc
End Sub

Sub draw_clk_face(xpos,ypos)
 Circle xpos, ypos, clk_radius, clk_face_lw,, clk_face_fc, clk_face_bc

 For sec = 0 To 360 Step 6
   dx = Sin(sec) * (clk_radius - clk_face_lw - clk_face_sec_length)
   dy = Cos(sec) * (clk_radius - clk_face_lw - clk_face_sec_length)
   dx1 = Sin(sec) * (clk_radius - clk_face_lw)
   dy1 = Cos(sec) * (clk_radius - clk_face_lw)
   Line dx + xpos, dy + ypos, dx1 + xpos, dy1 + ypos, clk_face_sec_lw, clk_face_sec_col
 Next sec
 For min = 0 To 360 Step 30
   dx = Sin(min) * (clk_radius - clk_face_lw - clk_face_5min_length)
   dy = Cos(min) * (clk_radius - clk_face_lw - clk_face_5min_length)
   dx1 = Sin(min) * (clk_radius - clk_face_lw)
   dy1 = Cos(min) * (clk_radius - clk_face_lw)
   Line dx + xpos, dy + ypos, dx1 + xpos, dy1 + ypos, clk_face_5min_lw, clk_face_5min_col
 Next min
End Sub
analog_clock.bas.zip