From 65b6856dc74bf2ea55f86784e4b76734a88c8771 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 11 May 2000 13:37:04 +0000
Subject: *** empty log message ***

---
 sandbox/testpoly.tcl | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'sandbox/testpoly.tcl')

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"
-- 
cgit v1.1