← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/asciilut.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/asciilut.prg
 
1
! @(#)asciilut.prg      19.1 (ESO-DMD) 02/25/03 14:08:43
 
2
! ++++++++++++++
 
3
!  
 
4
!  MIDAS procedure  asciilut.prg
 
5
!  to convert all ascii LUT files into MIDAS tables
 
6
!  K. Banse     ESO - Garching    910307, 920318, 940113, 980928
 
7
! 
 
8
! ++++++++++++++
 
9
! 
 
10
! handle in VMS or UNIX
 
11
! 
 
12
write/out "Copying all ascii LUTs to current MIDAS default directory ..."
 
13
! 
 
14
if aux_mode(1) .le. 1 then              ! VMS
 
15
   $ DELETE/NOCONF *.lasc.*,lut.lis.*
 
16
   $ COPY {ascdir}*.lasc {defdir}
 
17
else                                    ! UNIX
 
18
   $ touch lut.lis
 
19
   $ rm -f *.lasc  lut.lis
 
20
   $ cp {ascdir}*.lasc {defdir}
 
21
endif
 
22
! 
 
23
@ asclut aips0
 
24
@ asclut backgr
 
25
@ asclut blue
 
26
@ asclut blulut
 
27
@ asclut color
 
28
@ asclut green
 
29
@ asclut heat
 
30
@ asclut idl11 
 
31
@ asclut idl12 
 
32
@ asclut idl14 
 
33
@ asclut idl15 
 
34
@ asclut idl2 
 
35
@ asclut idl4 
 
36
@ asclut idl5 
 
37
@ asclut idl6 
 
38
@ asclut isophot 
 
39
@ asclut light 
 
40
@ asclut manycol 
 
41
@ asclut pastel 
 
42
@ asclut rainbow 
 
43
@ asclut rainbow1 
 
44
@ asclut rainbow2 
 
45
@ asclut rainbow3 
 
46
@ asclut rainbow4 
 
47
@ asclut ramp 
 
48
@ asclut rampred 
 
49
@ asclut random 
 
50
@ asclut random1 
 
51
@ asclut random2 
 
52
@ asclut random3 
 
53
@ asclut random4 
 
54
@ asclut random5 
 
55
@ asclut random6 
 
56
@ asclut real 
 
57
@ asclut red 
 
58
@ asclut smooth 
 
59
@ asclut smooth1 
 
60
@ asclut smooth2 
 
61
@ asclut smooth3 
 
62
@ asclut staircase 
 
63
@ asclut stairs8 
 
64
@ asclut stairs9 
 
65
@ asclut standard 
 
66
! 
 
67
write/out Copying all binary LUTs to relevant MIDAS directory ...
 
68
! 
 
69
if aux_mode(1) .le. 1 then              ! VMS
 
70
   $ SET PROT=W:RWE *.lut
 
71
   $ COPY *.lut {bindir}
 
72
   $ DELETE/NOCONF *.lasc.*,*.lut.*,lut.lis.*
 
73
else                                    ! UNIX
 
74
   $ chmod 666 *.lut *.lasc
 
75
   $ mv *.lut {bindir}.
 
76
   $ rm -f *.lasc lut.lis
 
77
endif