| 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) } } |
