From 59836264f0a4a3b5d5c3dcd73098b081694a97d0 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 3 Oct 2003 14:53:34 +0000
Subject: *** empty log message ***

---
 demos/triangles.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'demos')

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}
-- 
cgit v1.1