Celestia

1
-- Title: Tour around Solar system objects
2

3
function gotoobject(o, t)
4
    local obs = celestia:getobserver()
5
    obs:follow(o)
6
    obs:gotoobject(o, t)
7
        while (obs:travelling()) do
8
        wait(0)
9
    end
10
end
11

12
function visit(o)
13
    local i, v
14
    celestia:select(o)
15
    celestia:flash(o:type() .. " - " .. o:name())
16
    gotoobject(o, 3)
17
    wait(0.5)
18
    local children = o:getchildren()
19
    for i, v in ipairs(children) do
20
        visit(v)
21
    end
22
end
23

24
sol = celestia:find("Sol")
25
visit(sol)
26