(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| VRML.pm (PDL-2.082) | : | VRML.pm (PDL-2.083) |
|---|
| | |
| skipping to change at line 279 | | skipping to change at line 279 |
|---|
| | |
| package PDL::Graphics::VRML; | | package PDL::Graphics::VRML; |
| use PDL::Core ''; | | use PDL::Core ''; |
| | |
| %PDL::Graphics::VRML::Protos = (); | | %PDL::Graphics::VRML::Protos = (); |
| | |
| sub new { | | sub new { |
| my ($type,$title,$info) = @_; | | my ($type,$title,$info) = @_; |
| my $this = bless {},$type; | | my $this = bless {},$type; |
| $this->{Header} = '#VRML V2.0 utf8'; | | $this->{Header} = '#VRML V2.0 utf8'; |
|
| $this->{Info} = new PDL::Graphics::VRMLNode('WorldInfo', | | $this->{Info} = PDL::Graphics::VRMLNode->new('WorldInfo', |
| 'title' => $title, | | 'title' => $title, |
| 'info' => $info); | | 'info' => $info); |
|
| $this->{NaviInfo} = new PDL::Graphics::VRMLNode('NavigationInfo', | | $this->{NaviInfo} = PDL::Graphics::VRMLNode->new('NavigationInfo', |
| 'type' => '["EXAMINE", "ANY"]'); | | 'type' => '["EXAMINE", "ANY"]'); |
| $this->{Protos} = {}; | | $this->{Protos} = {}; |
| $this->{Uses} = {}; | | $this->{Uses} = {}; |
| $this->{Scene} = undef; | | $this->{Scene} = undef; |
| return $this; | | return $this; |
| } | | } |
| | |
| sub register_proto { | | sub register_proto { |
| my ($this,@protos) = @_; | | my ($this,@protos) = @_; |
| for (@protos) { | | for (@protos) { |
| | | |
| End of changes. 2 change blocks. |
|---|
| 2 lines changed or deleted | | 2 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 