From 22b3f683453a64443ded4ce655c3cf5cd25761c0 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 27 Sep 2000 14:45:09 +0000
Subject: *** empty log message ***

---
 sandbox/contours.tcl |  1 -
 sandbox/zinc.tcl     | 21 ++++++++++++---------
 2 files changed, 12 insertions(+), 10 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/contours.tcl b/sandbox/contours.tcl
index c4e3466..02a6438 100644
--- a/sandbox/contours.tcl
+++ b/sandbox/contours.tcl
@@ -12,7 +12,6 @@ pack .r -expand t -fill both
 .r scale $top 1 -1
 #.r configure -drawbboxes t
 set view [.r add group $top -tags controls]
-
 #set poly [.r add curve $view "50 -150 300 -150 300 -300 50 -300 50 -150" \
 #	-closed t -fillcolor tan]
 set poly [.r add curve $view "50 -150 50 -300 300 -300 300 -150 50 -150" \
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
-- 
cgit v1.1