Celestia

1
-- Title: Mark all D stars
2

3
function mark_spectraltype(x)
4
    local obs = celestia:getobserver()
5
    local nstars = celestia:getstarcount()
6
    local i = 0
7
--    while i < nstars do
8
--        star = celestia:getstar(i)
9
    for star in celestia:stars() do
10
        first, last = string.find(star:spectraltype(), x, 1, true)
11
        if first == 1 then
12
            star:mark("#ff99ff", "triangle", 10)
13
        end
14
        i = i + 1
15
    end
16
end
17

18
spectral = "D"
19
celestia:flash("Marking all " .. spectral .. " stars.")
20
mark_spectraltype(spectral)
21

22