function setorbitcolor(name, r, g, b)
    local obj = celestia:find(name)
    obj:setorbitcoloroverridden(true)
    obj:setorbitcolor(r, g, b)
end


setorbitcolor("Sol/Mercury", 0.75, 0.5, 0)
setorbitcolor("Sol/Venus",   1, 1, 0.8)
setorbitcolor("Sol/Earth",   0.3, 0.8, 1)
setorbitcolor("Sol/Mars",    0.75, 0.15, 0)
setorbitcolor("Sol/Jupiter", 1, 1, 0.5)
setorbitcolor("Sol/Saturn",  1, 0.75, 0.5)
setorbitcolor("Sol/Uranus",  0.6, 1, 0.7)
setorbitcolor("Sol/Neptune", 0.3, 0.3, 1)