diff options
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" |