blob: f7df1cefef581cb85e5ad0bebe38209cb742edc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#!/bin/tcsh
if( ! $?STARLINK ) then
setenv STARLINK /star
endif
if( ! $?AST ) then
setenv AST $STARLINK
endif
if( ! $?LDFLAGS ) then
setenv LDFLAGS ""
endif
setenv PATH $AST/bin\:$STARLINK/bin\:$PATH
gfortran -fno-second-underscore -o plotter plotter.f -fno-range-check $LDFLAGS -I$AST/include -I$STARLINK/include -L$AST/lib -L$STARLINK/lib `ast_link -pgp -ems` `pgplot_link`
set bn = $1
set n = "${bn}.head"
set atfile = "${bn}.attr"
if( -e $atfile ) then
set attr1 = `cat $atfile`
else
set attr1 = ' '
endif
set atfile = "${bn}.fattr"
if( -e $atfile ) then
set attr2 = `cat $atfile`
else
set attr2 = ' '
endif
set boxfile = "${bn}.box"
if( -e $boxfile ) then
set box = `cat $boxfile`
else
set box = ' '
endif
plotter $n "$attr1" "$attr2" a.ps $box
if( -e $STARLINK/bin/psmerge ) then
$STARLINK/bin/psmerge -t300x300 -r90 a.ps > b.ps
else
cp a.ps b.ps
endif
gv b.ps -orientation=landscape
|
