shithub: riscv

ref: 39c3fd117ab4988c041800490b23c2aedb1858d3
dir: /sys/src/games/blabs/mkface/

View raw version
#!/bin/rc

fn unhex {
	tr '	' ' ' | sed 's/0x//g;s/[, ]//g;s/../0x&, /g;s/^/	/'
}

if(! ~ $#* 1) {
	echo 'usage: mkface who' >[1=2]
	exit usage
}

who=$1
x='^astro/'^$who^' '
z='^([^ ]+)/'^$who^' '

file=notfound
for(i in 1 2 4 8)
	if(y=`{grep $x /lib/face/48x48x$i/.dict} || y=`{grep $z /lib/face/48x48x$i/.dict})
		file=/lib/face/48x48x$i/$y(2)

if(~ $file notfound) {
	echo 'cannot find face for '$who >[1=2]
	exit noface
}

{
	echo 'uchar '$who'bits[] = {'
	switch($file) {
	case *48x48x8* *48x48x4*
		iconv -u $file | dd -bs 60 -skip 1 >[2]/dev/null | xd |
		sed 's#^.......##' | unhex | sed 's/0x/~&/g'
	case *48x48x2* *48x48x1*
		cat $file | unhex
	}
	echo '};'
} >$who.bits