← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/plotcol.prg

  • 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/plotcol.prg
 
1
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
2
!.IDENTIFICATION  plotcol.prg
 
3
!.PURPOSE         MIDAS procedure to plot a column of an image
 
4
!                 execute as @ plotcol par1 [par2] [par3] [par4]
 
5
!                 where:
 
6
!                 par1 = input frame
 
7
!                 par2 = line number (defaulted to 1)
 
8
!                 par3 = 1st point,last point on the line (defaulted to 1,npix)
 
9
!                        this parameters is read in automatic scaling mode only
 
10
!                 par4 = sc_x,sc_y,off_x,off_y (defaults device filling)
 
11
!                 or
 
12
!                 par4 = line type in overplot mode (OVERPLOT/IMA) 
 
13
!
 
14
!.AUTHOR          Ch. Ounnas
 
15
!.VERSION         RHW 861221, 870502, 891119, 910903, 920224
 
16
! 080306        last modif      
 
17
! ----------------------------------------------------------------------- 
 
18
! 
 
19
define/param p1 ? IMA "Enter image:"                ! frame 
 
20
define/param p2 @1                                  ! column number
 
21
!
 
22
if plrstat(1) .ne. 0.0 .and. plrstat(2) .ne. 0.0 then
 
23
   define/param p3 MANUAL C
 
24
else
 
25
   define/param p3 <,> C
 
26
   if p3(1:1) .eq. "M" then
 
27
      write/out "*** FATAL: X axis not manually set; use SET/GRAPHICS"
 
28
      return/exit
 
29
   endif
 
30
endif
 
31
!
 
32
write/keyw  in_a   {p1}                           ! frame
 
33
write/keyw  inputc {p3}                           ! start and end coord.
 
34
!
 
35
if mid$cmnd(1:1) .eq. "P" then                    ! PLOT/COLUMN 
 
36
   define/param p4 0.,0.,-999,-999 NUM
 
37
   @ plscoff.prg_o {p4}                           ! get the scales and offsets
 
38
   dattim = m$time()
 
39
   run MID_EXE:plotcol
 
40
else                                              ! OVER/COL
 
41
   define/param p4 0.0 NUM
 
42
   write/keyw  inputr/r/1/1 {p4}
 
43
   define/param p5 {plistat(5)} NUM
 
44
   define/local itype/i/1/1 {plistat(5)}
 
45
   plistat(5) = {p5}
 
46
   run MID_EXE:plotcol
 
47
   plistat(5) = itype
 
48
endif
 
49
!
 
50
write/keyw plcdata/c/1/60  {p1}                    ! name of data
 
51
write/keyw plcdata/c/61/20 "FRAME       "          ! type of data structure
 
52
copy/graph