"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/TriD/Object.pm" between
PDL-2.082.tar.gz and PDL-2.083.tar.gz

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

Object.pm  (PDL-2.082)	:	Object.pm  (PDL-2.083)
skipping to change at line 81		skipping to change at line 81
my($this) = @_;		my($this) = @_;
print "VALID0 $this\n" if $PDL::Graphics::TriD::verbose;		print "VALID0 $this\n" if $PDL::Graphics::TriD::verbose;
$this->{ValidList} = 0;		$this->{ValidList} = 0;
$_->($this) for @{$this->{ChangedSub}};		$_->($this) for @{$this->{ChangedSub}};
}		}
sub vrml_update {		sub vrml_update {
my ($this) = @_;		my ($this) = @_;
use PDL::Graphics::VRML;		use PDL::Graphics::VRML;
$this->{VRML} = new PDL::Graphics::VRMLNode('Transform',		$this->{VRML} = PDL::Graphics::VRMLNode->new('Transform',
'translation' => "-1 -1 -1",		'translation' => "-1 -1 -1",
'scale' => "2 2 2");		'scale' => "2 2 2");
$this->{ValidList} = 1;		$this->{ValidList} = 1;
}		}
sub tovrml {		sub tovrml {
my($this) = @_;		my($this) = @_;
print ref($this)," valid=",$this->{ValidList}," tovrml\n";		print ref($this)," valid=",$this->{ValidList}," tovrml\n";
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---