← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/spec/proc/splsear.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:
stdred/spec/proc/splsear.prg
 
1
! @(#)splsear.prg       19.1 (ES0-DMD) 02/25/03 14:29:22
 
2
! @(#)splsear.prg       19.1  (ESO)  02/25/03  14:29:22
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.COPYRIGHT   (C) 1994 European Southern Observatory
 
5
!.IDENT       splsear.prg
 
6
!.AUTHORS     Pascal Ballester (ESO/Garching)
 
7
!.KEYWORDS    Spectroscopy
 
8
!.PURPOSE     General module for PLOT/SEARCH commands
 
9
!.VERSION     1.0  Package Creation  15-FEB-1994
 
10
!-------------------------------------------------------
 
11
!
 
12
define/param P1  2D    CHAR "Mode (1D/2D)"
 
13
define/param P2  ?     TAB  "Input table:"
 
14
define/param P3 {WLC}  IMA  "Image:"
 
15
define/param P4  0     NUMB "Y Position:"
 
16
!
 
17
graph/spec
 
18
SET/GRAPH
 
19
set/graph pmode=1 font=1
 
20
 
 
21
define/local nrow/I/1/1  0
 
22
define/local nplot/I/1/1 {P4}
 
23
 
 
24
IF {{P3},NAXIS} .EQ. 1 THEN 
 
25
     nrow  = 1
 
26
ELSE
 
27
     nrow  = {{P3},NPIX(2)}
 
28
ENDIF
 
29
 
 
30
IF nplot .eq. 0  nplot = nrow/2 + 1
 
31
 
 
32
IF nrow .EQ. 1 .OR. P1(1:1) .EQ. "1" THEN
 
33
   PLOT/ROW {WLC} @{nplot}
 
34
   set/graph  color=4
 
35
   OVERPLOT/IDENT {P2} :X :X TOP
 
36
   SELECT/TABLE {P2} ALL
 
37
ELSE
 
38
   set/graph ltype=0  stype=1 
 
39
   SELECT/TABLE {P2} ALL
 
40
   plot/table {P2}  :X :Y
 
41
ENDIF
 
42
 
 
43
set/graph
 
44
RETURN