use Cwd;
use DBI;
use Digest::MD5 qw(md5_hex);
use LWP::Simple;
use Text::Wrap;
use lib 'lib';
use lib 'vg/lib';
use lib '../lib';
use Tk;
use Tk::LabEntry;
use Tk::Dialog;
use Tk::DialogBox;
use Tk::TableMatrix;
use Tk::ProgressBar;
use Tk::ROText;
use Tk::Optionmenu;
use Win32;
use Win32::Process;
use stricts;
use warnings;

my $mw = MainWindow->new();
$mw ->title("Circular Genome View");

my $canvas = $mw->Canvas(-height=>200, -width=> 200, -background=> 'white')->pack();
my ($x1,$y1,$x2,$y2,$x_center,$y_center);
$x_center= 25;
$y_center = 25;
$x1 = $x_center;
$y1 = $y_center;
$x2 = $x_center + 150;
$y2 = $y_center + 150;
$canvas->createArc($x1,$y1,$x2,$y2, -width=> 5, -fill=> 'purple',-outline=> 'purple',-style=> 'arc', -extent=> 359.59);
$canvas->createArc($x1,$y1,$x2,$y2, -width=> 5, -fill=> 'blue',  -outline=> 'blue',  -style=> 'arc', -extent=> 300);
$canvas->createArc($x1,$y1,$x2,$y2, -width=> 5, -fill=> 'red',   -outline=> 'red',   -style=> 'arc', -extent=> 270);
$canvas->createArc($x1,$y1,$x2,$y2, -width=> 5, -fill=> 'green', -outline=> 'green', -style=> 'arc', -extent=> 120);
$canvas->createText($x_center+75, $y_center+75, -fill => 'black', -text => 'Foo Genome');
$canvas->createText($x_center+75, $y_center+90, -fill => 'black', -text => '25,632 bp');
#$canvas->createLine($x_center,$y_center,$x_center+20,$y_center, -width=>'2',-arrow=>'last');
#$canvas->configure(-scrollregion=> [$canvas->bbox("all")]);

$mw->deiconify();
$mw->raise();
MainLoop;