"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/TriD/Labels.pm" between
PDL-2.077.tar.gz and PDL-2.078.tar.gz

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

Labels.pm  (PDL-2.077):Labels.pm  (PDL-2.078)
=head1 NAME =head1 NAME
PDL::Graphics::TriD::Labels -- Text tools PDL::Graphics::TriD::Labels - Text tools
=head1 SYNOPSIS =head1 SYNOPSIS
my $l = new PDL::Graphics::TriD::Labels($lablepoints, my $l = new PDL::Graphics::TriD::Labels($lablepoints,
{Strings=>$strlist {Strings=>$strlist
,Font=>$font}); ,Font=>$font});
=head1 WARNING =head1 WARNING
This module is experimental and the interface will probably change. This module is experimental and the interface will probably change.
skipping to change at line 34 skipping to change at line 34
to redistribute this software / documentation under certain to redistribute this software / documentation under certain
conditions. For details, see the file COPYING in the PDL conditions. For details, see the file COPYING in the PDL
distribution. If this file is separated from the PDL distribution, distribution. If this file is separated from the PDL distribution,
the copyright notice should be included in the file. the copyright notice should be included in the file.
=cut =cut
package PDL::Graphics::TriD::Labels; package PDL::Graphics::TriD::Labels;
use strict; use strict;
use warnings; use warnings;
use OpenGL qw(:all); use OpenGL qw/ :glfunctions :glconstants /;
use OpenGL::GLUT qw/ :all /;
use PDL::Graphics::OpenGL::Perl::OpenGL; use PDL::Graphics::OpenGL::Perl::OpenGL;
use PDL::Graphics::OpenGLQ; use PDL::Graphics::OpenGLQ;
use base qw/PDL::Graphics::TriD::GObject/; use base qw/PDL::Graphics::TriD::GObject/;
sub gdraw { sub gdraw {
my($this,$points) = @_; my($this,$points) = @_;
glDisable(&GL_LIGHTING); glDisable(&GL_LIGHTING);
glColor3d(1,1,1); glColor3d(1,1,1);
PDL::Graphics::OpenGLQ::gl_texts($points,$this->{Options}{Font},$this->{O ptions}{Strings}); PDL::Graphics::OpenGLQ::gl_texts($points,done_glutInit(),@{$this->{Option s}}{qw(Font Strings)});
glEnable(&GL_LIGHTING); glEnable(&GL_LIGHTING);
} }
$PDL::Graphics::TriD::GL::fontbase = $PDL::Graphics::TriD::GL::fontbase; $PDL::Graphics::TriD::GL::fontbase = $PDL::Graphics::TriD::GL::fontbase;
sub get_valid_options { sub get_valid_options {
return {UseDefcols => 0, Font=>$PDL::Graphics::TriD::GL::fontbase, Strings => [] } return {UseDefcols => 0, Font=>$PDL::Graphics::TriD::GL::fontbase, Strings => [] }
} }
1; 1;
 End of changes. 3 change blocks. 
3 lines changed or deleted 4 lines changed or added

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