#! /bin/csh -f

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