--- ray/src/util/do_file.tcl	2005/02/16 05:40:12	2.18
+++ ray/src/util/do_file.tcl	2012/06/03 20:32:49	2.19
@@ -1,11 +1,11 @@
-# RCSid: $Id: do_file.tcl,v 2.18 2005/02/16 05:40:12 greg Exp $
+# RCSid: $Id: do_file.tcl,v 2.19 2012/06/03 20:32:49 greg Exp $
 #
 # Choose the Rad Input File to work on.
 #
 
 proc preen {} {			# clean up radvar
 	global radvar rifname
-	foreach n {objects scene materials illum mkillum render oconv pfilt
+	foreach n {objects scene materials illum mkillum render oconv rvu rpict pfilt
 			RAWFILE ZFILE AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
 		if {! [info exists radvar($n)]} {
 			set radvar($n) {}
@@ -85,6 +85,8 @@ proc setradvar stmt {		# assign a rad variable
 		mki* { eval lappend radvar(mkillum) $vval }
 		ren* { eval lappend radvar(render) $vval }
 		oco* { eval lappend radvar(oconv) $vval }
+		rvu { eval lappend radvar(rvu) $vval }
+		rpi* { eval lappend radvar(rpict) $vval }
 		pf* { eval lappend radvar(pfilt) $vval }
 		vi* { lappend radvar(view) $vval }
 		ZO* { set radvar(ZONE) $vval }