File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 11use strict;
22use warnings;
3- use OpenGL::Modern qw/
4- glRotatef glTranslatef
5- GL_LINE_STRIP GL_LINE_LOOP
6- GL_MODELVIEW GL_PROJECTION
7- / ;
8- use PDL::Core qw( barf) ;
93
104{ package # hide from PAUSE
115 PDL::Graphics::TriD::Material;
@@ -52,6 +46,7 @@ sub PDL::Graphics::TriD::Graph::togl {
5246 }
5347}
5448
49+ use OpenGL::Modern qw( glRotatef) ;
5550use POSIX qw/ / ;
5651sub PDL ::Graphics::TriD::Quaternion::togl {
5752 my ($this ) = @_ ;
@@ -528,6 +523,7 @@ sub gdraw {
528523}
529524}
530525
526+ use OpenGL::Modern qw( GL_LINE_STRIP GL_LINE_LOOP) ;
531527my %mode2enum = (
532528 linestrip => GL_LINE_STRIP,
533529 lineloop => GL_LINE_LOOP,
@@ -600,6 +596,7 @@ sub gdraw {
600596}
601597}
602598
599+ use OpenGL::Modern qw( glTranslatef) ;
603600sub PDL ::Graphics::TriD::SimpleController::togl {
604601 my ($this ) = @_ ;
605602 $this -> {CRotation }-> togl();
You can’t perform that action at this time.
0 commit comments