diff options
Diffstat (limited to 'sandbox/contours.tcl')
-rw-r--r-- | sandbox/contours.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sandbox/contours.tcl b/sandbox/contours.tcl index cbddcb8..7bea39f 100644 --- a/sandbox/contours.tcl +++ b/sandbox/contours.tcl @@ -15,7 +15,7 @@ set view [.r add group $top -tags controls] #set poly [.r add curve $view "50 -150 300 -150 300 -300 50 -300 50 -150" \ # -closed t -fillcolor tan] set poly [.r add curve $view "50 -150 50 -300 300 -300 300 -150 50 -150" \ - -closed t -fillcolor tan -linewidth 2 -relief raised] + -closed t -fillcolor tan -linecolor tan -linewidth 2 -relief raised] .r scale $poly 2.0 2.0 .r translate $poly -60 150 set rect [.r add rectangle $view "50 -200 100 -50"] |