! @(#)pipeline.bconnect	17.1.1.1 (ESO-DMD) 01/25/02 17:46:44 
! +++++++++++++++++++++++++++++++++++++
! 
! Midas procedure pipeline.bconnect  for NTT/VLT pipeline
! K. Banse	961209, 970516, 981127, 991210
! 
! this procedure redirects the display commands to background Midas
! unit of background Midas is this unit + 1
! 
! +++++++++++++++++++++++++++++++++++++~
! 
set/format i1
define/local Munit/i/1/2 {mid$sess(11:12)},0            !convert to number
if Munit .eq. 99 then
   Munit(2) = 0
else
   Munit(2) = Munit(1) + 1
endif
if Munit(2) .lt. 10 then
   connect/back 0{Munit(2)} nowait b files
else
   connect/back {Munit(2)} nowait b files
endif
pipeline(10) = Munit(2)				!save display Midas unit
! 
set/midas us=exp
create/comm initialize/display b,initialize/display
create/comm create/display b,create/display
create/comm delete/display b,delete/display
create/comm assign/display b,assign/display
create/comm modify/display b,modify/display
create/comm show/display b,show/display
create/comm load/image b,@d copyload
create/comm send/message b,@d sendmess
create/comm load/table b,load/table
create/comm display/lut b,display/lut
create/comm load/lut b,load/lut
create/comm load/itt b,load/itt
create/comm set/overlay b,set/overlay
create/comm clear/overlay b,clear/overlay
create/comm clear/channel b,clear/channel
create/comm copy/display b,copy/display
create/comm clear/display b,clear/display
create/comm label/display b,label/display
create/comm get/cursor b,get/cursor
create/comm draw/rect b,draw/rect
! 
create/comm create/graph b,create/graph
create/comm delete/graph b,delete/graph
create/comm assign/graph b,assign/graph
create/comm clear/graph b,clear/graph
create/comm set/graph b,set/graph
create/comm label/graph b,label/graph
create/comm copy/graph b,copy/graph 
create/comm modify/graph b,modify/graph
create/comm get/gcursor b,get/gcursor
! 
create/comm plot/axes b,plot/axes
create/comm plot/column b,plot/column
create/comm plot/contour b,plot/contour
create/comm plot/descriptor b,plot/descriptor
create/comm plot/gray b,plot/gray
create/comm plot/histogram b,plot/histogram
create/comm plot/keyword b,plot/keyword
create/comm plot/perspective b,plot/perspective
create/comm plot/row b,plot/row
create/comm plot/table b,plot/table
create/comm plot/vector b,plot/vector
! 
create/comm overplot/axes b,overplot/axes
create/comm overplot/column b,overplot/column
create/comm overplot/contour b,overplot/contour
create/comm overplot/descriptor b,overplot/descriptor
create/comm overplot/gray b,overplot/gray
create/comm overplot/histogram b,overplot/histogram
create/comm overplot/keyword b,overplot/keyword
create/comm overplot/row b,overplot/row
create/comm overplot/table b,overplot/table
create/comm overplot/vector b,overplot/vector
create/comm overplot/line b,overplot/line
set/midas us=us 
!
pipeline(5) = 2				!RBS Midas in parallel with display M.
! 
b,set/backgr ? off			!switch off server.ECHO in display M.