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_

if ( $status ) goto quit

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.5
Committed:	Fri Feb 9 12:56:59 1996 UTC (28 years, 2 months ago) by greg
Content type:	application/x-csh
Branch:	MAIN
Changes since 2.4:	+2 -0 lines
Log Message:	added error check for oconv
#	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	greg	2.5	if ( $status ) goto quit
23
24	greg	2.2	set vp=`getinfo -d <$octree\|rcalc -e '$1=$1-3.5$4;$2=$2-3.5$4;$3=$3+2.5*$4'`
25
26	saba	2.4	$RVIEW -av .2 .2 .2 -vp $vp -vd 1 1 -.5 -vv 15 -vh 15 $octree
27	greg	1.1
28			quit:
29			rm -f $tmpfiles
30			exit 0