chiark / gitweb /
hostside/measure-speeds: when positioning for slow, when we have just done slow speed...
authorIan Jackson <ian@davenant.greenend.org.uk>
Mon, 3 Jan 2011 19:58:20 +0000 (19:58 +0000)
committerIan Jackson <ian@davenant.greenend.org.uk>
Mon, 3 Jan 2011 19:58:20 +0000 (19:58 +0000)
hostside/measure-speeds

index c71dd8481da8383837522159a9a3f1db6a954ed2..4c2287010b0841769b2e96014ac7b659688173d0 100755 (executable)
@@ -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)]
     }