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

Comparing ray/src/util/do_options.tcl (file contents):
Revision 2.3 by greg, Mon Dec 5 14:29:46 1994 UTC vs.
Revision 2.4 by greg, Tue Feb 7 12:01:17 1995 UTC

# Line 11 | Line 11 | proc amb_delete {} {           # delete ambient file
11          }
12          set hl [string length [exec getinfo < $radvar(AMBFILE)]]
13          set fl [file size $radvar(AMBFILE)]
14 <        set nv [expr ($fl - $hl - 3) / 75]
15 <        if {$nv && [tk_dialog .dlg {Verification} \
14 >        set nv [expr ($fl - $hl - 2) / 75]
15 >        if {$nv > 50 && [tk_dialog .dlg {Verification} \
16                                  "Really delete ambient file $radvar(AMBFILE)\
17                                  with $nv indirect irradiance values?" \
18                                  questhead 1 {Delete} {Cancel}]} {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines