"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/TriD/VRML.pm" between
PDL-2.076.tar.gz and PDL-2.077.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

VRML.pm  (PDL-2.076):VRML.pm  (PDL-2.077)
skipping to change at line 315 skipping to change at line 315
} }
for(sort keys %{$this->{Data}}) { for(sort keys %{$this->{Data}}) {
push @children, push @children,
$this->{Data}{$_}->tovrml_graph($this,$this->get_points($_)); $this->{Data}{$_}->tovrml_graph($this,$this->get_points($_));
} }
return vrn('Group', 'children' => [@children]); return vrn('Group', 'children' => [@children]);
} }
sub PDL::Graphics::TriD::EuclidAxes::tovrml_axis { sub PDL::Graphics::TriD::EuclidAxes::tovrml_axis {
my($this,$graph) = @_; my($this,$graph) = @_;
my $vrml = $PDL::Graphics::VRML::cur; my $vrml = $PDL::Graphics::VRML::current_window;
my $lset = vrn('Shape', my $lset = vrn('Shape',
'geometry' => vrn('IndexedLineSet', 'geometry' => vrn('IndexedLineSet',
'coord', 'coord',
vrn('Coordinate', vrn('Coordinate',
'point',["0 0 0", 'point',["0 0 0",
"1 0 0", "1 0 0",
"0 1 0", "0 1 0",
"0 0 1"]), "0 0 1"]),
'coordIndex',["0,1,-1", 'coordIndex',["0,1,-1",
"0,2,-1", "0,2,-1",
skipping to change at line 553 skipping to change at line 553
if ($this->{'Binding'} eq 'local') { $proto = 'file' } if ($this->{'Binding'} eq 'local') { $proto = 'file' }
elsif ($this->{'Binding'} eq 'publish') { elsif ($this->{'Binding'} eq 'publish') {
$proto = 'http'; barf "not yet implemented" } $proto = 'http'; barf "not yet implemented" }
else { barf "unknown binding" } else { barf "unknown binding" }
return "$proto:".$this->wfile; return "$proto:".$this->wfile;
} }
sub save { &{$_[0]->{Type}->{save}}(@_) } sub save { &{$_[0]->{Type}->{save}}(@_) }
package PDL::Graphics::TriD::VRML; package PDL::Graphics::TriD::VRML;
$PDL::Graphics::VRML::cur = undef; $PDL::Graphics::VRML::current_window = undef;
$PDL::Graphics::TriD::create_window_sub = $PDL::Graphics::TriD::create_window_sub =
$PDL::Graphics::TriD::create_window_sub = sub { $PDL::Graphics::TriD::create_window_sub = sub {
return new PDL::Graphics::TriD::Window; return new PDL::Graphics::TriD::Window;
}; };
# set up the default parameters for VRML # set up the default parameters for VRML
my $tmpdir = File::Temp::tempdir(CLEANUP=>1); my $tmpdir = File::Temp::tempdir(CLEANUP=>1);
my $tmpname = "$tmpdir/tridvrml_$$.wrl"; my $tmpname = "$tmpdir/tridvrml_$$.wrl";
my $para = $PDL::Graphics::TriD::Settings = my $para = $PDL::Graphics::TriD::Settings =
PDL::Graphics::TriD::VRML::Parameter->new() ; PDL::Graphics::TriD::VRML::Parameter->new() ;
skipping to change at line 611 skipping to change at line 611
$this->{Width} = 300; $this->{Height} = 300; $this->{Width} = 300; $this->{Height} = 300;
$this->{VRMLTop} = new PDL::Graphics::VRML("\"PDL::Graphics::TriD::VRML Scene\ "", $this->{VRMLTop} = new PDL::Graphics::VRML("\"PDL::Graphics::TriD::VRML Scene\ "",
["\"generated by the PDL::Graphics::TriD module \"", ["\"generated by the PDL::Graphics::TriD module \"",
"\"version $PDL::VERSION\""]); "\"version $PDL::VERSION\""]);
my $fontstyle = new PDL::Graphics::VRMLNode('FontStyle', my $fontstyle = new PDL::Graphics::VRMLNode('FontStyle',
'size' => 0.04, 'size' => 0.04,
'family' => "\"SANS\"", 'family' => "\"SANS\"",
'justify' => "\"MIDDLE\""); 'justify' => "\"MIDDLE\"");
$PDL::Graphics::TriD::VRML::fontstyle = $fontstyle; $PDL::Graphics::TriD::VRML::fontstyle = $fontstyle;
$this->{VRMLTop}->add_proto(PDL::Graphics::TriD::SimpleController->new->tovrml ); $this->{VRMLTop}->add_proto(PDL::Graphics::TriD::SimpleController->new->tovrml );
$PDL::Graphics::VRML::cur = $this->{VRMLTop}; $PDL::Graphics::VRML::current_window = $this->{VRMLTop};
$this->{VRMLTop}->register_proto( $this->{VRMLTop}->register_proto(
vrp('TriDGraphText', vrp('TriDGraphText',
[fv3f('position',"0 0 0"), [fv3f('position',"0 0 0"),
fmstr('text')], fmstr('text')],
vrn('Transform', vrn('Transform',
'translation' => "IS position", 'translation' => "IS position",
'children' => 'children' =>
[vrn('Billboard', [vrn('Billboard',
'axisOfRotation' => '0 0 0', 'axisOfRotation' => '0 0 0',
'children' => 'children' =>
 End of changes. 3 change blocks. 
3 lines changed or deleted 3 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)