diff options
Diffstat (limited to 'PerlTQt/examples/opengl/box/GLBox.pm')
| -rw-r--r-- | PerlTQt/examples/opengl/box/GLBox.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/PerlTQt/examples/opengl/box/GLBox.pm b/PerlTQt/examples/opengl/box/GLBox.pm index 1c6ceb8..99eae9c 100644 --- a/PerlTQt/examples/opengl/box/GLBox.pm +++ b/PerlTQt/examples/opengl/box/GLBox.pm @@ -75,7 +75,7 @@ sub makeObject glLineWidth( 2.0 ); - glBegin( GL_TQUADS ); + glBegin( GL_QUADS ); 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_TQUADS ); + glBegin( GL_QUADS ); 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_TQUAD_STRIP ); + glBegin( GL_QUAD_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 ); |