| 76 |
|
"-e \"and(a,b):if(a,b,a);sq(x):x*x\" -e \"$vwset\" " . |
| 77 |
|
q{-e "nOK=sq(Vdx*$5+Vdy*$6+Vdz*$7)-.999" } . |
| 78 |
|
" > $td\\origins.txt"; |
| 79 |
< |
$rmtmp = "rmdir /S /Q $td"; |
| 79 |
> |
$rmtmp = "rd /S /Q $td"; |
| 80 |
|
} else { |
| 81 |
|
$td = mkdtemp("/tmp/genklemsamp.XXXXXX"); |
| 82 |
|
chomp $td; |
| 99 |
|
} |
| 100 |
|
# Do we have any Radiance input files? |
| 101 |
|
if ($#ARGV >= 0) { |
| 102 |
< |
system "oconv -f @ARGV > $td/surf.oct"; |
| 102 |
> |
system "xform -m void @ARGV | oconv - > $td/surf.oct"; |
| 103 |
|
# Set our own view center and size based on bounding cube |
| 104 |
|
$_ = $vwset; s/^.*Vdx://; s/;.*$//; |
| 105 |
|
my @vd = $_; |
