diff options
author | lecoanet | 2003-10-03 14:53:34 +0000 |
---|---|---|
committer | lecoanet | 2003-10-03 14:53:34 +0000 |
commit | 59836264f0a4a3b5d5c3dcd73098b081694a97d0 (patch) | |
tree | 6977278cf7212ed10718a46ae685fd04cacf8f2d /demos | |
parent | 284f06f678e37448d9c7b5bd97b322a67a67f62d (diff) | |
download | tkzinc-59836264f0a4a3b5d5c3dcd73098b081694a97d0.zip tkzinc-59836264f0a4a3b5d5c3dcd73098b081694a97d0.tar.gz tkzinc-59836264f0a4a3b5d5c3dcd73098b081694a97d0.tar.bz2 tkzinc-59836264f0a4a3b5d5c3dcd73098b081694a97d0.tar.xz |
*** empty log message ***
Diffstat (limited to 'demos')
-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} |