From d8d061d71f1028b51e99ff203e020c7f3bdd0abb Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sat, 31 Dec 2005 19:07:40 +0000
Subject: [PATCH] better speed variations

---
 hostside/stopgap-controller | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hostside/stopgap-controller b/hostside/stopgap-controller
index b56c4bd..36dfe29 100755
--- 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"
-- 
2.30.2