"Fossies" - the Fresh Open Source Software Archive  

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

Graphics2D.pm  (PDL-2.074):Graphics2D.pm  (PDL-2.075)
skipping to change at line 615 skipping to change at line 615
the input image with 1:1 aspect ratio for pixels. The window the input image with 1:1 aspect ratio for pixels. The window
resize is constrained to the actual ratio of the image resize is constrained to the actual ratio of the image
dimensions. The initial display size is currently a 200x200 dimensions. The initial display size is currently a 200x200
window to prevent things from being too small by default. window to prevent things from being too small by default.
The image to display can have dimensions ($c,$M,$N) where for The image to display can have dimensions ($c,$M,$N) where for
$c==4 the display is in GL_RGBA, for $c==3 the display is GL_RGB, $c==4 the display is in GL_RGBA, for $c==3 the display is GL_RGB,
for $c==2 the display is GL_LUMINANCE_ALPHA, and for $c==1 or for for $c==2 the display is GL_LUMINANCE_ALPHA, and for $c==1 or for
for dimensions ($M,$N) then the display is GL_LUMINANCE. for dimensions ($M,$N) then the display is GL_LUMINANCE.
This routine does not yet thread but multiple images may be This routine does not yet broadcast but multiple images may be
viewed at the same time in separate windows by multiple viewed at the same time in separate windows by multiple
calls to imag2d(). TriD graphics visualization windows and the calls to imag2d(). TriD graphics visualization windows and the
imag2d() windows may be created and used independently. imag2d() windows may be created and used independently.
NOTE: If you are twiddling a TriD window, the imag2d() NOTE: If you are twiddling a TriD window, the imag2d()
windows are active as well. If you call twiddle() windows are active as well. If you call twiddle()
the sub, only the imag2d() windows will update correctly. the sub, only the imag2d() windows will update correctly.
=for usage =for usage
skipping to change at line 914 skipping to change at line 914
print STDERR "Type Q or q to stop twiddling...\n"; print STDERR "Type Q or q to stop twiddling...\n";
while ($imag2d_is_twiddling && scalar(@imag2d_list)) { while ($imag2d_is_twiddling && scalar(@imag2d_list)) {
glutMainLoopEvent(); glutMainLoopEvent();
} }
print STDERR "Stopped twiddle-ing!\n"; print STDERR "Stopped twiddle-ing!\n";
} }
glutMainLoopEvent(); glutMainLoopEvent();
} }
#------------------------------------------------------------------------ #------------------------------------------------------------------------
# Threaded image display as tiles (code from PDL::Graphics::TriD::Image) # Broadcasted image display as tiles (code from PDL::Graphics::TriD::Image)
#------------------------------------------------------------------------ #------------------------------------------------------------------------
# N-D ndarray -> 2-D # N-D ndarray -> 2-D
sub flatten { sub flatten {
my ($this,$bin_align) = @_; my ($this,$bin_align) = @_;
my @dims = $this->dims; my @dims = $this->dims;
my $imdim0 = shift @dims; # get rid of the '3' my $imdim0 = shift @dims; # get rid of the '3'
my $xd = $dims[0]; my $yd = $dims[1]; my $xd = $dims[0]; my $yd = $dims[1];
 End of changes. 2 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)