diff options
author | cvs2svn | 2005-01-24 15:46:33 +0000 |
---|---|---|
committer | cvs2svn | 2005-01-24 15:46:33 +0000 |
commit | e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf (patch) | |
tree | 7061a2d781348fa7d5965b7d7dd5d7ef6b27a7b0 /sandbox/smooth.tcl | |
parent | e1ed2c6d78bb616e24166c13126adba1b95ea4ea (diff) | |
download | tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.zip tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.gz tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.bz2 tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.xz |
This commit was manufactured by cvs2svn to create branch 'POSTSCRIPT'.POSTSCRIPT
Diffstat (limited to 'sandbox/smooth.tcl')
-rw-r--r-- | sandbox/smooth.tcl | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/sandbox/smooth.tcl b/sandbox/smooth.tcl deleted file mode 100644 index 9260f7b..0000000 --- a/sandbox/smooth.tcl +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/local/bin/wish -f - -load ../tkzinc3.2.so -package require Img - -set top 1 -set points "50 -150 100 -50 270 -130 220 -200 200 -180 180 -300 140 -320 70 -300" -set lw 3 - -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 smooth [.r smooth $points] -set fit [.r fit $points 0.1] - - -set mp [.r add curve $view $smooth \ - -linecolor yellow -fillcolor tan -fillpattern AlphaStipple8 \ - -tags "bezier" -linewidth $lw] -set mp2 [.r add curve $view $fit \ - -linecolor yellow -fillcolor tan -fillpattern AlphaStipple8 \ - -tags "bezier" -linewidth $lw] -set poly [.r add curve $view $points -marker AtcSymbol9] -set poly2 [.r add curve $view $points -marker AtcSymbol9] - -.r translate $mp2 300 0 -.r translate $poly2 300 0 - -source "controls.tcl" |