--- ray/src/util/do_file.tcl	1998/10/20 11:52:15	2.16
+++ ray/src/util/do_file.tcl	2015/05/28 10:23:06	2.21
@@ -1,12 +1,12 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: do_file.tcl,v 2.21 2015/05/28 10:23:06 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
-			RAWFILE ZFILE AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
+	foreach n {objects scene materials illum mkillum mkpmap render oconv rvu rpict pfilt
+			RAWFILE ZFILE AMBFILE PGMAP PCMAP OPTFILE EXPOSURE ZONE REPORT} {
 		if {! [info exists radvar($n)]} {
 			set radvar($n) {}
 		}
@@ -83,8 +83,11 @@ proc setradvar stmt {		# assign a rad variable
 		mat* { eval lappend radvar(materials) $vval }
 		ill* { eval lappend radvar(illum) $vval }
 		mki* { eval lappend radvar(mkillum) $vval }
+		mkp* { eval lappend radvar(mkpmap) $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 }
@@ -104,6 +107,8 @@ proc setradvar stmt {		# assign a rad variable
 		REP* { set radvar(REPORT) $vval }
 		RAW* { set radvar(RAWFILE) $vval }
 		ZF* {set radvar(ZFILE) $vval }
+		PGM* {set radvar(PGMAP) $vval }
+		PCM* {set radvar(PCMAP) $vval }
 	}
 		
 }
@@ -153,12 +158,12 @@ proc load_vars {f {vl all}} {	# load RIF variables
 	if {"$vl" == "all" && ! [chksave]} {return 0}
 	set curmess {Please wait...}
 	update
-	if [catch {exec rad -n -w -e $f >& /usr/tmp/ro[pid]}] {
-		set curmess [exec cat /usr/tmp/ro[pid]]
-		exec rm -f /usr/tmp/ro[pid]
+	if [catch {exec rad -n -w -e $f >& /tmp/ro[pid]}] {
+		set curmess [exec cat /tmp/ro[pid]]
+		exec rm -f /tmp/ro[pid]
 		return 0
 	}
-	set fi [open /usr/tmp/ro[pid] r]
+	set fi [open /tmp/ro[pid] r]
 	if {"$vl" == "all"} {
 		catch {unset radvar}
 		while {[gets $fi curli] != -1} {
@@ -191,7 +196,7 @@ proc load_vars {f {vl all}} {	# load RIF variables
 	}
 	set alldone [eof $fi]
 	close $fi
-	exec rm -f /usr/tmp/ro[pid]
+	exec rm -f /tmp/ro[pid]
 	preen
 	return 1
 }