← Back to branch summary

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

« back to all changes in this revision

Viewing changes to applic/proc/fringes.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:
applic/proc/fringes.prg
 
1
! @(#)fringes.prg       19.1 (ES0-DMD) 02/25/03 13:20:11
 
2
! ++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! .IDENTIFICATION
 
5
!
 
6
! ECHELLE PROCEDURE : FRINGES.PRG
 
7
! J.D.Ponz                      version 1.0 131083
 
8
!
 
9
! .PURPOSE
 
10
!
 
11
! execute the command :
 
12
!  SEARCH/FRINGE image window,threshold DIR table
 
13
!
 
14
!  POSITION DEFINED VIA CURSOR
 
15
!
 
16
DEFINE/PARAM P4 LINE TABLE
 
17
WRITE/KEYW IN_A 'P1'
 
18
WRITE/KEYW INPUTR/R/1/2 'P2'
 
19
WRITE/KEYW INPUTI/I/3/1 'P3'
 
20
WRITE/KEYW OUT_A  'P4'
 
21
WRITE/OUT  enter one cursor position
 
22
GET/CURSOR
 
23
INPUTI(1) = OUTPUTR(12)
 
24
INPUTI(2) = OUTPUTR(13)
 
25
RUN APP_EXE:FRINGES
 
26
LOAD/TABLE 'OUT_A' :X :Y :ORDER -1