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