← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/tutmod.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/tutmod.prg
 
1
! @(#)tutmod.prg        19.1 (ESO-DMD) 02/25/03 14:09:11
 
2
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
! 
 
4
! demo of MODIFY/PIX + MODIFY/COL
 
5
! KB 890417, 990804
 
6
! 
 
7
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
8
! 
 
9
define/param p1 yes C "Enter yes, if NAG is available, else no: "
 
10
!
 
11
write/out "Copying test data (a CCD frame) ..."
 
12
indisk/fits MID_TEST:ccd.fits middumma.bdf >Null
 
13
! 
 
14
write/out "We load the image + use the LUT rainbow"
 
15
clear/chan over
 
16
clear/chan 
 
17
load/image &a
 
18
load/lut rainbow
 
19
! 
 
20
if p1(1:1) .eq. "y" then
 
21
   write/out "Now we use MODIFY/PIXEL to clean up CCD defects"
 
22
   modify/pixel cursor &b 
 
23
   load/image &b
 
24
endif
 
25
! 
 
26
write/out "Now we show how MODIFY/AREA works"
 
27
modify/area cursor &b 
 
28
! 
 
29
write/out "We load the modified frame (will look the same)"
 
30
load/image &b
 
31
! 
 
32
write/out "And use MODIFY/COLUMN to get rid of a bad column"
 
33
modify/column middummb middummb v @53
 
34
load/image &b