#!/bin/sh
#
if [ -r $1.rad ]; then
  mapprof $2 $3 $4 $5 $6 $7 $8 $9 <$1.rad >$1.rad.cart
  echo "set parametric" >$1.rad.plt
  echo "set contour" >>$1.rad.plt
  echo "set title \"Steric Radial Profile 3D Contour Plot of $1\"" >>$1.rad.plt
  echo "set terminal postscript portrait solid" >>$1.rad.plt
  echo "set size .8, 1.3" >>$1.rad.plt
  echo "set output \"$1.ps\"" >>$1.rad.plt
  echo "set nokey" >>$1.rad.plt
  echo "splot \"$1.rad.cart\" with lines" >>$1.rad.plt
  echo "exit" >>$1.rad.plt
  gnuplot $1.rad.plt >gnuplot.log
  ghostview $1.ps
  #latex $1.tex
  #dvilj $1.dvi
  #lpr -Plaser $1.lj
else
  echo "Error $1.rad file not found"
  echo "Did you output the relevant profile using \"plot cartesian #\""
fi