From: ian <ian>
Date: Sun, 11 Sep 2005 13:53:25 +0000 (+0000)
Subject: fun scripts for random play
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=5c93ee973ad07dd1ed6d4da9af3199aec3f36adc;p=trains.git

fun scripts for random play
---

diff --git a/hostside/fun-randmore b/hostside/fun-randmore
new file mode 100755
index 0000000..4f318f1
--- /dev/null
+++ b/hostside/fun-randmore
@@ -0,0 +1,24 @@
+#!/bin/sh
+set -e
+while true; do
+	echo
+	which=$(hexdump </dev/urandom -n1 -e '"%d"')
+	if [ $which -ge 64 -a $which -lt 192 ]; then
+		b1=$(hexdump </dev/urandom -n1 -e '"%d"')
+		squ=$(($b1 * $b1))
+		speed=$(($squ / 516))
+		b2=$(hexdump </dev/urandom -n1 -e '"%d"')
+		dirn=$(($b2 / 128))
+		echo which=$which b1=$b1 speed=$speed b2=$b2 dirn=$dirn
+		./hostside-old -s/dev/ttya0 speed126 2 $speed $dirn
+	fi
+	if [ $which -lt 128 ]; then
+		value=$(( $which * 16 ))
+		printf "which=%s value=%s value=0x%x\n" $which $value $value
+		./hostside-old -s/dev/ttya0 funcs5to8 2 $value
+	fi
+	delay=$(hexdump </dev/urandom -n1 -e '"%d"')
+	delayv=$(( $delay / 2 + 10 ))
+	printf "delay=%d delayv=%d\n" $delay $delayv
+	sleep $delayv
+done
diff --git a/hostside/fun-random b/hostside/fun-random
new file mode 100755
index 0000000..06e8d33
--- /dev/null
+++ b/hostside/fun-random
@@ -0,0 +1,12 @@
+#!/bin/sh
+set -e
+while true; do
+	b1=$(hexdump </dev/urandom -n1 -e '"%d"')
+	squ=$(($b1 * $b1))
+	speed=$(($squ / 516))
+	b2=$(hexdump </dev/urandom -n1 -e '"%d"')
+	dirn=$(($b2 / 128))
+	echo b1=$b1 speed=$speed b2=$b2 dirn=$dirn
+	./hostside-old -s/dev/ttya0 speed126 2 $speed $dirn
+	sleep 30
+done
diff --git a/hostside/fun-updown b/hostside/fun-updown
new file mode 100755
index 0000000..7175879
--- /dev/null
+++ b/hostside/fun-updown
@@ -0,0 +1,13 @@
+#!/bin/sh
+set -e
+
+while true; do
+	for x in '0 11' '-- 11 0 -1'; do
+		echo $x;
+		for f in `numbers $x`; do
+			sleep 20; g=$(($f*$f));
+			echo $f $g;
+			./hostside-old -s/dev/ttya0 speed126 2 $g 0
+		done
+	done
+done