aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sandbox/zinc.tcl16
1 files 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"