--- ray/src/util/do_file.tcl	1995/03/21 16:19:26	2.7
+++ ray/src/util/do_file.tcl	1995/08/28 10:12:38	2.10
@@ -19,7 +19,7 @@ proc preen {} {			# clean up radvar
 		set n 1
 		foreach v $oldval {
 			if {"[string index $v 0]" == "-"} {
-				lappend radvar(view) "$n $v"
+				lappend radvar(view) "u$n $v"
 			} elseif {[lsearch -glob $radvar(view) \
 					"[lindex $v 0] *"] >= 0} {
 				continue
@@ -100,6 +100,8 @@ proc setradvar stmt {		# assign a rad variable
 		PEN* { set radvar(PENUMBRAS) $vval }
 		VAR* { set radvar(VARIABILITY) $vval }
 		REP* { set radvar(REPORT) $vval }
+		RAW* { set radvar(RAWFILE) $vval }
+		ZF* {set radvar(ZFILE) $vval }
 	}
 		
 }
@@ -119,7 +121,7 @@ proc putradvar {fi vn} {	# print out a rad variable
 	}
 	if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE
 			EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS
-			VARIABILITY REPORT} $vn] >= 0} {
+			RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} {
 		puts $fi "$vn= $radvar($vn)"
 		return
 	}