diff options
Diffstat (limited to 'PerlQt/examples/opengl/box/GLBox.pm')
| -rw-r--r-- | PerlQt/examples/opengl/box/GLBox.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/PerlQt/examples/opengl/box/GLBox.pm b/PerlQt/examples/opengl/box/GLBox.pm index dd6ceb9..1c6ceb8 100644 --- a/PerlQt/examples/opengl/box/GLBox.pm +++ b/PerlQt/examples/opengl/box/GLBox.pm @@ -4,13 +4,13 @@ use OpenGL qw(:all); use strict; -use Qt; -use Qt::isa qw(Qt::GLWidget); -use Qt::slots +use TQt; +use TQt::isa qw(TQt::GLWidget); +use TQt::slots setXRotation => ['int'], setYRotation => ['int'], setZRotation => ['int']; -use Qt::attributes qw( +use TQt::attributes qw( xRot yRot zRot @@ -75,7 +75,7 @@ sub makeObject glLineWidth( 2.0 ); - glBegin( GL_QUADS ); + glBegin( GL_TQUADS ); glVertex3f( 1.0, 0.5, -0.4 ); glVertex3f( 1.0, -0.5, -0.4 ); glVertex3f( -1.0, -0.5, -0.4 ); @@ -84,7 +84,7 @@ sub makeObject qglColor( &blue ); - glBegin( GL_QUADS ); + glBegin( GL_TQUADS ); glVertex3f( 1.0, 0.5, 0.4 ); glVertex3f( 1.0, -0.5, 0.4 ); glVertex3f( -1.0, -0.5, 0.4 ); @@ -93,7 +93,7 @@ sub makeObject qglColor( &darkRed ); - glBegin( GL_QUAD_STRIP ); + glBegin( GL_TQUAD_STRIP ); glVertex3f( 1.0, 0.5, -0.4 ); glVertex3f( 1.0, 0.5, 0.4 ); glVertex3f( 1.0, -0.5, -0.4 ); glVertex3f( 1.0, -0.5, 0.4 ); qglColor( &yellow ); |