| # | Line 1 | Line 1 | |
|---|---|---|
| 1 | < | # SCCSid "$SunId$ LBL" |
| 1 | > | # RCSid: $Id$ |
| 2 | # | |
| 3 | # Options screen for trad | |
| 4 | # | |
| # | 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 - 2) / 75] |
| 14 | > | set nv [expr ($fl - $hl - 2) / 67] |
| 15 | if {$nv > 50 && [tk_dialog .dlg {Verification} \ | |
| 16 | "Really delete ambient file $radvar(AMBFILE)\ | |
| 17 | with $nv indirect irradiance values?" \ | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |