[ViewVC] Diff of: radiance/ray/src/util/do

Comparing ray/src/util/do_zone.tcl (file contents):
Revision 2.1 by greg, Thu Oct 27 15:56:10 1994 UTC vs.
Revision 2.4 by greg, Tue Nov 1 20:01:58 1994 UTC

#	Line 36 \| Line 36 \| proc zonechange {nm el op} { # record change in ZONE
36		return
37		}
38		trace vdelete radvar(ZONE) wu zonechange
39	<	set radvar(ZONE) "$zonevar(IE) $zonevar(xmin) $zonevar(xmax) $zonevar(ymin) $zonevar(ymax) $zonevar(zmin) $zonevar(zmax)"
39	>	set radvar(ZONE) "$zonevar(IE) $zonevar(xmin) $zonevar(xmax) $zonevar(ymin) $zonevar(ymax) $zonevar(zmin) $zonevar(zmax)"
40		trace variable radvar(ZONE) wu zonechange
41		}
42
#	Line 109 \| Line 109 \| proc do_zone w { # set up ZONE screen
109		label $w.indl -text Indirect:
110		place $w.indl -relx .0714 -rely .5488
111		scale $w.inds -showvalue yes -from 0 -to 5 \
112	<	-orient horizontal -command indscale \
113	<	-length 450 -width 25
112	>	-orient horizontal -command indscale
113		$w.inds set $radvar(INDIRECT)
114	<	place $w.inds -relx .2857 -rely .5488
114	>	place $w.inds -relx .2857 -rely .5488 -relwidth .6500 -relheight .1200
115		helplink $w.inds trad zone indirect
116		# Variability
117		label $w.varl -text Variability:
#	Line 139 \| Line 138 \| proc do_zone w { # set up ZONE screen
138		place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \
139		-anchor se
140		helplink $w.revert trad zone revert
141	<	button $w.copy -text Copy -relief raised -command {getfile \
141	>	button $w.copy -text Copy -relief raised -command {getfile -grab \
142		-send copyzone -view view_txt -glob $rif_glob}
143		place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
144		-anchor se

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