# "initframe"
# Written by Hisao Kawaura
#
# Version 1.00 (Feb.,18,1999)
#
# Initiallize frame object
# $ARGV[0] : frame No
#

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

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

$graph->frame[$no]->withdata              = 1;
$graph->frame[$no]->paintorder            = 'frame,data,axis,axisline,parts';
$graph->frame[$no]->x1                    = 2500;
$graph->frame[$no]->y1                    = 4000;
$graph->frame[$no]->x2                    = 9500;
$graph->frame[$no]->y2                    = 11000;
$graph->frame[$no]->framelinecolor_red    = 0;
$graph->frame[$no]->framelinecolor_green  = 0;
$graph->frame[$no]->framelinecolor_blue   = 0;
$graph->frame[$no]->framebodycolor_red    = 0;
$graph->frame[$no]->framebodycolor_green  = 0;
$graph->frame[$no]->framebodycolor_blue   = 0;
$graph->frame[$no]->framelinewidth        = 30;
$graph->frame[$no]->framelinecap          = 2;
$graph->frame[$no]->framelinejoin         = 0;
$graph->frame[$no]->framelinestyle        = 7;
$graph->frame[$no]->framebodyfillstyle    = 1;
$graph->frame[$no]->framebodyfillrule     = 1;
$graph->frame[$no]->frametype             = 0;

execfile("initaxisx", $no, 0);
execfile("initaxisy", $no, 1);
$graph->frame[$no]->arrangeaxes();

# end of "initframe"



