| 179 |
|
system "@vwraysA -ff -i < /tmp/ord$$.txt " . |
| 180 |
|
"| @rtraceA -ffa -ov '$oct' > /tmp/pix$$.txt"; |
| 181 |
|
die "Error running rtrace\n" if ( $? ); |
| 182 |
< |
system "( getinfo < /tmp/pix$$.txt | getinfo -a 'VIEW=$view'; " . |
| 182 |
> |
system "( getinfo < /tmp/pix$$.txt | getinfo -r NCOMP " . |
| 183 |
> |
"| getinfo -a 'VIEW=$view'; " . |
| 184 |
|
"getinfo - < /tmp/pix$$.txt | rlam /tmp/ord$$.txt - " . |
| 185 |
|
"| sort -k2rn -k1n ) | @pvalueA -Y $res[3] +X $res[1]"; |
| 186 |
|
die "rlam error\n" if ( $? ); |
| 199 |
|
##################################################################### |
| 200 |
|
##### Generating picture with depth buffer? |
| 201 |
|
if (defined $outzbf) { |
| 202 |
< |
my $picvt = $specout ? 'rmtxcomb -fc -' : "@pvalueA -df"; |
| 202 |
> |
my $picvt = $specout ? 'rcomb -fc -' : "@pvalueA -df"; |
| 203 |
|
exec "@vwraysA -ff | @rtraceA -fff -olv @res '$oct' | " . |
| 204 |
|
"rsplit -ih -iH -f -of '$outzbf' -oh -oH -of$ncsamp - | " . |
| 205 |
|
$picvt . " | getinfo -a 'VIEW=$view'"; |
| 230 |
|
# Arguments for rsplit based on output file type |
| 231 |
|
my %rcodeC = ( |
| 232 |
|
'.hdr', ['-of3', "!@pvalueA -df -u"], |
| 233 |
< |
'.hsr', ["-of$ncsamp", '!rmtxcomb -fc -'], |
| 233 |
> |
'.hsr', ["-of$ncsamp", '!rcomb -fc -'], |
| 234 |
|
'.dpt', ['-of', "!rcode_depth$refDepth -ff"], |
| 235 |
|
'.nrm', ['-of3', '!rcode_norm -ff'], |
| 236 |
|
'.idx', ['-oa', '!rcode_ident "-t "'] |