diff options
author | lecoanet | 2003-01-14 11:01:39 +0000 |
---|---|---|
committer | lecoanet | 2003-01-14 11:01:39 +0000 |
commit | 10a0c9000072c7f8d6d622c69028a641b49af8ff (patch) | |
tree | 9651566103391888b491f6c8fef5920cfce476d4 /sandbox/testshape.pl | |
parent | b572dbb073761a114eb847dea409bcbe6fa9149d (diff) | |
download | tkzinc-10a0c9000072c7f8d6d622c69028a641b49af8ff.zip tkzinc-10a0c9000072c7f8d6d622c69028a641b49af8ff.tar.gz tkzinc-10a0c9000072c7f8d6d622c69028a641b49af8ff.tar.bz2 tkzinc-10a0c9000072c7f8d6d622c69028a641b49af8ff.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/testshape.pl')
-rw-r--r-- | sandbox/testshape.pl | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/sandbox/testshape.pl b/sandbox/testshape.pl index 0d225cc..3daf779 100644 --- a/sandbox/testshape.pl +++ b/sandbox/testshape.pl @@ -77,6 +77,7 @@ $cv2 = $zinc->add('curve', $view, [], -linewidth => 2, -linecolor => 'white', -fillcolor => 'tan', + -fillrule => 'positive', -relief => 'sunken', -closed => 1, -filled => 1); @@ -85,15 +86,15 @@ $text = $zinc->add('text', $view, -text => 'Un Texte ICI°°°°°', -position => [200, 100], -color => '#008000'); -$zinc->contour($cv2, 'add', [[20, 20], [20, 100, 'c'], [120, 100], [120, 20]]); -$zinc->contour($cv2, 'addhole', [40, 40, 80, 40, 80, 80, 40, 80]); -$zinc->contour($cv2, 'add', [60, 50, 60, 60, 70, 60, 70, 50]); -$zinc->contour($cv2, 'addhole', [90, 70, 150, 70, 150, 150, 90, 150]); -$zinc->contour($cv2, 'add', [200, 200, 200, 220, 220, 220, 220, 200]); -$zinc->contour($cv2, 'addhole', [100, 10, 180, 10, 180, 60, 100, 60]); +$zinc->contour($cv2, 'add', 1, [[20, 20], [20, 100, 'c'], [120, 100], [120, 20]]); +$zinc->contour($cv2, 'add', -1, [40, 40, 80, 40, 80, 80, 40, 80]); +$zinc->contour($cv2, 'add', 1, [60, 50, 60, 60, 70, 60, 70, 50]); +$zinc->contour($cv2, 'add', -1, [90, 70, 150, 70, 150, 150, 90, 150]); +$zinc->contour($cv2, 'add', 1, [200, 200, 200, 220, 220, 220, 220, 200]); +$zinc->contour($cv2, 'add', -1, [100, 10, 180, 10, 180, 60, 100, 60]); -$zinc->contour($cv2, 'add', $arc2); -$zinc->contour($cv2, 'add', $text); +$zinc->contour($cv2, 'add', 1, $arc2); +$zinc->contour($cv2, 'add', 1, $text); # $rect2 = $zinc->add('rectangle', $view, [40,81, 80,130], # -visible => 1, |