ref: 01c80ca6f4222d79059d219b94e3a426cb2b3bfd
dir: /rc/scerot/
#!/bin/rc
if(! ~ $#* 1){
echo usage: sceass radix
exit usage
}
name=$1 #scv1.00
echo '
r s '^$name^'.15.bit
m = s[X-x-1,y,z]
w m '^$name^'.17.bit
r sa '^$name^'.14.bit
ma = sa[X-x-1,y,z]
w ma '^$name^'.18.bit
r sb '^$name^'.13.bit
mb = sb[X-x-1,y,z]
w mb '^$name^'.19.bit
r sc '^$name^'.12.bit
mc = sc[X-x-1,y,z]
w mc '^$name^'.20.bit
r sd '^$name^'.11.bit
md = sd[X-x-1,y,z]
w md '^$name^'.21.bit
r se '^$name^'.10.bit
me = se[X-x-1,y,z]
w me '^$name^'.22.bit
r sf '^$name^'.09.bit
mf = sf[X-x-1,y,z]
w mf '^$name^'.23.bit
r sg '^$name^'.08.bit
mg = sg[X-x-1,y,z]
w mg '^$name^'.24.bit
r sh '^$name^'.07.bit
mh = sh[X-x-1,y,z]
w mh '^$name^'.25.bit
r si '^$name^'.06.bit
mi = si[X-x-1,y,z]
w mi '^$name^'.26.bit
r sj '^$name^'.05.bit
mj = sj[X-x-1,y,z]
w mj '^$name^'.27.bit
r sk '^$name^'.04.bit
mk = sk[X-x-1,y,z]
w mk '^$name^'.28.bit
r sl '^$name^'.03.bit
ml = sl[X-x-1,y,z]
w ml '^$name^'.29.bit
r sm '^$name^'.02.bit
mm = sm[X-x-1,y,z]
w mm '^$name^'.30.bit
r sn '^$name^'.01.bit
mn = sn[X-x-1,y,z]
w mn '^$name^'.31.bit
' | pico -q
for(i in $name.^`{seq 17 31}^.bit)
iconv -c r8g8b8 $i > a && mv a $i
t=`{read -c 46 $name^.15.bit | awk '{print $2, $3}'}
crop -t $t $name^.17.bit > a && mv a $name^.17.bit
t=`{read -c 46 $name^.14.bit | awk '{print $2, $3}'}
crop -t $t $name^.18.bit > a && mv a $name^.18.bit
t=`{read -c 46 $name^.13.bit | awk '{print $2, $3}'}
crop -t $t $name^.19.bit > a && mv a $name^.19.bit
t=`{read -c 46 $name^.12.bit | awk '{print $2, $3}'}
crop -t $t $name^.20.bit > a && mv a $name^.20.bit
t=`{read -c 46 $name^.11.bit | awk '{print $2, $3}'}
crop -t $t $name^.21.bit > a && mv a $name^.21.bit
t=`{read -c 46 $name^.10.bit | awk '{print $2, $3}'}
crop -t $t $name^.22.bit > a && mv a $name^.22.bit
t=`{read -c 46 $name^.09.bit | awk '{print $2, $3}'}
crop -t $t $name^.23.bit > a && mv a $name^.23.bit
t=`{read -c 46 $name^.08.bit | awk '{print $2, $3}'}
crop -t $t $name^.24.bit > a && mv a $name^.24.bit
t=`{read -c 46 $name^.07.bit | awk '{print $2, $3}'}
crop -t $t $name^.25.bit > a && mv a $name^.25.bit
t=`{read -c 46 $name^.06.bit | awk '{print $2, $3}'}
crop -t $t $name^.26.bit > a && mv a $name^.26.bit
t=`{read -c 46 $name^.05.bit | awk '{print $2, $3}'}
crop -t $t $name^.27.bit > a && mv a $name^.27.bit
t=`{read -c 46 $name^.04.bit | awk '{print $2, $3}'}
crop -t $t $name^.28.bit > a && mv a $name^.28.bit
t=`{read -c 46 $name^.03.bit | awk '{print $2, $3}'}
crop -t $t $name^.29.bit > a && mv a $name^.29.bit
t=`{read -c 46 $name^.02.bit | awk '{print $2, $3}'}
crop -t $t $name^.30.bit > a && mv a $name^.30.bit
t=`{read -c 46 $name^.01.bit | awk '{print $2, $3}'}
crop -t $t $name^.31.bit > a && mv a $name^.31.bit