Dim a
Dim min1
Dim hr1
Dim sec1

'Initializes clock and tells it how to behave, when to start animation, etc

Sub window_onload
    a = time
    min1 = minute(time)
    hr1 = hour(time)
    if hr1 > 12 then
        hr1 = hr1 - 12
    end if
    sec1 = second(time)
    call sgSecondHand.Rotate(0,0,sec1*6 - 90)
    call sgMinuteHand.Rotate(0,0,min1*6 - 90)
    call sgHourHand.Rotate(0,0,hr1*360/12 - 90)
    call seq("Time").Play
end Sub


'Sequencer initilization

Sub Seq_OnInit
    Call seq("Time").at(0.000, "SecRot", -1, 1.000, 1)
    Call seq("Time").at(60.000, "MinRot", -1, 60.000, 1)
    Call seq("Time").at(0.000, "HourRot", -1, 1800.000, 1)
End Sub

'rotates second hand of clock

Sub SecRot
    Call sgSecondHand.Rotate(0,0,6)
End Sub

' rotates minute hand of clock

Sub MinRot
    Call sgMinuteHand.Rotate(0,0,6)
End Sub

' rotates hour hand of clock

Sub HourRot
    Call sgHourHand.Rotate(0,0,15)
End Sub




























 






    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE= "POSITION:ABSOLUTE; WIDTH:215; HEIGHT:200; TOP:0; LEFT:0;Z-INDEX:5">
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   







    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:absolute; TOP:0; LEFT:0; WIDTH:200; HEIGHT:200">
   
   
   
   
   







    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:absolute; TOP:0; LEFT:0; WIDTH:200; HEIGHT:200; Z-INDEX:5">
   
   
   
   
   





    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:absolute; TOP:0; LEFT:0; WIDTH:200; HEIGHT:200; Z-INDEX:5">
   
   
   
   
   





    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:ABSOLUTE; TOP:0; LEFT:0; WIDTH:200; HEIGHT:200; Z-INDEX:5">
   
   
   
   
   








    CLASSID="CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96">