19 |
|
set n 1 |
20 |
|
foreach v $oldval { |
21 |
|
if {"[string index $v 0]" == "-"} { |
22 |
< |
lappend radvar(view) "$n $v" |
22 |
> |
lappend radvar(view) "u$n $v" |
23 |
|
} elseif {[lsearch -glob $radvar(view) \ |
24 |
|
"[lindex $v 0] *"] >= 0} { |
25 |
|
continue |
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 |
+ |
} |
74 |
|
if [info exists radvar(VARIABILITY)] { |
75 |
|
cardval radvar(VARIABILITY) {High Medium Low} |
76 |
|
} else { |
103 |
|
IND* { set radvar(INDIRECT) $vval } |
104 |
|
DET* { set radvar(DETAIL) $vval } |
105 |
|
PEN* { set radvar(PENUMBRAS) $vval } |
106 |
+ |
RAW* { set radvar(RAWSAVE) $vval } |
107 |
|
VAR* { set radvar(VARIABILITY) $vval } |
108 |
|
REP* { set radvar(REPORT) $vval } |
109 |
|
} |
125 |
|
} |
126 |
|
if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE |
127 |
|
EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS |
128 |
< |
VARIABILITY REPORT} $vn] >= 0} { |
128 |
> |
RAWSAVE VARIABILITY REPORT} $vn] >= 0} { |
129 |
|
puts $fi "$vn= $radvar($vn)" |
130 |
|
return |
131 |
|
} |
173 |
|
set curmess {Project loaded.} |
174 |
|
} else { |
175 |
|
foreach n $vl { |
176 |
< |
set radvar($n) {} |
176 |
> |
catch {unset radvar($n)} |
177 |
|
} |
178 |
|
while {[gets $fi curli] != -1} { |
179 |
|
if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] { |
248 |
|
return 0 |
249 |
|
} |
250 |
|
} |
251 |
< |
if {! [file writable $f] && [catch {exec chmod u+w $f} curmess]} { |
251 |
> |
if {[file exists $f] && ! [file writable $f] && |
252 |
> |
[catch {exec chmod u+w $f} curmess]} { |
253 |
|
beep |
254 |
|
return 0 |
255 |
|
} |