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.19 by greg, Sun Jun 3 20:32:49 2012 UTC vs.
Revision 2.22 by greg, Sat Aug 26 16:07:22 2017 UTC

# Line 5 | Line 5
5  
6   proc preen {} {                 # clean up radvar
7          global radvar rifname
8 <        foreach n {objects scene materials illum mkillum render oconv rvu rpict pfilt
9 <                        RAWFILE ZFILE AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
8 >        foreach n {objects scene materials illum mkillum mkpmap render oconv rvu rpict pfilt
9 >                        RAWFILE ZFILE AMBFILE PGMAP PCMAP OPTFILE EXPOSURE ZONE REPORT} {
10                  if {! [info exists radvar($n)]} {
11                          set radvar($n) {}
12                  }
# Line 83 | Line 83 | proc setradvar stmt {          # assign a rad variable
83                  mat* { eval lappend radvar(materials) $vval }
84                  ill* { eval lappend radvar(illum) $vval }
85                  mki* { eval lappend radvar(mkillum) $vval }
86 +                mkp* { eval lappend radvar(mkpmap) $vval }
87                  ren* { eval lappend radvar(render) $vval }
88                  oco* { eval lappend radvar(oconv) $vval }
89                  rvu { eval lappend radvar(rvu) $vval }
# Line 106 | Line 107 | proc setradvar stmt {          # assign a rad variable
107                  REP* { set radvar(REPORT) $vval }
108                  RAW* { set radvar(RAWFILE) $vval }
109                  ZF* {set radvar(ZFILE) $vval }
110 +                PGM* {set radvar(PGMAP) $vval }
111 +                PCM* {set radvar(PCMAP) $vval }
112          }
113                  
114   }
# Line 121 | Line 124 | proc putradvar {fi vn} {       # print out a rad variable
124                  foreach v $radvar(view) {
125                          puts $fi "view= $v"
126                  }
124 –                return
125 –        }
126 –        if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE
127 –                        EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS
128 –                        EYESEP RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} {
129 –                puts $fi "$vn= $radvar($vn)"
127                  return
128          }
129          puts -nonewline $fi "$vn="

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines