| 90 |
|
} |
| 91 |
|
} |
| 92 |
|
die "Number of processes must be positive" if ($nprocs <= 0); |
| 93 |
< |
if ($outpic) { # redirect output? |
| 93 |
> |
if (defined $outpic) { # redirect output? |
| 94 |
> |
die "File '$outpic' already exists\n" if (-e $outpic); |
| 95 |
|
open STDOUT, '>', "$outpic"; |
| 96 |
|
} |
| 97 |
|
if ($nprocs == 1) { # may as well run rpict? |
| 104 |
|
push @rtraceA, ("-n", "$nprocs"); |
| 105 |
|
push @rtraceA, $ARGV[0]; |
| 106 |
|
my @view = (`@vwrightA 0`); |
| 107 |
< |
exec "@vwraysA | @rtraceA | getinfo -a 'VIEW=@view'"; |
| 107 |
> |
exec qq{@vwraysA | @rtraceA | getinfo -a "VIEW=@view"}; |
