ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/radiance/src/util/do_options.tcl

Comparing src/util/do_options.tcl (file contents):
Revision 2.2 by greg, Fri Oct 28 20:14:36 1994 UTC vs.
Revision 2.5 by greg, Wed Feb 22 20:48:49 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 irradiances values?" \
18	<	questhead 1 {Delete} {Cancel}]} {
17	>	with $nv indirect irradiance values?" \
18	>	questhead 0 {Delete} {Cancel}]} {
19		return 0
20		}
21		if [catch {exec rm $radvar(AMBFILE) < /dev/null} curmess] {return 0}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)