#!/usr/bin/perl --
use strict;
use warnings;
my $font = undef;
sub print_gnuplot {
my($can) = @_;
$can->delete('all');
my $cmx = $can->width - 2 * $can->cget(-border) - 2 * $can->cget(-high
+lightthickness);
if ($cmx <= 1) {
$cmx = ($can->cget(-width));
}
my $cmy = $can->height - 2 * $can->cget(-border) - 2 * $can->cget(-hig
+hlightthickness);
if ($cmy <= 1) {
$cmy = ($can->cget(-height));
}
$can->createLine($cmx * 171 / 1000, $cmy * 684 / 1000, $cmx * 653 / 10
+00, $cmy * 625 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 829 / 1000, $cmy * 785 / 1000, $cmx * 653 / 10
+00, $cmy * 625 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 171 / 1000, $cmy * 684 / 1000, $cmx * 171 / 10
+00, $cmy * 217 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 171 / 1000, $cmy * 684 / 1000, $cmx * 189 / 10
+00, $cmy * 681 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 156 / 1000, $cmy * 687 / 1000, -text => q{-110
+.48}, -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $
+font) : ()));
$can->createLine($cmx * 653 / 1000, $cmy * 625 / 1000, $cmx * 636 / 10
+00, $cmy * 627 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 191 / 1000, $cmy * 701 / 1000, $cmx * 208 / 10
+00, $cmy * 699 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 175 / 1000, $cmy * 704 / 1000, -text => q{-110
+.46}, -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $
+font) : ()));
$can->createLine($cmx * 673 / 1000, $cmy * 643 / 1000, $cmx * 655 / 10
+00, $cmy * 645 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 210 / 1000, $cmy * 719 / 1000, $cmx * 228 / 10
+00, $cmy * 717 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 195 / 1000, $cmy * 722 / 1000, -text => q{-110
+.44}, -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $
+font) : ()));
$can->createLine($cmx * 692 / 1000, $cmy * 661 / 1000, $cmx * 675 / 10
+00, $cmy * 663 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 230 / 1000, $cmy * 737 / 1000, $cmx * 247 / 10
+00, $cmy * 735 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 214 / 1000, $cmy * 740 / 1000, -text => q{-110
+.42}, -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $
+font) : ()));
$can->createLine($cmx * 712 / 1000, $cmy * 679 / 1000, $cmx * 694 / 10
+00, $cmy * 681 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 249 / 1000, $cmy * 755 / 1000, $cmx * 267 / 10
+00, $cmy * 753 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 234 / 1000, $cmy * 758 / 1000, -text => q{-110
+.4}, -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $f
+ont) : ()));
$can->createLine($cmx * 731 / 1000, $cmy * 696 / 1000, $cmx * 714 / 10
+00, $cmy * 699 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 269 / 1000, $cmy * 773 / 1000, $cmx * 286 / 10
+00, $cmy * 770 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 253 / 1000, $cmy * 775 / 1000, -text => q{-110
+.38}, -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $
+font) : ()));
$can->createLine($cmx * 751 / 1000, $cmy * 714 / 1000, $cmx * 733 / 10
+00, $cmy * 716 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 288 / 1000, $cmy * 790 / 1000, $cmx * 306 / 10
+00, $cmy * 788 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 273 / 1000, $cmy * 793 / 1000, -text => q{-110
+.36}, -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $
+font) : ()));
$can->createLine($cmx * 770 / 1000, $cmy * 732 / 1000, $cmx * 753 / 10
+00, $cmy * 734 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 308 / 1000, $cmy * 808 / 1000, $cmx * 325 / 10
+00, $cmy * 806 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 292 / 1000, $cmy * 811 / 1000, -text => q{-110
+.34}, -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $
+font) : ()));
$can->createLine($cmx * 790 / 1000, $cmy * 750 / 1000, $cmx * 772 / 10
+00, $cmy * 752 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 327 / 1000, $cmy * 826 / 1000, $cmx * 345 / 10
+00, $cmy * 824 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 312 / 1000, $cmy * 829 / 1000, -text => q{-110
+.32}, -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $
+font) : ()));
$can->createLine($cmx * 809 / 1000, $cmy * 768 / 1000, $cmx * 792 / 10
+00, $cmy * 770 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 347 / 1000, $cmy * 844 / 1000, $cmx * 364 / 10
+00, $cmy * 842 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 331 / 1000, $cmy * 847 / 1000, -text => q{-110
+.3}, -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $f
+ont) : ()));
$can->createLine($cmx * 829 / 1000, $cmy * 785 / 1000, $cmx * 811 / 10
+00, $cmy * 787 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 347 / 1000, $cmy * 844 / 1000, $cmx * 341 / 10
+00, $cmy * 838 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 352 / 1000, $cmy * 851 / 1000, -text => q{ 44.
+46}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 171 / 1000, $cmy * 684 / 1000, $cmx * 177 / 10
+00, $cmy * 689 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 391 / 1000, $cmy * 838 / 1000, $cmx * 385 / 10
+00, $cmy * 833 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 396 / 1000, $cmy * 846 / 1000, -text => q{ 44.
+47}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 215 / 1000, $cmy * 678 / 1000, $cmx * 221 / 10
+00, $cmy * 684 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 435 / 1000, $cmy * 833 / 1000, $cmx * 429 / 10
+00, $cmy * 827 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 440 / 1000, $cmy * 841 / 1000, -text => q{ 44.
+48}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 259 / 1000, $cmy * 673 / 1000, $cmx * 265 / 10
+00, $cmy * 679 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 479 / 1000, $cmy * 828 / 1000, $cmx * 472 / 10
+00, $cmy * 822 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 484 / 1000, $cmy * 836 / 1000, -text => q{ 44.
+49}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 303 / 1000, $cmy * 668 / 1000, $cmx * 309 / 10
+00, $cmy * 673 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 522 / 1000, $cmy * 822 / 1000, $cmx * 515 / 10
+00, $cmy * 817 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 527 / 1000, $cmy * 830 / 1000, -text => q{ 44.
+5}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font =
+> $font) : ()));
$can->createLine($cmx * 347 / 1000, $cmy * 662 / 1000, $cmx * 353 / 10
+00, $cmy * 668 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 565 / 1000, $cmy * 817 / 1000, $cmx * 559 / 10
+00, $cmy * 812 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 571 / 1000, $cmy * 825 / 1000, -text => q{ 44.
+51}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 391 / 1000, $cmy * 657 / 1000, $cmx * 397 / 10
+00, $cmy * 663 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 609 / 1000, $cmy * 812 / 1000, $cmx * 603 / 10
+00, $cmy * 806 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 615 / 1000, $cmy * 820 / 1000, -text => q{ 44.
+52}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 435 / 1000, $cmy * 652 / 1000, $cmx * 441 / 10
+00, $cmy * 657 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 653 / 1000, $cmy * 807 / 1000, $cmx * 647 / 10
+00, $cmy * 801 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 659 / 1000, $cmy * 814 / 1000, -text => q{ 44.
+53}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 478 / 1000, $cmy * 647 / 1000, $cmx * 485 / 10
+00, $cmy * 652 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 697 / 1000, $cmy * 801 / 1000, $cmx * 691 / 10
+00, $cmy * 796 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 703 / 1000, $cmy * 809 / 1000, -text => q{ 44.
+54}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 521 / 1000, $cmy * 641 / 1000, $cmx * 528 / 10
+00, $cmy * 647 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 741 / 1000, $cmy * 796 / 1000, $cmx * 735 / 10
+00, $cmy * 790 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 747 / 1000, $cmy * 804 / 1000, -text => q{ 44.
+55}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 565 / 1000, $cmy * 636 / 1000, $cmx * 571 / 10
+00, $cmy * 642 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 785 / 1000, $cmy * 791 / 1000, $cmx * 779 / 10
+00, $cmy * 785 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 790 / 1000, $cmy * 798 / 1000, -text => q{ 44.
+56}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 609 / 1000, $cmy * 631 / 1000, $cmx * 615 / 10
+00, $cmy * 636 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 829 / 1000, $cmy * 785 / 1000, $cmx * 823 / 10
+00, $cmy * 780 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 834 / 1000, $cmy * 793 / 1000, -text => q{ 44.
+57}, -fill => q{black}, -anchor => 'center', (defined $font ? (-font
+=> $font) : ()));
$can->createLine($cmx * 653 / 1000, $cmy * 625 / 1000, $cmx * 659 / 10
+00, $cmy * 631 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 171 / 1000, $cmy * 528 / 1000, $cmx * 189 / 10
+00, $cmy * 528 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 135 / 1000, $cmy * 528 / 1000, -text => q{-8},
+ -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $font)
+ : ()));
$can->createLine($cmx * 171 / 1000, $cmy * 490 / 1000, $cmx * 189 / 10
+00, $cmy * 490 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 135 / 1000, $cmy * 490 / 1000, -text => q{-7},
+ -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $font)
+ : ()));
$can->createLine($cmx * 171 / 1000, $cmy * 451 / 1000, $cmx * 189 / 10
+00, $cmy * 451 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 135 / 1000, $cmy * 451 / 1000, -text => q{-6},
+ -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $font)
+ : ()));
$can->createLine($cmx * 171 / 1000, $cmy * 412 / 1000, $cmx * 189 / 10
+00, $cmy * 412 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 135 / 1000, $cmy * 412 / 1000, -text => q{-5},
+ -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $font)
+ : ()));
$can->createLine($cmx * 171 / 1000, $cmy * 373 / 1000, $cmx * 189 / 10
+00, $cmy * 373 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 135 / 1000, $cmy * 373 / 1000, -text => q{-4},
+ -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $font)
+ : ()));
$can->createLine($cmx * 171 / 1000, $cmy * 334 / 1000, $cmx * 189 / 10
+00, $cmy * 334 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 135 / 1000, $cmy * 334 / 1000, -text => q{-3},
+ -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $font)
+ : ()));
$can->createLine($cmx * 171 / 1000, $cmy * 295 / 1000, $cmx * 189 / 10
+00, $cmy * 295 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 135 / 1000, $cmy * 295 / 1000, -text => q{-2},
+ -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $font)
+ : ()));
$can->createLine($cmx * 171 / 1000, $cmy * 256 / 1000, $cmx * 189 / 10
+00, $cmy * 256 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 135 / 1000, $cmy * 256 / 1000, -text => q{-1},
+ -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $font)
+ : ()));
$can->createLine($cmx * 171 / 1000, $cmy * 217 / 1000, $cmx * 189 / 10
+00, $cmy * 217 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 135 / 1000, $cmy * 217 / 1000, -text => q{ 0},
+ -fill => q{black}, -anchor => 'e', (defined $font ? (-font => $font)
+ : ()));
$can->createText($cmx * 127 / 1000, $cmy * 333 / 1000, -text => q{Dept
+h (km)}, -fill => q{black}, -anchor => 'center', (defined $font ? (-f
+ont => $font) : ()));
$can->createText($cmx * 500 / 1000, $cmy * 48 / 1000, -text => q{Yello
+wstone Earthquake Swarm}, -fill => q{black}, -anchor => 'center', (de
+fined $font ? (-font => $font) : ()));
undef $font;
$can->createText($cmx * 836 / 1000, $cmy * 119 / 1000, -text => q{'-'
+using 4:3:5}, -fill => q{black}, -anchor => 'e', (defined $font ? (-f
+ont => $font) : ()));
$can->createLine($cmx * 852 / 1000, $cmy * 119 / 1000, $cmx * 934 / 10
+00, $cmy * 119 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 673 / 1000, $cmy * 284 / 1000, $cmx * 615 / 10
+00, $cmy * 262 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 615 / 1000, $cmy * 262 / 1000, $cmx * 581 / 10
+00, $cmy * 297 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 581 / 1000, $cmy * 297 / 1000, $cmx * 600 / 10
+00, $cmy * 308 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 600 / 1000, $cmy * 308 / 1000, $cmx * 500 / 10
+00, $cmy * 353 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 500 / 1000, $cmy * 353 / 1000, $cmx * 543 / 10
+00, $cmy * 402 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 543 / 1000, $cmy * 402 / 1000, $cmx * 512 / 10
+00, $cmy * 373 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 512 / 1000, $cmy * 373 / 1000, $cmx * 524 / 10
+00, $cmy * 338 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 524 / 1000, $cmy * 338 / 1000, $cmx * 563 / 10
+00, $cmy * 480 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 563 / 1000, $cmy * 480 / 1000, $cmx * 534 / 10
+00, $cmy * 363 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 534 / 1000, $cmy * 363 / 1000, $cmx * 549 / 10
+00, $cmy * 368 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 549 / 1000, $cmy * 368 / 1000, $cmx * 540 / 10
+00, $cmy * 290 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 540 / 1000, $cmy * 290 / 1000, $cmx * 443 / 10
+00, $cmy * 365 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 443 / 1000, $cmy * 365 / 1000, $cmx * 540 / 10
+00, $cmy * 321 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 540 / 1000, $cmy * 321 / 1000, $cmx * 465 / 10
+00, $cmy * 306 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 465 / 1000, $cmy * 306 / 1000, $cmx * 569 / 10
+00, $cmy * 367 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 569 / 1000, $cmy * 367 / 1000, $cmx * 518 / 10
+00, $cmy * 350 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 518 / 1000, $cmy * 350 / 1000, $cmx * 560 / 10
+00, $cmy * 372 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 560 / 1000, $cmy * 372 / 1000, $cmx * 529 / 10
+00, $cmy * 358 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 529 / 1000, $cmy * 358 / 1000, $cmx * 548 / 10
+00, $cmy * 327 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 548 / 1000, $cmy * 327 / 1000, $cmx * 520 / 10
+00, $cmy * 306 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 520 / 1000, $cmy * 306 / 1000, $cmx * 583 / 10
+00, $cmy * 282 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 583 / 1000, $cmy * 282 / 1000, $cmx * 540 / 10
+00, $cmy * 329 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 540 / 1000, $cmy * 329 / 1000, $cmx * 584 / 10
+00, $cmy * 279 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 584 / 1000, $cmy * 279 / 1000, $cmx * 547 / 10
+00, $cmy * 374 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 547 / 1000, $cmy * 374 / 1000, $cmx * 632 / 10
+00, $cmy * 275 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 632 / 1000, $cmy * 275 / 1000, $cmx * 557 / 10
+00, $cmy * 337 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 557 / 1000, $cmy * 337 / 1000, $cmx * 583 / 10
+00, $cmy * 345 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 583 / 1000, $cmy * 345 / 1000, $cmx * 575 / 10
+00, $cmy * 307 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 575 / 1000, $cmy * 307 / 1000, $cmx * 571 / 10
+00, $cmy * 304 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 571 / 1000, $cmy * 304 / 1000, $cmx * 542 / 10
+00, $cmy * 361 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 542 / 1000, $cmy * 361 / 1000, $cmx * 575 / 10
+00, $cmy * 313 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 575 / 1000, $cmy * 313 / 1000, $cmx * 679 / 10
+00, $cmy * 472 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 679 / 1000, $cmy * 472 / 1000, $cmx * 579 / 10
+00, $cmy * 349 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 579 / 1000, $cmy * 349 / 1000, $cmx * 533 / 10
+00, $cmy * 370 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 533 / 1000, $cmy * 370 / 1000, $cmx * 574 / 10
+00, $cmy * 350 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 574 / 1000, $cmy * 350 / 1000, $cmx * 555 / 10
+00, $cmy * 300 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 555 / 1000, $cmy * 300 / 1000, $cmx * 562 / 10
+00, $cmy * 349 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 562 / 1000, $cmy * 349 / 1000, $cmx * 496 / 10
+00, $cmy * 378 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 496 / 1000, $cmy * 378 / 1000, $cmx * 510 / 10
+00, $cmy * 393 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 510 / 1000, $cmy * 393 / 1000, $cmx * 490 / 10
+00, $cmy * 381 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 490 / 1000, $cmy * 381 / 1000, $cmx * 523 / 10
+00, $cmy * 374 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 523 / 1000, $cmy * 374 / 1000, $cmx * 520 / 10
+00, $cmy * 358 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 520 / 1000, $cmy * 358 / 1000, $cmx * 555 / 10
+00, $cmy * 290 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 555 / 1000, $cmy * 290 / 1000, $cmx * 454 / 10
+00, $cmy * 435 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 454 / 1000, $cmy * 435 / 1000, $cmx * 612 / 10
+00, $cmy * 314 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 612 / 1000, $cmy * 314 / 1000, $cmx * 588 / 10
+00, $cmy * 294 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 588 / 1000, $cmy * 294 / 1000, $cmx * 560 / 10
+00, $cmy * 363 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 560 / 1000, $cmy * 363 / 1000, $cmx * 515 / 10
+00, $cmy * 348 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 515 / 1000, $cmy * 348 / 1000, $cmx * 543 / 10
+00, $cmy * 304 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 543 / 1000, $cmy * 304 / 1000, $cmx * 571 / 10
+00, $cmy * 455 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 571 / 1000, $cmy * 455 / 1000, $cmx * 536 / 10
+00, $cmy * 361 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 536 / 1000, $cmy * 361 / 1000, $cmx * 558 / 10
+00, $cmy * 308 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 558 / 1000, $cmy * 308 / 1000, $cmx * 573 / 10
+00, $cmy * 331 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 573 / 1000, $cmy * 331 / 1000, $cmx * 622 / 10
+00, $cmy * 304 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 622 / 1000, $cmy * 304 / 1000, $cmx * 568 / 10
+00, $cmy * 310 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 568 / 1000, $cmy * 310 / 1000, $cmx * 592 / 10
+00, $cmy * 367 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 592 / 1000, $cmy * 367 / 1000, $cmx * 604 / 10
+00, $cmy * 368 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 604 / 1000, $cmy * 368 / 1000, $cmx * 569 / 10
+00, $cmy * 350 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 569 / 1000, $cmy * 350 / 1000, $cmx * 667 / 10
+00, $cmy * 297 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 667 / 1000, $cmy * 297 / 1000, $cmx * 559 / 10
+00, $cmy * 314 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 559 / 1000, $cmy * 314 / 1000, $cmx * 580 / 10
+00, $cmy * 316 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 580 / 1000, $cmy * 316 / 1000, $cmx * 569 / 10
+00, $cmy * 330 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 569 / 1000, $cmy * 330 / 1000, $cmx * 623 / 10
+00, $cmy * 290 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 623 / 1000, $cmy * 290 / 1000, $cmx * 648 / 10
+00, $cmy * 294 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 648 / 1000, $cmy * 294 / 1000, $cmx * 609 / 10
+00, $cmy * 375 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 609 / 1000, $cmy * 375 / 1000, $cmx * 594 / 10
+00, $cmy * 307 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 594 / 1000, $cmy * 307 / 1000, $cmx * 554 / 10
+00, $cmy * 272 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 554 / 1000, $cmy * 272 / 1000, $cmx * 562 / 10
+00, $cmy * 293 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 562 / 1000, $cmy * 293 / 1000, $cmx * 447 / 10
+00, $cmy * 367 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 447 / 1000, $cmy * 367 / 1000, $cmx * 523 / 10
+00, $cmy * 311 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 523 / 1000, $cmy * 311 / 1000, $cmx * 692 / 10
+00, $cmy * 357 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 692 / 1000, $cmy * 357 / 1000, $cmx * 440 / 10
+00, $cmy * 372 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 440 / 1000, $cmy * 372 / 1000, $cmx * 533 / 10
+00, $cmy * 391 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 533 / 1000, $cmy * 391 / 1000, $cmx * 714 / 10
+00, $cmy * 377 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 714 / 1000, $cmy * 377 / 1000, $cmx * 543 / 10
+00, $cmy * 369 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 543 / 1000, $cmy * 369 / 1000, $cmx * 561 / 10
+00, $cmy * 312 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 561 / 1000, $cmy * 312 / 1000, $cmx * 604 / 10
+00, $cmy * 364 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 604 / 1000, $cmy * 364 / 1000, $cmx * 594 / 10
+00, $cmy * 367 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 594 / 1000, $cmy * 367 / 1000, $cmx * 560 / 10
+00, $cmy * 372 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 560 / 1000, $cmy * 372 / 1000, $cmx * 472 / 10
+00, $cmy * 296 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 472 / 1000, $cmy * 296 / 1000, $cmx * 559 / 10
+00, $cmy * 360 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 559 / 1000, $cmy * 360 / 1000, $cmx * 571 / 10
+00, $cmy * 334 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 571 / 1000, $cmy * 334 / 1000, $cmx * 573 / 10
+00, $cmy * 367 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 573 / 1000, $cmy * 367 / 1000, $cmx * 553 / 10
+00, $cmy * 375 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 553 / 1000, $cmy * 375 / 1000, $cmx * 561 / 10
+00, $cmy * 373 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 561 / 1000, $cmy * 373 / 1000, $cmx * 504 / 10
+00, $cmy * 358 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 504 / 1000, $cmy * 358 / 1000, $cmx * 487 / 10
+00, $cmy * 364 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 487 / 1000, $cmy * 364 / 1000, $cmx * 556 / 10
+00, $cmy * 382 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 556 / 1000, $cmy * 382 / 1000, $cmx * 450 / 10
+00, $cmy * 389 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 450 / 1000, $cmy * 389 / 1000, $cmx * 499 / 10
+00, $cmy * 385 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 499 / 1000, $cmy * 385 / 1000, $cmx * 555 / 10
+00, $cmy * 333 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 555 / 1000, $cmy * 333 / 1000, $cmx * 495 / 10
+00, $cmy * 367 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 495 / 1000, $cmy * 367 / 1000, $cmx * 503 / 10
+00, $cmy * 365 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 503 / 1000, $cmy * 365 / 1000, $cmx * 560 / 10
+00, $cmy * 277 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 560 / 1000, $cmy * 277 / 1000, $cmx * 493 / 10
+00, $cmy * 377 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 493 / 1000, $cmy * 377 / 1000, $cmx * 466 / 10
+00, $cmy * 366 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 466 / 1000, $cmy * 366 / 1000, $cmx * 531 / 10
+00, $cmy * 347 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 531 / 1000, $cmy * 347 / 1000, $cmx * 487 / 10
+00, $cmy * 368 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 487 / 1000, $cmy * 368 / 1000, $cmx * 500 / 10
+00, $cmy * 296 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 500 / 1000, $cmy * 296 / 1000, $cmx * 508 / 10
+00, $cmy * 276 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 508 / 1000, $cmy * 276 / 1000, $cmx * 537 / 10
+00, $cmy * 361 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 537 / 1000, $cmy * 361 / 1000, $cmx * 568 / 10
+00, $cmy * 397 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 568 / 1000, $cmy * 397 / 1000, $cmx * 546 / 10
+00, $cmy * 353 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 546 / 1000, $cmy * 353 / 1000, $cmx * 553 / 10
+00, $cmy * 362 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 553 / 1000, $cmy * 362 / 1000, $cmx * 609 / 10
+00, $cmy * 473 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 609 / 1000, $cmy * 473 / 1000, $cmx * 437 / 10
+00, $cmy * 399 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 437 / 1000, $cmy * 399 / 1000, $cmx * 423 / 10
+00, $cmy * 397 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 423 / 1000, $cmy * 397 / 1000, $cmx * 372 / 10
+00, $cmy * 400 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 372 / 1000, $cmy * 400 / 1000, $cmx * 407 / 10
+00, $cmy * 366 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 407 / 1000, $cmy * 366 / 1000, $cmx * 553 / 10
+00, $cmy * 374 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 553 / 1000, $cmy * 374 / 1000, $cmx * 566 / 10
+00, $cmy * 285 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 566 / 1000, $cmy * 285 / 1000, $cmx * 564 / 10
+00, $cmy * 291 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 564 / 1000, $cmy * 291 / 1000, $cmx * 560 / 10
+00, $cmy * 284 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 560 / 1000, $cmy * 284 / 1000, $cmx * 526 / 10
+00, $cmy * 321 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 526 / 1000, $cmy * 321 / 1000, $cmx * 373 / 10
+00, $cmy * 578 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 373 / 1000, $cmy * 578 / 1000, $cmx * 420 / 10
+00, $cmy * 477 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 420 / 1000, $cmy * 477 / 1000, $cmx * 532 / 10
+00, $cmy * 542 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 532 / 1000, $cmy * 542 / 1000, $cmx * 535 / 10
+00, $cmy * 307 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 535 / 1000, $cmy * 307 / 1000, $cmx * 515 / 10
+00, $cmy * 290 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 515 / 1000, $cmy * 290 / 1000, $cmx * 544 / 10
+00, $cmy * 336 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 544 / 1000, $cmy * 336 / 1000, $cmx * 473 / 10
+00, $cmy * 338 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 473 / 1000, $cmy * 338 / 1000, $cmx * 561 / 10
+00, $cmy * 289 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 561 / 1000, $cmy * 289 / 1000, $cmx * 597 / 10
+00, $cmy * 348 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 597 / 1000, $cmy * 348 / 1000, $cmx * 558 / 10
+00, $cmy * 287 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 558 / 1000, $cmy * 287 / 1000, $cmx * 509 / 10
+00, $cmy * 358 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 509 / 1000, $cmy * 358 / 1000, $cmx * 473 / 10
+00, $cmy * 382 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 473 / 1000, $cmy * 382 / 1000, $cmx * 478 / 10
+00, $cmy * 353 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 478 / 1000, $cmy * 353 / 1000, $cmx * 504 / 10
+00, $cmy * 280 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 504 / 1000, $cmy * 280 / 1000, $cmx * 546 / 10
+00, $cmy * 352 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 546 / 1000, $cmy * 352 / 1000, $cmx * 543 / 10
+00, $cmy * 353 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 543 / 1000, $cmy * 353 / 1000, $cmx * 535 / 10
+00, $cmy * 359 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 535 / 1000, $cmy * 359 / 1000, $cmx * 518 / 10
+00, $cmy * 330 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 518 / 1000, $cmy * 330 / 1000, $cmx * 543 / 10
+00, $cmy * 378 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 543 / 1000, $cmy * 378 / 1000, $cmx * 515 / 10
+00, $cmy * 405 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 515 / 1000, $cmy * 405 / 1000, $cmx * 512 / 10
+00, $cmy * 365 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 512 / 1000, $cmy * 365 / 1000, $cmx * 471 / 10
+00, $cmy * 369 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 471 / 1000, $cmy * 369 / 1000, $cmx * 501 / 10
+00, $cmy * 389 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 501 / 1000, $cmy * 389 / 1000, $cmx * 464 / 10
+00, $cmy * 397 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 464 / 1000, $cmy * 397 / 1000, $cmx * 458 / 10
+00, $cmy * 384 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 458 / 1000, $cmy * 384 / 1000, $cmx * 525 / 10
+00, $cmy * 296 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 525 / 1000, $cmy * 296 / 1000, $cmx * 437 / 10
+00, $cmy * 389 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 437 / 1000, $cmy * 389 / 1000, $cmx * 442 / 10
+00, $cmy * 391 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 442 / 1000, $cmy * 391 / 1000, $cmx * 518 / 10
+00, $cmy * 297 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 518 / 1000, $cmy * 297 / 1000, $cmx * 526 / 10
+00, $cmy * 355 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 526 / 1000, $cmy * 355 / 1000, $cmx * 521 / 10
+00, $cmy * 295 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 521 / 1000, $cmy * 295 / 1000, $cmx * 532 / 10
+00, $cmy * 370 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 532 / 1000, $cmy * 370 / 1000, $cmx * 440 / 10
+00, $cmy * 386 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 440 / 1000, $cmy * 386 / 1000, $cmx * 440 / 10
+00, $cmy * 397 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 440 / 1000, $cmy * 397 / 1000, $cmx * 501 / 10
+00, $cmy * 377 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 501 / 1000, $cmy * 377 / 1000, $cmx * 323 / 10
+00, $cmy * 414 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 323 / 1000, $cmy * 414 / 1000, $cmx * 329 / 10
+00, $cmy * 592 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 329 / 1000, $cmy * 592 / 1000, $cmx * 514 / 10
+00, $cmy * 310 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 514 / 1000, $cmy * 310 / 1000, $cmx * 518 / 10
+00, $cmy * 374 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 518 / 1000, $cmy * 374 / 1000, $cmx * 361 / 10
+00, $cmy * 348 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 361 / 1000, $cmy * 348 / 1000, $cmx * 350 / 10
+00, $cmy * 553 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 350 / 1000, $cmy * 553 / 1000, $cmx * 341 / 10
+00, $cmy * 394 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 341 / 1000, $cmy * 394 / 1000, $cmx * 476 / 10
+00, $cmy * 381 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 476 / 1000, $cmy * 381 / 1000, $cmx * 524 / 10
+00, $cmy * 290 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 524 / 1000, $cmy * 290 / 1000, $cmx * 391 / 10
+00, $cmy * 328 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 391 / 1000, $cmy * 328 / 1000, $cmx * 370 / 10
+00, $cmy * 562 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 370 / 1000, $cmy * 562 / 1000, $cmx * 379 / 10
+00, $cmy * 401 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 379 / 1000, $cmy * 401 / 1000, $cmx * 504 / 10
+00, $cmy * 353 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 504 / 1000, $cmy * 353 / 1000, $cmx * 518 / 10
+00, $cmy * 300 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 518 / 1000, $cmy * 300 / 1000, $cmx * 499 / 10
+00, $cmy * 376 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 499 / 1000, $cmy * 376 / 1000, $cmx * 504 / 10
+00, $cmy * 358 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 504 / 1000, $cmy * 358 / 1000, $cmx * 614 / 10
+00, $cmy * 293 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 614 / 1000, $cmy * 293 / 1000, $cmx * 494 / 10
+00, $cmy * 368 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 494 / 1000, $cmy * 368 / 1000, $cmx * 510 / 10
+00, $cmy * 311 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 510 / 1000, $cmy * 311 / 1000, $cmx * 504 / 10
+00, $cmy * 381 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 504 / 1000, $cmy * 381 / 1000, $cmx * 509 / 10
+00, $cmy * 400 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 509 / 1000, $cmy * 400 / 1000, $cmx * 420 / 10
+00, $cmy * 398 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 420 / 1000, $cmy * 398 / 1000, $cmx * 483 / 10
+00, $cmy * 304 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 483 / 1000, $cmy * 304 / 1000, $cmx * 422 / 10
+00, $cmy * 395 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 422 / 1000, $cmy * 395 / 1000, $cmx * 462 / 10
+00, $cmy * 317 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 462 / 1000, $cmy * 317 / 1000, $cmx * 405 / 10
+00, $cmy * 399 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 405 / 1000, $cmy * 399 / 1000, $cmx * 468 / 10
+00, $cmy * 384 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 468 / 1000, $cmy * 384 / 1000, $cmx * 503 / 10
+00, $cmy * 396 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 503 / 1000, $cmy * 396 / 1000, $cmx * 480 / 10
+00, $cmy * 295 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 480 / 1000, $cmy * 295 / 1000, $cmx * 457 / 10
+00, $cmy * 398 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 457 / 1000, $cmy * 398 / 1000, $cmx * 458 / 10
+00, $cmy * 391 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 458 / 1000, $cmy * 391 / 1000, $cmx * 455 / 10
+00, $cmy * 381 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 455 / 1000, $cmy * 381 / 1000, $cmx * 448 / 10
+00, $cmy * 491 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 448 / 1000, $cmy * 491 / 1000, $cmx * 506 / 10
+00, $cmy * 361 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 506 / 1000, $cmy * 361 / 1000, $cmx * 442 / 10
+00, $cmy * 306 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 442 / 1000, $cmy * 306 / 1000, $cmx * 432 / 10
+00, $cmy * 411 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 432 / 1000, $cmy * 411 / 1000, $cmx * 431 / 10
+00, $cmy * 369 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 431 / 1000, $cmy * 369 / 1000, $cmx * 413 / 10
+00, $cmy * 397 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 413 / 1000, $cmy * 397 / 1000, $cmx * 411 / 10
+00, $cmy * 325 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 411 / 1000, $cmy * 325 / 1000, $cmx * 425 / 10
+00, $cmy * 393 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 425 / 1000, $cmy * 393 / 1000, $cmx * 374 / 10
+00, $cmy * 385 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 374 / 1000, $cmy * 385 / 1000, $cmx * 494 / 10
+00, $cmy * 333 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 494 / 1000, $cmy * 333 / 1000, $cmx * 434 / 10
+00, $cmy * 379 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 434 / 1000, $cmy * 379 / 1000, $cmx * 416 / 10
+00, $cmy * 384 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 416 / 1000, $cmy * 384 / 1000, $cmx * 489 / 10
+00, $cmy * 351 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 489 / 1000, $cmy * 351 / 1000, $cmx * 443 / 10
+00, $cmy * 410 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 443 / 1000, $cmy * 410 / 1000, $cmx * 457 / 10
+00, $cmy * 383 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 457 / 1000, $cmy * 383 / 1000, $cmx * 379 / 10
+00, $cmy * 379 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 379 / 1000, $cmy * 379 / 1000, $cmx * 432 / 10
+00, $cmy * 372 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 432 / 1000, $cmy * 372 / 1000, $cmx * 386 / 10
+00, $cmy * 398 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 386 / 1000, $cmy * 398 / 1000, $cmx * 394 / 10
+00, $cmy * 389 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 394 / 1000, $cmy * 389 / 1000, $cmx * 336 / 10
+00, $cmy * 525 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 336 / 1000, $cmy * 525 / 1000, $cmx * 416 / 10
+00, $cmy * 469 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 416 / 1000, $cmy * 469 / 1000, $cmx * 420 / 10
+00, $cmy * 411 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 420 / 1000, $cmy * 411 / 1000, $cmx * 391 / 10
+00, $cmy * 483 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 391 / 1000, $cmy * 483 / 1000, $cmx * 418 / 10
+00, $cmy * 382 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 418 / 1000, $cmy * 382 / 1000, $cmx * 416 / 10
+00, $cmy * 381 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 416 / 1000, $cmy * 381 / 1000, $cmx * 466 / 10
+00, $cmy * 307 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 466 / 1000, $cmy * 307 / 1000, $cmx * 472 / 10
+00, $cmy * 396 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 472 / 1000, $cmy * 396 / 1000, $cmx * 460 / 10
+00, $cmy * 393 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 460 / 1000, $cmy * 393 / 1000, $cmx * 431 / 10
+00, $cmy * 373 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 431 / 1000, $cmy * 373 / 1000, $cmx * 489 / 10
+00, $cmy * 368 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 489 / 1000, $cmy * 368 / 1000, $cmx * 440 / 10
+00, $cmy * 397 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 440 / 1000, $cmy * 397 / 1000, $cmx * 474 / 10
+00, $cmy * 309 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 474 / 1000, $cmy * 309 / 1000, $cmx * 453 / 10
+00, $cmy * 391 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 453 / 1000, $cmy * 391 / 1000, $cmx * 433 / 10
+00, $cmy * 387 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 433 / 1000, $cmy * 387 / 1000, $cmx * 448 / 10
+00, $cmy * 392 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 448 / 1000, $cmy * 392 / 1000, $cmx * 452 / 10
+00, $cmy * 317 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 452 / 1000, $cmy * 317 / 1000, $cmx * 435 / 10
+00, $cmy * 401 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 435 / 1000, $cmy * 401 / 1000, $cmx * 455 / 10
+00, $cmy * 425 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 455 / 1000, $cmy * 425 / 1000, $cmx * 439 / 10
+00, $cmy * 389 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 439 / 1000, $cmy * 389 / 1000, $cmx * 441 / 10
+00, $cmy * 398 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 441 / 1000, $cmy * 398 / 1000, $cmx * 438 / 10
+00, $cmy * 327 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 438 / 1000, $cmy * 327 / 1000, $cmx * 456 / 10
+00, $cmy * 473 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 456 / 1000, $cmy * 473 / 1000, $cmx * 455 / 10
+00, $cmy * 377 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 455 / 1000, $cmy * 377 / 1000, $cmx * 452 / 10
+00, $cmy * 394 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 452 / 1000, $cmy * 394 / 1000, $cmx * 461 / 10
+00, $cmy * 437 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 461 / 1000, $cmy * 437 / 1000, $cmx * 429 / 10
+00, $cmy * 396 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 429 / 1000, $cmy * 396 / 1000, $cmx * 436 / 10
+00, $cmy * 373 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 436 / 1000, $cmy * 373 / 1000, $cmx * 481 / 10
+00, $cmy * 390 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 481 / 1000, $cmy * 390 / 1000, $cmx * 413 / 10
+00, $cmy * 471 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 413 / 1000, $cmy * 471 / 1000, $cmx * 386 / 10
+00, $cmy * 324 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 386 / 1000, $cmy * 324 / 1000, $cmx * 437 / 10
+00, $cmy * 410 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 437 / 1000, $cmy * 410 / 1000, $cmx * 430 / 10
+00, $cmy * 585 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 430 / 1000, $cmy * 585 / 1000, $cmx * 380 / 10
+00, $cmy * 393 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 380 / 1000, $cmy * 393 / 1000, $cmx * 413 / 10
+00, $cmy * 349 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 413 / 1000, $cmy * 349 / 1000, $cmx * 452 / 10
+00, $cmy * 399 / 1000, -fill => q{red}, -width => 1.000000, -capstyle
+ => q{round});
$can->createLine($cmx * 829 / 1000, $cmy * 785 / 1000, $cmx * 347 / 10
+00, $cmy * 844 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createLine($cmx * 171 / 1000, $cmy * 684 / 1000, $cmx * 347 / 10
+00, $cmy * 844 / 1000, -fill => q{black}, -width => 1.000000, -capsty
+le => q{round});
$can->createText($cmx * 138 / 1000, $cmy * 778 / 1000, -text => q{Long
+itude}, -fill => q{black}, -anchor => 'center', (defined $font ? (-fo
+nt => $font) : ()));
$can->createText($cmx * 631 / 1000, $cmy * 855 / 1000, -text => q{Lati
+tude}, -fill => q{black}, -anchor => 'center', (defined $font ? (-fon
+t => $font) : ()));
$can->createText($cmx * 127 / 1000, $cmy * 333 / 1000, -text => q{Dept
+h (km)}, -fill => q{black}, -anchor => 'center', (defined $font ? (-f
+ont => $font) : ()));
};
use Tk;
my $mw = tkinit;
$mw->geometry("400x400+200+200");
#~ $mw->geometry(($mw->maxsize())[0] .'x'.($mw->maxsize())[1]);
my $can = $mw->Canvas( -background => 'white' );
my $but = $mw->Button(-text => 'GNUPLOT', -command => [\&print_gnuplot
+, $can,]);
$but->pack(-side => 'top');
$can->pack(-expand=>1,-fill=>'both', -side => 'bottom');
MainLoop;
exit;