chiark
/
gitweb
/
~ijackson
/
trains.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7a8f2f8
)
hostside/measure-speeds: when positioning for slow, when we have just done slow speed...
author
Ian Jackson
<ian@davenant.greenend.org.uk>
Mon, 3 Jan 2011 19:58:20 +0000
(19:58 +0000)
committer
Ian Jackson
<ian@davenant.greenend.org.uk>
Mon, 3 Jan 2011 19:58:20 +0000
(19:58 +0000)
hostside/measure-speeds
patch
|
blob
|
history
diff --git
a/hostside/measure-speeds
b/hostside/measure-speeds
index c71dd8481da8383837522159a9a3f1db6a954ed2..4c2287010b0841769b2e96014ac7b659688173d0 100755
(executable)
--- a/
hostside/measure-speeds
+++ b/
hostside/measure-speeds
@@
-242,9
+242,10
@@
proc timing-finish {{now {}}} {
proc goto-slow-start-position {speed} {
global last_fast_speed segs
- if {$last_fast_speed >
=
0} {
+ if {$last_fast_speed > 0} {
run-until -100 [list $segs(X5) $segs(X6)]
- set last_fast_speed -1
+ } elseif {$last_fast_speed == 0} {
+ run-until -100 [list $segs(X5) $segs(X6) $segs(X7)]
} elseif {$last_fast_speed < 0} {
run-until 100 [list $segs(X5) $segs(X6) $segs(X8)]
}