Fix inadvertent renaming.

2 files changed, 9 insertions, 9 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 );
diff --git a/PerlTQt/examples/opengl/gear/gear b/PerlTQt/examples/opengl/gear/gear
index d9e4c8a..caec1a3 100644
--- a/PerlTQt/examples/opengl/gear/gear
+++ b/PerlTQt/examples/opengl/gear/gear
@@ -54,7 +54,7 @@ sub gear {
     glNormal3f(0.0, 0.0, 1.0);
 
     # draw front face
-    glBegin(GL_TQUAD_STRIP);
+    glBegin(GL_QUAD_STRIP);
     for $i (0 .. $teeth) {
 	$angle = $i * 2.0*$pi / $teeth;
         glVertex3f($r0*cos($angle), $r0*sin($angle), $width*0.5);
@@ -65,7 +65,7 @@ sub gear {
     glEnd();
 
     # draw front sides of teeth
-    glBegin(GL_TQUADS);
+    glBegin(GL_QUADS);
     $da = 2.0*$pi / $teeth / 4.0;
     for $i (0 .. $teeth-1) {
        $angle = $i * 2.0*$pi / $teeth;
@@ -81,7 +81,7 @@ sub gear {
     glNormal3f(0.0, 0.0, -1.0);
 
     # draw back face
-    glBegin(GL_TQUAD_STRIP);
+    glBegin(GL_QUAD_STRIP);
     for $i (0 .. $teeth) {
         $angle = $i * 2.0*$pi / $teeth;
         glVertex3f($r1*cos($angle), $r1*sin($angle), -$width*0.5);
@@ -92,7 +92,7 @@ sub gear {
     glEnd();
 
     # draw back sides of teeth
-    glBegin(GL_TQUADS);
+    glBegin(GL_QUADS);
     $da = 2.0*$pi / $teeth / 4.0;
     for $i (0 .. $teeth-1) {
         $angle = $i * 2.0*$pi / $teeth;
@@ -105,7 +105,7 @@ sub gear {
     glEnd();
 
     # draw outward faces of teeth
-    glBegin(GL_TQUAD_STRIP);
+    glBegin(GL_QUAD_STRIP);
     for $i (0 .. $teeth-1) {
         $angle = $i * 2.0*$pi / $teeth;
 
@@ -139,7 +139,7 @@ sub gear {
     glShadeModel(GL_SMOOTH);
 
     # draw inside radius cylinder
-    glBegin(GL_TQUAD_STRIP);
+    glBegin(GL_QUAD_STRIP);
     for $i (0 .. $teeth) {
         $angle = $i * 2.0*$pi / $teeth;
         glNormal3f(-cos($angle), -sin($angle), 0.0);