diff options
| author | lecoanet | 2002-12-09 14:20:35 +0000 |
|---|---|---|
| committer | lecoanet | 2002-12-09 14:20:35 +0000 |
| commit | fe6df269930a79ef5deea1bd3cc42104ab5b715b (patch) | |
| tree | 86da392d1cbad9fca643c6453202a659feb25b96 /sandbox/contours.tcl | |
| parent | 04c4fbe731eb6322c2434f135dfcd843135b3d07 (diff) | |
| download | tkzinc-fe6df269930a79ef5deea1bd3cc42104ab5b715b.zip tkzinc-fe6df269930a79ef5deea1bd3cc42104ab5b715b.tar.gz tkzinc-fe6df269930a79ef5deea1bd3cc42104ab5b715b.tar.bz2 tkzinc-fe6df269930a79ef5deea1bd3cc42104ab5b715b.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox/contours.tcl')
| -rw-r--r-- | sandbox/contours.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/sandbox/contours.tcl b/sandbox/contours.tcl index 7bea39f..ce6d3ac 100644 --- a/sandbox/contours.tcl +++ b/sandbox/contours.tcl @@ -1,6 +1,6 @@ -#!/usr/bin/wish8.0 -f +#!/usr/local/bin/wish -f -load tkzinc3.1.so +load ../tkzinc3.2.so package require Img set top 1 @@ -28,10 +28,10 @@ set mp [.r add curve $view "" \ -linecolor yellow -fillcolor tan -fillpattern AlphaStipple8 \ -markercolor red -tags "poly" -linewidth $lw -filled t -closed t] -.r contour $mp union $poly -.r contour $mp diff $ellipse -.r contour $mp diff $rect -.r contour $mp union $arc +.r contour $mp add $poly +.r contour $mp addhole $ellipse +.r contour $mp addhole $rect +.r contour $mp add $arc .r itemconfigure $mp -relief raised -visible t .r lower $mp |