generate-scad-file.sh

#!/bin/bash

CNT=0
WINID=$(xwininfo -name "OpenSCAD - test.scad" | grep "Window id:" | awk '{ print $4; }')

NUM=${1-50}
echo "Using ${NUM}x${NUM} cube area..."

while true
do
	echo "" > /tmp/test.scad
	for x in $(seq 0 $NUM)
	do
		for y in $(seq 0 $NUM)
		do
			echo -n "translate([$x, $y, 0]) { scale([0.8,0.8,0.8]) { " >> /tmp/test.scad
			echo -n "cube(1); " >> /tmp/test.scad
			echo -n "}" >> /tmp/test.scad
			echo "}" >> /tmp/test.scad
		done
	done
	#cp slow-render.scad /tmp/test.scad ; sleep 0.1; echo "translate([$RANDOM / 1000, 0, 0]) color(\"red\") cylinder(r = 2, h = 40);" >> /tmp/test.scad
	echo "translate([$RANDOM / 1000, 0, 0]) color(\"red\") cylinder(r = 2, h = 40);" >> /tmp/test.scad
	sleep 2
	import -window 0x2e00003 img.png
	REDPIXEL=$(convert img.png -fuzz 20% -fill black +opaque red -fill white -opaque red -print "%[fx:w*h*mean]" null: | sed -e 's/\..*//')
	echo "$(date): $REDPIXEL"
	if [ $REDPIXEL -lt 100 ]
	then
		cp img.png $(printf "err_%04d.img" $CNT)
		CNT=$(expr $CNT + 1)
	fi
done