#!/bin/sh


NX=1024
NY=1024
WH=w.ppm
TM=t.ppm
IN=in.ppm

pbmmake -white $NX $NY > $WH

W=3551
H=2479

Y=0
TY=0


while [ $H -gt 0 ]; do

if [ $H -lt $NY ]; then
	CH=$H
else
	CH=$NY
fi

TW=$W
TX=0
X=0

while [ $TW -gt 0 ]; do

if [ $TW -lt $NX ]; then
	CW=$TW
else
	CW=$NX
fi

if [ $CW -ne $NX  -o  $CH -ne $NY ]; then
	echo  $X $Y $CW $CH $IN  p$TX.$TY.ppm
	pnmcut $X $Y $CW $CH $IN > $TM
	pnmpaste -replace $TM 0 0 $WH > p$TX.$TY.ppm
	/bin/rm -f $TM
else
	echo X=$X Y=$Y CW=$CW CH=$CH
	echo pnmcut $X $Y $CW $CH $IN  p$TX.$TY.ppm
	pnmcut $X $Y $CW $CH $IN > p$TX.$TY.ppm
fi

X=`expr $X + $NX`
TX=`expr $TX + 1`
TW=`expr $TW - $CW`
done

Y=`expr $Y + $NY`
TY=`expr $TY + 1`
H=`expr $H - $CH`
done

rm -f $WH

