diff options
| author | mertz | 2002-11-06 09:12:10 +0000 |
|---|---|---|
| committer | mertz | 2002-11-06 09:12:10 +0000 |
| commit | ac6b7e2dc2d1427d8bf05195912a97db57e12de1 (patch) | |
| tree | 18d5ea3a350e1288cf36dba221d570c0381a84e3 /Perl/demos/Tk | |
| parent | c172d1f47a6e3042434a61ac4114186fd76315d2 (diff) | |
| download | tkzinc-ac6b7e2dc2d1427d8bf05195912a97db57e12de1.zip tkzinc-ac6b7e2dc2d1427d8bf05195912a97db57e12de1.tar.gz tkzinc-ac6b7e2dc2d1427d8bf05195912a97db57e12de1.tar.bz2 tkzinc-ac6b7e2dc2d1427d8bf05195912a97db57e12de1.tar.xz | |
remplacement des items bezier par des items curve
et remplacement de la commande "diff" par "addhole" dans le contour
Diffstat (limited to 'Perl/demos/Tk')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/clipping.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/clipping.pl b/Perl/demos/Tk/demos/zinc_lib/clipping.pl index b5ace04..ac9a024 100644 --- a/Perl/demos/Tk/demos/zinc_lib/clipping.pl +++ b/Perl/demos/Tk/demos/zinc_lib/clipping.pl @@ -33,14 +33,14 @@ $zinc->add('text', 1, my $clipped_group = $zinc->add('group', 1, -visible => 1); my $clipping_item = $zinc->add('curve', $clipped_group, - [10,100, 690,100, 690,590, 520,300, - 350,590, 180,300, 10,590], + [10,100, 690,100, 690,590, 520,350, + 350,590, 180,350, 10,590], -closed => 1, -priority => 1, -fillcolor => "tan2", -linewidth => 0, -filled => $display_clipping_item_background); -$zinc->contour($clipping_item, "diff", [200,200, 500,200, 500,250, 200,250]); +$zinc->contour($clipping_item, "addhole", [200,200, 500,200, 500,250, 200,250]); ############### creating the tan_group objects ################ # the tan_group is atomic, that is is makes all children as a single object @@ -59,8 +59,8 @@ $zinc->add('arc', $tan_group, -fillcolor => "tan", ); -$zinc->add('bezier', $tan_group, - [400,400, 400,500, 500,500, 500,400], +$zinc->add('curve', $tan_group, + [400,400, 440,450, 400,500, 500,500, 460,450, 500,400], -filled => 1, -fillcolor => "tan", -linecolor => "tan", ); @@ -80,7 +80,7 @@ $zinc->add('rectangle', $blue_group, -fillcolor => "blue2", ); -$zinc->add('bezier', $blue_group, +$zinc->add('curve', $blue_group, [200,400, 200,500, 300,500, 300,400, 300,300], -filled => 1, -fillcolor => "blue", -linewidth => 0, |