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