#!/usr/bin/perl -w

use strict;
use Tk;
use Tk::Canvas;
my $width = 750;
my $height = 750;

my $x_max 	= $width;
my $y_max 	= $height;
my $x_min 	= 5;
my $y_min 	= 5;

my $top 	= MainWindow->new();
my $frame 	= $top->Frame();
my $can 	= $top->Canvas( -width => $width/2, -height=> $height );

sub clear{ $can->delete( 'all' ); }
my $x	= 0;
my $y	= 0;
my $n	= 0;
my $start_x = 0;
my $start_y = 0;
$can->create ( 'line', $x_min, $y_min, $x_max, $y_max );
$can->create ( 'line', $x_min, $y_max, $x_max, $y_min );

$can->packAdjust( -side => 'left', -fill => 'both', -delay => 1 );
$frame->pack( 
	-side 	=> 'left', 
	-fill 	=> 'y', 
	-expand => 'y', 
	-anchor => 'w' );

my $can2 = $top->Canvas( -width => $width/2, -height=> $height );
$can2->packAdjust( -side => 'right', -fill => 'both', -delay => 1 );
$can2->create ( 'line', $x_min, $y_min, $x_max, $y_max );
$can2->create ( 'line', $x_min, $y_max, $x_max, $y_min );

MainLoop;