--- ray/src/util/do_file.tcl	1997/08/12 15:19:05	2.15
+++ 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 {
@@ -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
 	}