From 2c3048c1a7e56fc215b9e8b5e9c4fbeef4ea7ead Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 26 May 2000 08:15:17 +0000
Subject: testtext.tcl

---
 sandbox/zinc.tcl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/sandbox/zinc.tcl b/sandbox/zinc.tcl
index 9e8bc78..55d09db 100644
--- a/sandbox/zinc.tcl
+++ b/sandbox/zinc.tcl
@@ -78,7 +78,7 @@ proc updateTransform {zinc} {
 #
 # TRACKS
 #
-set track [.r add track $view 5 -tags track -leaderanchors "|0|0"]
+set track [.r add track $view 6 -tags track -leaderanchors "|0|0"]
 .r itemconfigure $track -position "1 1"
 .r itemconfigure $track -position "10 10"
 .r itemconfigure $track -position "20 20"
@@ -94,17 +94,17 @@ set track [.r add track $view 5 -tags track -leaderanchors "|0|0"]
 	 -filledmarker 1 \
 	 -markerfillpattern AlphaStipple4 \
 	 -markercolor salmon
-.r itemconfigure $track -labelformat "120x40 x80x20+0+0 x40x20+80+0 x40x20+0+20 x20x20>2>1 x60x20>0>0"
-.r itemconfigure $track 0 -filled 1 -backcolor tan  -relief groove \
+.r itemconfigure $track -labelformat "120x40 l0l0+0+0 x80x20+0+0 x40x20+80+0 x40x20+0+20 x20x20>3>2 x60x20>1>1"
+.r itemconfigure $track 0 -filled 1 -backcolor gray  -relief groove
+.r itemconfigure $track 1 -filled 1 -backcolor tan  -relief groove \
 	 -font "cenapii-etiquette-m17" -text "AFR451"
-.r itemconfigure $track 1 -text "WPY" -filled 1 -backcolor wheat -relief ridge \
+.r itemconfigure $track 2 -text "WPY" \
 	 -font "cenapii-etiquette-m17"
-.r itemconfigure $track 2 -text "400" -filled 1 -backcolor wheat \
+.r itemconfigure $track 3 -text "400" -filled 1 -backcolor wheat \
 	 -font "cenapii-etiquette-m17"
-.r itemconfigure $track 3 -text "-" -filled 1 -backcolor wheat \
-	 -font "cenapii-etiquette-m17"
-.r itemconfigure $track 4 -text "450" -filled 1 -backcolor wheat \
+.r itemconfigure $track 4 -text "-" -filled 1 -backcolor wheat \
 	 -font "cenapii-etiquette-m17"
+.r itemconfigure $track 5 -text "450" -font "cenapii-etiquette-m17"
 
 .r bind $track:-3 <Enter> ".r itemconfigure $track -speedvectorcolor red"
 .r bind $track:-3 <Leave> ".r itemconfigure $track -speedvectorcolor salmon"
-- 
cgit v1.1