!  @(#)pipeline.control	17.1.1.1 (ESO-DMD) 01/25/02 17:46:44
! +++++++++++++++++++++++++++++++++++++
!
! Midas procedure pipeline.control  for VLT/NTT pipeline
! K. Banse      970121, 981214, 990910
!
! this procedure controls different settings for the pipeline
! 
!  use as    @d pipeline.control tok1 tok2 
!      with        tok1 = Display[,display_name[,disp_size]] 
!                         NoDisplay (default)
!                  tok2 = Overwrite product frames
!                         NoOverwrite (default)
!
! +++++++++++++++++++++++++++++++++++++~
!
define/param p1 NoDISPLAY c "Enter Display/NoDisplay to en/disable display:"
define/param p2 NoOverwrite c "Enter Overwrite/NoOverwrite for products:"
!
if p1(1:1) .eq. "N" then			!No display
   if mid$sess(6:6) .ne. "-" then 
      if mid$sess(6:6) .ne. " " then
         reset/display >Null
      endif
   endif
   if mid$sess(7:7) .ne. "-" then 
      if mid$sess(7:7) .ne. " " then
         reset/display >Null
      endif
   endif
   pipeline(5) = 0
   ididev(18) = -1
   mid$disp = "N_NULL             "
   write/out image display/graphics disabled...
! 
else 
   ididev(18) = 11
   mid$disp = "I_ImageDisplay "
   inputi = m$index(p1,",")+1
   if inputi .gt. 2 then			!disp,...
      write/keyw inputc {p1({inputi}:)}
      inputi = m$index(inputc,",")+1
      if inputi .gt. 1 then
         write/keyw pipeline_aux/i/3/1 {inputc({inputi}:)}
         if inputi .eq. 2 then
            write/keyw pipeline_disp "local  "
         else
            inputi = inputi-2
            write/keyw pipeline_disp "{inputc(1:{inputi})}    "
         endif
      else
         write/keyw pipeline_disp {inputc(1:)}
         pipeline_aux(3) = 100
      endif
   else
      write/keyw pipeline_disp "local  "
      pipeline_aux(3) = 80
   endif 
   if pipeline_aux(3) .lt. 1 .or. pipeline_aux(3) .gt. 100 then
      pipeline_aux(3) = 100
   endif
   ! 
   pipeline(5) = 1			!RBS Midas = display Midas
   @d pipeline.control,getFont	!search for Font in data base
endif
! 
if p2(1:1) .eq. "N" then		!update Product_Overwrite_flag
   pipeline(11) = 0
else
   pipeline(11) = 1
endif
! 
! this entry is called also from dispsetup.prg which launches the displayMidas
! therefore it is here that we also create the keywords pipeline, pipeline_aux 
! in displayMidas, so that the procedures can use them
! 
entry getFont
define/local fc/i/1/2 0,0
write/keyw outputc "-adobe-helvetica-medium-r-normal--17-120-100-100      "
! 
if m$existk("pipeline_aux") .ne. 1 then
   write/keyw -
   pipeline_aux/i/1/8 2,0,80,2,0,0,0,0		!init like in pipeline.start
   write/keyw pipeline/i/1/15 0,1,0,0,0,0,300,0,0,-1,0,0,0,0,0
endif
! 
open/file MID_SYSTAB:x11fonts.dat READ fc
if fc(1) .ge. 1 then
  read_loop:
   write/keyw inputc " " all
   read/file {fc(1)} inputc 80
   if fc(2) .lt. 0 then
      close/file {fc(1)}
   else
      inputi = m$index(inputc,"):") + 3
      inputi(2) = inputi+47
      if inputc({inputi}:{inputi(2)}) .eq. outputc(1:48) then
         inputi = inputi-4
         pipeline_aux(2) = -{inputc(2:{inputi})}
         close/file {fc(1)}
      else
         goto read_loop
      endif
   endif
endif