1 |
< |
# SCCSid "$SunId$ LBL" |
1 |
> |
# RCSid: $Id$ |
2 |
|
# |
3 |
|
# Choose the Rad Input File to work on. |
4 |
|
# |
43 |
|
if {! [info exists radvar(RESOLUTION)]} { |
44 |
|
set radvar(RESOLUTION) 512 |
45 |
|
} |
46 |
+ |
if {! [info exists radvar(EYESEP)]} { |
47 |
+ |
set radvar(EYESEP) 1 |
48 |
+ |
} |
49 |
|
if [info exists radvar(QUALITY)] { |
50 |
|
cardval radvar(QUALITY) {High Medium Low} |
51 |
|
} else { |
94 |
|
AMB* { set radvar(AMBFILE) $vval } |
95 |
|
OPT* { set radvar(OPTFILE) $vval } |
96 |
|
EXP* { set radvar(EXPOSURE) $vval } |
97 |
+ |
EYE* { set radvar(EYESEP) $vval } |
98 |
|
RES* { set radvar(RESOLUTION) $vval } |
99 |
|
UP { set radvar(UP) $vval } |
100 |
|
IND* { set radvar(INDIRECT) $vval } |
123 |
|
} |
124 |
|
if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE |
125 |
|
EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS |
126 |
< |
RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} { |
126 |
> |
EYESEP RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} { |
127 |
|
puts $fi "$vn= $radvar($vn)" |
128 |
|
return |
129 |
|
} |