# | Line 100 | Line 100 | proc setradvar stmt { # assign a rad variable | |
---|---|---|
100 | PEN* { set radvar(PENUMBRAS) $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 | } | |
# | Line 119 | Line 121 | proc putradvar {fi vn} { # print out a rad variable | |
121 | } | |
122 | if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE | |
123 | EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS | |
124 | < | VARIABILITY REPORT} $vn] >= 0} { |
124 | > | RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} { |
125 | puts $fi "$vn= $radvar($vn)" | |
126 | return | |
127 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |