#!/bin/bash
#xplanet-gnome.sh shell script v0.2
#shows Earth on your Gnome desktop with current lighting conditions,i.e. day and night

DELAY=1m

PREFIX=~/.xplanet/
OUTPUT=xplanet.png
#APPEND=2


GEOMETRY=1680x1050
LONGITUDE=350
LATITUDE=15
#default is no projection,i.e. render a globe
#rectangular is the flat world map. also try ancient, azimuthal,  mercator,..
#PROJECTION=azimuthal  

#rename background image so Gnome realises image has changed - thx to dmbasso

if [ -e "$PREFIX$OUTPUT" ]; then
   rm "$PREFIX$OUTPUT"
   OUTPUT="$APPEND$OUTPUT"
else
   rm "$PREFIX$APPEND$OUTPUT"
fi

if [ -z $PROJECTION ]; then 
xplanet -origin saturn -radius 22 -num_times 1 -output "$PREFIX$OUTPUT" -geometry $GEOMETRY -longitude $LONGITUDE -latitude $LATITUDE 
else
xplanet -origin saturn -radius 22 -num_times 1 -output "$PREFIX$OUTPUT" -geometry $GEOMETRY -longitude $LONGITUDE -latitude $LATITUDE 
fi

#update Gnome backgound
gconftool-2 -t str -s /desktop/gnome/background/picture_filename "$PREFIX$OUTPUT"

sleep $DELAY
exec $0

1  *  *  *  * /usr/local/bin/xplanet-bg

#!/usr/bin/perl
# ------------------------------------------------------------------------------------
#  Program for downloading XPlanet cloud images from a random mirror
# 
#  Copyright (c) 2003, cueSim Ltd.                  http://www.cueSim.com, Bedford, UK
#  
# ------------------------------------------------------------------------------------
#  
#  Redistribution and use, with or without modification, are permitted provided 
#  that the following conditions are met:
#  
#      * Redistributions of source code must retain the above copyright notice, 
#     this list of conditions and the following disclaimer.
#      * Neither the cueSim name nor the names of its contributors may 
#     be used to endorse or promote products derived from this software without 
#     specific prior written permission.
#  
#  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY 
#  EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 
#  OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT 
#  SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 
#  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT 
#  OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 
#  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 
#  OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
#  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
# 
# (2005-06) hacked by mose at nguild.org for personal use on a debian SID

use LWP::Simple;

# Set options:
#  - where to save the downloaded file (default is current directory)
my $Filename = "/home/xxx/.xplanet/clouds.jpg";

# - how often the image is updated on the server
my $MaxDownloadFrequencyHours = 2;

# - how many times to retry, if the server doesn't respond
my $MaxRetries = 3;

## Note: excessive requests to a single image server is discouraged.
## This script limits max retries, does not download more frequently
## than every two hours (the file is generated every 3 hours). and 
## picks a random mirror location for every download.
##
## Change these settings at the risk of being blacklisted from the
## image servers.

    
if(-f $Filename) {
  my @Stats = stat($Filename);
  my $FileAge = (time() - $Stats[9]);
  my $FileSize = $Stats[7];
  if($FileAge < 60 * 60 * $MaxDownloadFrequencyHours && $FileSize > 400000) {
    print "File is already up to date\n";
    exit(1);
  }
}

for(1..$MaxRetries) {
  my $MirrorURL = GetRandomMirror();
  print "Using $MirrorURL\nDownloading...\n";
  my $Response = getstore($MirrorURL, $Filename);
  if( IndicatesSuccess($Response)) {
    print "Finished: file successfully downloaded to $Filename\n";
    exit(0);
  }
  print "Download not available, trying another website\n\n";
}
print "ERROR: Tried to download the file $MaxRetries times, but no servers could provide the file\n";
exit(2);

sub IndicatesSuccess() {
  my $Response = shift();
  if($Response =~ /2\d\d/) {
    return(1); 
  } else {
    return(0);
  } 
} 

sub GetRandomMirror() {
  my @Mirrors = (
     "ftp://mirror.pacific.net.au/pub2/xplanet/clouds_2048.jpg",
     "http://spierepf.dyndns.org/~peter/clouds_2048.jpg", 
     "http://liotierj.free.fr/clouds_2048.jpg", 
     "http://www.ruwenzori.net/earth/clouds_2048.jpg",
     "http://xplanet.dyndns.org/clouds/clouds_2048.jpg",
     "http://userpage.fu-berlin.de/~jml/clouds_2048.jpg",
     "http://rcswww.urz.tu-dresden.de/~es179238/clouds_2048.jpg",
     "http://home.megapass.co.kr/~jhkim1101/cloud_data/clouds_2048.jpg",
     "http://user.chol.com/~winxplanet/cloud_data/clouds_2048.jpg",
     "http://home.megapass.co.kr/~gitto88/cloud_data/clouds_2048.jpg",
     "http://myhome.hanafos.com/~hyoungkee/cloud_data/clouds_2048.jpg",
     "http://php.nctu.edu.tw/~ijliao/clouds_2048.jpg",
     "ftp://ftp.iastate.edu/pub/xplanet/clouds_2048.jpg",
     "http://www.nmt.edu/~houdini/clouds_2048.jpg", 
     "http://enekoalonso.com/projects/xplanet/clouds_2048.php",
     "http://xplanet.nerp.net/clouds_2048.php");
  return $Mirrors[rand scalar(@Mirrors)];
} 

# This file contains options you might want to customize for each
# body.  It's best to leave this file alone and modify a copy. Use the
# -config option to tell xplanet to read your copy.

[default]                       # Values in this section apply to all
                # bodies unless overridden below.   

arc_color=white
#arc_file=
arc_thickness=1

#bump_map=
bump_scale=1

cloud_gamma=1
#cloud_map=clouds.jpg
cloud_ssec=false                # true if the cloud map is from the
                # University of Wisconsin Space
                # Science and Engineering Center 
cloud_threshold=90

color={255,255,255}             # fallback color in case an image map
                # isn't found 

#draw_orbit=true                # if true, draw this body's orbit
                                # about its primary

grid=false
grid1=6
grid2=15

#image=

magnify=42
                      # draw the body as if its radius were
                # magnified by this factor 

#marker_color=red
#marker_file=
#marker_font=

max_radius_for_label=3          # don't draw a label if the body's
                # radius in pixels is more than this  

min_radius_for_label=.01        # don't draw a label if the body's
                # radius in pixels is less than this  

min_radius_for_markers=40       # don't draw markers if the body's
                # radius in pixels is less than this  

#night_map=

#orbit={-.5,.5,2}                # extent of orbit to draw, 
                # {start, end, delta}, where 
                                # start and end are in units of period
                # of revolution and delta is angular
                # increment in degrees to evaluate
                # position 

#orbit_color={255,255,255}       # color for the orbit

random_origin=false              # Can this body be considered if
                # -origin random is used?  

random_target=false              # Can this body be considered if
                # -target random is used?  

#satellite_file=/home/pat/.xplanet/satellites/iss

shade=30                        # 0 = black, 100 = same as dayside

#specular_map=

text_color={255,0,0}            # color for text (markers & body label)

twilight=6                      # blend the day and night images for
                                # pixels within this many degrees of
                                # the terminator 

[sun]
"Sun"
color={255,255,166}
map=sunmap.jpg
magnify=4

max_radius_for_label=0          # never draw a label for the sun

shade=100            # No night side!

[mercury]
"Mercury"
color={100, 100, 100}
map=mer0muu2.jpg
magnify=500
#draw_orbit=true

min_radius_for_label=0          # always draw a label

[venus]
"Venus"
color={161, 129, 70}
map=venusmap.jpg
bump_map=venusbump.jpg
magnify=1500
#draw_orbit=true

min_radius_for_label=0

[earth]
"Earth"
color={28, 82, 110}
cloud_map=clouds.jpg
map=PathfinderMap.resized.jpg
night_map=night-electric.resized.jpg
bump_map=BigEarth.jpg
#draw_orbit=true
#shade=100

# I have day and night maps of Australia centered on Alice Springs,
# which are cropped from higher resolution maps.
#map=alice_springs.png
#night_map=alice_springs_night.png
#mapbounds={-1.2,98.7107,-46.2,169.023}  # lat1, lon1, lat2, lon2

#marker_file=earth

min_radius_for_label=0


#satellite_file=iss


[moon]
"Moon"
color={100, 100, 100}
map=moonmap1k.jpg
bump_map=moonbump1k.jpg
#marker_file=earth
magnify=6
#min_radius_for_label=10
#draw_orbit=true

[mars]
"Mars"
color={172, 123, 67}
map=mar0kuu2.jpg
min_radius_for_label=
magnify=3000
#draw_orbit=true

[phobos]
"Phobos"
magnify=145
#draw_orbit=true

[deimos]
"Deimos"
magnify=500
#draw_orbit=true

[jupiter]
"Jupiter"
color={204, 163, 133}
min_radius_for_label=0
magnify=1000
map=jup0vss1.jpg
#draw_orbit=true

[io]
"Io"
color={212, 182, 52}
magnify=5000
#draw_orbit=true

map=io_m.jpg

[europa]
"Europa"
color={140, 140, 140}
magnify=5000
map=europa.jpg
#draw_orbit=true

[ganymede]
"Ganymede"
color={150, 150, 150}
magnify=5000
map=ganymede_m.jpg
#draw_orbit=true

[callisto]
"Callisto"
color={70, 70, 70}
magnify=5000
map=callisto_m.jpg
#draw_orbit=true

[saturn]
"Saturn"
color={244, 199, 134}
map=saturnmap.jpg
min_radius_for_label=0
magnify=2000
draw_orbit=true

[mimas]
"Mimas"
map=mimas_bump.jpg
bump_map=mimas_bump.jpg
#draw_orbit=true

[enceladus]
"Enceladus"
magnify=30000
#draw_orbit=true

[tethys]
"Tethys"
magnify=30000
#draw_orbit=true

[dione]
"Dione"
magnify=30000
#draw_orbit=true

[rhea]
"Rhea"
magnify=30000
map=mimas_bump.jpg
#draw_orbit=true


[titan]
"Titan"
#draw_orbit=true
color={252,94,7}

[hyperion]
"Hyperion"

[iapetus]
"Iapetus"

[phoebe]
"Phoebe"

[uranus]
"Uranus"
map=ura0fss1.jpg
magnify=5000
color={105, 197, 238}
min_radius_for_label=0
map=uranusmap.jpg
#draw_orbit=true

[miranda]
"Miranda"
magnify=5000
map=ura5vuu2.jpg
#draw_orbit=true

[ariel]
"Ariel"
magnify=5000
map=ura1vuu2.jpg

[umbriel]
"Umbriel"
magnify=5000
map=ura2vuu2.jpg

[titania]
"Titania"
magnify=5000
map=ura3vuu2.jpg

[oberon]
"Oberon"
magnify=5000
map=ura4vuu2.jpg

[neptune]
"Neptune"
color={95, 133, 232}
map=nep0fds1.jpg
magnify=2000
#draw_orbit=true

min_radius_for_label=0

[triton]
"Triton"
map=triton.jpg
magnify=5000
#draw_orbit=true

[nereid]
"Nereid"

[pluto]
"Pluto"
color={206, 180, 153}
magnify=5000
map=plu0rss1.jpg
min_radius_for_label=0
#draw_orbit=true

[charon]
"Charon"
map=plu1rss1.jpg
magnify=5000