src/util/objview.csh

#!/bin/csh -f
# RCSid: $Id: objview.csh,v 2.11 2008/11/21 01:30:17 greg Exp $
#
# Make a nice view of an object
# Arguments are scene input files
#
set tmpdir=/tmp
set octree=$tmpdir/ov$$.oct
set lights=$tmpdir/lt$$.rad
set rif=$tmpdir/ov$$.rif
set ambf=$tmpdir/af$$.amb
set tmpfiles="$octree $lights $rif $ambf"
set raddev="x11"
set up="Z"
set vw="XYZ"
set rendopts=""
set opts=""
while ($#argv > 0)
        switch ($argv[1])
        case -g*:
                set usegl
                breaksw
        case -u:
                shift argv
                set up=$argv[1]
                breaksw
        case -s:
        case -w:
                set opts=($opts $argv[1])
                breaksw
        case -b*:
                set rendopts=($rendopts -bv)
                breaksw
        case -v:
                shift argv
                set vw="$argv[1]"
                breaksw
        case -N:
                shift argv
                set opts=($opts -N $argv[1])
                set radopt
                breaksw
        case -o:
                shift argv
                set raddev="$argv[1]"
                set radopt
                breaksw
        case -V:
        case -e:
                set opts=($opts $argv[1])
                set radopt
                breaksw
        case -S:
                set opts=($opts $argv[1])
                set glradopt
                breaksw
        case -*:
                echo "Bad option: $argv[1]"
                exit 1
        default:
                break
        endsw
        shift argv
end
if ( $#argv == 0 ) then
        echo "No input files specified"
        exit 1
endif
if ( $?usegl ) then
        if ( $?radopt ) then
                echo "bad option for glrad"
                glrad
                exit 1
        endif
else
        if ( $?glradopt ) then
                echo "bad option for rad"
                rad
                exit 1
        endif
endif

onintr quit

cat > $lights <<_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_

cat > $rif <<_EOF_
scene= $argv[*]:q $lights
EXPOSURE= .5
UP= $up
view= $vw
OCTREE= $octree
oconv= -f
AMBF= $ambf
render= $rendopts
_EOF_

if ( $?usegl ) then
        glrad $opts $rif
else
        rad -o $raddev $opts $rif
endif

quit:
rm -f $tmpfiles
exit 0
Revision:	2.12
Committed:	Tue Jan 13 22:19:25 2009 UTC (15 years, 3 months ago) by greg
Content type:	application/x-csh
Branch:	MAIN
CVS Tags:	rad5R4, rad5R2, rad4R2P2, rad5R0, rad5R1, rad4R2, rad4R1, rad4R0, rad4R2P1, rad5R3, HEAD
Changes since 2.11:	+4 -2 lines
Log Message:	Added ambient file setting for rvu value sharing with -N > 1
#	User	Rev	Content
1	greg	1.1	#!/bin/csh -f
2	greg	2.12	# RCSid: $Id: objview.csh,v 2.11 2008/11/21 01:30:17 greg Exp $
3	greg	1.1	#
4			# Make a nice view of an object
5	greg	2.2	# Arguments are scene input files
6	greg	1.1	#
7	greg	2.10	set tmpdir=/tmp
8	greg	1.1	set octree=$tmpdir/ov$$.oct
9	gwlarson	2.6	set lights=$tmpdir/lt$$.rad
10			set rif=$tmpdir/ov$$.rif
11	greg	2.12	set ambf=$tmpdir/af$$.amb
12			set tmpfiles="$octree $lights $rif $ambf"
13	gwlarson	2.7	set raddev="x11"
14	gwlarson	2.6	set up="Z"
15			set vw="XYZ"
16	gwlarson	2.7	set rendopts=""
17	gwlarson	2.6	set opts=""
18			while ($#argv > 0)
19			switch ($argv[1])
20	gwlarson	2.7	case -g*:
21	gwlarson	2.6	set usegl
22			breaksw
23			case -u:
24			shift argv
25			set up=$argv[1]
26			breaksw
27			case -s:
28			case -w:
29			set opts=($opts $argv[1])
30			breaksw
31	gwlarson	2.7	case -b*:
32			set rendopts=($rendopts -bv)
33			breaksw
34	gwlarson	2.6	case -v:
35			shift argv
36	greg	2.11	set vw="$argv[1]"
37			breaksw
38			case -N:
39			shift argv
40			set opts=($opts -N $argv[1])
41			set radopt
42	gwlarson	2.6	breaksw
43			case -o:
44			shift argv
45	gwlarson	2.7	set raddev="$argv[1]"
46	gwlarson	2.6	set radopt
47			breaksw
48			case -V:
49			case -e:
50			set opts=($opts $argv[1])
51			set radopt
52			breaksw
53			case -S:
54			set opts=($opts $argv[1])
55			set glradopt
56			breaksw
57			case -*:
58			echo "Bad option: $argv[1]"
59			exit 1
60			default:
61			break
62			endsw
63			shift argv
64			end
65			if ( $#argv == 0 ) then
66			echo "No input files specified"
67			exit 1
68			endif
69			if ( $?usegl ) then
70			if ( $?radopt ) then
71			echo "bad option for glrad"
72			glrad
73			exit 1
74			endif
75			else
76			if ( $?glradopt ) then
77			echo "bad option for rad"
78			rad
79			exit 1
80			endif
81			endif
82
83	greg	1.1	onintr quit
84
85	gwlarson	2.6	cat > $lights <<_EOF_
86	greg	2.2	void glow dim 0 0 4 .1 .1 .15 0
87			dim source background 0 0 4 0 0 1 360
88			void light bright 0 0 3 1000 1000 1000
89			bright source sun1 0 0 4 1 .2 1 5
90			bright source sun2 0 0 4 .3 1 1 5
91			bright source sun3 0 0 4 -1 -.7 1 5
92			_EOF_
93
94	gwlarson	2.6	cat > $rif <<_EOF_
95			scene= $argv[*]:q $lights
96			EXPOSURE= .5
97			UP= $up
98			view= $vw
99			OCTREE= $octree
100	greg	2.9	oconv= -f
101	greg	2.12	AMBF= $ambf
102	gwlarson	2.7	render= $rendopts
103	gwlarson	2.6	_EOF_
104	greg	2.5
105	gwlarson	2.6	if ( $?usegl ) then
106			glrad $opts $rif
107			else
108	gwlarson	2.7	rad -o $raddev $opts $rif
109	gwlarson	2.6	endif
110	greg	1.1
111			quit:
112			rm -f $tmpfiles
113			exit 0