# "initdata"
# Written by Hisao Kawaura
# Version 1.01 (Sep. 3, 1999)
#
# Initiallize data object
# $ARGV[0] : frame No
# $ARGV[1] : data  No
#

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

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

$graph->frame[$fno]->data[$no]->show                     = 1;
$graph->frame[$fno]->data[$no]->trans_x                  = 0;
$graph->frame[$fno]->data[$no]->trans_y                  = 0;
$graph->frame[$fno]->data[$no]->format_x                 = '';
$graph->frame[$fno]->data[$no]->format_y                 = '';
$graph->frame[$fno]->data[$no]->linecolor_red            = 0;
$graph->frame[$fno]->data[$no]->linecolor_green          = 0;
$graph->frame[$fno]->data[$no]->linecolor_blue           = 0;
$graph->frame[$fno]->data[$no]->markeredgecolor_red      = 0;
$graph->frame[$fno]->data[$no]->markeredgecolor_green    = 0;
$graph->frame[$fno]->data[$no]->markeredgecolor_blue     = 0;
$graph->frame[$fno]->data[$no]->markerbodycolor_red      = 65535;
$graph->frame[$fno]->data[$no]->markerbodycolor_green    = 65535;
$graph->frame[$fno]->data[$no]->markerbodycolor_blue     = 65535;
$graph->frame[$fno]->data[$no]->linewidth                = 30;
$graph->frame[$fno]->data[$no]->linecap                  = 2;
$graph->frame[$fno]->data[$no]->linejoin                 = 0;
$graph->frame[$fno]->data[$no]->linestyle                = 0;
$graph->frame[$fno]->data[$no]->markeredgewidth          = 30;
$graph->frame[$fno]->data[$no]->markeredgecap            = 2;
$graph->frame[$fno]->data[$no]->markeredgejoin           = 0;
$graph->frame[$fno]->data[$no]->markeredgestyle          = 0;
$graph->frame[$fno]->data[$no]->markerfillstyle          = 0;
$graph->frame[$fno]->data[$no]->markerfillrule           = 1;
$graph->frame[$fno]->data[$no]->interpolate              = 0;
$graph->frame[$fno]->data[$no]->interpolatediv           = 50;
$graph->frame[$fno]->data[$no]->markerstyle              = 0;
$graph->frame[$fno]->data[$no]->markercenterdot          = 0;
$graph->frame[$fno]->data[$no]->markersize               = 100;
$graph->frame[$fno]->data[$no]->clipping                 = 1;
$graph->frame[$fno]->data[$no]->refaxis_x                = 0;
$graph->frame[$fno]->data[$no]->refaxis_y                = 1;
$graph->frame[$fno]->data[$no]->basevalue                = 0;
$graph->frame[$fno]->data[$no]->col_x                    = 1;
$graph->frame[$fno]->data[$no]->col_y                    = 2;
$graph->frame[$fno]->data[$no]->col_xmin                 = 1;
$graph->frame[$fno]->data[$no]->col_xmax                 = 1;
$graph->frame[$fno]->data[$no]->col_ymin                 = 1;
$graph->frame[$fno]->data[$no]->col_ymax                 = 1;
$graph->frame[$fno]->data[$no]->readstart                = 1;
$graph->frame[$fno]->data[$no]->readend                  = -1;
$graph->frame[$fno]->data[$no]->skip                     = 1;
$graph->frame[$fno]->data[$no]->commentlineaction        = 0;
$graph->frame[$fno]->data[$no]->bar_x                    = 0;
$graph->frame[$fno]->data[$no]->bar_y                    = 0;
$graph->frame[$fno]->data[$no]->datasearchpath           = 1;
$graph->frame[$fno]->data[$no]->extradata                = '';

# end of "initdata"




