#!/bin/ksh
export LIST=${*:-'1 2 3 4 5 6 7'}
export PATH=$PATH:$HOME/bin/`system r`

export VDEVICE=ppsc
export VDEVICE=p3
export VDEVICE=x11

export VFONTLIB=$HOME/lib/`system r`/hershey
export CALCOMP=Y
################################################################################
# set up the virtual size in inches of the calcomp drawing surface
export CALCOMP_XMIN CALCOMP_XMAX CALCOMP_YMIN CALCOMP_YMAX
CALCOMP_XMIN=0
CALCOMP_XMAX=11
CALCOMP_YMIN=0
CALCOMP_YMAX=11
################################################################################
for name in $LIST
do
   rm -f calcomp.ppsc calcomp.p3
   ccall c_qa$name.f
   if [ -f c_qa$name.dat ]
   then
      c_qa$name <c_qa$name.dat
   else
      c_qa$name
   fi
   #[ -f calcomp.ppsc ] && showps calcomp.ppsc # OSF1 
   [ -f calcomp.ppsc ] && gv calcomp.ppsc
   [ -f calcomp.p3 ] && (
      rm -f P3.*
      csplit -f P3. -k calcomp.p3 '%^P3%' '/^P3/' '{999}' 2>&1 >/dev/null
      xv P3.*
      rm -f P3.*
   )
done
################################################################################
exit
################################################################################