diff options
| author | Darrell Anderson <[email protected]> | 2013-05-04 23:52:45 -0500 |
|---|---|---|
| committer | Darrell Anderson <[email protected]> | 2013-05-04 23:52:45 -0500 |
| commit | d84f35f4056f3175f0a7e2a16e7a00b2276206be (patch) | |
| tree | 65e3ae159ad9018bba5e37e62b53e080889bbaf7 /PerlTQt/examples/opengl/box/GLBox.pm | |
| parent | ea64efae1b174ca348967f6ad42d49873843ac70 (diff) | |
| download | libtqt-perl-d84f35f4056f3175f0a7e2a16e7a00b2276206be.tar.gz libtqt-perl-d84f35f4056f3175f0a7e2a16e7a00b2276206be.zip | |
Fix inadvertent renaming.
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 ); |