Checkin of sample scripts

scripts/annum.celx

@@ -0,0 +1,8 @@
+jd = celestia:gettime()
+last = jd + 365
+
+repeat
+    jd = jd + 1.0
+    celestia:settime(jd)
+    wait(0.05)
+until jd >= last

scripts/marktype.celx

@@ -0,0 +1,18 @@
+function mark_spectraltype(x)
+    local obs = celestia:getobserver()
+    local nstars = celestia:getstarcount()
+    local i = 0
+    while i < nstars do
+        star = celestia:getstar(i)
+        first, last = string.find(star:spectraltype(), x, 1, true)
+        if first == 1 then
+	    celestia:mark(star)
+        end
+        i = i + 1
+    end
+end
+
+spectral = "O"
+celestia:flash("Marking all " .. spectral .. " stars.")
+mark_spectraltype(spectral)
+

scripts/randstar.celx

@@ -0,0 +1,9 @@
+obs = celestia:getobserver()
+while 1 do
+    nstars = celestia:getstarcount()
+    index = math.floor(nstars * math.random())
+    star = celestia:getstar(index)
+    celestia:select(star)
+    obs:goto(star, 10)
+    wait(10)
+end

scripts/tour-system.celx

@@ -0,0 +1,23 @@
+function goto(o, t)
+    local obs = celestia:getobserver()
+    obs:follow(o)
+    obs:goto(o, t)
+        while (obs:travelling()) do
+        wait(0)
+    end
+end
+
+function visit(o)
+    local i, v
+    celestia:select(o)
+    celestia:flash(o:type() .. " - " .. o:name())
+    goto(o, 3)
+    wait(0.5)
+    local children = celestia:getchildren(o)
+    for i, v in ipairs(children) do
+        visit(v)
+    end
+end
+
+sol = celestia:find("Sol")
+visit(sol)