better speed variations

diff --git a/hostside/stopgap-controller b/hostside/stopgap-controller
index b56c4bd5e08c1033353cf0e961f45f72ec15cc1b..36dfe29c05c4d7d3b6ab467827c9b5e191b67241 100755 (executable)
--- a/hostside/stopgap-controller
+++ b/hostside/stopgap-controller
@@ -5,7 +5,7 @@ set testonly 0
 set port /dev/ttya0
 
 set ch(funcsevery) 10
-set ch(speeddirnevery) 15
+set ch(speeddirnevery) 12
 set ch(scale) 1
 
 set ch(minint) 5000
@@ -325,7 +325,7 @@ proc onreadp {} {
 
 proc newspeeddirn {} {
     set b1 0x[randbyte]
-    set speed [expr {($b1 * $b1) / 516}]
+    set speed [expr {round(($b1 * $b1) / 65535.0 * 100.0 + 26.0)}]
     set b2 0x[randbyte]
     set dirn [expr {$b2 / 128}]
     debug "speeddirn b1=$b1 speed=$speed b2=$b2 dirn=$dirn"