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.5 by greg, Thu Dec 8 17:16:38 1994 UTC vs.
Revision 2.13 by greg, Fri May 17 13:53:07 1996 UTC

# Line 3 | Line 3
3   # Choose the Rad Input File to work on.
4   #
5  
6 set rif_glob *.rif
7
6   proc preen {} {                 # clean up radvar
7          global radvar rifname
8          foreach n {objects scene materials illum mkillum render oconv pfilt
9 <                        AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
9 >                        RAWFILE ZFILE AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
10                  if {! [info exists radvar($n)]} {
11                          set radvar($n) {}
12                  }
# Line 19 | Line 17 | proc preen {} {                        # clean up radvar
17                  set n 1
18                  foreach v $oldval {
19                          if {"[string index $v 0]" == "-"} {
20 <                                lappend radvar(view) "$n $v"
20 >                                lappend radvar(view) "u$n $v"
21                          } elseif {[lsearch -glob $radvar(view) \
22                                          "[lindex $v 0] *"] >= 0} {
23                                  continue
# Line 100 | Line 98 | proc setradvar stmt {          # assign a rad variable
98                  PEN* { set radvar(PENUMBRAS) $vval }
99                  VAR* { set radvar(VARIABILITY) $vval }
100                  REP* { set radvar(REPORT) $vval }
101 +                RAW* { set radvar(RAWFILE) $vval }
102 +                ZF* {set radvar(ZFILE) $vval }
103          }
104                  
105   }
# Line 119 | Line 119 | proc putradvar {fi vn} {       # print out a rad variable
119          }
120          if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE
121                          EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS
122 <                        VARIABILITY REPORT} $vn] >= 0} {
122 >                        RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} {
123                  puts $fi "$vn= $radvar($vn)"
124                  return
125          }
# Line 141 | Line 141 | proc putradvar {fi vn} {       # print out a rad variable
141   proc load_vars {f {vl all}} {   # load RIF variables
142          global curmess radvar alldone
143          if {"$f" == ""} {return 0}
144 <        if {! [file exists $f]} {
144 >        if {! [file isfile $f]} {
145                  beep
146                  set curmess "$f: no such file."
147                  return 0
# Line 167 | Line 167 | proc load_vars {f {vl all}} {  # load RIF variables
167                  set curmess {Project loaded.}
168          } else {
169                  foreach n $vl {
170 <                        set radvar($n) {}
170 >                        catch {unset radvar($n)}
171                  }
172                  while {[gets $fi curli] != -1} {
173                          if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] {
# Line 236 | Line 236 | proc newsave f {               # save a RIF
236                          return 0
237                  }
238          } elseif {[file exists $f]} {
239 +                set ftyp [file type $f]
240 +                if { $ftyp != "file" } {
241 +                        beep
242 +                        set curmess "Selected file $f is a $ftyp."
243 +                        return 0
244 +                }
245                  if [tk_dialog .dlg {Verification} \
246                                  "Overwrite existing file $f?" \
247                                  questhead 1 {Go Ahead} {Cancel}] {
248                          return 0
249                  }
250          }
251 <        if {! [file writable $f] && [catch {exec chmod u+w $f} curmess]} {
251 >        if {[file isfile $f] && ! [file writable $f] &&
252 >                        [catch {exec chmod u+w $f} curmess]} {
253                  beep
254                  return 0
255          }
# Line 258 | Line 265 | proc newsave f {               # save a RIF
265   proc newnew f {                 # create a new RIF
266          global rifname readonly curmess radvar
267          if [file exists $f] {
268 +                set ftyp [file type $f]
269 +                if { $ftyp != "file" } {
270 +                        beep
271 +                        set curmess "Selected file $f is a $ftyp."
272 +                        return 0
273 +                }
274                  if [tk_dialog .dlg {Verification} \
275                                  "File $f exists -- disregard it?" \
276                                  questhead 1 {Yes} {Cancel}] {
# Line 275 | Line 288 | proc newnew f {                        # create a new RIF
288   }
289  
290   proc do_file w {
291 <        global rifname readonly rif_glob curfile curpat
291 >        global rifname readonly myglob curfile curpat
292          if {"$w" == "done"} {
293                  cd [file dirname $rifname]
294 <                set rif_glob $curpat
294 >                set myglob(rif) $curpat
295                  return
296          }
297          frame $w
# Line 299 | Line 312 | proc do_file w {
312          helplink $w.left.new trad file new
313          helplink $w.left.ro trad file readonly
314          getfile -view view_txt -perm \
315 <                        -win $w.right -glob [file dirname $rifname]/$rif_glob
315 >                        -win $w.right -glob [file dirname $rifname]/$myglob(rif)
316          set curfile [file tail $rifname]
317   }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines