Option explicit

Dim cr,cd,dd
Dim xc,yc,x1,y1,x2,y2
Dim xh,yh,xm,ym,xs,ys
Dim xho,yho,xmo,ymo,xso,yso
Dim hour,min,sec
Dim csl,hhl,mhl,shl
Dim chc,shc
Dim ot$

Const ccc = RGB(orange)  'clock circle colour'
Const csc = RGB(orange)  'clock spoke colour'
Const hmamc = RGB(green) 'clock hand colour for am'
Const hmpmc = RGB(blue)  'clock hand colour for pm'
Const shamc = RGB(red)   'second hand colour for am'
Const shpmc = RGB(red)   'second hand colour for pm'
Const clsc = RGB(black)  'clear screen colour'

xc = 160       'x center of spi display'
yc = 120       'y center of spi display'
cr = 110       'clock radius'
csl = cr * 0.05'clock spoke length'
hhl = cr * 0.5 'hour hand length'
mhl = cr * 0.9 'minute hand length'
shl = cr * 0.9 'second hand length'

xho = xc
yho = yc
xmo = xc
ymo = yc
xso = xc
yso = yc

CLS clsc

'----------clock circle----------'
Circle xc,yc,cr,1,1,ccc'
'For dd = 0 To 360 Step + 0.5
'x1 = Sin(Rad(dd)) * cr
'y1 = Cos(Rad(dd)) * cr
'Pixel x1+xc,y1+yc,ccc
'Next

'----------clock spokes----------'
For dd = 0 To 360 Step + 30
x1 = Sin(Rad(dd)) * (cr)
y1 = Cos(Rad(dd)) * (cr)
x2 = Sin(Rad(dd)) * (cr+csl)
y2 = Cos(Rad(dd)) * (cr+csl)
Line x1+xc,y1+yc,x2+xc,y2+yc,1,csc
Next

'----------get time from I2C RTC----------'
RTC gettime
waitloop:
If Val(Mid$(Time$,7,2)) = 0 Then GoTo waitloop

clockloop:

'----------get time values from time string----------'
ot$ = Time$
hour = Val(Mid$(ot$,1,2))
min = Val(Mid$(ot$,4,2))
sec = Val(Mid$(ot$,7,2))

'----------set clock hand colours for am pm----------'
If hour >= 12 Then
 chc = hmpmc
 shc = shpmc
Else
 chc = hmamc
 shc = shamc
EndIf

'----------hour hand----------'
If hour > 12 Then
 cd = (30 * (hour - 12)) + (0.5 * (Fix(min / 10) * 10))
 Else
 cd = (30 * hour) + (0.5 * (Fix(min / 10) * 10))
 EndIf

'clock degrees to display degrees'
'cd = clock degrees'
'dd = display degrees'
'changing the orientation from clock degrees to display degrees'
dd = cd + 180
If dd > 360 Then dd = dd - 360
'changing the direction from cw to ccw'
dd = 360 - dd

xh = Sin(Rad(dd)) * hhl
yh = Cos(Rad(dd)) * hhl


'----------minute hand----------'
cd = (6 * min) + (0.1 * (Fix(sec / 10) * 10))
dd = cd + 180
If dd > 360 Then dd = dd - 360
dd = 360 - dd
xm = Sin(Rad(dd)) * mhl
ym = Cos(Rad(dd)) * mhl


'----------second hand----------'
cd = 6 * sec
dd = cd + 180
If dd > 360 Then dd = dd - 360
dd = 360 - dd
xs = Sin(Rad(dd)) * shl
ys = Cos(Rad(dd)) * shl

'------clear old and display new clock hands on SPID------'
Line xc,yc,xho+xc,yho+yc,1,clsc
Line xc,yc,xmo+xc,ymo+yc,1,clsc
Line xc,yc,xso+xc,yso+yc,1,clsc

Line xc,yc,xh+xc,yh+yc,1,chc
Line xc,yc,xm+xc,ym+yc,1,chc
Line xc,yc,xs+xc,ys+yc,1,shc

'-------save old data for clearing clock hands on next round-------'
xho = xh
yho = yh
xmo = xm
ymo = ym
xso = xs
yso = ys

'-----wait for time to change to prevent screen flicker-----'
waittimechange:
If ot$ = Time$ Then GoTo waittimechange

GoTo clockloop

'Simple analog clock
'uses picomite OPTION RTC AUT ENABLE, so time$ is accurate
'expects 320x240 display (either VGA or ILI9341)

'dimensions
option default integer
x0=160
y0=120
r0=110:rc=r0+2
r1=90
r2=60

'clock face
cls
circle x0,y0,rc,1,1,rgb(white)
for s=0 to 55 step 5
 line x0+rc*sin(-pi*s/30),y0+rc*cos(pi*s/30),x0+(rc+5)*sin(-pi*s/30),y0+(rc+5)*cos(pi*s/30),1,rgb(white)
next s

'read time and show hands
do
 do:loop while t$=time$ ' wait for seconds to pass
 c1=rgb(black):c2=c1
 drawclock   'draw hands in black = erase
 t$=time$
 h=val(left$(t$,2))
 m=val(mid$(t$,4,2))
 s=val(right$(t$,2))
 c1=rgb(yellow):c2=rgb(green)
 drawclock   'draw new hands
 print time$
loop while inkey$=""

'math for the hands
sub drawclock
 line x0,y0,x0+r0*sin(-pi*s/30),y0+r0*cos(pi*s/30),1,c1
 line x0,y0,x0+r1*sin(-pi*m/30),y0+r1*cos(pi*m/30),1,c2
 line x0,y0,x0+r2*sin(-pi*h/6),y0+r2*cos(pi*h/6),1,c2
end sub