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

Comparing ray/src/util/do_results.tcl (file contents):
Revision 2.7 by greg, Sat Feb 22 02:07:30 2003 UTC vs.
Revision 2.8 by greg, Mon Nov 10 19:08:19 2008 UTC

# Line 69 | Line 69 | proc list_views {} {           # List finished and unfinished p
69          foreach vw $radvar(view) {
70                  if [file isfile ${rawfroot}_[lindex $vw 0].unf] {
71                          lappend ufpics [lindex $vw 0]
72 <                } elseif {[file isfile $radvar(PICTURE)_[lindex $vw 0].pic]} {
72 >                } elseif {[file isfile $radvar(PICTURE)_[lindex $vw 0].hdr]} {
73                          lappend fpics [lindex $vw 0]
74                  }
75          }
# Line 102 | Line 102 | proc get_selpics {{getall 0}} {                # return selected pic
102          global fvwbox ufvwbox radvar rawfroot
103          set sl {}
104          foreach i [$fvwbox curselection] {
105 <                testappend sl $radvar(PICTURE)_[$fvwbox get $i].pic
105 >                testappend sl $radvar(PICTURE)_[$fvwbox get $i].hdr
106                  if {$getall && $rawfroot != $radvar(PICTURE)} {
107 <                        testappend sl ${rawfroot}_[$fvwbox get $i].pic
107 >                        testappend sl ${rawfroot}_[$fvwbox get $i].hdr
108                  }
109                  if {$getall && $radvar(ZFILE) != {}} {
110                          testappend sl $radvar(ZFILE)_[$fvwbox get $i].zbf
# Line 151 | Line 151 | proc cnvpic {} {               # Convert selected pictures
151          set curmess "No finished pictures selected."
152          foreach i [$fvwbox curselection] {
153                  set vw [$fvwbox get $i]
154 <                set p $radvar(PICTURE)_$vw.pic
154 >                set p $radvar(PICTURE)_$vw.hdr
155                  set df [format $convdest $vw]
156                  set curmess "Converting $p to $df..."
157                  update
# Line 166 | Line 166 | proc prtpic {} {               # Print selected pictures
166          global curmess prntcom radvar fvwbox
167          set curmess "No finished pictures selected."
168          foreach i [$fvwbox curselection] {
169 <                set p $radvar(PICTURE)_[$fvwbox get $i].pic
169 >                set p $radvar(PICTURE)_[$fvwbox get $i].hdr
170                  set curmess "Printing $p..."
171                  update
172                  set pc [format $prntcom $p]

Diff Legend

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