horloge

20-06-2007 » html> 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", [...]