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.3 by greg, Tue Dec 6 15:54:45 1994 UTC vs.
Revision 2.9 by greg, Thu Jul 6 12:15:54 1995 UTC

# 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 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 +        }
74          if [info exists radvar(VARIABILITY)] {
75                  cardval radvar(VARIABILITY) {High Medium Low}
76          } else {
# Line 98 | Line 103 | proc setradvar stmt {          # assign a rad variable
103                  IND* { set radvar(INDIRECT) $vval }
104                  DET* { set radvar(DETAIL) $vval }
105                  PEN* { set radvar(PENUMBRAS) $vval }
106 +                RAW* { set radvar(RAWSAVE) $vval }
107                  VAR* { set radvar(VARIABILITY) $vval }
108                  REP* { set radvar(REPORT) $vval }
109          }
# Line 119 | Line 125 | proc putradvar {fi vn} {       # print out a rad variable
125          }
126          if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE
127                          EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS
128 <                        VARIABILITY REPORT} $vn] >= 0} {
128 >                        RAWSAVE VARIABILITY REPORT} $vn] >= 0} {
129                  puts $fi "$vn= $radvar($vn)"
130                  return
131          }
# Line 167 | Line 173 | proc load_vars {f {vl all}} {  # load RIF variables
173                  set curmess {Project loaded.}
174          } else {
175                  foreach n $vl {
176 <                        set radvar($n) {}
176 >                        catch {unset radvar($n)}
177                  }
178                  while {[gets $fi curli] != -1} {
179                          if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] {
# Line 242 | Line 248 | proc newsave f {               # save a RIF
248                          return 0
249                  }
250          }
251 +        if {[file exists $f] && ! [file writable $f] &&
252 +                        [catch {exec chmod u+w $f} curmess]} {
253 +                beep
254 +                return 0
255 +        }
256          if [save_vars $f] {
257                  set rifname [pwd]/$f
258                  set readonly 0
# Line 282 | Line 293 | proc do_file w {
293          pack $w.left -side left
294          button $w.left.load -text LOAD -width 5 \
295                          -relief raised -command {newload $curfile}
296 <        button $w.left.save -text SAVE -width 5 \
297 <                        -relief raised -command {newsave $curfile}
296 >        button $w.left.save -text SAVE -width 5 -relief raised \
297 >                        -command "newsave \$curfile; update_dir $w.right"
298          button $w.left.new -text NEW -width 5 \
299                          -relief raised -command {newnew $curfile}
300          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