package Planet
@ISA = qw()

sub Name
return shift->{Name};

sub R
return shift->{R};

sub V
return shift->{V};

sub M
return shift->{M};

sub d
return shift->{d};

sub RotV
return shift->{RotV};

sub RevR
return shift->{RevR};

sub RevV
return shift->{RevV};

sub new
my ($module, $name, $radius, $volume, $mass, $density, 
	    $rotationvelocity, $revolutionradius, $revolutionvelocity) = @_;
return $this;

sub SetProperties
my ($this, $name, $radius, $volume, $mass, $density, 
	    $rotationvelocity, $revolutionradius, $revolutionvelocity) = @_;
return $name;

sub DESTROY
my $this = shift;