--- ray/src/util/genambpos.pl	2014/05/15 17:30:53	2.8
+++ ray/src/util/genambpos.pl	2022/02/15 04:08:26	2.11
@@ -1,9 +1,11 @@
 #!/usr/bin/perl -w
-# RCSid $Id: genambpos.pl,v 2.8 2014/05/15 17:30:53 greg Exp $
+# RCSid $Id: genambpos.pl,v 2.11 2022/02/15 04:08:26 greg Exp $
 #
 # Visualize ambient positions and gradients
 #
 use strict;
+my $windoz = ($^O eq "MSWin32" or $^O eq "MSWin64");
+die "Not supported under Windows -- sorry!\n" if ( $windoz );
 sub userror {
 	print STDERR "Usage: genambpos [-l lvl][-w minwt][-r rad][-s sf][-p][-d] scene.amb > ambloc.rad\n";
 	exit 1;
@@ -77,6 +79,11 @@ void brightfunc pgpat
 0
 6 ${ px } ${ py } ${ pz } ${ pgx } ${ pgy } ${ pgz }
 
+pgpat colorfunc pgpat
+4 1 if(corralled,.1,1) if(corralled,.1,1) ambpos.cal
+0
+7 ${ px } ${ py } ${ pz } ${  ux  } ${  uy  } ${  uz  } ${   cflags    }
+
 pgpat glow pgval
 0
 0
@@ -102,7 +109,7 @@ void glow tipglow
 0
 4 ${2*agr} ${2*agg} ${2*agb} 0
 
-tipglow sphere atip
+tipglow sphere atip${recno}
 0
 0
 4 ${   cx1   } ${   cy1   } ${   cz1   } ${psiz/7}