From 302652737a90a111df5756d95c9f2bee16780422 Mon Sep 17 00:00:00 2001 From: lecoanet Date: Fri, 28 Nov 2003 13:50:10 +0000 Subject: * Modified the tracks colors to exhibit the -lastasfirst feature (black / white). --- demos/simpleRadar.tcl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'demos') diff --git a/demos/simpleRadar.tcl b/demos/simpleRadar.tcl index 6fc1cce..642c524 100644 --- a/demos/simpleRadar.tcl +++ b/demos/simpleRadar.tcl @@ -114,7 +114,7 @@ proc createTracks {z} { set bOff "$z itemconfigure current \[$z currentpart\] -border noborder" for {set i 20} {$i > 0} {incr i -1} { - set item [$z add track radar 6] + set item [$z add track radar 6 -lastasfirst 1] lappend allTracks $item set oneTrack $item @@ -126,7 +126,7 @@ proc createTracks {z} { set tracks($item,vy) [expr (8.0 + rand()*10.0) * $d] $z itemconfigure $item -position "$tracks($item,x) $tracks($item,y)" -circlehistory 1 \ -speedvector "$tracks($item,vx) $tracks($item,vy)" -speedvectorsensitive 1 \ - -labeldistance 30 -markersize 20 -historycolor gray30 -filledhistory 0 \ + -labeldistance 30 -markersize 20 -historycolor white -filledhistory 0 \ -labelformat {x80x60+0+0 x63a0^0^0 x33a0^0>1 a0a0>2>1 x33a0>3>1 a0a0^0>2} $z itemconfigure $item 0 -filled 0 -backcolor gray60 -sensitive 1 $z itemconfigure $item 1 -filled 1 -backcolor gray55 -text [format {AFR%03i} $i] @@ -144,7 +144,7 @@ proc createTracks {z} { $z bind $item [list $z itemconfigure current -historycolor red3 \ -symbolcolor red3 -markercolor red3 -leaderwidth 2 \ -leadercolor red3 -speedvectorwidth 2 -speedvectorcolor red3] - $z bind $item [list $z itemconfigure current -historycolor black \ + $z bind $item [list $z itemconfigure current -historycolor white \ -symbolcolor black -markercolor black -leaderwidth 1 \ -leadercolor black -speedvectorwidth 1 -speedvectorcolor black] $z bind $item:position <1> "createRoute $z" -- cgit v1.1