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/testrelief.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/testrelief.tcl')
| -rw-r--r-- | sandbox/testrelief.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/sandbox/testrelief.tcl b/sandbox/testrelief.tcl index 082bae8..782a0f1 100644 --- a/sandbox/testrelief.tcl +++ b/sandbox/testrelief.tcl @@ -1,11 +1,11 @@ #!/usr/bin/wish8.0 -f -load tkzinc3.1.so +load tkzinc3.2.so set top 1 set lw 8 -set r [zinc .r -backcolor gray -relief sunken -lightangle 155] +set r [zinc .r -backcolor gray -relief sunken -lightangle 120 -render 1] pack .r -expand t -fill both .r configure -width 1024 -height 800 .r scale $top 1 -1 @@ -26,20 +26,20 @@ proc polypoints { ox oy rad n startangle } { } set poly [ .r add curve $view [polypoints 200 -200 100 40 0] \ - -relief raised -linewidth $lw \ - -fillcolor lightblue -filled t] + -relief raised -linewidth $lw -smoothrelief 1 \ + -fillcolor lightblue -linecolor lightblue -filled t] set poly [ .r add curve $view [polypoints 450 -200 100 40 0] \ -relief raised -linewidth $lw \ - -fillcolor tan -filled t] + -fillcolor tan -linecolor tan -filled t] set poly [ .r add curve $view [polypoints 700 -200 100 40 0] \ -relief sunken -linewidth $lw \ - -fillcolor tan -filled t] + -fillcolor tan -linecolor tan -filled t] set poly [ .r add curve $view [polypoints 200 -450 100 4 -45] \ -relief sunken -linewidth $lw \ - -fillcolor tan -filled t] + -fillcolor tan -linecolor tan -filled t] source "controls.tcl" |