package GraphData
@ISA = qw()
@ISA = qw()

sub Index
return shift->{'Index'};
return scalar @$pX;

sub Visible
return shift->{'Visible'};

sub SetVisible
sub SetVisible   { my ($this,$f)=
return shift->{'Visible'} = $f;

sub XMin
return shift->{'XMin'};

sub XMax
return shift->{'XMax'};

sub YMin
return shift->{'YMin'};

sub YMax
return shift->{'YMax'};

sub GetXMinMax
sub GetXMinMax { my $this = 
return ($this->{'XMin'}, $this->{'XMax'});

sub GetYMinMax
sub GetYMinMax { my $this = 
return ($this->{'YMin'}, $this->{'YMax'});

sub GetMinMax
sub GetMinMax  { my $this = 

sub XDataArray
sub XDataArray    { my ($this,$i)=
return $this->{"x${i}"};

sub SetXDataArray
sub SetXDataArray { my ($this,$i,$p)=
return $this->{"x${i}"} = $p;

sub YDataArray
sub YDataArray    { my ($this,$i)=
return $this->{"y${i}"};

sub SetYDataArray
sub SetYDataArray { my ($this,$i,$p)=
return $this->{"y${i}"} = $p;

sub XCaption
return shift->{'XCaption'};

sub SetXCaption
sub SetXCaption   { my ($this,$c)=
return shift->{'XCaption'} = $c;

sub YCaption
return shift->{'YCaption'};

sub SetYCaption
sub SetYCaption   { my ($this,$c)=
return shift->{'YCaption'} = $c;

sub XName
sub XName         { my ($this,$i)=
return $this->{"x${i}_Name"};

sub SetXName
sub SetXName      { my ($this,$i,$n)=
return $this->{"x${i}_Name"} = $n;

sub YName
sub YName         { my ($this,$i)=
return $this->{"y${i}_Name"};

sub SetYName
sub SetYName      { my ($this,$i,$n)=
return $this->{"y${i}_Name"} = $n;

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

sub SampleName
return shift->{'SampleName'};

sub BEGIN

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

sub DESTROY
my $this = shift;
#	$this->SUPER::DESTROY(

sub GetDataArray
my ($this, $idx) = @_;
return $this->{$idx};

sub CalMinMax
my ($this) = @_;

sub nData
my ($this, $idx) = @_;
return scalar @$pArray;

sub nXColumn
my ($this) = @_;
return $i;

sub nYColumn
my ($this) = @_;
return $i;

sub x
my ($this, $idx, $i) = @_;
return $pArray->[$i];

sub y
my ($this, $idx, $i) = @_;
return $pArray->[$i];

sub XVal
my ($this, $idx, $y, $Debug) = @_;
return undef;
return $x;

sub YVal
my ($this, $idx, $x, $Debug) = @_;
return $this->y($idx, 0)        if($x <= $x0);
return $this->y($idx, $nData-1) if($x >= $x1);
return $this->y($idx, $nData-1) if($x <= $x1);
return $this->y($idx, 0)        if($x >= $x0);
return $vy;
return $this->y($idx, $i);

sub YValForConstantXStep
my ($this, $idx, $x, $Debug) = @_;
return $this->y($idx, 0)        if($i0 < 0);
return $this->y($idx, $nData-1) if($i0 >= $nData);
return $vy;

sub Title
return shift->{'Title'};

sub SetTitle
my ($this, $title) = @_;
return $this->{'Title'} = $title;

sub SetIndex
my ($this, $idx) = @_;
return $this->{'Index'} = $idx;
package GraphDataArray

sub nGraphData
return @$da;

sub GetGraphDataArray
return shift->{'GraphDataArray'};

sub GetGraphData
my ($this, $idx) = @_;
return $pGraphDataArray->[$idx];

sub Index
return 0;

sub SetTitle
my ($this, $title) = @_;
return $title;

sub BEGIN

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

sub DESTROY
my $this = shift;
#	$this->SUPER::DESTROY(

sub AddGraphData
my ($this, $GraphData) = @_;