diff options
Diffstat (limited to 'sandbox/smooth.tcl')
-rw-r--r-- | sandbox/smooth.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/sandbox/smooth.tcl b/sandbox/smooth.tcl index ad34d37..9260f7b 100644 --- a/sandbox/smooth.tcl +++ b/sandbox/smooth.tcl @@ -1,6 +1,6 @@ -#!/usr/bin/wish -f +#!/usr/local/bin/wish -f -load tkzinc3.1.so +load ../tkzinc3.2.so package require Img set top 1 @@ -19,10 +19,10 @@ set smooth [.r smooth $points] set fit [.r fit $points 0.1] -set mp [.r add bezier $view $smooth \ +set mp [.r add curve $view $smooth \ -linecolor yellow -fillcolor tan -fillpattern AlphaStipple8 \ -tags "bezier" -linewidth $lw] -set mp2 [.r add bezier $view $fit \ +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] |