20 |
|
breaksw |
21 |
|
case -D: |
22 |
|
shift argv |
23 |
+ |
if (! -d $argv[1]:q ) then |
24 |
+ |
echo "Directory $argv[1] does not exist" |
25 |
+ |
exit 1 |
26 |
+ |
endif |
27 |
|
set outdir=$argv[1]:q/ |
28 |
|
breaksw |
29 |
|
case -h*: |
65 |
|
exit 1 |
66 |
|
endif |
67 |
|
# Get shrunken image luminances |
68 |
< |
set vald=/tmp/val$$ |
65 |
< |
mkdir $vald |
68 |
> |
set vald=`mktemp -d /tmp/val.XXXXXX` |
69 |
|
foreach inp ($argv:q) |
70 |
|
set datf="$inp:t" |
71 |
|
set datf="$vald/$datf:r.dat" |
107 |
|
| ra_tiff $tfopts - $outp:q |
108 |
|
mv $vald/{,old}histo.dat |
109 |
|
end |
110 |
< |
if ($?histof) cp -f $vald/oldhisto.dat $histof |
110 |
> |
if ($?histof) then |
111 |
> |
cp -f $vald/oldhisto.dat $histof |
112 |
> |
endif |
113 |
|
rm -rf $vald |