This is the end of the script:
Code: Select all
--starcount = celestia:getstarcount()
celestia:settextcolor(1,0,1)
obs = celestia:getobserver()
hd47536 = celestia:find("HD 47536")
obs:gotodistance(hd47536, 4, 5) --travel to within 4 km of HD 47536
sol = celestia:find("Sol")
obs = celestia:getobserver()
obs:track(sol)
obs:follow(sol)
wait (7.0)
celestia:setfaintestvisible(25)
celestia:setstardistancelimit(800)
celestia:hidelabel("stars","galaxies","nebulae","globulars")
celestia:setstarstyle("disc")
celestia:print("On voit en ce moment environ 67 000 etoiles.", 10.0)
wait (10.0)