From: ian <ian>
Date: Mon, 14 Apr 2008 19:37:23 +0000 (+0000)
Subject: can do bavarian
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=edb15d8b273c650eae521f0072fecb977c04235f;p=trains.git

can do bavarian
---

diff --git a/hostside/stopgap-controller b/hostside/stopgap-controller
index d782b59..9ad0142 100755
--- a/hostside/stopgap-controller
+++ b/hostside/stopgap-controller
@@ -7,6 +7,9 @@ set testonly 0
 set port /dev/ttya0
 #set port /dev/ttyS0
 
+set locos {1 2 4}
+set locoix 1
+set loco [lindex $locos $locoix]
 set loco 2
 
 set ch(funcsevery) 10
@@ -46,6 +49,8 @@ set funcsr1 {0x061 0x020 0x000 0x040 0x060}
 set funcsl1 {0x182 0x080 0x000 0x100 0x180}
 set funcsr2 {0x021 0x020 0x000}
 set funcsl2 {0x042 0x040 0x000}
+set funcsr4 {0x020 0x000}
+set funcsl4 {0x040 0x000}
 set funcsval 0x000
 
 proc gui {m} {
@@ -566,7 +571,7 @@ proc ask_randspeed {} {
 
 proc ask_loco {} {
     global loco
-    set loco [expr {$loco==1 ? 2 : 1}]
+    set loco [updownfromlist locos locoix 1]
 }
 
 proc ask_funcs {lr} {