;---------------------------------------------------------------------------
; Document name: imagetool.pro
; Created by:    Liyun Wang, GSFC/ARC, April 28, 1995
;
; Last Modified: Sun Apr 30 15:53:35 1995 (soho-archive@achilles.nascom.nasa.gov)
;---------------------------------------------------------------------------
;
PRO imagetool
;---------------------------------------------------------------------------
;  Driver program to run IMAGE_TOOL
;---------------------------------------------------------------------------
   IF getenv('SOHOARCHIVE') EQ '' THEN BEGIN
      PRINT, 'Environment variable SOHOARCHIVE not set.'
      RETURN
   ENDIF

;---------------------------------------------------------------------------
;  Set necessary enviroment variables to run the IMAGE_TOOL
;---------------------------------------------------------------------------
   SETENV,'SYNOP_DATA=$SOHOARCHIVE/public/data/synoptic'
   SETENV,'TIME_CONV=$SOHOARCHIVE/public/softops/cds/data/time'
   PRINT, 'Adjusting IDL path...'
   !path = EXPAND_PATH('+$SOHOARCHIVE/public/softops/cds') + ':' + !path

;---------------------------------------------------------------------------
;  !IMAGE is a structure containing all the parameters used to modify the
;  behavior of the image display routines.
;---------------------------------------------------------------------------
   image = {im_ch_1, set: 0, value: 0.0}
   DEFSYSV,'!image',{image_char,   $
                     nosquare: 0,            $
                     smooth:   0,            $
                     nobox:    0,            $
                     noscale:  0,            $
                     missing:  {im_ch_1},    $
                     SIZE:     {im_ch_1},    $
                     noexact:  0,            $
                     xalign:   {im_ch_1},    $
                     yalign:   {im_ch_1},    $
                     relative: {im_ch_1},    $
                     MIN:      {im_ch_1},    $
                     MAX:      {im_ch_1},    $
                     vmin:     {im_ch_1},    $
                     vmax:     {im_ch_1},    $
                     top:      {im_ch_1},    $
                     combined: 0}
   MESSAGE,'Added system variable !IMAGE',/informational

;---------------------------------------------------------------------------
;  !BCOLOR used in some plotting and image display routines.  hangover from IDL
;  version 1.
;---------------------------------------------------------------------------
   DEFSYSV,'!bcolor',0
   MESSAGE,'Added system variable !BCOLOR',/informational

;---------------------------------------------------------------------------
;  !ASPECT is the aspect ratio of the plotting device, expressed as the pixel
;  height over the pixel width.  used by SCALE_TV and by SETSCALE.
;---------------------------------------------------------------------------
   DEFSYSV,'!aspect',1.0
   MESSAGE,'Added system variable !ASPECT',/informational

   PRINT, 'Starting IMAGE_TOOL...'
   image_tool
END
;---------------------------------------------------------------------------
; End of 'imagetool.pro'.
;---------------------------------------------------------------------------