#!/bin/sh

set -x

  cd $DATA
  UTILfix=${UTILfix:-/nwprod/util/fix}

#    convert6bit.sh
#
#    Convert fax graphics to another format.  Start by 
#      getting the conversion parameters 
#      from the fax.tbl
#  
#    History:
#    Oct 2005   L. Sager    New script
#
   if [ $toc != "WAF" ]
   then
     grep $KEYW $FIXutil/convertfax.tbl  |  read keyword width height FMAT WMO ORIG HEADER ROTATE
   else
     echo "DO not used convertfax.tbl"
   fi

  echo keyword is $keyword 
  echo width is $width
  echo height is $height
  echo FMAT is $FMAT
  echo WMO is $WMO
  echo ORIG is $ORIG
  echo HEADER is $HEADER
  echo ROTATE is $ROTATE


#      extract a pure raster graphic using fxcompoz
#

  ras=ras.out
  INFILEcrd=crd.out
  parmsg="ssno="$subnn

  export XLFRTEOPTS="unit_vars=yes"

  export XLFUNIT_66="$ras"
  export XLFUNIT_67="$INFILEcrd"    # out card

  $EXECutil/fxcompoz $INFILE parm=$parmsg > /dev/null

#
#     Use Image Magick to convert the Raster to another 
#        format
#

  export PATH=$PATH:/usrx/local/ncar401/bin:/usrx/local/imajik/bin:.
  export LIBPATH="$LIBPATH":/usrx/local/imajik/lib
  export DELEGATE_PATH=/usrx/local/imajik/share/ImageMagick

  echo P4 > header
  echo # NCEPtest >> header
  echo $width '   '  $height >> header
  cat header $ras  >  image

  rotat="" 
  if [ $ROTATE != "NO" ] 
  then
     rotat="-rotate $ROTATE"
  fi

  echo rotat is $rotat
  
  convert $rotat PBM:image  $FMAT:$outname

#
#  Add the ntc heading: 
# 

if [ $HEADER = "YES" ] 
then
   INPATH=$DATA/$outname
   SUB=DFAX1064       
   $USHutil/make_NTC_file.pl $WMO $ORIG $PDYHH $SUB $INPATH $OUTPATH   
fi