--- ray/src/util/rcode2bmp.pl	2022/11/15 23:47:50	2.3
+++ ray/src/util/rcode2bmp.pl	2024/10/03 18:45:27	2.6
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# RCSid $Id: rcode2bmp.pl,v 2.3 2022/11/15 23:47:50 greg Exp $
+# RCSid $Id: rcode2bmp.pl,v 2.6 2024/10/03 18:45:27 greg Exp $
 #
 # Convert one or more rtpict outputs into BMP for convenient viewing
 #
@@ -41,7 +41,7 @@ while ($#ARGV >= 0) {
 	my ($dest) = ("$ARGV[0]" =~ /^([^.]+)/);
 	$dest .= ".bmp";
 	my $cmd="";
-	if ("$format" =~ /^32-bit_rle_(rgb|xyz)e *$/) {
+	if ("$format" =~ /^32-bit_rle_(rgb|xyz)e *$/ || "$format" =~ /^Radiance_spectra *$/) {
 		if ($pfilt) {
 			$cmd = $pfilt . " '$ARGV[0]' | ra_bmp -e auto - '$dest'";
 		} else {
@@ -60,9 +60,9 @@ while ($#ARGV >= 0) {
 		$cmd .= "| falsecolor -l '$unit' -m 1 -s $dmax | ra_bmp - '$dest'";
 	} elsif ("$format" =~ /^[1-9][0-9]*-bit_indexed_name *$/) {
 		$cmd = "rcode_ident -r -n '$ARGV[0]' " .
-			"| getinfo +d -c rcalc -e 'cc(x):(.1+.8*rand(x))^2' " .
+			"| getinfo +d -c rcalc -of -e 'cc(x):(.1+.8*rand(x))^2' " .
 			q{-e '$1=cc(.398*$1-11.2);$2=cc(-1.152*$1+41.7);$3=cc(8.571*$1-8.15)' } .
-			"| pvalue -r -d ";
+			"| pvalue -r -df ";
 		$cmd .= "| $pfilt " if ($pfilt);
 		$cmd .= "| ra_bmp - '$dest'";
 	} elsif ("$format" =~ /^32-bit_encoded_normal *$/) {