diff options
-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, |