src/util/objview.csh

#!/bin/csh -f
# SCCSid "$SunId$ LBL"
#
# Make a nice view of an object
# Arguments are scene input files
#
set tmpdir=/usr/tmp
set octree=$tmpdir/ov$$.oct
set tmpfiles="$octree"
if ( ! $?RVIEW ) set RVIEW="rview"
onintr quit

oconv - $argv[*]:q > $octree <<_EOF_
void glow dim 0 0 4 .1 .1 .15 0
dim source background 0 0 4 0 0 1 360
void light bright 0 0 3 1000 1000 1000
bright source sun1 0 0 4 1 .2 1 5
bright source sun2 0 0 4 .3 1 1 5
bright source sun3 0 0 4 -1 -.7 1 5
_EOF_

set vp=`getinfo -d <$octree|rcalc -e '$1=$1-3.5*$4;$2=$2-3.5*$4;$3=$3+2.5*$4'`

$RVIEW -av .2 .2 .2 -vp $vp -vd 1 1 -.5 -vv 15 -vh 15 $octree

quit:
rm -f $tmpfiles
exit 0
Revision:	2.4
Committed:	Wed Jan 6 10:46:47 1993 UTC (31 years, 3 months ago) by saba
Content type:	application/x-csh
Branch:	MAIN
Changes since 2.3:	+2 -1 lines
Log Message:	added ability to get RVIEW command from environment
#	User	Rev	Content
1	greg	1.1	#!/bin/csh -f
2			# SCCSid "$SunId$ LBL"
3			#
4			# Make a nice view of an object
5	greg	2.2	# Arguments are scene input files
6	greg	1.1	#
7			set tmpdir=/usr/tmp
8			set octree=$tmpdir/ov$$.oct
9			set tmpfiles="$octree"
10	saba	2.4	if ( ! $?RVIEW ) set RVIEW="rview"
11	greg	1.1	onintr quit
12
13	greg	2.3	oconv - $argv[*]:q > $octree <<_EOF_
14	greg	2.2	void glow dim 0 0 4 .1 .1 .15 0
15			dim source background 0 0 4 0 0 1 360
16			void light bright 0 0 3 1000 1000 1000
17			bright source sun1 0 0 4 1 .2 1 5
18			bright source sun2 0 0 4 .3 1 1 5
19			bright source sun3 0 0 4 -1 -.7 1 5
20			_EOF_
21
22			set vp=`getinfo -d <$octree\|rcalc -e '$1=$1-3.5$4;$2=$2-3.5$4;$3=$3+2.5*$4'`
23
24	saba	2.4	$RVIEW -av .2 .2 .2 -vp $vp -vd 1 1 -.5 -vv 15 -vh 15 $octree
25	greg	1.1
26			quit:
27			rm -f $tmpfiles
28			exit 0