← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to prim/proc/tutsplit.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/tutsplit.prg
 
1
! @(#)tutsplit.prg      19.1 (ESO-DMD) 02/25/03 14:09:12
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! procedure tutsplit.prg  to implement TUTORIAL/SPLIT
 
5
! K. Banse      910322, 911011, 920428, 980525, 990804
 
6
!
 
7
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
8
!
 
9
DEFINE/param P1 0 ?     "0: Local data/Auto" 
 
10
DEFINE/LOCAL OPTION/I/1/1 0
 
11
 
 
12
IF P1(1:4) .NE. "AUTO" THEN
 
13
   IF P1 .EQ. "+" P1 = "0"
 
14
   WRITE/KEYW OPTION/I/1/1 {P1}
 
15
ENDIF 
 
16
! 
 
17
! in X windows
 
18
! we have no split screen, but can create different display windows
 
19
! 
 
20
DEFINE/LOCAL COPFLA/I/1/1 {OPTION}
 
21
! 
 
22
WRITE/OUT "There is no inherent split screen capability on this workstation."
 
23
WRITE/OUT "But we can create and use different display windows."
 
24
WRITE/OUT "We'll show you how..."
 
25
! 
 
26
WRITE/OUT "We assume that the" "default display window is already"-
 
27
 " there ... !"
 
28
WRITE/OUT "Let's load a nice Lookup Table"
 
29
LOAD/LUT rainbow
 
30
DISPLAY/LUT
 
31
! 
 
32
WRITE/OUT "Now let's create more display windows and load images into them"
 
33
!
 
34
ECHO/ON
 
35
IF COPFLA .EQ. 0 then
 
36
   indisk/fits MID_TEST:spiral.fits middumma.bdf >Null
 
37
   indisk/fits MID_TEST:ccd.fits middummb.bdf >Null
 
38
   indisk/fits MID_TEST:sombrero.fits middummc.bdf >Null
 
39
endif
 
40
create/display 1 400,400,0,450 1,400,400 0
 
41
ECHO/OFF
 
42
WRITE/OUT "This command created a display with a single channel and no overlay"
 
43
WRITE/OUT "Now load the copied image file"
 
44
LOAD/image &a scale=1
 
45
! 
 
46
ECHO/ON
 
47
create/display 2 340,520,760,280 2,340,520 1
 
48
ECHO/OFF
 
49
WRITE/OUT "Since the CCD images have dimension 337*520 we create the display"
 
50
WRITE/OUT "accordingly. We also use an overlay channel."
 
51
WRITE/OUT "Display 2 is now the active display and all commands refer to it"
 
52
WRITE/OUT LOAD/image &b
 
53
LOAD/image &b scale=1
 
54
!
 
55
WRITE/OUT "Let's pick up some cursor values."
 
56
WRITE/OUT "Since the pixel size is so tiny, we'll use a zoomed cursor window"
 
57
WRITE/OUT create/zoom_window 2 400,400,360,440
 
58
create/zoom_window 2 400,400,360,440
 
59
WRITE/OUT get/cursor ? ? ? ? w,4 
 
60
get/cursor ? ? ? ? w,4 
 
61
! 
 
62
WRITE/OUT "Now let's return to the default display, display 0 "
 
63
WRITE/OUT "We use   assign/display   to make display 0 the active one"
 
64
ECHO/ON
 
65
assign/display d,0
 
66
load/image &c scale=1
 
67
ECHO/OFF
 
68
display/lut
 
69
!
 
70
IF P1(1:4) .EQ. "AUTO" THEN
 
71
  -DELETE middumma.bdf
 
72
  -DELETE middummb.bdf
 
73
  -DELETE middummc.bdf
 
74
ENDIF
 
75
WRITE/OUT "To get rid of all the windows, use  reset/display  "
 
76
WRITE/OUT End of TUTORIAL/SPLIT...