package Crystal
@ISA = qw()

sub BEGIN

sub new
my ($module) = @_;
return $this;

sub DESTROY
my $this = shift;

sub SetSampleName
my ($this, $name) = @_;
return $this->{'SampleName'} = $name;

sub SampleName
my ($this) = @_;
return $this->{'SampleName'};

sub DrawLattice
my ($this, $OGL, $Crystal, $material) = @_;

sub Prepare
my ($this, $OGL, $Crystal, $nx, $ny, $nz, $rScale) = @_;

sub Draw
my ($this, $OGL, $Crystal, $nx, $ny, $nz, 
			$MaxBondLength, $nMaxBonds, $rScale) = @_;