| # | 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"; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |