--- ray/src/util/do_file.tcl	1995/07/06 12:15:54	2.9
+++ ray/src/util/do_file.tcl	1995/08/28 10:12:38	2.10
@@ -66,11 +66,6 @@ proc preen {} {			# clean up radvar
 	} else {
 		set radvar(PENUMBRAS) False
 	}
-	if [info exists radvar(RAWSAVE)] {
-		cardval radvar(RAWSAVE) {True False}
-	} else {
-		set radvar(RAWSAVE) False
-	}
 	if [info exists radvar(VARIABILITY)] {
 		cardval radvar(VARIABILITY) {High Medium Low}
 	} else {
@@ -103,9 +98,10 @@ proc setradvar stmt {		# assign a rad variable
 		IND* { set radvar(INDIRECT) $vval }
 		DET* { set radvar(DETAIL) $vval }
 		PEN* { set radvar(PENUMBRAS) $vval }
-		RAW* { set radvar(RAWSAVE) $vval }
 		VAR* { set radvar(VARIABILITY) $vval }
 		REP* { set radvar(REPORT) $vval }
+		RAW* { set radvar(RAWFILE) $vval }
+		ZF* {set radvar(ZFILE) $vval }
 	}
 		
 }
@@ -125,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
-			RAWSAVE VARIABILITY REPORT} $vn] >= 0} {
+			RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} {
 		puts $fi "$vn= $radvar($vn)"
 		return
 	}