diff options
| author | mertz | 2003-01-17 13:31:47 +0000 |
|---|---|---|
| committer | mertz | 2003-01-17 13:31:47 +0000 |
| commit | 57f589c6f81df8176531e6ed143566f5ea3c3dbe (patch) | |
| tree | 4ddad2bb137a142c5830d9bd895514aca28a038a /Perl/demos/Tk/demos/zinc_lib/counter.pl | |
| parent | 02b2cc44046d8fd4af4ab2c81de9a8db27d67e8c (diff) | |
| download | tkzinc-57f589c6f81df8176531e6ed143566f5ea3c3dbe.zip tkzinc-57f589c6f81df8176531e6ed143566f5ea3c3dbe.tar.gz tkzinc-57f589c6f81df8176531e6ed143566f5ea3c3dbe.tar.bz2 tkzinc-57f589c6f81df8176531e6ed143566f5ea3c3dbe.tar.xz | |
passage � la m�thode contour de zinc 3.2.6g.
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/counter.pl')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/counter.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/counter.pl b/Perl/demos/Tk/demos/zinc_lib/counter.pl index 45b5208..5df227b 100644 --- a/Perl/demos/Tk/demos/zinc_lib/counter.pl +++ b/Perl/demos/Tk/demos/zinc_lib/counter.pl @@ -228,7 +228,7 @@ my $clipping_item2 = $zinc->add('curve', $clipped_group2, -linewidth=>0, ); -$zinc->contour($clipping_item2,"addhole",[$x2,$y2,$x3,$y2,$x3,$y3,$x2,$y3,$x2,$y2]); +$zinc->contour($clipping_item2,"add",0,[$x2,$y2,$x3,$y2,$x3,$y3,$x2,$y3,$x2,$y2]); #-------------------------------- # Clipped items |