diff options
| -rw-r--r-- | sandbox/zinc.tcl | 16 |
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" |