| # | 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 (old) |
| > | Changed lines (new) |