ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/objline.csh
Revision: 2.5
Committed: Mon Aug 25 04:50:32 2008 UTC (15 years, 7 months ago) by greg
Content type: application/x-csh
Branch: MAIN
Changes since 2.4: +2 -3 lines
Log Message:
Made temporary files safe from malicious attackers

File Contents

# User Rev Content
1 greg 2.1 #!/bin/csh -f
2 greg 2.5 # RCSid: $Id: objline.csh,v 2.4 2005/02/16 05:40:12 greg Exp $
3 greg 2.1 # Create four standard views of scene and present as line drawings
4     #
5     set oblqxf="-rz 45 -ry 45"
6     onintr quit
7 greg 2.5 set d=`mktemp -d /tmp/ol.XXXXXX`
8 greg 2.1 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 greg 2.2 echo i $f:r.orig.mgf $oblqxf > $d/$f:r.oblq.mgf
16 greg 2.1 set oblqf=($oblqf $f:r.oblq.mgf)
17     end
18     else
19     set origf=stdin.orig.mgf
20     set oblqf=stdin.oblq.mgf
21     xform -e > $d/stdin.orig
22     rad2mgf $d/stdin.orig > $d/stdin.orig.mgf
23 greg 2.2 echo i stdin.orig.mgf $oblqxf > $d/stdin.oblq.mgf
24 greg 2.1 endif
25     cd $d
26     set rce='xm=($1+$2)/2;ym=($3+$4)/2;zm=($5+$6)/2;\
27     max(a,b):if(a-b,a,b);r=max(max($2-$1,$4-$3),$6-$5)*.52;\
28     $1=xm-r;$2=xm+r;$3=ym-r;$4=ym+r;$5=zm-r;$6=zm+r'
29     set origdim=`getbbox -h *.orig | rcalc -e $rce:q`
30     set oblqdim=`xform $oblqxf *.orig | getbbox -h | rcalc -e $rce:q`
31     mgf2meta -t .005 x $origdim $origf > x.mta
32     mgf2meta -t .005 y $origdim $origf > y.mta
33     mgf2meta -t .005 z $origdim $origf > z.mta
34     mgf2meta -t .005 x $oblqdim $oblqf > o.mta
35     plot4 {x,y,z,o}.mta
36     quit:
37     cd
38     exec rm -rf $d