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) {} |
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 } |