"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/POGL/OpenGL.pm" between
PDL-2.082.tar.gz and PDL-2.083.tar.gz

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

OpenGL.pm  (PDL-2.082)	:	OpenGL.pm  (PDL-2.083)
skipping to change at line 159		skipping to change at line 159
sub new {		sub new {
my($class_or_hash,$options,$window_type) = @_;		my($class_or_hash,$options,$window_type) = @_;
my $isref = ref($class_or_hash);		my $isref = ref($class_or_hash);
my $p;		my $p;
# OpenGL::glpSetDebug(1);		# OpenGL::glpSetDebug(1);
if($isref and defined $class_or_hash->{Options}){		if($isref and defined $class_or_hash->{Options}){
$p = $class_or_hash->{Options};		$p = $class_or_hash->{Options};
}else{		}else{
my $opt = new PDL::Options(default_options());		my $opt = PDL::Options->new(default_options());
$opt->incremental(1);		$opt->incremental(1);
$opt->options($options) if(defined $options);		$opt->options($options) if(defined $options);
$p = $opt->options;		$p = $opt->options;
}		}
# Use GLUT windows and event handling as the TriD default		# Use GLUT windows and event handling as the TriD default
$window_type ||= $PDL::Config{POGL_WINDOW_TYPE};		$window_type ||= $PDL::Config{POGL_WINDOW_TYPE};
# $window_type ||= 'x11'; # use X11 default until glut code is ready		# $window_type ||= 'x11'; # use X11 default until glut code is ready
my $self;		my $self;
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---