diff options
Diffstat (limited to 'sandbox/contours.tcl')
| -rw-r--r-- | sandbox/contours.tcl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/sandbox/contours.tcl b/sandbox/contours.tcl index 02a6438..cbddcb8 100644 --- a/sandbox/contours.tcl +++ b/sandbox/contours.tcl @@ -1,4 +1,4 @@ -#!/usr/bin/wish -f +#!/usr/bin/wish8.0 -f load tkzinc3.1.so package require Img @@ -15,7 +15,7 @@ set view [.r add group $top -tags controls] #set poly [.r add curve $view "50 -150 300 -150 300 -300 50 -300 50 -150" \ # -closed t -fillcolor tan] set poly [.r add curve $view "50 -150 50 -300 300 -300 300 -150 50 -150" \ - -closed t -fillcolor tan] + -closed t -fillcolor tan -linewidth 2 -relief raised] .r scale $poly 2.0 2.0 .r translate $poly -60 150 set rect [.r add rectangle $view "50 -200 100 -50"] @@ -30,12 +30,14 @@ set mp [.r add curve $view "" \ .r contour $mp union $poly .r contour $mp diff $ellipse -.r contour $mp union $arc .r contour $mp diff $rect +.r contour $mp union $arc .r itemconfigure $mp -relief raised -visible t +.r lower $mp -.r remove $arc $ellipse $rect $poly +#.r remove $arc $ellipse $rect $poly +.r remove $rect $arc $ellipse #.r itemconfigure $poly -relief raised -linewidth 8 |