ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/do_file.tcl
(Generate patch)

Comparing ray/src/util/do_file.tcl (file contents):
Revision 2.9 by greg, Thu Jul 6 12:15:54 1995 UTC vs.
Revision 2.10 by greg, Mon Aug 28 10:12:38 1995 UTC

# Line 66 | Line 66 | proc preen {} {                        # clean up radvar
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        }
69          if [info exists radvar(VARIABILITY)] {
70                  cardval radvar(VARIABILITY) {High Medium Low}
71          } else {
# Line 103 | Line 98 | proc setradvar stmt {          # assign a rad variable
98                  IND* { set radvar(INDIRECT) $vval }
99                  DET* { set radvar(DETAIL) $vval }
100                  PEN* { set radvar(PENUMBRAS) $vval }
106                RAW* { set radvar(RAWSAVE) $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 125 | 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 <                        RAWSAVE VARIABILITY REPORT} $vn] >= 0} {
124 >                        RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} {
125                  puts $fi "$vn= $radvar($vn)"
126                  return
127          }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines