--- ray/src/util/do_file.tcl	1996/05/17 13:53:07	2.13
+++ ray/src/util/do_file.tcl	2003/02/22 02:07:30	2.17
@@ -1,4 +1,4 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: do_file.tcl,v 2.17 2003/02/22 02:07:30 greg Exp $
 #
 # Choose the Rad Input File to work on.
 #
@@ -43,6 +43,9 @@ proc preen {} {			# clean up radvar
 	if {! [info exists radvar(RESOLUTION)]} {
 		set radvar(RESOLUTION) 512
 	}
+	if {! [info exists radvar(EYESEP)]} {
+		set radvar(EYESEP) 1
+	}
 	if [info exists radvar(QUALITY)] {
 		cardval radvar(QUALITY) {High Medium Low}
 	} else {
@@ -73,7 +76,7 @@ proc preen {} {			# clean up radvar
 
 proc setradvar stmt {		# assign a rad variable
 	global radvar
-	regexp {^([a-zA-Z][a-zA-Z0-9]*) *= *(.*)$} $stmt dummy vnam vval
+	regexp {^([a-zA-Z][a-zA-Z0-9]*) *=[ 	]*(.*)$} $stmt dummy vnam vval
 	switch -glob $vnam {
 		obj* { eval lappend radvar(objects) $vval }
 		sce* { eval lappend radvar(scene) $vval }
@@ -91,6 +94,7 @@ proc setradvar stmt {		# assign a rad variable
 		AMB* { set radvar(AMBFILE) $vval }
 		OPT* { set radvar(OPTFILE) $vval }
 		EXP* { set radvar(EXPOSURE) $vval }
+		EYE* { set radvar(EYESEP) $vval }
 		RES* { set radvar(RESOLUTION) $vval }
 		UP { set radvar(UP) $vval }
 		IND* { set radvar(INDIRECT) $vval }
@@ -119,7 +123,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
-			RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} {
+			EYESEP RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} {
 		puts $fi "$vn= $radvar($vn)"
 		return
 	}
@@ -158,7 +162,7 @@ proc load_vars {f {vl all}} {	# load RIF variables
 	if {"$vl" == "all"} {
 		catch {unset radvar}
 		while {[gets $fi curli] != -1} {
-			if [regexp {^[a-zA-Z][a-zA-Z0-9]*= } $curli] {
+			if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] {
 				setradvar $curli
 			} else {
 				break
@@ -167,7 +171,11 @@ proc load_vars {f {vl all}} {	# load RIF variables
 		set curmess {Project loaded.}
 	} else {
 		foreach n $vl {
-			catch {unset radvar($n)}
+			if [regexp {[a-z][a-z]*} $n] {
+				set radvar($n) {}
+			} else {
+				catch {unset radvar($n)}
+			}
 		}
 		while {[gets $fi curli] != -1} {
 			if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] {