"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/TriD/Lines.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).

Lines.pm  (PDL-2.076)	:	Lines.pm  (PDL-2.077)
skipping to change at line 25		skipping to change at line 25
X => $x, Y => $y, Z => $z,		X => $x, Y => $y, Z => $z,
Color => $color,		Color => $color,
};		};
bless $this,$type;		bless $this,$type;
}		}
sub get_boundingbox {		sub get_boundingbox {
my ($this) = @_;		my ($this) = @_;
my (@mins,@maxs);		my (@mins,@maxs);
for (qw(X Y Z)) {		for (qw(X Y Z)) {
push @mins, $this->{$_}->min();		push @mins, $this->{$_}->min->sclr;
push @maxs, $this->{$_}->max();		push @maxs, $this->{$_}->max->sclr;
}		}
print "LineBound: ",(join ',',@mins,@maxs),"\n";		print "LineBound: ",(join ',',@mins,@maxs),"\n";
return PDL::Graphics::TriD::BoundingBox->new( @mins,@maxs );		return PDL::Graphics::TriD::BoundingBox->new( @mins,@maxs );
}		}
# XXX Color is ignored.		# XXX Color is ignored.
sub togl {		sub togl {
my($this) = @_;		my($this) = @_;
glDisable(GL_LIGHTING);		glDisable(GL_LIGHTING);
glBegin(&GL_LINE_STRIP);		glBegin(&GL_LINE_STRIP);
End of changes. 1 change blocks.
2 lines changed or deleted		2 lines changed or added

---