--- ray/src/util/do_file.tcl 2015/05/28 10:23:06 2.21 +++ ray/src/util/do_file.tcl 2017/08/26 16:07:22 2.22 @@ -1,4 +1,4 @@ -# RCSid: $Id: do_file.tcl,v 2.21 2015/05/28 10:23:06 greg Exp $ +# RCSid: $Id: do_file.tcl,v 2.22 2017/08/26 16:07:22 greg Exp $ # # Choose the Rad Input File to work on. # @@ -124,12 +124,6 @@ proc putradvar {fi vn} { # print out a rad variable foreach v $radvar(view) { puts $fi "view= $v" } - return - } - if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE - EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS - EYESEP RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} { - puts $fi "$vn= $radvar($vn)" return } puts -nonewline $fi "$vn="