diff options
Diffstat (limited to 'sandbox/testpoly.tcl')
| -rw-r--r-- | sandbox/testpoly.tcl | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/sandbox/testpoly.tcl b/sandbox/testpoly.tcl index 7cb367d..b5637c3 100644 --- a/sandbox/testpoly.tcl +++ b/sandbox/testpoly.tcl @@ -47,6 +47,7 @@ set model [.r add group $view] set mp [.r add curve $model "50 -150 100 -50 270 -130 220 -200 200 -180 180 -300 140 -160 70 -300" \ -linecolor yellow -fillcolor tan -fillpattern AlphaStipple8 \ -markercolor red -tags "poly" -linewidth $lw] +.r add rectangle $model "50 -150 100 -50" set bbox [.r transform $model [.r bbox $mp]] set x [expr ([lindex $bbox 2] + [lindex $bbox 0]) / 2] set y [expr [lindex $bbox 1] + 5] @@ -84,7 +85,7 @@ foreach current $show { # Some optional graphic features set closed 0 set marks 0 -set smooth 0 +#set smooth 0 set arrows none proc toggle_arrows { } { @@ -119,11 +120,11 @@ proc toggle_marks { } { } } -proc toggle_smooth { } { - global smooth - set smooth [expr ! $smooth] - .r itemconfigure poly -smoothed $smooth -} +#proc toggle_smooth { } { +# global smooth +# set smooth [expr ! $smooth] +# .r itemconfigure poly -smoothed $smooth +#} proc toggle_closed { } { global closed @@ -143,7 +144,7 @@ focus .r bind .r "<a>" toggle_arrows bind .r "<c>" toggle_closed bind .r "<m>" toggle_marks -bind .r "<s>" toggle_smooth +#bind .r "<s>" toggle_smooth source "controls.tcl" |