#!/usr/bin/perl

# convert LUG positions to xearth marker file
# Use e.g. xearth -label -labelpos +20+20 -markerfile lugs.xe
# xearth -label -labelpos +20+20 -markerfile lugs.xe -bigstars 10 -pos "orbit 0.1 5" -wait 1 -gamma 2.6

$doname = 1 ; 

while (<STDIN>) {
  chomp ;
  ($name,$long,$lat,$ref,$place,$url,$country) = split(/;/) ;
  if ($doname) {
    print "$lat $long \"$name\" # $place\n" ;
  } else {
    print "$lat $long \"$place\" # $name\n" ;
  }
}