Added Title: tags to scripts.

scripts/mark-lg.celx

@@ -1,3 +1,5 @@
+-- Title: Mark Local Group Galaxies
+
 function mark_LG_galaxies()
 --
 -- tables with the member galaxies of the Local Group

scripts/marktype.celx

@@ -2,8 +2,9 @@ function mark_spectraltype(x)
     local obs = celestia:getobserver()
     local nstars = celestia:getstarcount()
     local i = 0
-    while i < nstars do
-        star = celestia:getstar(i)
+--    while i < nstars do
+--        star = celestia:getstar(i)
+    for star in celestia:stars() do
         first, last = string.find(star:spectraltype(), x, 1, true)
         if first == 1 then
             star:mark("#ff99ff", "triangle", 10)
@@ -12,7 +13,7 @@ function mark_spectraltype(x)
     end
 end
 
-spectral = "O"
+spectral = "D"
 celestia:flash("Marking all " .. spectral .. " stars.")
 mark_spectraltype(spectral)
 

scripts/randstar.celx

@@ -1,3 +1,5 @@
+-- Title: Travel to Randomly Picked Stars
+
 obs = celestia:getobserver()
 while 1 do
     nstars = celestia:getstarcount()

scripts/z-dist.celx

@@ -1,3 +1,5 @@
+-- Title: Show Redshifts of Galaxies
+
 function get_distance(obj_pos, ref_pos)
    -- Returns distance Earth-object in Mpc.
    distance = ref_pos:distanceto(obj_pos) * km2Mpc