diff options
Diffstat (limited to 'demos/triangles.tcl')
| -rw-r--r-- | demos/triangles.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/triangles.tcl b/demos/triangles.tcl index 9c0af14..d106bf1 100644 --- a/demos/triangles.tcl +++ b/demos/triangles.tcl @@ -34,7 +34,7 @@ for {set i 0} {$i<=6} {incr i} { lappend coords "[expr $x0 + 100 * cos($angle)] [expr $y0 - 100 * sin ($angle)]" } -set tr1 [$w.zinc add triangles 1 $coords -fan 1 -colors {white yellow magenta blue cyan green red yellow} -visible 1] +set tr1 [$w.zinc add triangles 1 $coords -fan 1 -colors {white yellow red magenta blue cyan green yellow} -visible 1] $w.zinc add text 1 -position {370 10} -text "Triangles item with transparency" @@ -43,4 +43,4 @@ $w.zinc add text 1 -position {370 10} -text "Triangles item with transparency" # using the clone method to make a copy and then modify the clone"colors set tr2 [$w.zinc clone $tr1] $w.zinc translate $tr2 300 0 -$w.zinc itemconfigure $tr2 -colors {white;50 yellow;50 magenta;50 blue;50 cyan;50 green;50 red;50 yellow;50} +$w.zinc itemconfigure $tr2 -colors {white;50 yellow;50 red;50 magenta;50 blue;50 cyan;50 green;50 yellow;50} |