← Back to branch summary

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

« back to all changes in this revision

Viewing changes to applic/proc/plottab.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/plottab.prg
 
1
! @(#)plottab.prg       19.1 (ES0-DMD) 02/25/03 13:20:16
 
2
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! MIDAS procedure plottab.prg
 
5
! to plot the red, green and blue parts of a LUT or the ITT
 
6
! K. Banse      900703, 901212, 910425, 920423
 
7
!
 
8
! execute as   @a plottab,lut LUT
 
9
! LUT - name of LUT table, in own workspace or a system LUT 
 
10
! or as   @a plottab,itt ITT
 
11
! ITT - name of ITT table, in own workspace or a system ITT 
 
12
!
 
13
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
14
! 
 
15
! -----------------------------
 
16
ENTRY ITT
 
17
! -----------------------------
 
18
! 
 
19
DEFINE/PARAM P1 log C "Enter ITT: "
 
20
! 
 
21
DEFINE/LOCAL KOKO/C/1/60 " " all
 
22
KOKO = M$SYMBOL("MID_WORK")
 
23
DEFINE/LOCAL ITTTAB/C/1/80 {KOKO}{P1}.itt
 
24
INPUTI = M$EXIST(ITTTAB)
 
25
IF INPUTI .EQ. 0 WRITE/KEYW ITTTAB MID_SYSTAB:{P1}.itt
 
26
! 
 
27
SET/GRAPH COLOUR=1 LTYPE=1 STYPE=0 LWIDTH=1
 
28
! 
 
29
PLOT/AXES 0,255 -0.1,1.1 ? ITT:{P1} Intensity
 
30
SET/GRAPH COLOUR=4
 
31
OVERPLOT/TABLE {ITTTAB} ? :ITT 0
 
32
! 
 
33
! -----------------------------
 
34
ENTRY LUT
 
35
! -----------------------------
 
36
! 
 
37
DEFINE/PARAM P1 heat C "Enter LUT: "
 
38
! 
 
39
DEFINE/LOCAL KOKO/C/1/60 " " all
 
40
KOKO = M$SYMBOL("MID_WORK")
 
41
DEFINE/LOCAL LUTTAB/C/1/80 {KOKO}{P1}.lut
 
42
INPUTI = M$EXIST(LUTTAB)
 
43
IF INPUTI .EQ. 0 WRITE/KEYW LUTTAB MID_SYSTAB:{P1}.lut
 
44
! 
 
45
SET/GRAPH COLOUR=1 LTYPE=1 STYPE=0 LWIDTH=1
 
46
! 
 
47
PLOT/AXES 0,255 -0.1,1.1 ? LUT:{P1} Intensity
 
48
IF IDIDEV(18) .EQ. 11 THEN
 
49
   SET/GRAPH COLOUR=2
 
50
   OVERPLOT/TABLE {LUTTAB} ? :RED 0
 
51
   SET/GRAPH COLOUR=3
 
52
   OVERPLOT/TABLE {LUTTAB} ? :GREEN 0
 
53
   SET/GRAPH COLOUR=4
 
54
   OVERPLOT/TABLE {LUTTAB} ? :BLUE 0
 
55
ELSE
 
56
   OVERPLOT/TABLE {LUTTAB} ? :RED 5
 
57
   OVERPLOT/TABLE {LUTTAB} ? :GREEN 2
 
58
   OVERPLOT/TABLE {LUTTAB} ? :BLUE 3
 
59
ENDIF