← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/long/proc/lnplot.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/long/proc/lnplot.prg
 
1
! @(#)lnplot.prg        19.1 (ES0-DMD) 02/25/03 14:24:48
 
2
! @(#)lnplot.prg        19.1  (ESO)  02/25/03  14:24:48
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.COPYRIGHT   (C) 1993 European Southern Observatory
 
5
!.IDENT       lnplot.prg
 
6
!.AUTHORS     Pascal Ballester (ESO/Garching)
 
7
!             Cristian Levin   (ESO/La Silla)
 
8
!.KEYWORDS    Spectroscopy, Long-Slit
 
9
!.PURPOSE 
 
10
!               Plotting for verification of calibration results 
 
11
!               Command:
 
12
!                          @s lnplot mode type
 
13
!         
 
14
!               mode = 
 
15
!                       0 : plot
 
16
!                       1 : delete
 
17
!                       2 : get cursor
 
18
!               type = 
 
19
!                       2 : plot delta(wave) / wave
 
20
!                       4 : plot spectrum labelled with wavelengths
 
21
!
 
22
!.VERSION     1.0  Package Creation  17-MAR-1993
 
23
!----------------------------------------------------------------------
 
24
!
 
25
if "'p2(1:1)'" .eq. "?" then
 
26
   write/keyw spplt/i/1/1 'P1'
 
27
else
 
28
   write/keyw spplt/i/1/2 'P1','P2'
 
29
endif
 
30
write/keyw inputc/c/1/20 "long.plt"
 
31
write/keyw PLCMETA       "long.plt"
 
32
 
 
33
@s lnident,seline
 
34
graph/spec
 
35
 
 
36
if '{wlc},naxis' .eq. 1 then
 
37
    if 'ystart' .ne. 1 then
 
38
       write/out "*** Starting line out of bound ***"
 
39
       return
 
40
    endif
 
41
else
 
42
    if "'ystart'" .gt. "'{wlc},npix(2)'" then
 
43
       write/out "*** Starting line out of bound ***"
 
44
       return
 
45
    endif
 
46
endif
 
47
 
 
48
run STD_EXE:lnplot 
 
49
 
 
50
PLISTAT(4) = 1
 
51
select/table {lintab} all