45 |
|
q[| sed -n 's/^.* -aa \([.0-9][^ ]*\) .*$/\1/p']; |
46 |
|
my $ambacc=`$cmd`; |
47 |
|
die "Missing -aa setting in header\n" if (! $ambacc ); |
48 |
+ |
die "Zero -aa setting in header\n" if ($ambacc <= .00001); |
49 |
|
$scale *= $ambacc; |
50 |
|
my $ambfmt = ' |
51 |
|
void glow posglow |
56 |
|
posglow sphere position${recno} |
57 |
|
0 |
58 |
|
0 |
59 |
< |
4 ${px} ${py} ${pz} ${psiz} |
59 |
> |
4 ${ px } ${ py } ${ pz } ${ psiz } |
60 |
|
'; |
61 |
|
my $posgradfmt = ' |
62 |
|
void glow arrglow |
105 |
|
tipglow sphere atip |
106 |
|
0 |
107 |
|
0 |
108 |
< |
4 ${ cx1 } ${ cy1 } ${ cz1 } ${psiz/7} |
108 |
> |
4 ${ cx1 } ${ cy1 } ${ cz1 } ${psiz/7} |
109 |
|
' if ($dodirgrad); |
110 |
|
my $dirgradfmt=' |
111 |
|
void brightfunc dgpat |