--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/orig/objpict.csh Sat Apr 09 17:55:16 2011 +0100
@@ -0,0 +1,76 @@
+#!/bin/csh -f
+# RCSid: $Id: objpict.csh,v 2.7 2009/07/22 17:48:07 greg Exp $
+#
+# Make a nice multi-view picture of an object
+# Command line arguments contain materials and object files
+#
+set tmpdir=/tmp/objv$$
+mkdir $tmpdir
+set xres=1024
+set yres=1024
+set rpict="rpict -av .2 .2 .2 -x $xres -y $yres"
+set inprad=op$$.rad
+set testroom=$tmpdir/testroom.rad
+set octree=$tmpdir/op.oct
+onintr quit
+if ( $#argv ) then
+ cat $* > $inprad
+else
+ cat > $inprad
+endif
+cat > $testroom << '_EOF_'
+void plastic wall_mat 0 0 5 .681 .543 .686 0 .2
+void light bright 0 0 3 3000 3000 3000
+bright sphere lamp0 0 0 4 4 4 -4 .1
+bright sphere lamp1 0 0 4 4 0 4 .1
+bright sphere lamp2 0 0 4 0 4 4 .1
+wall_mat polygon box.1540 0 0 12
+ 5 -5 -5
+ 5 -5 5
+ -5 -5 5
+ -5 -5 -5
+wall_mat polygon box.4620 0 0 12
+ -5 -5 5
+ -5 5 5
+ -5 5 -5
+ -5 -5 -5
+wall_mat polygon box.2310 0 0 12
+ -5 5 -5
+ 5 5 -5
+ 5 -5 -5
+ -5 -5 -5
+wall_mat polygon box.3267 0 0 12
+ 5 5 -5
+ -5 5 -5
+ -5 5 5
+ 5 5 5
+wall_mat polygon box.5137 0 0 12
+ 5 -5 5
+ 5 -5 -5
+ 5 5 -5
+ 5 5 5
+wall_mat polygon box.6457 0 0 12
+ -5 5 5
+ -5 -5 5
+ 5 -5 5
+ 5 5 5
+'_EOF_'
+set dims=`getbbox -h $inprad`
+set siz=`rcalc -n -e 'max(a,b):if(a-b,a,b);$1='"max($dims[2]-$dims[1],max($dims[4]-$dims[3],$dims[6]-$dims[5]))"`
+set vw1="-vtl -vp 2 .5 .5 -vd -1 0 0 -vh 1 -vv 1"
+set vw2="-vtl -vp .5 2 .5 -vd 0 -1 0 -vh 1 -vv 1"
+set vw3="-vtl -vp .5 .5 2 -vd 0 0 -1 -vu -1 0 0 -vh 1 -vv 1"
+set vw4="-vp 3 3 3 -vd -1 -1 -1 -vh 20 -vv 20"
+
+xform -t `ev "-($dims[1]+$dims[2])/2" "-($dims[3]+$dims[4])/2" "-($dims[5]+$dims[6])/2"` \
+ -s `ev 1/$siz` -t .5 .5 .5 $inprad \
+ | oconv $testroom - > $octree
+pcompos "\!$rpict $vw3 $octree" 0 $yres \
+ "\!$rpict $vw4 $octree" $xres $yres \
+ "\!$rpict $vw1 $octree" 0 0 \
+ "\!$rpict $vw2 $octree" $xres 0 \
+ | pfilt -1 -r .6 -x /2 -y /2
+
+quit:
+rm -r $tmpdir $inprad
+exit 0