;******************************************************************************
;* File name: ql_plusi_trt.pro                                                *
;*                                                                            *
;* Content  : 	ql_plusi_trt                                                  *
;*                                                                            *
;*                                                                            *
;* Date		Author		Comment                                       *
;* -------------------------------------------------------------------------- *
;* 22-03-94	E.PETIT		Creation                                      *
;* 14-04-94	E.PETIT		remove discret format                         *
;*                                                                            *
;******************************************************************************


;***
;##############################################################################
;#Function  name   : ql_plusi_trt                                             #
;#LEVEL            : 1                                                        #
;#                                                                            #
;#Author           : Emmanuel PETIT                                           #
;#Language         : IDL                                                      #
;#Purpose          : Addition of 2 images                                     #
;#Creation date    : Feb 94                                                   #
;#External modules :                                                          #
;#                                                                            #
;#Call sequence    : Called by Event Handler                                  #
;#                                                                            #
;#Arguments        :                                                          #
;#                                                                            #
;#Description      :                                                          #
;#                                                                            #
;#                                                                            #
;##############################################################################
;*** 

PRO ql_plusi_trt, ev

  ;============================================================================
  ;                       Common Block in use
  ;============================================================================
  COMMON stack_com
  COMMON curr_data_i_com
  COMMON const_com
  COMMON load_flg_com
  COMMON flag_com

  ;============================================================================
  ;                       Initialization
  ;============================================================================
  index   = INTARR (STACK_SZ)
  nb_op   = 0
  err     = 0
  ;============================================================================
  ;                       Processing 
  ;============================================================================
  WIDGET_CONTROL, /HOURGLASS 
  
  ; -----------------------------
  ; Locate the selected operandes
  ; -----------------------------
  FOR i=0, STACK_SZ-1 DO BEGIN
    IF (stack_hd.i(i).selected EQ 1) THEN BEGIN
      index(nb_op) = i
      nb_op = nb_op+1
    ENDIF
  ENDFOR

  ; -----------------
  ; Perform  addition 
  ; -----------------
  ql_operation,curr_header_i, $
               curr_data_i  , $
               curr_dctrl_i , $
               curr_banner_i, $
               nb_op        , $
               index        , $
               ADDITION     , $ 
               IMAGE        , $ 
               err

  ; -------------
  ; Display Result 
  ; --------------
  IF (err EQ 0 ) THEN BEGIN
    ret = ql_display_data(curr_data_i, 0, curr_dctrl_i, err)
    load_flag_i = 1
    cutim_flag  = 0 
  ENDIF ELSE BEGIN
    ql_err_msg, err
  ENDELSE
                   
END