option explicit
option default none
dim integer buff(480*480*3/8-1)
dim integer nt=4 'Number of triangles being updated
dim integer xx0(nt-1),yy0(nt-1),xx1(nt-1),yy1(nt-1),xx2(nt-1),yy2(nt-1),tcol(nt-1),secs,mins,hours,first=1
cls
load image "bigben.bmp",0,0
blit read #1,0,0,480,480
option autorefresh off
Circle MM.Hres\2, MM.HRES\2, (MM.HRES\2-MM.HRES\12)\12, 0, , rgb(red), rgb(red))
Circle MM.Hres\2, MM.HRES\2, (MM.HRES\2-MM.HRES\12)\15, 0, , 0, 0
Circle MM.Hres\2, MM.HRES\2, (MM.HRES\2-MM.HRES\12)\20, 0, , RGB(gray), RGB(gray)
secs=val(right$(time$,2))
mins=val(mid$(time$,4,2))
hours=val(left$(time$,2))
do
hands(secs,mins,hours,(MM.HRES\2-MM.HRES\12),MM.Hres\2, MM.HRES\2)
secs = (secs + 1) mod 60
if secs=0 then mins = (mins+1) mod 60
if hours=0 then hours = (hours+1) mod 12
pause 1000
loop
end
'
Sub hands(seconds As integer, minutes as integer, hours as integer, size as integer, x as integer, y as integer)
Local integer x1,y1,x2,y2,x0,y0,i
local float angle=seconds*6
rotatetriangle(2,RGB(RED),angle,x,y,-3,50,3,50,-3,-size) 'make up the second hand with two triangles
rotatetriangle(3,RGB(RED),angle,x,y,3,-size,3,50,-3,-size)
angle=minutes*6 + seconds/10
rotatetriangle(0,RGB(BLACK),angle,x,y,-size/15,0,size/15,0,0,-size*0.8)
angle=hours*30 + minutes/2
rotatetriangle(1,RGB(BLACK),angle,x,y,-size/12,0,size/12,0,0,-size*0.5)
blit write #1,0,0
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)
refresh
End Sub

sub rotatetriangle(n as integer, col as integer, angle as float, x as integer, y as integer, x0 as integer, y0 as integer, x1 as integer, y1 as integer, x2 as integer, y2 as integer)
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)=x0a
yy0(n)=y0a
xx1(n)=x1a
yy1(n)=y1a
xx2(n)=x2a
yy2(n)=y2a
tcol(n)=col
end sub

secs <> oldsecs

'***Thanks to Matherp for his help with the hands***
 cls RGB(white)
 option explicit
 option default none
 dim integer buff(480*480*3/8-1)
 dim integer nt=4 'Number of triangles being updated
 dim integer xx0(nt-1),yy0(nt-1),xx1(nt-1),yy1(nt-1),xx2(nt-1),yy2(nt-1),tcol(nt-1),secs,mins,hours,first=1
 dim integer oldsecs,i
 DIM STRING q$=chr$(34)
 dim x$,z$,Temp$,Wind$,prob$,type$,summary$
 dim integer val1
 Dim INTEGER a(10000)
 SetTick 900000,weather,1 'every 15 minutes
 load image "4.bmp",0,0
 circle 240,240,238,3,1,RGB(RED)
 blit read #1,0,0,480,480
 option autorefresh off
 FONT 4,2
 i = 0
 secs=val(right$(time$,2))
 mins=val(mid$(time$,4,2))
 hours=val(left$(time$,2)) mod 12
 Text 100,530, day$(now) , LB, 4, 2, RGB(BLACK),RGB(WHITE)      'Day
 Text 70,590, date$ , LB, 4, 2, RGB(BLACK),RGB(WHITE)           'Date
 weather
 do
   secs=val(right$(time$,2))
   mins=val(mid$(time$,4,2))
   hours=val(left$(time$,2)) mod 12
   if secs <> oldsecs then
     hands(secs,mins,hours,(MM.HRES\2-MM.HRES\12),MM.Hres\2, MM.HRES\2)
   end if mins = 0 and secs = 0
 elseif mins = 15 and secs = 0
 elseif mins = 30 and secs = 0
 elseif mins = 45 and secs = 0 then
   weather
   pause 800
 end if
 if time$ = "00:00:00" then
   Text 100,530, "          ") , LB, 4, 2, RGB(BLACK),RGB(WHITE)  'Clear Day
   Text 100,530, day$(now) , LB, 4, 2, RGB(BLACK),RGB(WHITE)      'Day
   Text 70,590, "          ", LB, 4, 2, RGB(BLACK),RGB(WHITE)     'Clear Date
   Text 70,590, date$ , LB, 4, 2, RGB(BLACK),RGB(WHITE)           'Date
   pause 950
 end if
 BOX 2, 620, 476, 175, 3, RGB(red)
 
 '    text i,650,x$
 '    text i+mm.fontwidth*len(z$),720,z$
 '    refresh
 '    i = i - 2
 '    if i < -mm.fontwidth*len(z$) then : i = 0 : endif
 '    text i,720,z$
 '    text i+mm.fontwidth*len(x$),720,x$
 '    refresh
 '    i = i - 2
 '    if i < -mm.fontwidth*len(x$) then : i = 0 : endif
 '
 
 oldsecs = secs
loop

end


sub weather
system "wget -q -O- "+q$+"https://api.darksky.net/forecast/key/53.440120,-2.106181?units=uk2&exclude=flags,alerts,minutely"+q$,a()
pause 700
on error IGNORE
Temp$ = JSON$(a(),"currently.temperature")+"`C "
Wind$ = JSON$(a(),"currently.windspeed")+"MPH "
prob$ = JSON$(a(),"hourly.data[0].precipProbability")
type$ = JSON$(a(),"hourly.data[0].precipType")
summary$ = JSON$(a(),"currently.summary")
Text 60,660, "                        ",LB, 4, 1, RGB(BLACK),RGB(WHITE)
Text 60,660, "Temperature "+ Temp$  , LB, 4, 1, RGB(BLACK),RGB(WHITE)
Text 60,700, "                        ",LB, 4, 1, RGB(BLACK),RGB(WHITE)
Text 60,700, "Windspeed "+ Wind$, LB, 4, 1, RGB(BLACK),RGB(WHITE)
Text 60,740, "                                        ",LB, 4, 1, RGB(BLACK),RGB(WHITE)
Text 60,740, "Summary "+ summary$ , LB, 4, 1, RGB(BLACK),RGB(WHITE)
val1 = val(prob$)
val1 = val1 * 100
print val1, "Val1"
if val1 >= 1 then
 print val1
 Text 60,780, "                                  ",LB, 4, 1, RGB(BLACK),RGB(WHITE)
 Text 60,780, STR$(val1)+ "% chance of "+type$, LB, 4, 1, RGB(BLACK),RGB(WHITE)
 elseif val1 < 1 then
 Text 60,780, "                                  ",LB, 4, 1, RGB(BLACK),RGB(WHITE)
end if
print STR$(val1), "Val"
print Wind$
end sub


Sub hands(seconds As integer, minutes as integer,  hours as integer, size as integer, x as integer, y as integer)
Local integer x1,y1,x2,y2,x0,y0,i
local float angle=seconds*6
rotatetriangle(2,RGB(RED),angle,x,y,-3,50,3,50,-3,-size) 'make up the second hand with two triangles
rotatetriangle(3,RGB(RED),angle,x,y,3,-size,3,50,-3,-size)
angle=minutes*6 + seconds/10
rotatetriangle(0,RGB(black),angle,x,y,-size/20,0,size/20,0,0,-size*1.04) ' Minute hand
angle=hours*30 + minutes/2
rotatetriangle(1,RGB(black),angle,x,y,-size/20,0,size/20,0,0,-size*0.78) ' Hour hand
blit write #1,0,0
triangle xx0(), yy0(), xx1(), yy1(), xx2(), yy2()) ,tcol() ,tcol()
Circle x,y, size\16, 0, , rgb(red), rgb(red))
Circle x,y, size\20, 0, , 0, 0
Circle x,y, size\24, 0, , RGB(red), RGB(red)
refresh
End Sub

sub rotatetriangle(n as integer, col as integer, angle as float, x as integer, y as integer, x0 as integer, y0 as integer, x1 as integer, y1 as integer, x2 as integer, y2 as integer)
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)=x0a
yy0(n)=y0a
xx1(n)=x1a
yy1(n)=y1a
xx2(n)=x2a
yy2(n)=y2a
tcol(n)=col
end sub