← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to prim/proc/pipeline/pipeline.control

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
prim/proc/pipeline/pipeline.control
 
1
!  @(#)pipeline.control 19.2 (ESO-DMD) 04/28/03 14:57:55
 
2
! +++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! Midas procedure pipeline.control  for VLT/NTT pipeline
 
5
! K. Banse      970121, 981214, 990910, 030428
 
6
!
 
7
! this procedure controls different settings for the pipeline
 
8
! 
 
9
!  use as    @d pipeline.control tok1 tok2 
 
10
!      with        tok1 = Display[,display_name[,disp_size]] 
 
11
!                         NoDisplay (default)
 
12
!                  tok2 = Overwrite product frames
 
13
!                         NoOverwrite (default)
 
14
!
 
15
! +++++++++++++++++++++++++++++++++++++~
 
16
!
 
17
define/param p1 NoDISPLAY c "Enter Display/NoDisplay to en/disable display:"
 
18
define/param p2 NoOverwrite c "Enter Overwrite/NoOverwrite for products:"
 
19
!
 
20
if p1(1:1) .eq. "N" then                        !No display
 
21
   if mid$sess(6:6) .ne. "-" then 
 
22
      if mid$sess(6:6) .ne. " " then
 
23
         reset/display >Null
 
24
      endif
 
25
   endif
 
26
   if mid$sess(7:7) .ne. "-" then 
 
27
      if mid$sess(7:7) .ne. " " then
 
28
         reset/display >Null
 
29
      endif
 
30
   endif
 
31
   pipeline(5) = 0
 
32
   ididev(18) = -1
 
33
   mid$disp = "N_NULL             "
 
34
   write/out image display/graphics disabled...
 
35
! 
 
36
else 
 
37
   ididev(18) = 11
 
38
   mid$disp = "I_ImageDisplay "
 
39
   inputi = m$index(p1,",")+1
 
40
   if inputi .gt. 2 then                        !disp,...
 
41
      write/keyw inputc {p1({inputi}:)}
 
42
      inputi = m$index(inputc,",")+1
 
43
      if inputi .gt. 1 then
 
44
         write/keyw pipeline_aux/i/3/1 {inputc({inputi}:)}
 
45
         if inputi .eq. 2 then
 
46
            write/keyw pipeline_disp "local  "
 
47
         else
 
48
            inputi = inputi-2
 
49
            write/keyw pipeline_disp "{inputc(1:{inputi})}    "
 
50
         endif
 
51
      else
 
52
         write/keyw pipeline_disp {inputc(1:)}
 
53
         pipeline_aux(3) = 100
 
54
      endif
 
55
   else
 
56
      write/keyw pipeline_disp "local  "
 
57
      pipeline_aux(3) = 80
 
58
   endif 
 
59
   if pipeline_aux(3) .lt. 1 .or. pipeline_aux(3) .gt. 100 then
 
60
      pipeline_aux(3) = 100
 
61
   endif
 
62
   ! 
 
63
   pipeline(5) = 1                      !RBS Midas = display Midas
 
64
   @d pipeline.control,getFont  !search for Font in data base
 
65
endif
 
66
! 
 
67
if p2(1:1) .eq. "N" then                !update Product_Overwrite_flag
 
68
   pipeline(11) = 0
 
69
else
 
70
   pipeline(11) = 1
 
71
endif
 
72
! 
 
73
! this entry is called also from dispsetup.prg which launches the displayMidas
 
74
! therefore it is here that we also create the keywords pipeline, pipeline_aux 
 
75
! in displayMidas, so that the procedures can use them
 
76
! 
 
77
entry getFont
 
78
! 
 
79
if m$existk("pipeline_aux") .ne. 1 then
 
80
   write/keyw -
 
81
   pipeline_aux/i/1/8 2,0,80,2,0,0,0,0          !init like in pipeline.start
 
82
   write/keyw pipeline/i/1/15 0,1,0,0,0,0,300,0,0,-1,0,0,0,0,0
 
83
endif
 
84
! 
 
85
pipeline_aux(2) = 1             !use medium sized font
 
86