ref: 14baea50cd1b7a8e8574cd8bd568739ae9ded924
dir: /bin/tospr/
#!/bin/rc -e
# FIXME: includes garbage past the end
fn cleanup{
if(! ~ $#tf 0)
rm -f $tf
tf=()
}
fn sigint{
cleanup
exit
}
fn sigexit{
cleanup
}
if(! ~ $#* 2){
echo usage: $0 pal image
exit usage
}
tf=/tmp/tospr.$pid
iconv -uc r8g8b8 $2 > $tf
r=`{awk '{ print $4-$2, $5-$3; exit }' $tf}
awk '
NR == 1{
npal = $2
}
FNR == NR && NR != 1{
pal[$1] = NR-2
}
FNR == 1 && NR != 1{
print "sprite", '^$r(1)^,^$r(2)^',"'^$1^'"
}
FNR != NR{
if($1 in pal)
printf "%d ", pal[$1]
else{
print "value " $1 " not in palette!"
exit
}
if(++px == '^$r(1)^'){
printf "\n"
px = 0
}
}
' $1 <{dd -bs 5x12 -skip 1 <$tf >[2]/dev/null \
| xd -1x \
| ssam '
,s/^....... +//g
s/\n/ /g
s/(..) (..) (..) /0x\3\2\1\n/g
'}