'Ananlogue Clock for PicoMite / 2022'
'Raspberry Pi Pico running MMBasic interpreter (PicoMite)'
'Uses an I2C RTC connected to the PicoMite system I2C bus'
'and SPI based Display Panel'
'System time is set from I2C RTC at first run and can be'
'set from I2C RTC anytime after by pressing "s"'
'Clock is customizable with colours, location and dimensions.'

Option explicit

'----------variables----------'
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$

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

'----------clock location and dimensions----------'
xc = MM.HRes / 2 'clock x center'
yc = MM.VRes / 2 'clock y center'
cr = Min(MM.HRes , MM.VRes) / 2 - 15 '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'

'----------setting variables for first run----------'
xho = xc
yho = yc
xmo = xc
ymo = yc
xso = xc
yso = yc

'----------clearing the display----------'
CLS clsc

'----------clock circle----------'
Circle xc,yc,cr,1,1,ccc'

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

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

'----------the clock----------'
clockloop:

'----------press "s" anytime to set time from I2C RTC----------'
If Inkey$ = "s" Then GoTo settime

'----------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 or pm----------'
If hour >= 12 Then
 chc = hmpmc
 shc = shpmc
Else
 chc = hmamc
 shc = shamc
EndIf

'----------hour hand location----------'
'24 hour to 12 hour for 360 degrees'
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
dd = cd + 180
If dd > 360 Then dd = dd - 360
dd = 360 - dd
xh = Fix(Sin(Rad(dd)) * hhl)
yh = Fix(Cos(Rad(dd)) * hhl)

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


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

'------clear old and display new clock hands on SPID------'
If (xho <> xh) Or (yho <> yh) Then
 Line xc,yc,xho+xc,yho+yc,1,clsc
EndIf
If (xmo <> xm) Or (ymo <> ym) Then
 Line xc,yc,xmo+xc,ymo+yc,1,clsc
EndIf
If (xso <> xs) Or (yso <> ys) Then
 Line xc,yc,xso+xc,yso+yc,1,clsc
EndIf

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

GoTo clockloop