Name

---

      SET_SCALE

Purpose

---

      Set scaling from currently displayed (or given) image.

Category

---

Calling Sequence

---

      set_scale

Inputs

---

Keyword Parameters

---

Keywords

---

        MAG=mag Magnification factor (def=1).
        /QUIET No message if scaling info not found.
        /LIST lists screen and data windows.
        OUT=out Returned values in a structure.
        ERROR=err 0=ok, 1=no scaling info found.
        The items listed below may be returned using keywords:
        X1=x1, X2=x2, and so on.
        NX=nx, NY=ny also return the plot window size in pixels.
        IMAGE=img Give image array instead of reading it from
          the display.
        /NOSET do not actually set scaling.

Outputs

---

Common Blocks

---

Notes

---

      Notes: current image must have scaling info embedded as
        expected by this routine. The needed values are in the
        first 90 bytes of the bottom image line are are:
          m, ix1, ix2, iy1, iy2, x1, x2, y1, y2, xtyp, ytyp
        where m is 1234567890,
        ix1, ix2 is the image X range in screen coordinates,
        iy1, iy2 is the image Y range in screen coordinates,
        x1,x2 is the image X range in data coordinates,
        y1,y2 is the image Y range in data coordinates.
        xtyp, ytyp is the X and Y axis types: 0=linear, 1=log.
        The format for all these values is:
          I10, 4I6, 4G13.6, 2I2.
        This scaling info may be placed in the image by the
        routine put_scale.

Modification History

---

      R. Sterner, 1995 Feb 28
      R. Sterner, 1995 Mar 7 --- Added /LIST keyword.
      R. Sterner, 1998 Jan 8 --- Forced floats for x1,x2,y1,y2.
      R. Sterner, 1999 Aug 09 --- Added /NOSET and IMAGE=img.
      R. Sterner, 2001 Mar 30 --- Modified for 8 or 24 bit color.
      R. Sterner, 2005 Sep 23 --- Added OUT=out.
      R. Sterner, 2006 Sep 25 --- Added MAG=mag.
      R. Sterner, 2010 Mar 10 --- Added xrange/yrange to plot call.
      R. Sterner, 2010 May 04 --- Converted arrays from () to [].
          Needed to set reverse range correctly.
      R. Sterner, 2010 May 10 --- Put size check in correct place,
          got img size.
      R. Sterner, 2010 May 10 --- Added /map_set.
  Copyright (C) 1995, Johns Hopkins University/Applied Physics Laboratory
  This software may be used, copied, or redistributed as long as it is not
  sold and this copyright notice is reproduced on each copy made. This
  routine is provided as is without any express or implied warranties
  whatsoever. Other limitations apply as described in the file disclaimer.txt.