#!/bin/sh
# $Id: twopages,v 1.1 1998/09/07 14:03:51 christof Exp $
#
# this script takes 4 roborally pictures and places them to fit on two pages
# of DIN A4 paper or bigger
#
# tested for netpbm, gs 4.03 with cdj8 (DeskJet 850) driver
#
RM=rm

if [ ! -f ${1}1.gif ] 
then echo USAGE: $0 '<filename without ?.gif>'; 
	exit 1
fi
if [ ! -f ${1}2.gif -o ! -f ${1}3.gif -o ! -f ${1}4.gif ]
then echo one file is missing: ${1}?.gif
	exit 1
fi

giftopnm ${1}1.gif >temp_$$a.ppm
echo -n .
giftopnm ${1}3.gif | pnmcut 0 1 379 315 >temp_$$b.ppm
echo -n .
pnmcat -white -topbottom -jleft temp_$$a.ppm temp_$$b.ppm >temp_$$c.ppm
$RM temp_$$a.ppm temp_$$b.ppm
echo -n .
giftopnm ${1}2.gif | pnmcut 1 0 63 379 >temp_$$d.ppm
echo -n .
giftopnm ${1}4.gif | pnmcut 1 1 63 315 >temp_$$e.ppm
echo -n .
pnmcat -white -topbottom -jleft temp_$$d.ppm temp_$$e.ppm >temp_$$f.ppm
$RM temp_$$d.ppm temp_$$e.ppm
echo -n .
pnmcat -white -leftright -jtop temp_$$c.ppm temp_$$f.ppm >${1}A.ppm
$RM temp_$$c.ppm temp_$$f.ppm
echo -n '.|'
giftopnm ${1}2.gif | pnmcut 63 0 316 379 >temp_$$g.ppm
echo -n .
giftopnm ${1}4.gif | pnmcut 63 1 316 315 >temp_$$h.ppm
echo -n .
pnmcat -white -topbottom -jleft temp_$$g.ppm temp_$$h.ppm >temp_$$i.ppm
$RM temp_$$g.ppm temp_$$h.ppm
echo -n .
ppmmake white 2 2 | pnmdepth 255 >temp_$$S.ppm
echo -n .
giftopnm ${1}3.gif | pnmcut 0 315 379 64 >temp_$$j.ppm
echo -n .
giftopnm ${1}4.gif | pnmcut 1 315 315 64 >temp_$$k.ppm
echo -n .
pnmcat -white -leftright -jtop temp_$$j.ppm temp_$$k.ppm | pnmflip -rotate90 >temp_$$l.ppm
$RM temp_$$j.ppm temp_$$k.ppm
echo -n .
giftopnm ${1}4.gif | pnmcut 315 315 64 64 >temp_$$m.ppm
echo -n .
pnmcat -white -leftright temp_$$i.ppm temp_$$S.ppm temp_$$l.ppm temp_$$S.ppm temp_$$m.ppm >${1}B.ppm
$RM temp_$$i.ppm temp_$$S.ppm temp_$$l.ppm temp_$$m.ppm
echo .
pnmtops -scale 1.190476 -rle -height 11.6 ${1}A.ppm | \
	sed 's/ 20 5/ 46 5/' | sed 's/ 814$/ 840/' | \
	sed 's/ 20\.9286 translate/ 46.9286 translate/' >${1}A.ps
pnmtops -scale 1.190476 -rle -height 11.6 ${1}B.ppm | \
	sed 's/ 20 5/ 46 5/' | sed 's/ 814$/ 840/' | \
	sed 's/ 20\.9286 translate/ 46.9286 translate/' >${1}B.ps