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

Comparing src/util/do_file.tcl (file contents):
Revision 2.1 by greg, Thu Oct 27 15:56:06 1994 UTC vs.
Revision 2.11 by greg, Thu Sep 21 10:29:12 1995 UTC

# Line 8 | Line 8 | set rif_glob *.rif
8   proc preen {} {                 # clean up radvar
9          global radvar rifname
10          foreach n {objects scene materials illum mkillum render oconv pfilt
11 <                        AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
11 >                        RAWFILE ZFILE AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
12                  if {! [info exists radvar($n)]} {
13                          set radvar($n) {}
14                  }
# Line 19 | Line 19 | proc preen {} {                        # clean up radvar
19                  set n 1
20                  foreach v $oldval {
21                          if {"[string index $v 0]" == "-"} {
22 <                                lappend radvar(view) "$n $v"
22 >                                lappend radvar(view) "u$n $v"
23                          } elseif {[lsearch -glob $radvar(view) \
24                                          "[lindex $v 0] *"] >= 0} {
25                                  continue
# 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          }
# Line 148 | Line 150 | proc load_vars {f {vl all}} {  # load RIF variables
150          }
151          if {"$vl" == "all" && ! [chksave]} {return 0}
152          set curmess {Please wait...}
153 <        update idletasks
153 >        update
154          if [catch {exec rad -n -w -e $f >& /usr/tmp/ro[pid]}] {
155                  set curmess [exec cat /usr/tmp/ro[pid]]
156                  exec rm -f /usr/tmp/ro[pid]
# Line 167 | Line 169 | proc load_vars {f {vl all}} {  # load RIF variables
169                  set curmess {Project loaded.}
170          } else {
171                  foreach n $vl {
172 <                        set radvar($n) {}
172 >                        catch {unset radvar($n)}
173                  }
174                  while {[gets $fi curli] != -1} {
175                          if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] {
# Line 242 | Line 244 | proc newsave f {               # save a RIF
244                          return 0
245                  }
246          }
247 +        if {[file exists $f] && ! [file writable $f] &&
248 +                        [catch {exec chmod u+w $f} curmess]} {
249 +                beep
250 +                return 0
251 +        }
252          if [save_vars $f] {
253                  set rifname [pwd]/$f
254                  set readonly 0
# Line 273 | Line 280 | proc newnew f {                        # create a new RIF
280   proc do_file w {
281          global rifname readonly rif_glob curfile curpat
282          if {"$w" == "done"} {
283 +                cd [file dirname $rifname]
284                  set rif_glob $curpat
285                  return
286          }
# Line 281 | Line 289 | proc do_file w {
289          pack $w.left -side left
290          button $w.left.load -text LOAD -width 5 \
291                          -relief raised -command {newload $curfile}
292 <        button $w.left.save -text SAVE -width 5 \
293 <                        -relief raised -command {newsave $curfile}
292 >        button $w.left.save -text SAVE -width 5 -relief raised \
293 >                        -command "newsave \$curfile; update_dir $w.right"
294          button $w.left.new -text NEW -width 5 \
295                          -relief raised -command {newnew $curfile}
296          pack $w.left.load $w.left.save $w.left.new -side top -pady 15 -padx 20

Diff Legend

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