1 | #!/opt/perl/bin/perl |
1 | #!/opt/perl/bin/perl |
|
|
2 | |
|
|
3 | use common::sense; |
2 | |
4 | |
3 | use Cwd; |
5 | use Cwd; |
4 | use Math::VectorReal; |
6 | use Math::VectorReal; |
5 | use File::Spec::Functions; |
7 | use File::Spec::Functions; |
6 | use strict; |
|
|
7 | |
8 | |
8 | $Math::VectorReal::FORMAT = "x=\"%1.3f\" y=\"%1.3f\" z=\"%1.3f\""; |
9 | $Math::VectorReal::FORMAT = "x=\"%1.3f\" y=\"%1.3f\" z=\"%1.3f\""; |
9 | |
10 | |
10 | sub slurp { open FO, $_[0] or die "Couldn't open $_[0]: $!"; return join '', <FO> } |
11 | sub slurp { open FO, $_[0] or die "Couldn't open $_[0]: $!"; return join '', <FO> } |
11 | |
12 | |