| # | Line 213 | Line 213 | if ( !defined $recovery ) { | |
|---|---|---|
| 213 | printf MGFSCN "xf -t %.6f %.6f 0\n", -($dim[0]+$dim[1])/2, -($dim[2]+$dim[3])/2; | |
| 214 | close MGFSCN; | |
| 215 | if ( $mgfin ) { | |
| 216 | + | die "+mgf requires input file with +geom\n" if ($#ARGV < 0); |
| 217 | system qq{mgfilt "#,o,xf,c,cxy,cspec,cmix,m,sides,rd,td,rs,ts,ir,v,p,n,f,fh,sph,cyl,cone,prism,ring,torus" @ARGV >> $mgfscn}; | |
| 218 | } else { | |
| 219 | system "rad2mgf $radscn >> $mgfscn"; | |
| # | Line 436 | Line 437 | sub ttree_comp { | |
| 437 | } | |
| 438 | } | |
| 439 | if ($pctcull >= 0) { | |
| 440 | < | my $avg = ( $dorecip && "$typ" =~ /^r[fb]/ ) ? " -a" : ""; |
| 440 | > | my $avg = ( $dorecip && ( $tensortree == 3 || "$typ" =~ /^r[fb]/ ) ) ? " -a" : ""; |
| 441 | my $pcull = ("$spec" eq "Visible") ? $pctcull : | |
| 442 | (100 - (100-$pctcull)*.25) ; | |
| 443 | if ($windoz) { | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |