diff options
| author | lecoanet | 2002-03-15 13:02:42 +0000 |
|---|---|---|
| committer | lecoanet | 2002-03-15 13:02:42 +0000 |
| commit | d358343ba27af95e70968872c7fe869809c2daff (patch) | |
| tree | c0e537361d4987e3e0c37bd02e8edb2aa9c20cc5 /sandbox/contours.tcl | |
| parent | dd9a2afecc0d7323c6ad73278c82e61b7b643928 (diff) | |
| download | tkzinc-d358343ba27af95e70968872c7fe869809c2daff.zip tkzinc-d358343ba27af95e70968872c7fe869809c2daff.tar.gz tkzinc-d358343ba27af95e70968872c7fe869809c2daff.tar.bz2 tkzinc-d358343ba27af95e70968872c7fe869809c2daff.tar.xz | |
*** empty log message ***
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"] |