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

Comparing ray/src/util/do_views.tcl (file contents):
Revision 2.2 by greg, Fri May 17 13:58:37 1996 UTC vs.
Revision 2.3 by gwlarson, Tue Oct 20 11:52:15 1998 UTC

# Line 80 | Line 80 | proc delview {} {                      # delete current view
80   }
81  
82   proc copyviews rf {             # copy view settings from another RIF
83 <        load_vars [file tail $rf] {view UP PICTURE RESOLUTION RAWFILE ZFILE}
83 >        load_vars [file tail $rf] {view UP PICTURE EYESEP RESOLUTION RAWFILE ZFILE}
84          vnchange viewname {} w
85   }
86  
# Line 165 | Line 165 | proc do_views w {                      # create views screen
165          place $w.upzn -relx .5714 -rely .5244
166          helplink "$w.upxp $w.upxn $w.upyp $w.upyn $w.upzp $w.upzn" \
167                          trad views up
168 +        # Eye separation distance
169 +        label $w.eyl -text Eyesep:
170 +        place $w.eyl -relx .0714 -rely .6000
171 +        entry $w.eye -textvariable radvar(EYESEP) -relief sunken
172 +        place $w.eye -relwidth .2857 -relheight .0610 -relx .2857 -rely .6000
173 +        helplink $w.eye trad views eyesep
174          # Picture file name
175          label $w.pfl -text Picture:
176 <        place $w.pfl -relx .0714 -rely .6345
176 >        place $w.pfl -relx .0714 -rely .6658
177          entry $w.pfe -textvariable radvar(PICTURE) -relief sunken
178 <        place $w.pfe -relwidth .5714 -relheight .0610 -relx .2857 -rely .6345
178 >        place $w.pfe -relwidth .5714 -relheight .0610 -relx .2857 -rely .6658
179          helplink $w.pfe trad views picture
180          # Resolution
181          label $w.rzl -text Resolution:
182 <        place $w.rzl -relx .0714 -rely .7107
182 >        place $w.rzl -relx .0714 -rely .7316
183          entry $w.rze -textvariable radvar(RESOLUTION) -relief sunken
184 <        place $w.rze -relwidth .2857 -relheight .0610 -relx .2857 -rely .7107
184 >        place $w.rze -relwidth .2857 -relheight .0610 -relx .2857 -rely .7316
185          helplink $w.rze trad views resolution
186          # Rawfile
187          label $w.rfl -text Rawfile:
188 <        place $w.rfl -relx .0714 -rely .7870
188 >        place $w.rfl -relx .0714 -rely .7974
189          entry $w.rfe -textvariable radvar(RAWFILE) -relief sunken
190 <        place $w.rfe -relwidth .5714 -relheight .0610 -relx .2857 -rely .7870
190 >        place $w.rfe -relwidth .5714 -relheight .0610 -relx .2857 -rely .7974
191          helplink $w.rfe trad views rawfile
192          # Zfile
193          label $w.zfl -text Zfile:

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines