6 |
|
# G. Ward |
7 |
|
# |
8 |
|
use strict; |
9 |
+ |
use File::Temp qw/ :mktemp /; |
10 |
|
sub userror { |
11 |
|
print STDERR "Usage: genBSDF [-n Nproc][-c Nsamp][-r \"ropts\"][-dim xmin xmax ymin ymax zmin zmax][{+|-}f][{+|-}b][{+|-}mgf][{+|-}geom] [input ..]\n"; |
12 |
|
exit 1; |
13 |
|
} |
14 |
< |
my $td = `mktemp -d /tmp/genBSDF.XXXXXX`; |
14 |
> |
my $td = mkdtemp("/tmp/genBSDF.XXXXXX"); |
15 |
|
chomp $td; |
16 |
|
my $nsamp = 1000; |
17 |
|
my $rtargs = "-w -ab 5 -ad 700 -lw 3e-6"; |
62 |
|
die "Could not load MGF input\n" if ( $? ); |
63 |
|
system "mgf2rad $mgfscn > $radscn"; |
64 |
|
} else { |
65 |
< |
system "cat @ARGV | xform -e > $radscn"; |
65 |
> |
system "xform -e @ARGV > $radscn"; |
66 |
|
die "Could not load Radiance input\n" if ( $? ); |
67 |
|
system "rad2mgf $radscn > $mgfscn" if ( $geout ); |
68 |
|
} |