# "initaxisx"
# Written by Hisao Kawaura
# Version 1.01 (May.,30,1999)
#
# Initiallize X-Axis
# $ARGV[0] : frame No
# $ARGV[1] : axis  No (which must be 0)
#

$len = @ARGV;
if ($len != 2)
{
  print 'Error!!: invalid argument length';
  exit(0);
}

$fno = $ARGV[0];
$ano = $ARGV[1];
$len = $graph->length('frame');
if ($fno >= $len)
{
  print 'Error!!: invalid frame No.';
  exit(0);
}
if ($ano != 0)
{
  print 'Error!!: invalid axis No.';
  exit(0);
}

$graph->frame[$fno]->axis[$ano]->commonset               = 1;
$graph->frame[$fno]->axis[$ano]->scaling                 = 0;
$graph->frame[$fno]->axis[$ano]->invertscale             = 0;
$graph->frame[$fno]->axis[$ano]->x                       = 0;
$graph->frame[$fno]->axis[$ano]->y                       = 0;
$graph->frame[$fno]->axis[$ano]->length                  = 0;
$graph->frame[$fno]->axis[$ano]->angle                   = 0;
$graph->frame[$fno]->axis[$ano]->baselinewidth           = 30;
$graph->frame[$fno]->axis[$ano]->baselinecap             = 2;
$graph->frame[$fno]->axis[$ano]->baselinejoin            = 0;
$graph->frame[$fno]->axis[$ano]->baselinestyle           = 0;
$graph->frame[$fno]->axis[$ano]->baselinecolor_red       = 0;
$graph->frame[$fno]->axis[$ano]->baselinecolor_green     = 0;
$graph->frame[$fno]->axis[$ano]->baselinecolor_blue      = 0;
$graph->frame[$fno]->axis[$ano]->tickarea_start          = 0;
$graph->frame[$fno]->axis[$ano]->tickarea_end            = 100;
$graph->frame[$fno]->axis[$ano]->start                   = 0;
$graph->frame[$fno]->axis[$ano]->end                     = 10;
$graph->frame[$fno]->axis[$ano]->unit                    = 2;
$graph->frame[$fno]->axis[$ano]->crosspoint              = 0;
$graph->frame[$fno]->axis[$ano]->autocrosspoint          = 1;
$graph->frame[$fno]->axis[$ano]->tickparity              = 2;
$graph->frame[$fno]->axis[$ano]->tickwidth               = 30;
$graph->frame[$fno]->axis[$ano]->ticklength              = 200;
$graph->frame[$fno]->axis[$ano]->tickdivision            = 2;
$graph->frame[$fno]->axis[$ano]->majorticklinecolor_red  = 0;
$graph->frame[$fno]->axis[$ano]->majorticklinecolor_green= 0;
$graph->frame[$fno]->axis[$ano]->majorticklinecolor_blue = 0;
$graph->frame[$fno]->axis[$ano]->minorticklinecolor_red  = 0;
$graph->frame[$fno]->axis[$ano]->minorticklinecolor_green= 0;
$graph->frame[$fno]->axis[$ano]->minorticklinecolor_blue = 0;
$graph->frame[$fno]->axis[$ano]->majorticklinewidth      = 30;
$graph->frame[$fno]->axis[$ano]->majorticklinecap        = 0;
$graph->frame[$fno]->axis[$ano]->majorticklinejoin       = 0;
$graph->frame[$fno]->axis[$ano]->majorticklinestyle      = 7;
$graph->frame[$fno]->axis[$ano]->minorticklinewidth      = 30;
$graph->frame[$fno]->axis[$ano]->minorticklinecap        = 0;
$graph->frame[$fno]->axis[$ano]->minorticklinejoin       = 0;
$graph->frame[$fno]->axis[$ano]->minorticklinestyle      = 7;
$graph->frame[$fno]->axis[$ano]->fontface                = 4;
$graph->frame[$fno]->axis[$ano]->fontsize                = 300;
$graph->frame[$fno]->axis[$ano]->fontangle               = 0;
$graph->frame[$fno]->axis[$ano]->fontcolor_red           = 0;
$graph->frame[$fno]->axis[$ano]->fontcolor_green         = 0;
$graph->frame[$fno]->axis[$ano]->fontcolor_blue          = 0;
$graph->frame[$fno]->axis[$ano]->format                  = 1;
$graph->frame[$fno]->axis[$ano]->addplus                 = 0;
$graph->frame[$fno]->axis[$ano]->offset                  = 100;
$graph->frame[$fno]->axis[$ano]->skip                    = 0;
$graph->frame[$fno]->axis[$ano]->autoprecision           = 1;
$graph->frame[$fno]->axis[$ano]->intprecision            = 5;
$graph->frame[$fno]->axis[$ano]->decimalprecision        = 5;
$graph->frame[$fno]->axis[$ano]->labelparity             = 1;
$graph->frame[$fno]->axis[$ano]->crosspointoffset        = 0;
$graph->frame[$fno]->axis[$ano]->crosspointparity        = 0;

# end of "initaxisx"







