#!/bin/csh -f
# Plot the profile of an image on VT100
if ($1 == ^) then
  caterr <<'EOF'

  Plot the profile of an image on a VT100 or TEK4014.
    usage: vtprofiles image x|y column|line column|line [vtplot options]
    Arguments: image - FOCAS image file
               x|y - If x then profile x = column
		     If y then profile y = line
               column|line - column or line to be averaged and profiled
	       vtplot options - plotting option appropriate for the
				program vtplot
    Line or column values start with 0.
    Output: A profile across the image.

'EOF'
  exit
endif
set a=$1; shift
set b=$1; shift
set c=$1; shift
set d=$1; shift
profiles $a $b $c $d|vtplot -m 1 -l ${a}:${b}=${c}-${d} Pixel Value $*
