#!/bin/sh
#
#------------------------------------------------------------------
#               active procedure
#
#       Procedure automatic plotting of metacode files
#       used by the routine hardz in the gtvirt graphics library
#
#       $1      Metacode file to be plotted
#       $2      Scaling mode : auto or exact
#       $3      Metacode file status after plotting: keep or delete
#       $4      Plotter to be used
#       $5      Comments : carrousel, papier
#
#------------------------------------------------------------------
#
# 
#if [ $# = 0 ]
#then   echo "syntax : $0 filename[.vec] /options]"
#       echo "     ex: $0 /usr/users/nom/gagplot"
#       exit
#fi
if [ $2 = "" ]
then    HARD_MODE=/auto
else    HARD_MODE=/$2
fi
HARD_FILE=$1
export HARD_MODE
export HARD_FILE
filename=`basename $1 .vec`
case $4 in
        gag_hardcopy)   
                filename=$filename.ps
                lwxy >$filename
                lpr -r -Plaser $filename
		;;
        hp)     
                filename=$filename.hpgl
                hpspool >$filename
                lpr -r -Php $filename
		;;

        laser|LASER) 
                filename=$filename.ps
                lwxy >$filename
                lpr -r -Plaser $filename
		;;

        laser2|LASER2) 
                filename=$filename.ps
                lwxy >$filename
                lpr -r -Plaser2 $filename
		;;

        laser3|LASER3) 
                filename=$filename.ps
                lwxy >$filename
                lpr -r -Plaser3 $filename
		;;
        ps|PS|eps|EPS|epsf|EPSF|postscript|PostScript|POSTSCRIPT) 
                filename=$filename.ps
                lwxy >$filename
		;;

        *) echo "E-HARD,  Unkown plotter $4, Producing PostScript"
                filename=$filename.ps
                lwxy >$filename
		;;

esac
#
# delete the Metacode file give by default (GAG_SCRATCH:GAGPLOT.vec)
if [ $3 = "delete" ]
then
    /bin/rm -f $1
fi