← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/findpix.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/findpix.prg
 
1
! @(#)findpix.prg       19.1 (ES0-DMD) 02/25/03 14:08:51
 
2
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! MIDAS procedure  findpix.prg  to implement FIND/PIXEL, /MINMAX
 
5
! K. Banse      890705, 920409
 
6
!
 
7
! execute via FIND/PIXEL frame xlow,xhi IN/OUT FIRST/ALL table
 
8
! or          FIND/MINMAX frame
 
9
!
 
10
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
11
!
 
12
define/param p1 ? ima "enter image name: "
 
13
write/keyw in_a {P1}
 
14
!
 
15
if mid$cmnd(11:11) .ne. "P" then        !FIND/MINMAX is default
 
16
   write/keyw action FNMIN?
 
17
! 
 
18
else                                    !FIND/PIXEL
 
19
   define/param p2 ? C "Enter xlow,xhigh: "
 
20
   define/param p3 IN C "Enter IN(side) or OUT(side) of given interval: "
 
21
   define/param p4 F C "Enter F(irst) or A(ll) pixels: "
 
22
   if p4(1:1) .ne. "F" then
 
23
      define/param p5 + TABLE "Enter optional table name: "
 
24
      write/keyw in_b {p5}
 
25
   endif   
 
26
! 
 
27
   define/param p6 0 N -
 
28
                "Enter max. no. of pixels to be selected (0 for no limit):"
 
29
   inputi(1) = {p6}
 
30
   write/keyw action/c/1/5 FN{p3}
 
31
   action(6:6) = p4(1:1)
 
32
   write/keyw history "FIND/PIXEL "
 
33
endif
 
34
! 
 
35
run MID_EXE:GENZZ1