Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: gnuplot output to tkcanvas

by Anonymous Monk
on Nov 21, 2009 at 09:29 UTC ( [id://808570]=note: print w/replies, xml ) Need Help??


in reply to gnuplot output to tkcanvas

it seems that the tkcanvas can't display 3D plots

Looks 3D to me :)

#!/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;
Earthquakes in three dimensions

Replies are listed 'Best First'.
Re^2: gnuplot output to tkcanvas
by tallulah (Novice) on Nov 21, 2009 at 14:26 UTC
    thank you very much, cool examples; it is working well on my pc
    a great addition to the topic
    regards
      the author of the earthquakes article said "this will only work on *nix style systems with gnuplot installed." but i can run it on the windows xp perl 5.10 gnuplot 4.5 beta , only i can't exit by clicking 'x' but can exit by ctrl-c.
      the second example works well.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://808570]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2024-03-28 13:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found