#! /bin/sh
i=0
for c in \
	255,109,0   0,0,255     0,182,85    182,182,0   255,0,0     0,255,255   \
	255,0,255   73,41,85    109,0,85    255,255,255 109,109,85  0,255,0     \
	255,255,0   0,0,170     255,146,170 146,146,255 182,36,85   219,182,170
do
	hex=`echo $c | cvtbase -m2 d x | tr -d ,`
	ppmmake \#$hex 50 50 | pnmdepth 255 > colour.$i
	i=$(($i+1))
done
ppmmake \#000000 50 50 | pnmdepth 255 > colour.black
ppmmake \#7f7f7f 50 50 | pnmdepth 255 > colour.grey
pnmcut 0 0 48 48 < colour.black | pnmpaste -replace - 1 1 colour.grey > greysquare
count from 0 to $(($i-1)) |
  while read i; do
	pnmselect pbm.circle colour.black colour.$i |
	  (pnmcut 1 1 48 48 > circle.$i; cat > /dev/null)
  done