[svn:parrot] r39602 - trunk/examples/opengl

[japhb at svn.parrot.org]

Author: japhb
Date: Wed Jun 17 02:13:27 2009
New Revision: 39602
URL: https://trac.parrot.org/parrot/changeset/39602

Log:
[OpenGL] shapes.p6: GLU annulus reflective floor now working; clean up unfile Rakudo bug markers

Modified:
   trunk/examples/opengl/shapes.p6

Modified: trunk/examples/opengl/shapes.p6
==============================================================================
--- trunk/examples/opengl/shapes.p6	Wed Jun 17 02:13:22 2009	(r39601)
+++ trunk/examples/opengl/shapes.p6	Wed Jun 17 02:13:27 2009	(r39602)
@@ -89,7 +89,7 @@
     # Enter the GLUT main loop
     glutMainLoop();
 
-    # Rakudo bug -- glutMainLoop() never returns, but Rakudo dies without this
+    # XXX: Rakudo bug -- glutMainLoop() never returns, but Rakudo dies without this
     return;
 }
 
@@ -127,7 +127,7 @@
 
     glViewport(0, 0, $width, $height);
 
-    # Rakudo bug -- Rakudo dies without this
+    # XXX: Rakudo bug -- Rakudo dies without this
     return;
 }
 
@@ -184,6 +184,7 @@
     # Set stencil for just the reflecting area
     glEnable(GL_STENCIL_TEST);
     glStencilOp(GL_REPLACE, GL_REPLACE, GL_REPLACE);
+    # XXX: Rakudo bug - decimalized constant in PIR code does wrong thing
     # glStencilFunc(GL_ALWAYS, 1, 0xffffffff);
     glStencilFunc(GL_ALWAYS, 1, +^0);
 
@@ -192,6 +193,7 @@
 
     # Now only draw where stencil is set
     glStencilOp(GL_KEEP, GL_KEEP, GL_KEEP);
+    # XXX: Same Rakudo bug (wrong constant)
     # glStencilFunc(GL_EQUAL, 1, 0xffffffff);
     glStencilFunc(GL_EQUAL, 1, +^0);
 
@@ -248,9 +250,9 @@
     glRotatef(90, 1, 0, 0);
 
     # Annulus floor (shapes sit in various spots above it)
-#     my $glu_quadric = gluNewQuadric();
-#     gluDisk($glu_quadric, 1, 2, 128, 1);
-#     gluDeleteQuadric($glu_quadric);
+    my $glu_quadric = gluNewQuadric();
+    gluDisk($glu_quadric, 1, 2, 128, 1);
+    gluDeleteQuadric($glu_quadric);
 
     glPopMatrix();
 }