#!/usr/local/bin/perl

$tfile = $ARGV[0];
$pfile = $ARGV[1];


#
# open the tiff file list and the annotation ppm file list
open (TF, $tfile) || die "cannot open $tfile for reading";
open (PF, $pfile) || die "cannot open $pfile for reading";

$count = 0;

while ( $tiffname = <TF> ) {

	chop($tiffname);
	$annotate = <PF>;
	chop($annotate);

	#
	# change the tiff into a pnm file
	$tpfile = "tp$count.ppm";
	$command = "tifftopnm $tiffname > $tpfile";
	system ( $command );

#	printf "tiff = $tiffname, annotate = $annotate\n";

    #
	# take the image files and annotation ppms and concatenate
	# them together
	$command = "pnmcat -tb $tpfile $annotate > tcat$count.ppm" ;
#	printf "command is   $command\n";
	system ( $command );

	$count = $count + 1;

}