diff options
author | lecoanet | 2001-03-14 15:04:34 +0000 |
---|---|---|
committer | lecoanet | 2001-03-14 15:04:34 +0000 |
commit | c1424742e67fcdb099f9be7c514bb9d6cac3de37 (patch) | |
tree | 3bd5c654d8e077f1f7ea548ae08948b8f59d0842 /sandbox/contours.tcl | |
parent | 7714f386b716a895cd612fb31100251df8ca6512 (diff) | |
download | tkzinc-c1424742e67fcdb099f9be7c514bb9d6cac3de37.zip tkzinc-c1424742e67fcdb099f9be7c514bb9d6cac3de37.tar.gz tkzinc-c1424742e67fcdb099f9be7c514bb9d6cac3de37.tar.bz2 tkzinc-c1424742e67fcdb099f9be7c514bb9d6cac3de37.tar.xz |
*** empty log message ***
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 |