package X3D
@ISA = qw()
@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 PrintClosure
my ($this, $out) = @_;

sub PrintHeader
my ($this, $filename, $out, $color, $fogrange) = @_;

sub PrintX3DHeader
my ($this, $filename, $out, $color, $sky, $fogrange) = @_;
return 1;

sub CalTransform
my ($this, $x0, $y0, $z0, $x1, $y1, $z1, $scale, $Ver) = @_;
return ($r, $centerstr, $rotationstr);

sub PrintCylinder
my ($this, $out, $x0, $y0, $z0, $x1, $y1, $z1, $cellbarradius, $scale, $Ver) = @_;
return 1;

sub PrintSphere
my ($this, $out, $rx, $ry, $rz, $r, $color, $scale, $rscale, $Ver) = @_;
return 1;

sub PrintText
my ($this, $out, $x, $y, $z, $text, $size, $scale, $Ver) = @_;
return 1;

sub PrintCellRod
my ($this, $out, $x0, $y0, $z0, $x1, $y1, $z1, $cellbarradius, $scale, $Ver) = @_;

sub PrintLattice
my ($this, $out, $Crystal, $cellbarradius, $scale, $Ver) = @_;

sub PrintAtom
my ($this, $out, $label, $rx, $ry, $rz, $scale) = @_;

sub PrintChemicalBond
my ($this, $out, $plabel, $x0, $y0, $z0, $x1, $y1, $z1, $scale) = @_;

sub SaveFile
my ($this, $Crystal, $filename, $nx, $ny, $nz, 
			$MaxBondLength, $nMaxBonds, $Scale, $rScale, $VRMLVersion) = @_;
return;
return;
return ($filename, $NameFile);