#! /bin/csh -f
# Last edited on 1999-03-14 16:42:58 by stolfi

# Packs multiple tests into a singel image.

foreach f ( $* ) 
  foreach t ( c n )
    set cols = ( )
    ls -l ${f}.pgm
    foreach fam ( gauss power flat )
      echo ' - - - - - - - - - - - - - - - - - - - - - - - - '
      set pics = ( ${f}-${fam}-*-${t}.pgm )
      ls -l $pics
      pnmcat -black -tb $pics > ,${f}-${fam}-${t}-col.pgm
      set cols = ( $cols ,${f}-${fam}-${t}-col.pgm )
    end
    pnmcat -black -lr -jtop $cols > ,${f}-filtered-${t}.pgm
    pnmcat -black -tb ${f}.pgm ,${f}-filtered-${t}.pgm > ${f}-all-${t}.pgm
    /bin/rm -f ,${f}-*-col.pgm ,${f}-filtered-${t}.pgm
    ( xv ${f}-all-${t}.pgm ; echo " " )
  end
end