--- ray/src/util/genklemsamp.pl	2009/11/05 06:30:57	2.6
+++ ray/src/util/genklemsamp.pl	2011/01/27 22:28:12	2.8
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# RCSid $Id: genklemsamp.pl,v 2.6 2009/11/05 06:30:57 greg Exp $
+# RCSid $Id: genklemsamp.pl,v 2.8 2011/01/27 22:28:12 greg Exp $
 #
 # Sample Klems (full) directions impinging on surface(s)
 #
@@ -76,13 +76,13 @@ if ($#ARGV >= 0) {
 	push @vd, $_;
 	$_ = $vwset; s/^.*Vdz://; s/;.*$//;
 	push @vd, $_;
-	my @bcube = split /\s+/, `getinfo -d < $td/surf.oct`;
+	my @bcube = split ' ', `getinfo -d < $td/surf.oct`;
 	$width = $bcube[3]*sqrt(3);
 	$height = $width;
 	push @vopts, ("-vp", $bcube[0]+$bcube[3]/2-$width/2*$vd[0],
 			$bcube[1]+$bcube[3]/2-$width/2*$vd[1],
 			$bcube[2]+$bcube[3]/2-$width/2*$vd[2]);
-	push @vopts, ("-vh", $width, "-vh", $height);
+	push @vopts, ("-vh", $width, "-vv", $height);
 	$vwset = `vwright @vopts V`;
 	$sca = sqrt($nsamp/($width*$height));
 	my $xres;
@@ -99,7 +99,7 @@ if ($#ARGV >= 0) {
 				q{-e 'nOK=sq(Vdx*$5+Vdy*$6+Vdz*$7)-.999' } .
 				"-if7 -of > $td/origins.flt";
 		$ntot = -s "$td/origins.flt";
-		$ntot /= 3*4;
+		$ntot /= 3*4;		# number of bytes per sample position
 		if ($ntot == 0) {
 			if ($nsamp < 200) {
 				$sca = sqrt(200/($width*$height));