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

Comparing src/util/do_results.tcl (file contents):
Revision 2.5 by greg, Thu Oct 5 13:35:27 1995 UTC vs.
Revision 2.7 by greg, Sat Feb 22 02:07:30 2003 UTC

# Line 1 | Line 1
1 < # SCCSid "$SunId$ LBL"
1 > # RCSid: $Id$
2   #
3   # Results screen for trad
4   #
# Line 57 | Line 57 | set conv(typ) tga-24
57  
58   proc testappend {flst tf} {     # test if tf exists and append to flst if so
59          upvar $flst mylist
60 <        if [file exists $tf] {
60 >        if [file isfile $tf] {
61                  lappend mylist $tf
62          }
63   }
# Line 67 | Line 67 | proc list_views {} {           # List finished and unfinished p
67          set fpics {}
68          set ufpics {}
69          foreach vw $radvar(view) {
70 <                if [file exists ${rawfroot}_[lindex $vw 0].unf] {
70 >                if [file isfile ${rawfroot}_[lindex $vw 0].unf] {
71                          lappend ufpics [lindex $vw 0]
72 <                } elseif {[file exists $radvar(PICTURE)_[lindex $vw 0].pic]} {
72 >                } elseif {[file isfile $radvar(PICTURE)_[lindex $vw 0].pic]} {
73                          lappend fpics [lindex $vw 0]
74                  }
75          }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines