diff options
| author | Darrell Anderson <humanreadable@yahoo.com> | 2013-05-04 23:52:45 -0500 |
|---|---|---|
| committer | Darrell Anderson <humanreadable@yahoo.com> | 2013-05-04 23:52:45 -0500 |
| commit | d84f35f4056f3175f0a7e2a16e7a00b2276206be (patch) | |
| tree | 65e3ae159ad9018bba5e37e62b53e080889bbaf7 /PerlTQt | |
| parent | ea64efae1b174ca348967f6ad42d49873843ac70 (diff) | |
| download | libtqt-perl-d84f35f4056f3175f0a7e2a16e7a00b2276206be.tar.gz libtqt-perl-d84f35f4056f3175f0a7e2a16e7a00b2276206be.zip | |
Fix inadvertent renaming.
Diffstat (limited to 'PerlTQt')
| -rw-r--r-- | PerlTQt/examples/opengl/box/GLBox.pm | 6 | ||||
| -rw-r--r-- | PerlTQt/examples/opengl/gear/gear | 12 |
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); |