| 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;\ |
