diff options
| -rw-r--r-- | sandbox/alllineshapes.pl | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/sandbox/alllineshapes.pl b/sandbox/alllineshapes.pl index 89bc6bb..c2bafc3 100644 --- a/sandbox/alllineshapes.pl +++ b/sandbox/alllineshapes.pl @@ -8,7 +8,7 @@ use strict; my $defaultfont = '-b&h-lucida-bold-r-normal-*-*-140-*-*-p-*-iso10646-1'; my $mw = MainWindow->new(); -my $zinc = $mw->Zinc(-width => 800, -height => 500, +my $zinc = $mw->Zinc(-width => 700, -height => 420, # -render => 1, # -backcolor => "red", # this will be transparent in the doc )->pack(); @@ -16,15 +16,16 @@ my $zinc = $mw->Zinc(-width => 800, -height => 500, my $i = 1; my $x = 20; -my $y = 100; -foreach my $lineshape ( qw(straight rightlightning leftlightning rightcorner - leftcorner doublerightcorner doubleleftcorner) ) { - print "$lineshape\n"; +my $y = 20; +foreach my $lineshape ( qw(straight rightlightning leftlightning + rightcorner leftcorner doublerightcorner + doubleleftcorner) ) { my $wpt = $zinc->add('waypoint', 1, 1, -position => [$x, $y], -labelformat => "a5a5+0+0", + -leaderanchors => '% 100x100', -leadershape => $lineshape, - -labeldistance => 150, + -labeldistance => 120, ); $zinc->itemconfigure($wpt, 0, -text => $lineshape, @@ -37,7 +38,7 @@ foreach my $lineshape ( qw(straight rightlightning leftlightning rightcorner $i = 1; } else { - $x = $x + 180; + $x = $x + 210; } } |