--- ray/src/util/genambpos.pl	2014/04/24 23:15:42	2.1
+++ ray/src/util/genambpos.pl	2014/04/25 18:13:47	2.2
@@ -1,17 +1,18 @@
 #!/usr/bin/perl -w
-# RCSid $Id: genambpos.pl,v 2.1 2014/04/24 23:15:42 greg Exp $
+# RCSid $Id: genambpos.pl,v 2.2 2014/04/25 18:13:47 greg Exp $
 #
 # Visualize ambient positions and gradients
 #
 use strict;
 sub userror {
-	print STDERR "Usage: genambpos [-l lvl][-s scale][-p][-d] scene.amb > ambloc.rad\n";
+	print STDERR "Usage: genambpos [-l lvl][-w minwt][-s scale][-p][-d] scene.amb > ambloc.rad\n";
 	exit 1;
 }
 my $lvlsel = -1;
 my $scale = 0.25;
 my $doposgrad = 0;
 my $dodirgrad = 0;
+my $minwt = 0.5001**6;
 my $savedARGV = "genambpos @ARGV";
 # Get options
 while ($#ARGV >= 0) {
@@ -22,6 +23,9 @@ while ($#ARGV >= 0) {
 	} elsif ("$ARGV[0]" =~ /^-l/) {
 		$lvlsel = $ARGV[1];
 		shift @ARGV;
+	} elsif ("$ARGV[0]" =~ /^-w/) {
+		$minwt = $ARGV[1];
+		shift @ARGV;
 	} elsif ("$ARGV[0]" =~ /^-s/) {
 		$scale = $ARGV[1];
 		shift @ARGV;
@@ -49,9 +53,14 @@ posglow sphere position${recno}
 0
 4 ${px} ${py} ${pz} ${psiz}
 
-posglow cone pgarrow${recno}
+void glow arrglow
 0
 0
+4 ${wt*agr} ${wt*agg} ${wt*agb} 0
+
+arrglow cone pgarrow${recno}
+0
+0
 8
 	${ cx0 }	${ cy0 }	${ cz0 }
 	${ cx1 }	${ cy1 }	${ cz1 }
@@ -123,5 +132,6 @@ dgval ring dgdisk${recno}b
 $outfmt .= $dirgradfmt if ($dodirgrad);
 # Load & convert ambient values
 print "# Output produced by: $savedARGV\n";
-system "lookamb -h -d $ARGV[0] | rcalc -e 'LV:$lvlsel;SF:$scale' -f rambpos.cal -o '$outfmt'\n";
+system "lookamb -h -d $ARGV[0] | rcalc -e 'LV:$lvlsel;MW:$minwt;SF:$scale'" .
+		" -f rambpos.cal -o '$outfmt'";
 exit;