#!/bin/rc
rfork e
fn f{
	echo $1 $2 | awk '{printf "     r8g8b8 %11d %11d %11d %11d ", 0, 0, $1, $2}'
	b = `''{ascii -dt $5 $4 $3 | read -c3};
	row = `''{for(i in `{seq $1}) echo -n $b}
	for(i in `{seq $2}) echo -n $row
}
switch($#*){
case 1
	f $1 $1 255 255 255
case 2
	f $1 $2 255 255 255
case 3
	f $1 $2 $3 255 255
case 4
	f $1 $2 $3 $4 255
case 5
	f $1 $2 $3 $4 $5
case *
	echo usage: $0 'width [height [r [g [b]]]]' >[1=2]
	exit usage
}