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