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

Comparing ray/src/util/do_results.tcl (file contents):
Revision 2.1 by greg, Wed Sep 13 14:52:19 1995 UTC vs.
Revision 2.2 by greg, Thu Sep 21 10:19:52 1995 UTC

# Line 80 | Line 80 | proc list_views {} {           # List finished and unfinished p
80   proc delpic {} {                # Delete selected pictures
81          global curmess
82          set selected_pics [get_selpics 1]
83 <        if {"$selected_pics" == {}} {
83 >        if {$selected_pics == {}} {
84                  set curmess "No pictures selected."
85                  return
86          }
# Line 119 | Line 119 | proc get_selpics {{getall 0}} {                # return selected pic
119   proc dsppic {} {                # Display selected pictures
120          global curmess dispcom radvar
121          set selected_pics [get_selpics]
122 <        if {"$selected_pics" == {}} {
122 >        if {$selected_pics == {}} {
123                  set curmess "No pictures selected."
124                  return
125          }
126 <        if {"$radvar(EXPOSURE)" == {}} {
126 >        if {$radvar(EXPOSURE) == {}} {
127                  set ev 0
128          } else {
129                  if [regexp {^[+-]} $radvar(EXPOSURE)] {
# Line 138 | Line 138 | proc dsppic {} {               # Display selected pictures
138                  }
139          }
140          foreach p $selected_pics {
141 <                if [string match *.unf $p] {
141 >                if {[string match *.unf $p] ||
142 >                                $radvar(PICTURE) == "$radvar(RAWFILE)"} {
143                          set dc [format $dispcom $ev $p]
144                  } else {
145                          set dc [format $dispcom 0 $p]
# Line 263 | Line 264 | proc do_results w {            # Results screen
264          place $w.prte -relwidth .5714 -relheight .0610 -relx .3571 -rely .8537
265          helplink $w.prte trad results printcommand
266          # Fill in views
267 <        if {[info exists radvar(RAWFILE)] && $radvar(RAWFILE) != {}} {
267 >        if {$radvar(RAWFILE) != {}} {
268                  set rawfroot $radvar(RAWFILE)
269          } else {
270                  set rawfroot $radvar(PICTURE)
270 –        }
271 –        if {! [info exists radvar(ZFILE)]} {
272 –                set radvar(ZFILE) {}
271          }
272          list_views
273   }

Diff Legend

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