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.7 by greg, Tue Mar 21 16:19:26 1995 UTC vs.
Revision 2.11 by greg, Thu Sep 21 10:29:12 1995 UTC

#	Line 8 | Line 8 | set rif_glob *.rif
8		proc preen {} {                 # clean up radvar
9		global radvar rifname
10		foreach n {objects scene materials illum mkillum render oconv pfilt
11	<	AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
11	>	RAWFILE ZFILE AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
12		if {! [info exists radvar($n)]} {
13		set radvar($n) {}
14		}
#	Line 19 | Line 19 | proc preen {} {                        # clean up radvar
19		set n 1
20		foreach v $oldval {
21		if {"[string index $v 0]" == "-"} {
22	<	lappend radvar(view) "$n $v"
22	>	lappend radvar(view) "u$n $v"
23		} elseif {[lsearch -glob $radvar(view) \
24		"[lindex $v 0] *"] >= 0} {
25		continue
#	Line 100 | Line 100 | proc setradvar stmt {          # assign a rad variable
100		PEN* { set radvar(PENUMBRAS) $vval }
101		VAR* { set radvar(VARIABILITY) $vval }
102		REP* { set radvar(REPORT) $vval }
103	+	RAW* { set radvar(RAWFILE) $vval }
104	+	ZF* {set radvar(ZFILE) $vval }
105		}
106
107		}
#	Line 119 | Line 121 | proc putradvar {fi vn} {       # print out a rad variable
121		}
122		if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE
123		EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS
124	<	VARIABILITY REPORT} $vn] >= 0} {
124	>	RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} {
125		puts $fi "$vn= $radvar($vn)"
126		return
127		}

Diff Legend

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