I just constructed this on the fly so it may be buggy with the minutes hand.
what do you think
I used one parent object and 3 limbs, then i glued primitves offset to the center of the limbs and then spun the limbs.
sync on : sync rate 60
rem the clock body
make object sphere 1,0.5
color object 1,rgb(255,0,0)
position object 1,0,0,0
rem a secondhand limb handler
make object cube 100,0.2
make mesh from object 1,100
delete object 100
add limb 1,1,1
rem the seconhand
make object cube 2,3
color object 2,rgb(0,255,0)
scale object 2,5,80,5
position object 2,0,1.5,0
glue object to limb 2,1,1
rem hour limb handler
make object cube 100,0.2
make mesh from object 2,100
delete object 100
add limb 1,2,2
rem the hourhand
make object cube 3,2
color object 3,rgb(255,255,0)
scale object 3,10,50,10
position object 3,0,1,0
glue object to limb 3,1,2
rem minute limb handler
make object cube 100,0.2
make mesh from object 3,100
delete object 100
add limb 1,3,3
rem the minutehand
make object cube 4,2
color object 4,rgb(0,0,255)
scale object 4,10,50,10
position object 4,0,1,0
glue object to limb 4,1,3
position camera 0,3,-5
point camera 0,0,0
disable escapekey
while escapekey()=0
rem some gooey maths stuff
Gtime$ = get time$()
H1 = VAL(left$(Gtime$,1))
H2 = VAL(mid$(Gtime$,2))
M1 = VAL(mid$(Gtime$,4))
M2 = VAL(mid$(Gtime$,5))
S1 = VAL(mid$(Gtime$,7))
S2 = VAL(mid$(Gtime$,8))
Hour = (H2 + (H1*10))-12
Minute = (M2 + (M1*10))
Minute = Minute -(Minute*5)
Second = 6 * (S2 + (S1*10))
Second = Second - (Second*2)
rotate limb 1,1,0,0,wrapvalue(Second)
rotate limb 1,2,0,0,wrapvalue(Hour)
rotate limb 1,3,0,0,wrapvalue(Minute)
text 15,15,Gtime$
text 15,30,"hr 1 num :"+STR$(H1)
text 15,45,"hr 2 num :"+STR$(H2)
text 15,60,"mn 1 num :"+STR$(M1)
text 15,75,"mn 2 num :"+STR$(M2)
text 15,90,"sc 1 num :"+STR$(S1)
text 15,105,"sc 2 num :"+STR$(S2)
text 15,120,"Seconds Angle :"+STR$(Second)
text 15,140,"Hour Angle :"+STR$(Hour)
text 15,160,"Minute Angle :"+STR$(Minute)
sync
endwhile
delete object 1
delete object 2
delete object 3
end
