From: ian <ian>
Date: Tue, 22 Jan 2008 22:06:34 +0000 (+0000)
Subject: better handling of very fast
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=6c3c43552d45395850dbed447600ef287cde7990;p=trains.git

better handling of very fast
---

diff --git a/hostside/measure-speeds b/hostside/measure-speeds
index c4d0e01..682e888 100755
--- a/hostside/measure-speeds
+++ b/hostside/measure-speeds
@@ -52,7 +52,7 @@ proc proc-msg {msg} {
     switch -glob $msg {
 	90?? {
 	    if {[lsearch $settle_detend $msg]<0} { debug_r "o $msg"; return }
-	    debug "= $msg"
+	    debug_r "= $msg"
 	    settle-cancel-after
 	    set settle_after [after $settle_time { set until 1}]
 	    return
@@ -61,7 +61,7 @@ proc proc-msg {msg} {
 	28 return
 	98?? {
 	    if {[lsearch $detend $msg]<0} { debug_r "I $msg"; return }
-	    debug "* $msg"
+	    debug_r "* $msg"
 	    if {$settle_time>0} {
 		settle-cancel-after
 	    } else {
@@ -177,7 +177,7 @@ proc goto-slow-start-position {speed} {
 	set last_fast_speed -1
     }
     run-until -40 9802
-    run-until-not -40 9804 100
+    run-until-not -40 9804 600
     instruct-speed-for -40 [expr {$speed*$speed}]
     instruct-stop-for 1000
 }
@@ -217,7 +217,7 @@ proc fast-speed-test {speed} {
 	incr ms [timing-finish]
 	incr mm 231
 	debug "+ $mm / $ms"
-	run-until-not $speed 980a 100
+	run-until-not $speed 980a 600
     }
     record-mm-per-s $speed $mm $ms
 }