8 |
|
proc preen {} { # clean up radvar |
9 |
|
global radvar rifname |
10 |
|
foreach n {objects scene materials illum mkillum render oconv pfilt |
11 |
< |
AMBFILE OPTFILE EXPOSURE ZONE REPORT} { |
11 |
> |
RAWFILE ZFILE AMBFILE OPTFILE EXPOSURE ZONE REPORT} { |
12 |
|
if {! [info exists radvar($n)]} { |
13 |
|
set radvar($n) {} |
14 |
|
} |
66 |
|
} else { |
67 |
|
set radvar(PENUMBRAS) False |
68 |
|
} |
69 |
– |
if [info exists radvar(RAWSAVE)] { |
70 |
– |
cardval radvar(RAWSAVE) {True False} |
71 |
– |
} else { |
72 |
– |
set radvar(RAWSAVE) False |
73 |
– |
} |
69 |
|
if [info exists radvar(VARIABILITY)] { |
70 |
|
cardval radvar(VARIABILITY) {High Medium Low} |
71 |
|
} else { |
98 |
|
IND* { set radvar(INDIRECT) $vval } |
99 |
|
DET* { set radvar(DETAIL) $vval } |
100 |
|
PEN* { set radvar(PENUMBRAS) $vval } |
106 |
– |
RAW* { set radvar(RAWSAVE) $vval } |
101 |
|
VAR* { set radvar(VARIABILITY) $vval } |
102 |
|
REP* { set radvar(REPORT) $vval } |
103 |
+ |
RAW* { set radvar(RAWFILE) $vval } |
104 |
+ |
ZF* {set radvar(ZFILE) $vval } |
105 |
|
} |
106 |
|
|
107 |
|
} |
121 |
|
} |
122 |
|
if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE |
123 |
|
EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS |
124 |
< |
RAWSAVE VARIABILITY REPORT} $vn] >= 0} { |
124 |
> |
RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} { |
125 |
|
puts $fi "$vn= $radvar($vn)" |
126 |
|
return |
127 |
|
} |