# ./measure-speeds /dev/railway 2 0 `seq 1 126` |tee santafe.speeds
# ^reverse
+# For stop distance at speed (say) 126,
+# Put loco on track segment X5 ish, facing ANTICLOCKWISE
+# ./measure-speeds /dev/railway 2 0 126
+
# debugging:
# ./measure-speeds /dev/railway 1 1 `seq 1 126` 2>&1 | perl -pe '$|=1; s/\r/\n/g' | 3<&0 tclsh8.3 <(echo 'set f [open /dev/fd/3]; proc cm {} { clock clicks -milliseconds }; set z [cm]; while {[gets $f l]>=0} { puts [format "%-10s %s" [expr {[cm]-$z}] $l] }')