5 |
|
|
6 |
|
proc preen {} { # clean up radvar |
7 |
|
global radvar rifname |
8 |
< |
foreach n {objects scene materials illum mkillum render oconv pfilt |
9 |
< |
RAWFILE ZFILE AMBFILE OPTFILE EXPOSURE ZONE REPORT} { |
8 |
> |
foreach n {objects scene materials illum mkillum mkpmap render oconv rvu rpict pfilt |
9 |
> |
RAWFILE ZFILE AMBFILE PGMAP PCMAP OPTFILE EXPOSURE ZONE REPORT} { |
10 |
|
if {! [info exists radvar($n)]} { |
11 |
|
set radvar($n) {} |
12 |
|
} |
83 |
|
mat* { eval lappend radvar(materials) $vval } |
84 |
|
ill* { eval lappend radvar(illum) $vval } |
85 |
|
mki* { eval lappend radvar(mkillum) $vval } |
86 |
+ |
mkp* { eval lappend radvar(mkpmap) $vval } |
87 |
|
ren* { eval lappend radvar(render) $vval } |
88 |
|
oco* { eval lappend radvar(oconv) $vval } |
89 |
+ |
rvu { eval lappend radvar(rvu) $vval } |
90 |
+ |
rpi* { eval lappend radvar(rpict) $vval } |
91 |
|
pf* { eval lappend radvar(pfilt) $vval } |
92 |
|
vi* { lappend radvar(view) $vval } |
93 |
|
ZO* { set radvar(ZONE) $vval } |
107 |
|
REP* { set radvar(REPORT) $vval } |
108 |
|
RAW* { set radvar(RAWFILE) $vval } |
109 |
|
ZF* {set radvar(ZFILE) $vval } |
110 |
+ |
PGM* {set radvar(PGMAP) $vval } |
111 |
+ |
PCM* {set radvar(PCMAP) $vval } |
112 |
|
} |
113 |
|
|
114 |
|
} |
158 |
|
if {"$vl" == "all" && ! [chksave]} {return 0} |
159 |
|
set curmess {Please wait...} |
160 |
|
update |
161 |
< |
if [catch {exec rad -n -w -e $f >& /usr/tmp/ro[pid]}] { |
162 |
< |
set curmess [exec cat /usr/tmp/ro[pid]] |
163 |
< |
exec rm -f /usr/tmp/ro[pid] |
161 |
> |
if [catch {exec rad -n -w -e $f >& /tmp/ro[pid]}] { |
162 |
> |
set curmess [exec cat /tmp/ro[pid]] |
163 |
> |
exec rm -f /tmp/ro[pid] |
164 |
|
return 0 |
165 |
|
} |
166 |
< |
set fi [open /usr/tmp/ro[pid] r] |
166 |
> |
set fi [open /tmp/ro[pid] r] |
167 |
|
if {"$vl" == "all"} { |
168 |
|
catch {unset radvar} |
169 |
|
while {[gets $fi curli] != -1} { |
196 |
|
} |
197 |
|
set alldone [eof $fi] |
198 |
|
close $fi |
199 |
< |
exec rm -f /usr/tmp/ro[pid] |
199 |
> |
exec rm -f /tmp/ro[pid] |
200 |
|
preen |
201 |
|
return 1 |
202 |
|
} |