# "initparts"
# Written by Hisao Kawaura
# Version 1.00 (Feb.,18,1999)
#
# Initiallize parts object
# $ARGV[0] : frame No
# $ARGV[1] : parts 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('parts'))
{
  print 'Error!!: invalid parts No.';
  exit(0);
}


$graph->frame[$fno]->parts[$no]->text                     = '';
$graph->frame[$fno]->parts[$no]->fontface                 = 4;
$graph->frame[$fno]->parts[$no]->fontsize                 = 300;
$graph->frame[$fno]->parts[$no]->fontangle                = 0;
$graph->frame[$fno]->parts[$no]->fontcolor_red            = 0;
$graph->frame[$fno]->parts[$no]->fontcolor_green          = 0;
$graph->frame[$fno]->parts[$no]->fontcolor_blue           = 0;
$graph->frame[$fno]->parts[$no]->linespacing              = 1;
$graph->frame[$fno]->parts[$no]->linecolor_red            = 0;
$graph->frame[$fno]->parts[$no]->linecolor_green          = 0;
$graph->frame[$fno]->parts[$no]->linecolor_blue           = 0;
$graph->frame[$fno]->parts[$no]->bodycolor_red            = 65535;
$graph->frame[$fno]->parts[$no]->bodycolor_green          = 65535;
$graph->frame[$fno]->parts[$no]->bodycolor_blue           = 65535;
$graph->frame[$fno]->parts[$no]->linewidth                = 30;
$graph->frame[$fno]->parts[$no]->linecap                  = 2;
$graph->frame[$fno]->parts[$no]->linejoin                 = 0;
$graph->frame[$fno]->parts[$no]->linestyle                = 0;
$graph->frame[$fno]->parts[$no]->bodyfillstyle            = 1;
$graph->frame[$fno]->parts[$no]->bodyfillrule             = 1;
$graph->frame[$fno]->parts[$no]->interpolate              = 0;
$graph->frame[$fno]->parts[$no]->interpolatediv           = 50
$graph->frame[$fno]->parts[$no]->arrow1                   = 0
$graph->frame[$fno]->parts[$no]->arrow2                   = 0
$graph->frame[$fno]->parts[$no]->arrowlength              = 100
$graph->frame[$fno]->parts[$no]->arrowhalfangle           = 15

# end of "initparts"















