1 |
< |
# SCCSid "$SunId$ LBL" |
1 |
> |
# RCSid: $Id$ |
2 |
|
# |
3 |
|
# Choose the Rad Input File to work on. |
4 |
|
# |
5 |
|
|
6 |
|
proc preen {} { # clean up radvar |
7 |
|
global radvar rifname |
8 |
< |
foreach n {objects scene materials illum mkillum render oconv pfilt |
8 |
> |
foreach n {objects scene materials illum mkillum render oconv rvu rpict pfilt |
9 |
|
RAWFILE ZFILE AMBFILE OPTFILE EXPOSURE ZONE REPORT} { |
10 |
|
if {! [info exists radvar($n)]} { |
11 |
|
set radvar($n) {} |
43 |
|
if {! [info exists radvar(RESOLUTION)]} { |
44 |
|
set radvar(RESOLUTION) 512 |
45 |
|
} |
46 |
+ |
if {! [info exists radvar(EYESEP)]} { |
47 |
+ |
set radvar(EYESEP) 1 |
48 |
+ |
} |
49 |
|
if [info exists radvar(QUALITY)] { |
50 |
|
cardval radvar(QUALITY) {High Medium Low} |
51 |
|
} else { |
85 |
|
mki* { eval lappend radvar(mkillum) $vval } |
86 |
|
ren* { eval lappend radvar(render) $vval } |
87 |
|
oco* { eval lappend radvar(oconv) $vval } |
88 |
+ |
rvu { eval lappend radvar(rvu) $vval } |
89 |
+ |
rpi* { eval lappend radvar(rpict) $vval } |
90 |
|
pf* { eval lappend radvar(pfilt) $vval } |
91 |
|
vi* { lappend radvar(view) $vval } |
92 |
|
ZO* { set radvar(ZONE) $vval } |
96 |
|
AMB* { set radvar(AMBFILE) $vval } |
97 |
|
OPT* { set radvar(OPTFILE) $vval } |
98 |
|
EXP* { set radvar(EXPOSURE) $vval } |
99 |
+ |
EYE* { set radvar(EYESEP) $vval } |
100 |
|
RES* { set radvar(RESOLUTION) $vval } |
101 |
|
UP { set radvar(UP) $vval } |
102 |
|
IND* { set radvar(INDIRECT) $vval } |
125 |
|
} |
126 |
|
if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE |
127 |
|
EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS |
128 |
< |
RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} { |
128 |
> |
EYESEP RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} { |
129 |
|
puts $fi "$vn= $radvar($vn)" |
130 |
|
return |
131 |
|
} |
155 |
|
if {"$vl" == "all" && ! [chksave]} {return 0} |
156 |
|
set curmess {Please wait...} |
157 |
|
update |
158 |
< |
if [catch {exec rad -n -w -e $f >& /usr/tmp/ro[pid]}] { |
159 |
< |
set curmess [exec cat /usr/tmp/ro[pid]] |
160 |
< |
exec rm -f /usr/tmp/ro[pid] |
158 |
> |
if [catch {exec rad -n -w -e $f >& /tmp/ro[pid]}] { |
159 |
> |
set curmess [exec cat /tmp/ro[pid]] |
160 |
> |
exec rm -f /tmp/ro[pid] |
161 |
|
return 0 |
162 |
|
} |
163 |
< |
set fi [open /usr/tmp/ro[pid] r] |
163 |
> |
set fi [open /tmp/ro[pid] r] |
164 |
|
if {"$vl" == "all"} { |
165 |
|
catch {unset radvar} |
166 |
|
while {[gets $fi curli] != -1} { |
193 |
|
} |
194 |
|
set alldone [eof $fi] |
195 |
|
close $fi |
196 |
< |
exec rm -f /usr/tmp/ro[pid] |
196 |
> |
exec rm -f /tmp/ro[pid] |
197 |
|
preen |
198 |
|
return 1 |
199 |
|
} |