← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/invent/proc/invdemo.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:
contrib/invent/proc/invdemo.prg
 
1
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
2
!.IDENTIFICATION: invdemo.prg
 
3
!.PURPOSE:        Demo. procedure for INVENTOTY reduction package
 
4
!.USE:            Execute as TUTORIAL/INVENT
 
5
!                 The following files are copied into your directory :
 
6
!                 INFTEST.BDF     --  Test frame
 
7
!                 Output files are
 
8
! 
 
9
! 070824        last modif
 
10
! --------------------------------------------------------------------
 
11
!
 
12
reset/displ >Null
 
13
! 
 
14
write/out Tutorial for the INVENTORY package
 
15
write/out This show creates the following files:
 
16
write/out One test frame: INVTEST.BDF
 
17
write/out Three output tables: TSTEST.TBL, TATEST.TBL, TCTEST.TBL
 
18
write/out First we copy the test frame
 
19
!
 
20
indisk/fits MID_TEST:invtest.fits invtest 
 
21
!
 
22
set/context invent
 
23
! 
 
24
write/keyw INV_INTG/I/1/12 1,0,1,1,0,0,0,7,1,1,0,0
 
25
write/keyw INV_INTG/I/13/11 0,0,0,1,0,20,3,0,0,3,32
 
26
write/keyw INV_REAL/R/1/10 1290.,130000.,22.,4.5,.05,-.05,1.,18.5,50.,5400.
 
27
write/keyw INV_REAL/R/11/10 21.11,3.0,5.0,0.26,0.33,0.39,0.43,0.46,0.36,0.24
 
28
write/keyw INV_REAL/R/21/10 0.19,0.15,0.14,0.14,0.14,0.14,0.14,0.14,0.14,0.14
 
29
write/keyw INV_REAL/R/31/10 0.14,0.14,0.14,0.14,0.14,0.14,0.14,0.14,3.0,5.0
 
30
write/keyw INV_REAL/R/41/10 2.0,4.0,4.5,0.25,0.6,0.02,0.6,1.0,0.0,2.5
 
31
write/keyw INV_REAL/R/51/10 1.2,0.0,1.39,0.0,0.0,0.0,0.0
 
32
!
 
33
create/display 0 700,880,50,55
 
34
load/lut heat
 
35
load/image invtest 0 2,2 cuts=870,1500
 
36
!
 
37
write/out 
 
38
write/out First, INVENTORY searches for objects in this frame
 
39
write/out The output table tstest.tbl will contain the results
 
40
echo/on
 
41
search/inv invtest tstest
 
42
echo/off
 
43
write/out The objects found are indicated by square small crosses
 
44
echo/on
 
45
load/table tstest :X :Y ? 5 5 1
 
46
echo/off
 
47
wait/sec 1
 
48
!
 
49
write/out
 
50
write/out Next, INVENTORY analyses the objects found:
 
51
echo/on
 
52
analyse/inv invtest tstest tatest VER
 
53
echo/off
 
54
write/out The ANALYSE command comes with somewhat less objects 
 
55
write/out the new list of objects is stored in table TATEST
 
56
echo/on
 
57
clear/channel overlay
 
58
load/table tatest :X :Y ? 5 5 1
 
59
echo/off
 
60
wait/sec 1
 
61
!
 
62
write/out
 
63
write/out Finally, the CLASSIFY command will classify the objects
 
64
echo/on
 
65
classify/inv tatest
 
66
echo/off
 
67
clear/channel overlay
 
68
write/out The objects in the squares are classified as galaxies
 
69
write/out The objects in the circles are classified as stars
 
70
echo/on
 
71
select/table tatest :CLASS.EQ.2.0
 
72
load/table tatest :X :Y ? 2 5 3
 
73
wait/sec 1
 
74
select/table tatest :CLASS.EQ.1.0
 
75
load/table  tatest :X :Y ? 1 5 5
 
76
echo/off