# | 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}]} { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |