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

  Plot the histogram of an image on the Versatec
    usage: verimhst image [-l min max] [-p pixels]
    Arguments: image - Standard FOCAS image file
	       -l min max - range to compute histogram (default image range)
	       -p pixels - maximum number of pixels (default 10000)
    Output: A plot of N (log scale) vs PIXEL
    The histogram has 512 bins between min and max.  If
    max-min < 512 then the bin width is 1.

'EOF'
  exit
endif
primhst $*|opstrm c r .01 + =|verplot -m 1 -l $1 PIXEL N -y l 1
