"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

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