jd = celestia:gettime()
last = jd + 365
repeat
jd = jd + 1.0
celestia:settime(jd)
wait(0.05)
until jd >= last