13 |
|
xform -e $f > $d/$f.orig |
14 |
|
rad2mgf $d/$f.orig > $d/$f:r.orig.mgf |
15 |
|
set origf=($origf $f:r.orig.mgf) |
16 |
< |
(echo xf $oblqxf; cat $d/$f:r.orig.mgf; echo xf) \ |
17 |
< |
> $d/$f:r.oblq.mgf |
16 |
> |
echo i $f:r.orig.mgf $oblqxf > $d/$f:r.oblq.mgf |
17 |
|
set oblqf=($oblqf $f:r.oblq.mgf) |
18 |
|
end |
19 |
|
else |
21 |
|
set oblqf=stdin.oblq.mgf |
22 |
|
xform -e > $d/stdin.orig |
23 |
|
rad2mgf $d/stdin.orig > $d/stdin.orig.mgf |
24 |
< |
(echo xf $oblqxf; cat $d/stdin.orig.mgf; echo xf) \ |
26 |
< |
> $d/stdin.oblq.mgf |
24 |
> |
echo i stdin.orig.mgf $oblqxf > $d/stdin.oblq.mgf |
25 |
|
endif |
26 |
|
cd $d |
27 |
|
set rce='xm=($1+$2)/2;ym=($3+$4)/2;zm=($5+$6)/2;\ |