%N tvscale %F $MIR/src/subs/tv.for
%D Send the scaling factors of an image to the display.
%P jm
%: tv, display
%B
      subroutine tvscale(bzero, bscale)

      real bzero, bscale

     Sends the zero and scale factors to the server.  This is used for
     server display purposes only to print approximate pixel values
     when displaying cursor positions.

  Input:
    bzero    Value of pixel can be determined by the expression:
    bscale   Real value = bzero + (bscale * pixel)
