#! /bin/csh -f
# Last edited on 1999-08-22 13:40:20 by hcgl

set usage = "$0 PUZZLE"

set puzzle = "$1"; shift;

# Parameters for ceramic-3 test:

set restb = ( 001     002     004     008     016     032     064     128     )

set curves = ( 0015 0040 0045 0060 )

set tmp = "/tmp/$$.fcv"

foreach i ( 1 2 3 4 5 6 7 8 )

  set band = ${restb[$i]}
  set output = f${band}
  
  # Histogram without squeeze

  /bin/rm -f ${tmp}
  
  foreach num ( $curves ) 
    echo "curve = ${num}" >> ${tmp}
    cat ~/tese/tests/${puzzle}/${num}/f${band}.fcv >> ${tmp}
  end
  
  cat ${tmp} \
    | PZCurvHistogram \
      -output ${output}
      -lambda ${band}
    
  draw-curvature-histogram 3 ${band} ${output}-plain.his ${output}-plain.eps
  draw-curvature-histogram 1 1 ${output}-squeezed.his ${output}-squeezed.eps

end