--- ray/src/util/bsdfview.pl	2017/08/17 21:32:29	2.3
+++ ray/src/util/bsdfview.pl	2017/10/18 19:30:48	2.6
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# RCSid $Id: bsdfview.pl,v 2.3 2017/08/17 21:32:29 greg Exp $
+# RCSid $Id: bsdfview.pl,v 2.6 2017/10/18 19:30:48 greg Exp $
 #
 # Call bsdf2rad to render BSDF and start viewing it.
 # Arguments are BSDF XML or SIR file(s)
@@ -12,7 +12,7 @@ my $td = tempdir( CLEANUP => 0 );
 my $octree = "$td/bv$$.oct";
 my $ambf = "$td/af$$.amb";
 my $raddev = "x11";	# default output device. Overwrite with -o
-my $qual = "Low";
+my $qual = "Med";
 my $usetrad = 0;
 
 my $opts = "";	# Options common to rad
@@ -105,7 +105,7 @@ UP= +Z
 OCTREE= $octree
 oconv= -w -f
 AMBF= $ambf
-QUAL = $qual
+QUAL= $qual
 render= $rendopts
 view= def -vp 0 -50 50 -vd 0 50 -50 -vh 45 -vv 30
 view= fr -vp 15 -30 30 -vd 0 30 -30
@@ -118,7 +118,7 @@ EndOfRif
 close(FH);
 
 if ($usetrad) {
-	system "trad $rif";
+	system "rad -v 0 $rif ; trad $rif";
 } else {
 	system "rad -o $raddev $opts $rif";
 }