I'm trying to figure out, and not having much success, of how to have the arc of an oval rotate 360 degrees in 60 seconds, similar to that of the second hand of a clock.
However, I don't want it pause at each second interval, ie it should sweep 360 degrees smoothly in 60s without stopping.
So far I've tried some 'trial and error' amendments to Bernd's clock code below but I've had no successs so far - grateful for any hints or tips.
Kind regards,
Glenn
Code: Select all
-- altered clock code from Bernd
global sRun
on movetime
if sRun is true then
lock screen
set the twelvehourtime to false
put the date && the long time into tDate
convert tDate to dateItems
put tDate into tCurrdateItems
put item 6 of tCurrdateItems into tSeconds
put tSeconds * 6 into tSecondsAngle
put (360-tSecondsAngle + 90) into tSecondsAngle
set the startAngle of grc"seconds" to tSecondsAngle
unlock screen
put 1000 - (char -3 to -1 of the milliseconds) into field"fhundredsmilliseconds"
put 1000 - (char -3 to -1 of the milliseconds) into tHowManyMilliseconds
send movetime to me in tHowManyMilliseconds milliseconds
else
break
end if
end movetime