Sorry your browser is not supported!

secondLineLength# = 150
yelkovanLineLength# = 100
akrepLineLength# = 50

screenWidth# = screen width()
screenHeight# = screen height()

loopMilSecStart = TIMER()

sync on : backdrop on
do

rem set timer
gloopMilSec  = TIMER ()
gloopSec     = gloopMilSec / 60
gloopMin     = gloopSec / 60
gloopHour    = gloopMin / 60
`------------------
gMilSec      = (gloopMilSec - loopMilSecStart)
gSec         = gMilSec / 1000
gMin         = gSec / 60
gHour        = gMin / 60
`------------------
txtMilSec   = gMilSec mod 60
txtSec      = gSec mod 60
txtMin      = gMin mod 60
txtHour     = gHour mod 60

ink rgb(255,0,0),0
lx1# = screenWidth# / 2.0
ly1# = screenHeight# / 2.0
lx2# = lx1# + (sin(txtSec*6)*secondLineLength#)
ly2# = ly1# - (cos(txtSec*6)*secondLineLength#)
line lx1#, ly1#, lx2#, ly2#

ink rgb(0,255,0),0
lx1# = screenWidth# / 2.0
ly1# = screenHeight# / 2.0
lx2# = lx1# + (sin(txtMin*6)*yelkovanLineLength#)
ly2# = ly1# - (cos(txtMin*6)*yelkovanLineLength#)
line lx1#, ly1#, lx2#, ly2#

ink rgb(255,255,0),0
lx1# = screenWidth# / 2.0
ly1# = screenHeight# / 2.0
lx2# = lx1# + (sin(txtHour*6)*akrepLineLength#)
ly2# = ly1# - (cos(txtHour*6)*akrepLineLength#)
line lx1#, ly1#, lx2#, ly2#

sync
loop

do

print get time$()

rem set timer
gloopMilSec  = TIMER ()
gloopSec     = gloopMilSec / 60
gloopMin     = gloopSec / 60
gloopHour    = gloopMin / 60
`------------------

sync on : sync rate 0 : autocam off

make object sphere 1,20
color object 1,rgb(255,0,0)

make object box 2,2,100,2
color object 2,rgb(0,255,0)
offset limb 2,0,0,50,0

make object box 3,4,80,4
color object 3,rgb(0,0,255)
offset limb 3,0,0,40,0

make object box 4,5,60,5
color object 4,rgb(255,255,0)
offset limb 4,0,0,30,0

for f=0 to 11
   make object sphere f+20,5
   position object f+20,sin(f*30)*110,cos(f*30)*110,0
next f

position camera 0,-80,-200
point camera 0,-10,0

do
   t$=get time$()
   s=val(right$(t$,2))
   m=val(right$(left$(t$,5),2))
   `h=val(left$(t$,2)) : h=(h mod 12)
   h=val(left$(t$,2)) : if h > 11 then h=h-12

   zrotate object 2,s*-360.0/60.0
   zrotate object 3,(m*-360.0/60.0)-(s/10.0)
   zrotate object 4,(h*-360.0/12.0)-(m/2.0)

   set cursor 0,0
   print t$
   sync
loop

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*6)

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
for i = 1 to 4
delete object i
next i
end