diff options
| author | lecoanet | 2002-02-15 09:29:01 +0000 |
|---|---|---|
| committer | lecoanet | 2002-02-15 09:29:01 +0000 |
| commit | acae90214892628ced469c4fed5bf2e1d2bd8aef (patch) | |
| tree | ecc3b2131454762a63e2ccd1af578b28d81c8684 /sandbox/triangles.pl | |
| parent | 1e53b2eec7110491149426bf9be844e5de283247 (diff) | |
| download | tkzinc-acae90214892628ced469c4fed5bf2e1d2bd8aef.zip tkzinc-acae90214892628ced469c4fed5bf2e1d2bd8aef.tar.gz tkzinc-acae90214892628ced469c4fed5bf2e1d2bd8aef.tar.bz2 tkzinc-acae90214892628ced469c4fed5bf2e1d2bd8aef.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox/triangles.pl')
| -rw-r--r-- | sandbox/triangles.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/sandbox/triangles.pl b/sandbox/triangles.pl index 84555b6..23dc1f0 100644 --- a/sandbox/triangles.pl +++ b/sandbox/triangles.pl @@ -54,6 +54,9 @@ $zinc->contour($cv2, 'union', $tri2); $tri3 = $zinc->add('triangles', $view, [150, 150, 50, 50, 150, 50, 300, 50], -colors => ['grey50', 'blue', 'red', 'yellow'], -fan => 1); +$tri4 = $zinc->clone($tri3, -colors => ['grey', 'red']); +$zinc->translate($tri4, 100, 300); + $zinc->contour($cv3, 'union', $tri3); $zinc->translate($tri3, 0, 300); $zinc->translate($cv3, 0, 300); |