option explicit
option default none
CLS
const Y_top = 0 'Y coordinate of top of the image file on the screen
const X_left = 267 'X coordinate of left of the image file on the screen
const Y_point = 130 'Y coordinate of the centre of the pointer relative to the image top
const X_point = 110 'X coordinate of the centre of the pointer relative to the image left


dim integer nt=1 'Number of triangles used to define the pointer
dim integer ptr(5)=(-5,0, 5,0, 0,-60) ' define size of the pointers
DIM INTEGER pcolour=(rgb(RED)) 'define the colour of the pointer
DIM float heading
const pivot=7 'diameter in pixels of the fulcrum of the pointer '
' Global Variable definitions
'
dim integer b
dim integer xx0(nt),yy0(nt),xx1(nt),yy1(nt),xx2(nt),yy2(nt),tcol(nt)
dim integer x,y,w,h
cls rgb(white)

getlimits(x, y, w, h)
blit read #1, x, y, w, h
do
' Main program
for b = 1 to 360 'so I can see the pointer move one complete revolution
pause 10 'delay of 100mS so I can see the pointer steps
heading = heading+1 'increment the heading 1 degree clockwise
drawpointer(heading) 'draw the pointer
'print b 'so I can see how many times the pointer moves before it crashes
next b
loop
end

sub getlimits(x as integer, y as integer, w as integer, h as integer)
Local integer i,max_x=0,min_x=MM.HRES,max_y=0,min_y=MM.VRES
for i=0 to nt-1
if(xx0(i)>max_x)then max_x=xx0(i)
if(xx1(i)>max_x)then max_x=xx1(i)
if(xx2(i)>max_x)then max_x=xx2(i)
if(xx0(i)<min_x)then min_x=xx0(i)
if(xx1(i)<min_x)then min_x=xx1(i)
if(xx2(i)<min_x)then min_x=xx2(i)
if(yy0(i)>max_y)then max_y=yy0(i)
if(yy1(i)>max_y)then max_y=yy1(i)
if(yy2(i)>max_y)then max_y=yy2(i)
if(yy0(i)<min_y)then min_y=yy0(i)
if(yy1(i)<min_y)then min_y=yy1(i)
if(yy2(i)<min_y)then min_y=yy2(i)
next i
x=min_x
y=min_y
w=max_x-min_x+1
h=max_y-min_y+1
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

Sub drawpointer(angle as float, offset as integer)
local integer last_x, last_y, last_w, last_h, i
  for i=0 to nt-1
'rotate the pointer into the drawing array for each triangle
rotatetriangle(i,pcolour,angle,X_point+X_left,Y_point+Y_top,ptr(0),ptr(1),ptr(2),ptr(3),ptr(4),ptr(5))
NEXT i
last_x=x: last_y=y: last_w=w: last_h=h
getlimits(x, y, w, h)
blit WRITE #1, last_x, last_y, last_w, last_h 'update old rectangle with saved data
blit close #1 'free buffer
blit read #1, x, y, w, h 'save the new rectangle to memory
local integer k
do
k=getscanline()
loop while (k>200 AND k<350)
for i=0 to nt-1
'write new triangle for each triangle
triangle xx0(i), yy0(i)+offset, xx1(i), yy1(i)+offset, xx2(i), yy2(i)+offset, tcol(i),tcol(i)
NEXT i
drawpivot(offset)
End Sub

sub drawpivot(offset as integer) 'put anything you like here to draw the fulcrum as you wish
circle 377,130,pivot,0,,,rgb(54,54,54)
end sub

for bb = 0 to 720

for bb = 1 to 720

Function DayOfWeek(year AS INTEGER, month AS INTEGER, day AS INTEGER) AS INTEGER 'Day of Week Function
local integer a,m,y
a = Int((14-month)/12)
m = month + 12*a - 2
y = year - a
DayOfWeek = (day + y + Int(y/4)-Int(y/100)+Int(y/400)+Int(31*m/12)) Mod 7
End Function

' Interrupt service routine
Sub UpDateTime ' called by 1 second interrupt from SetTick

Local hrs,mins,secs,day,month,year
hrs = Val(left$(Time$,2))
mins = Val(Mid$(Time$,4,2))
secs = Val(right$(Time$,2))
DOW$(0)="Sunday":DOW$(1)="Monday":DOW$(2)="Tuesday":DOW$(3)= "Wednesday":DOW$(4)="Thursday":DOW$(5)="Friday":DOW$(6)="Saturday" ' Day of the week
' Get the current time, extract the minutes component
If secs = 0 Then
MinFlag = 1
Else
MinFlag = 0
EndIf
' Get the current time, test for 00:00:00
If hrs = 2 And mins = 0 And secs = 1 Then
RTC GETTIME
EODFlag = 1
Else
EODFlag = 0
EndIf

Year=Val(Mid$(Date$,7,4)):Month=Val(Mid$(Date$,4,2)):Day=Val(Mid$(Date$,1,2))

NewDataFlag = 1 ' set to indicate fresh data
End Sub