Added Title: tags to scripts.
parent
583cb137bc
commit
4826f0b5f7
|
@ -1,3 +1,5 @@
|
|||
-- Title: Mark Local Group Galaxies
|
||||
|
||||
function mark_LG_galaxies()
|
||||
--
|
||||
-- tables with the member galaxies of the Local Group
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -1,3 +1,5 @@
|
|||
-- Title: Travel to Randomly Picked Stars
|
||||
|
||||
obs = celestia:getobserver()
|
||||
while 1 do
|
||||
nstars = celestia:getstarcount()
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue