--- ray/src/util/rtpict.pl	2019/08/16 04:32:46	2.12
+++ ray/src/util/rtpict.pl	2019/12/13 21:43:47	2.13
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# RCSid $Id: rtpict.pl,v 2.12 2019/08/16 04:32:46 greg Exp $
+# RCSid $Id: rtpict.pl,v 2.13 2019/12/13 21:43:47 greg Exp $
 #
 # Run rtrace in parallel mode to simulate rpict -n option
 # May also be used to render layered images with -o* option
@@ -138,14 +138,14 @@ my @res = split(/\s/, `@vwraysA -d`);
 #####################################################################
 ##### Generating picture with depth buffer?
 if (defined $outzbf) {
-	exec "@vwraysA | @rtraceA -fff -olv @res $oct | " .
-		"rsplit -ih -iH -f -of $outzbf -oh -oH -of3 - | " .
+	exec "@vwraysA | @rtraceA -fff -olv @res '$oct' | " .
+		"rsplit -ih -iH -f -of '$outzbf' -oh -oH -of3 - | " .
 		"pvalue -r -df | getinfo -a 'VIEW=$view'";
 }
 #####################################################################
 ##### Base case with output picture only?
 if (! defined $outdir) {
-	exec "@vwraysA | @rtraceA -ffc @res $oct | getinfo -a 'VIEW=$view'";
+	exec "@vwraysA | @rtraceA -ffc @res '$oct' | getinfo -a 'VIEW=$view'";
 }
 #####################################################################
 ##### Layered image output case
@@ -192,4 +192,4 @@ foreach my $oval (split //, $outlyr) {
 	delete $rtoutC{$oval};
 }
 			# call rtrace + rsplit
-exec "@vwraysA | @rtraceA -fff @res $oct | getinfo -a 'VIEW=$view' | @rsplitA";
+exec "@vwraysA | @rtraceA -fff @res '$oct' | getinfo -a 'VIEW=$view' | @rsplitA";