| 15 |
|
my $qual = "Med"; |
| 16 |
|
my $usetrad = 0; |
| 17 |
|
|
| 18 |
< |
my $opts = ""; # Options common to rad |
| 18 |
> |
my @range; # BSDF min and max range |
| 19 |
> |
my $opts = ""; # Options common to rad |
| 20 |
|
my $rendopts = "-w-"; # For render= line in rif file |
| 21 |
|
|
| 22 |
|
while (@ARGV) { |
| 41 |
|
$opts .= " $_"; |
| 42 |
|
} elsif (m/^-t\b/) { # start trad instead of rad |
| 43 |
|
$usetrad = 1; |
| 44 |
+ |
} elsif (m/^-r/) { # specified range for BSDF |
| 45 |
+ |
@range = ("-r", $ARGV[1], $ARGV[2]); |
| 46 |
+ |
shift @ARGV; shift @ARGV; |
| 47 |
|
} elsif (m/^-\w/) { |
| 48 |
|
die("bsdfview: Bad option: $_\n"); |
| 49 |
|
} else { |
| 91 |
|
exit; |
| 92 |
|
} |
| 93 |
|
|
| 94 |
+ |
if ($objects[0] =~ /\.xml$/i) { |
| 95 |
+ |
system "checkBSDF $objects[0]"; |
| 96 |
+ |
die "Bad XML input\n" if ( $? ); |
| 97 |
+ |
} |
| 98 |
+ |
|
| 99 |
|
print "bsdfview: creating rad input file '$rif'\n"; |
| 100 |
|
|
| 101 |
< |
my $scene = qq("!bsdf2rad @objects"); # let bsdf2rad do complaining |
| 101 |
> |
my $scene = qq("!bsdf2rad @range @objects"); # let bsdf2rad do complaining |
| 102 |
|
|
| 103 |
|
my $objects = join(' ', @objects); |
| 104 |
|
open(FH, ">$rif") or |
| 127 |
|
close(FH); |
| 128 |
|
|
| 129 |
|
if ($usetrad) { |
| 130 |
< |
system "trad $rif"; |
| 130 |
> |
system "rad -v 0 $rif ; trad $rif"; |
| 131 |
|
} else { |
| 132 |
|
system "rad -o $raddev $opts $rif"; |
| 133 |
|
} |
