diff options
author | cvs2svn | 2005-06-10 10:29:11 +0000 |
---|---|---|
committer | cvs2svn | 2005-06-10 10:29:11 +0000 |
commit | 960cdf29197bc3f5922110cf26627aa9709ac79b (patch) | |
tree | 7d6e4a472376b203d21826c2230b4a8c6a9024bd /sandbox/contours.tcl | |
parent | 3fc9c4bc1d6f70db41ad418992bf3d461059d3c0 (diff) | |
download | tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.zip tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.gz tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.bz2 tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.xz |
This commit was manufactured by cvs2svn to create branch 'bogue40'.
Diffstat (limited to 'sandbox/contours.tcl')
-rw-r--r-- | sandbox/contours.tcl | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/sandbox/contours.tcl b/sandbox/contours.tcl deleted file mode 100644 index ce6d3ac..0000000 --- a/sandbox/contours.tcl +++ /dev/null @@ -1,45 +0,0 @@ -#!/usr/local/bin/wish -f - -load ../tkzinc3.2.so -package require Img - -set top 1 -set lw 8 - -set r [zinc .r -backcolor gray -relief sunken] -pack .r -expand t -fill both -.r configure -width 800 -height 500 -.r scale $top 1 -1 -#.r configure -drawbboxes t -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 -linecolor 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"] -set ellipse [.r add arc $view "150 -200 300 -350"] -set arc [.r add arc $view "-25 -150 125 -300"] -.r scale $arc 2.0 2.0 -.r translate $arc -60 150 - -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 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 - -#.r remove $arc $ellipse $rect $poly -.r remove $rect $arc $ellipse - -#.r itemconfigure $poly -relief raised -linewidth 8 - -# "50 -200 100 -200 100 -50 50 -50 50 -200" -source "controls.tcl" |