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/gear | |
| parent | ea64efae1b174ca348967f6ad42d49873843ac70 (diff) | |
| download | libtqt-perl-d84f35f4056f3175f0a7e2a16e7a00b2276206be.tar.gz libtqt-perl-d84f35f4056f3175f0a7e2a16e7a00b2276206be.zip | |
Fix inadvertent renaming.
Diffstat (limited to 'PerlTQt/examples/opengl/gear')
| -rw-r--r-- | PerlTQt/examples/opengl/gear/gear | 12 |
1 files changed, 6 insertions, 6 deletions
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); |