# | 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 && ( $ttree == 3 || "$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 |