ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/Development/ray/src/util/do_file.tcl

Comparing ray/src/util/do_file.tcl (file contents):
Revision 2.8 by greg, Wed May 17 15:55:06 1995 UTC vs.
Revision 2.9 by greg, Thu Jul 6 12:15:54 1995 UTC

#	Line 66 | Line 66 | proc preen {} {                        # clean up radvar
66		} else {
67		set radvar(PENUMBRAS) False
68		}
69	+	if [info exists radvar(RAWSAVE)] {
70	+	cardval radvar(RAWSAVE) {True False}
71	+	} else {
72	+	set radvar(RAWSAVE) False
73	+	}
74		if [info exists radvar(VARIABILITY)] {
75		cardval radvar(VARIABILITY) {High Medium Low}
76		} else {
#	Line 98 | Line 103 | proc setradvar stmt {          # assign a rad variable
103		IND* { set radvar(INDIRECT) $vval }
104		DET* { set radvar(DETAIL) $vval }
105		PEN* { set radvar(PENUMBRAS) $vval }
106	+	RAW* { set radvar(RAWSAVE) $vval }
107		VAR* { set radvar(VARIABILITY) $vval }
108		REP* { set radvar(REPORT) $vval }
109		}
#	Line 119 | Line 125 | proc putradvar {fi vn} {       # print out a rad variable
125		}
126		if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE
127		EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS
128	<	VARIABILITY REPORT} $vn] >= 0} {
128	>	RAWSAVE VARIABILITY REPORT} $vn] >= 0} {
129		puts $fi "$vn= $radvar($vn)"
130		return
131		}

Diff Legend

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