From 8c56263908d22ca7a75ddde82a363c8b40051233 Mon Sep 17 00:00:00 2001
From: mertz
Date: Thu, 13 Mar 2003 16:06:05 +0000
Subject: - arrows are now somewhere in the middle of each segment - the
 default fillrule is mentionned (odd)

---
 Perl/demos/Tk/demos/zinc_lib/fillrule.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'Perl/demos/Tk')

diff --git a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl
index 9e7ab03..4d2dc1a 100644
--- a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl
@@ -66,7 +66,7 @@ $zinc->add('text',$group, -position => [-110, 170], -text => "winding\nrules");
 my $dy = 0;
 foreach my $fillrule ('odd', 'nonzero', 'positive', 'negative', 'abs_geq_2') {
     $dy += 160;
-    $zinc->add('text',$group, -position => [-110, 100+$dy], -text => $fillrule);
+    $zinc->add('text',$group, -position => [-110, 100+$dy], -text => $fillrule eq 'odd' ? "odd\n(default)" : $fillrule);
     foreach my $item ($curve1, $curve2, $curve3, $curve4) {
 	my $clone = $zinc->clone($item, -fillrule => $fillrule, -filled => 1);
 	$zinc->translate($clone, 0,$dy);
@@ -82,8 +82,12 @@ foreach my $item ($curve1, $curve2, $curve3, $curve4) {
 #	print "   ",$#points,"points\n";
 	foreach my $i (0 .. $#points-1) {
 #	    print "    line $i ",$i+1,"\n";
+	    $firstpoint = $points[$i];
+	    $lastpoint = $points[$i+1];
+	    $middlepoint = [$firstpoint->[0]+($lastpoint->[0]-$firstpoint->[0])/1.5,
+			    $firstpoint->[1]+($lastpoint->[1]-$firstpoint->[1])/1.5];
 	    $zinc->add("curve", $zinc->group($item),
-		       [ $points[$i], $points[$i+1] ],
+		       [ $firstpoint, $middlepoint],
 		       -lastend => [7,10,4]);
 	}
     }
-- 
cgit v1.1