celestia/scripts/annum.celx

8 lines
122 B
Plaintext
Raw Normal View History

2003-05-01 11:43:42 -06:00
jd = celestia:gettime()
last = jd + 365
repeat
jd = jd + 1.0
celestia:settime(jd)
wait(0.05)
until jd >= last