shithub: sce

ref: c093a79fb24ccf39a7611551eca7f5293548467f
dir: /utils/scesha/

View raw version 
#!/bin/rc -e
if(! ~ $#* 6){
	echo usage: $0 fi fo Δx Δy sΔx sΔy
	exit usage
}
tmp=/tmp/scesha.$pid
fi=$1
fo=$2
Δx=$3
Δy=$4
sΔx=$5
sΔy=$6

cat <<EOF | pico
!r $fi f
f = z == 3 ? f[x,y,0] == 0 && f[x,y,1] == Z && f[x,y,2] == Z ? 0 : Z/2+1 : 0
m = y >= Y-($dΔy) ? 0 : f[x,y+($dΔy)]
m = x >= X-($dΔx) ? 0 : m[x+($dΔx),y]
r = z == 3 && m > 0 ? 0 : f
!w $tmp r
EOF

iconv -c a8r8g8b8 $tmp |\
	crop -t $Δx $Δy >$fo
rm $tmp