"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/TriD/Lines.pm" between
PDL-2.074.tar.gz and PDL-2.075.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.074):Lines.pm  (PDL-2.075)
skipping to change at line 38 skipping to change at line 38
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);
my $first = 1; my $first = 1;
PDL::threadover_n($this->{X},$this->{Y},$this->{Z},$this->{Color},sub { PDL::broadcastover_n($this->{X},$this->{Y},$this->{Z},$this->{Color},sub {
if(shift > 0) { if(shift > 0) {
if(!$first) { if(!$first) {
glEnd(); glEnd();
glBegin(&GL_LINE_STRIP); glBegin(&GL_LINE_STRIP);
} else {$first = 0;} } else {$first = 0;}
} }
my $color = pop @_; my $color = pop @_;
glColor3f($color,0,1-$color); glColor3f($color,0,1-$color);
glVertex3d(@_); glVertex3d(@_);
# print "VERTEX: ",(join ",",@_),"\n"; # print "VERTEX: ",(join ",",@_),"\n";
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

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