17 |
|
set tim="$argv[1]" |
18 |
|
breaksw |
19 |
|
default: |
20 |
< |
echo bad option "'$argv[1]'" >/dev/tty |
20 |
> |
echo bad option "'$argv[1]'" |
21 |
|
exit 1 |
22 |
|
endsw |
23 |
|
shift argv |
24 |
|
end |
25 |
< |
set tc=/usr/tmp/vl$$.cal |
26 |
< |
set tp1=/usr/tmp/vl$$r1.pic |
27 |
< |
set tp2=/usr/tmp/vl$$r2.pic |
28 |
< |
set tp4=/usr/tmp/vl$$r4.pic |
29 |
< |
set tp8=/usr/tmp/vl$$r8.pic |
25 |
> |
set tc=`mktemp /tmp/vlcal.XXXXXXX` |
26 |
> |
set tp1=`mktemp /tmp/vlpic.XXXXXX` |
27 |
> |
set tp2=`mktemp /tmp/vlr2pic.XXXXXX` |
28 |
> |
set tp4=`mktemp /tmp/vlr4pic.XXXXXX` |
29 |
> |
set tp8=`mktemp /tmp/vlr8pic.XXXXXX` |
30 |
|
set tf=($tc $tp1 $tp2 $tp4 $tp8) |
31 |
|
set inpic=$argv[1] |
32 |
|
onintr quit |
33 |
< |
set pr=(`getinfo -d < $inpic | sed 's/^-Y \([1-9][0-9]*\) +X \([1-9][0-9]*\)$/\2 \1/'`) |
33 |
> |
set pr=`getinfo -d < $inpic` |
34 |
> |
set pr=($pr[4] $pr[2]) |
35 |
|
# ( vwright V < $inpic ; cat ) > $tc << _EOF_ |
36 |
|
cat > $tc << _EOF_ |
37 |
|
{ A : 3438 * sqrt(Vhn/xmax*Vvn/ymax); { pixel size (in minutes) } } |