diff options
| author | lecoanet | 2000-09-27 14:45:09 +0000 |
|---|---|---|
| committer | lecoanet | 2000-09-27 14:45:09 +0000 |
| commit | 22b3f683453a64443ded4ce655c3cf5cd25761c0 (patch) | |
| tree | a9d3890f91a0694fdf14cf14fdbb47169061e1f3 /sandbox | |
| parent | b1fc5434fc11851b3286d8044d01f60c62b3257d (diff) | |
| download | tkzinc-22b3f683453a64443ded4ce655c3cf5cd25761c0.zip tkzinc-22b3f683453a64443ded4ce655c3cf5cd25761c0.tar.gz tkzinc-22b3f683453a64443ded4ce655c3cf5cd25761c0.tar.bz2 tkzinc-22b3f683453a64443ded4ce655c3cf5cd25761c0.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox')
| -rw-r--r-- | sandbox/contours.tcl | 1 | ||||
| -rw-r--r-- | sandbox/zinc.tcl | 21 |
2 files changed, 12 insertions, 10 deletions
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 |