| 12 |
|
my $octree = "$td/bv$$.oct"; |
| 13 |
|
my $ambf = "$td/af$$.amb"; |
| 14 |
|
my $raddev = "x11"; # default output device. Overwrite with -o |
| 15 |
< |
my $qual = "Low"; |
| 15 |
> |
my $qual = "Med"; |
| 16 |
|
my $usetrad = 0; |
| 17 |
|
|
| 18 |
|
my $opts = ""; # Options common to rad |
| 105 |
|
OCTREE= $octree |
| 106 |
|
oconv= -w -f |
| 107 |
|
AMBF= $ambf |
| 108 |
< |
QUAL = $qual |
| 108 |
> |
QUAL= $qual |
| 109 |
|
render= $rendopts |
| 110 |
|
view= def -vp 0 -50 50 -vd 0 50 -50 -vh 45 -vv 30 |
| 111 |
|
view= fr -vp 15 -30 30 -vd 0 30 -30 |
| 118 |
|
close(FH); |
| 119 |
|
|
| 120 |
|
if ($usetrad) { |
| 121 |
< |
system "trad $rif"; |
| 121 |
> |
system "rad -v 0 $rif ; trad $rif"; |
| 122 |
|
} else { |
| 123 |
|
system "rad -o $raddev $opts $rif"; |
| 124 |
|
} |