--- ray/src/util/genambpos.pl	2014/05/15 17:30:53	2.8
+++ ray/src/util/genambpos.pl	2016/04/20 20:57:57	2.10
@@ -1,5 +1,5 @@
 #!/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.10 2016/04/20 20:57:57 greg Exp $
 #
 # Visualize ambient positions and gradients
 #
@@ -77,6 +77,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 +107,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}