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