diff options
| author | lecoanet | 2002-12-09 14:20:35 +0000 |
|---|---|---|
| committer | lecoanet | 2002-12-09 14:20:35 +0000 |
| commit | fe6df269930a79ef5deea1bd3cc42104ab5b715b (patch) | |
| tree | 86da392d1cbad9fca643c6453202a659feb25b96 /sandbox/smooth.tcl | |
| parent | 04c4fbe731eb6322c2434f135dfcd843135b3d07 (diff) | |
| download | tkzinc-fe6df269930a79ef5deea1bd3cc42104ab5b715b.zip tkzinc-fe6df269930a79ef5deea1bd3cc42104ab5b715b.tar.gz tkzinc-fe6df269930a79ef5deea1bd3cc42104ab5b715b.tar.bz2 tkzinc-fe6df269930a79ef5deea1bd3cc42104ab5b715b.tar.xz | |
*** empty log message ***
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] |