*** empty log message ***

1 files changed, 12 insertions, 9 deletions

diff --git a/sandbox/zinc.tcl b/sandbox/zinc.tcl
index bcb6c69..b47a702 100644
--- a/sandbox/zinc.tcl
+++ b/sandbox/zinc.tcl
@@ -69,9 +69,9 @@ proc updateTransform {zinc} {
     global top
     
     $zinc treset $top
-    $zinc scale $top 1 -1
     $zinc translate $top [expr -$centerX] [expr -$centerY]
     $zinc scale $top $scale $scale
+    $zinc scale $top 1 -1
     $zinc translate $top [expr $zincWidth/2] [expr $zincHeight/2]
 }
 
@@ -111,20 +111,23 @@ set track [.r add track $view 6 -tags track -leaderanchors "|0|0"]
 
 set track2 [.r add track $view 4 -speedvector "-20 0" \
 	 -symbolcolor salmon  -speedvectorcolor salmon -leadercolor salmon \
-	 -labeldistance 20 -leaderanchors "%30x30"]
+	 -labeldx -20 -labeldy 20 -leaderanchors "%30x30" \
+	 -historycolor MistyRose -lastasfirst t ]
 .r itemconfigure $track2 -labelformat "a3f110+0+0 a3f110>0^0 a3f110^0>0 a3f110>2>0"
 .r itemconfigure $track2 0 -filled 1 -backcolor tan -text "BAW452"
 .r itemconfigure $track2 1 -filled 1 -backcolor wheat -text "450"
 .r itemconfigure $track2 2 -filled 1 -backcolor wheat -text "KMC"
 #.r itemconfigure $track2 3 -filled 1 -backcolor wheat -text ""
 .r itemconfigure $track2 -connecteditem $track -connectioncolor green
-.r itemconfigure $track2 -position "1 1"
-.r itemconfigure $track2 -position "-10 10"
-.r itemconfigure $track2 -position "-20 20"
-.r itemconfigure $track2 -position "-30 30"
-.r itemconfigure $track2 -position "-40 40"
-.r itemconfigure $track2 -position "-50 50"
+.r itemconfigure $track2 -position "10 0"
+.r itemconfigure $track2 -position "-20 10"
+.r itemconfigure $track2 -position "-30 20"
+.r itemconfigure $track2 -position "-40 30"
+.r itemconfigure $track2 -position "-50 40"
 .r itemconfigure $track2 -position "-60 50"
+.r itemconfigure $track2 -position "-70 50"
+.r itemconfigure $track2 -position "-80 50"
+.r itemconfigure $track2 -position "-90 50"
 
 #
 # WAY POINTS
@@ -222,7 +225,7 @@ proc borders {onoff} {
     puts "$part"
     set contour noborder
     if { $onoff == "on" } {
-	set contour "contour"
+	set contour "contour oblique"
     }
     if { [regexp {^[0-9]+$} $part] } {
 	.r itemconfigure current $part -border $contour