diff options
author | lecoanet | 2005-10-05 08:52:50 +0000 |
---|---|---|
committer | lecoanet | 2005-10-05 08:52:50 +0000 |
commit | 18a7dc0bc8242a556e4eea57b70bf92616a8948a (patch) | |
tree | a2b1a01b770b9e67afaa2795bb30ace31764bc3e /demos | |
parent | 608bb0ea9a84dd657b705296fe29ed2e39333a98 (diff) | |
download | tkzinc-18a7dc0bc8242a556e4eea57b70bf92616a8948a.zip tkzinc-18a7dc0bc8242a556e4eea57b70bf92616a8948a.tar.gz tkzinc-18a7dc0bc8242a556e4eea57b70bf92616a8948a.tar.bz2 tkzinc-18a7dc0bc8242a556e4eea57b70bf92616a8948a.tar.xz |
Slightly modified the script to better conform to the book example.
Diffstat (limited to 'demos')
-rw-r--r-- | demos/fillRule.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/fillRule.tcl b/demos/fillRule.tcl index 8817709..1e1b016 100644 --- a/demos/fillRule.tcl +++ b/demos/fillRule.tcl @@ -60,7 +60,7 @@ of "The OpenGL Programming Guide 3rd Edition" V 1.2} variable g3 [$w.zinc add group $group] variable curve3 [$w.zinc add curve $g3 {}] $w.zinc contour $curve3 add +1 { 20 0 20 120 100 120 100 0 20 0} - $w.zinc contour $curve3 add +1 { 40 20 60 120 80 20 40 20} + $w.zinc contour $curve3 add +1 { 40 20 60 140 80 20 40 20} $w.zinc contour $curve3 add +1 { 0 60 0 80 120 80 120 60 0 60} $w.zinc translate $g3 420 100 @@ -82,7 +82,7 @@ of "The OpenGL Programming Guide 3rd Edition" V 1.2} set t [$w.zinc add text $group -text $fillrule] $w.zinc translate $t -110 [expr 100+$dy] foreach item "$curve1 $curve2 $curve3 $curve4" { - set clone [$w.zinc clone $item -fillrule $fillrule -filled 1] + set clone [$w.zinc clone $item -fillrule $fillrule -filled 1 -linewidth 0] $w.zinc translate $clone 0 $dy } } |