mk

explore2fs-1.07 source code

#!/bin/ksh

mkf()
{
  echo $*
  pnmpaste l-$1.ppm 2 2 < blankf.ppm > $1-f.ppm
}

mk1()
{
  echo $*
  pnmpaste l-$1.ppm 2 2 < blank1.ppm \
  | pnmpaste l-$2.ppm 8 2 > $1$2-b.ppm
}

mk2()
{
  echo $*
  pnmpaste l-$1.ppm 10 2 < blank2.ppm \
  | pnmpaste l-$2.ppm 16 2 > $1$2-w.ppm
}

mk4()
{
  echo $*
  pnmpaste l-$1.ppm 24 2 < blank4.ppm \
  | pnmpaste l-$2.ppm 30 2 \
  | pnmpaste l-$3.ppm 36 2 > $1$2$3-l.ppm
}

for l in a b c d e f g h i l p s x z
do
  pnmcut `l2d $l` 0 6 10 < letters.ppm > l-$l.ppm
done

mkf c
mkf z

mk1 a l
mk1 a h
mk1 b l
mk1 b h
mk1 c l
mk1 c h
mk1 d l
mk1 d h
mk1 c s
mk1 d s
mk1 e s
mk1 f s
mk1 g s
mk1 s s

mk2 a x
mk2 b x
mk2 c x
mk2 d x
mk2 s i
mk2 d i
mk2 b p
mk2 s p
mk2 c s
mk2 d s
mk2 e s
mk2 f s
mk2 g s
mk2 s s

mk4 e a x
mk4 e b x
mk4 e c x
mk4 e d x
mk4 e s i
mk4 e d i
mk4 e b p
mk4 e s p

rm l-?.ppm