| 1 |
|
#!/bin/csh -f |
| 2 |
< |
# SCCSid "$SunId$ LBL" |
| 2 |
> |
# RCSid: $Id$ |
| 3 |
|
# Create four standard views of scene and present as line drawings |
| 4 |
|
# |
| 5 |
|
set oblqxf="-rz 45 -ry 45" |
| 6 |
– |
set d=/usr/tmp/ol$$ |
| 6 |
|
onintr quit |
| 7 |
< |
mkdir $d |
| 7 |
> |
set d=`mktemp -d /tmp/ol.XXXXXX` |
| 8 |
|
if ($#argv) then |
| 9 |
|
set origf="" |
| 10 |
|
set oblqf="" |
| 11 |
|
foreach f ($argv) |
| 12 |
< |
xform -e $f > $d/$f.orig |
| 13 |
< |
rad2mgf $d/$f.orig > $d/$f:r.orig.mgf |
| 14 |
< |
set origf=($origf $f:r.orig.mgf) |
| 15 |
< |
(echo xf $oblqxf; cat $d/$f:r.orig.mgf; echo xf) \ |
| 16 |
< |
> $d/$f:r.oblq.mgf |
| 17 |
< |
set oblqf=($oblqf $f:r.oblq.mgf) |
| 12 |
> |
set fn="$f:t" |
| 13 |
> |
set fn="$fn:r" |
| 14 |
> |
xform $f:q > $d/$fn:q.orig |
| 15 |
> |
rad2mgf $d/$fn:q.orig > $d/$fn:q.orig.mgf |
| 16 |
> |
set origf=($origf:q $fn:q.orig.mgf) |
| 17 |
> |
echo i $fn:q.orig.mgf $oblqxf > $d/$fn:q.oblq.mgf |
| 18 |
> |
set oblqf=($oblqf:q $fn:q.oblq.mgf) |
| 19 |
|
end |
| 20 |
|
else |
| 21 |
|
set origf=stdin.orig.mgf |
| 22 |
|
set oblqf=stdin.oblq.mgf |
| 23 |
< |
xform -e > $d/stdin.orig |
| 23 |
> |
xform > $d/stdin.orig |
| 24 |
|
rad2mgf $d/stdin.orig > $d/stdin.orig.mgf |
| 25 |
< |
(echo xf $oblqxf; cat $d/stdin.orig.mgf; echo xf) \ |
| 26 |
< |
> $d/stdin.oblq.mgf |
| 25 |
> |
echo i stdin.orig.mgf $oblqxf > $d/stdin.oblq.mgf |
| 26 |
|
endif |
| 27 |
|
cd $d |
| 28 |
|
set rce='xm=($1+$2)/2;ym=($3+$4)/2;zm=($5+$6)/2;\ |
