Skip to content
This repository was archived by the owner on Mar 19, 2025. It is now read-only.

Commit 633b854

Browse files
committed
fix typos
1 parent 999c169 commit 633b854

File tree

1 file changed

+4
-11
lines changed

1 file changed

+4
-11
lines changed

test.pl

Lines changed: 4 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -73,8 +73,7 @@
7373
my $Inset_Height = 90;
7474
my $Window_State;
7575

76-
# Texture dimanesions
77-
#my $Tex_File = 'test.jpg';
76+
# Texture dimensions
7877
my $Tex_File = 'test.tga';
7978
my $Tex_Width = 128;
8079
my $Tex_Height = 128;
@@ -325,7 +324,6 @@ sub ourInitVertexBuffers
325324
($VertexObjID,$NormalObjID,$ColorObjID,$TexCoordObjID,$IndexObjID) =
326325
glGenBuffersARB_p(5);
327326

328-
#glBindBufferARB(GL_ARRAY_BUFFER_ARB, $VertexObjID);
329327
$verts->bind($VertexObjID);
330328
glBufferDataARB_p(GL_ARRAY_BUFFER_ARB, $verts, GL_STATIC_DRAW_ARB);
331329
glVertexPointer_c(3, GL_FLOAT, 0, 0);
@@ -346,24 +344,20 @@ sub ourInitVertexBuffers
346344
print " glGetBufferSubDataARB_p: $ords\n";
347345
}
348346

349-
#glBindBufferARB(GL_ARRAY_BUFFER_ARB, $NormalObjID);
350347
$norms->bind($NormalObjID);
351348
glBufferDataARB_p(GL_ARRAY_BUFFER_ARB, $norms, GL_STATIC_DRAW_ARB);
352349
glNormalPointer_c(GL_FLOAT, 0, 0);
353350

354-
#glBindBufferARB(GL_ARRAY_BUFFER_ARB, $ColorObjID);
355351
$colors->bind($ColorObjID);
356352
glBufferDataARB_p(GL_ARRAY_BUFFER_ARB, $colors, GL_DYNAMIC_DRAW_ARB);
357353
$rainbow->assign(0,@rainbow);
358354
glBufferSubDataARB_p(GL_ARRAY_BUFFER_ARB, $rainbow_offset, $rainbow);
359355
glColorPointer_c(4, GL_FLOAT, 0, 0);
360356

361-
#glBindBufferARB(GL_ARRAY_BUFFER_ARB, $TexCoordObjID);
362357
$texcoords->bind($TexCoordObjID);
363358
glBufferDataARB_p(GL_ARRAY_BUFFER_ARB, $texcoords, GL_STATIC_DRAW_ARB);
364359
glTexCoordPointer_c(2, GL_FLOAT, 0, 0);
365360

366-
#glBindBufferARB(GL_ELEMENT_ARRAY_BUFFER_ARB, $IndexObjID);
367361
$indices->bind($IndexObjID);
368362
glBufferDataARB_p(GL_ELEMENT_ARRAY_BUFFER_ARB, $indices, GL_STATIC_DRAW_ARB);
369363
}
@@ -858,7 +852,7 @@ sub cbRenderScene
858852
{
859853
glBlendFunc(GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA);
860854
}
861-
# If we're blending, we don'$t want z-buffering.
855+
# If we're blending, we don't want z-buffering.
862856
if ($Blend_On)
863857
{
864858
glDisable(GL_DEPTH_TEST);
@@ -955,7 +949,7 @@ sub cbRenderScene
955949
glDisable(GL_TEXTURE_2D);
956950
glDisable(GL_LIGHTING);
957951

958-
# We don'$t want depth-testing either.
952+
# We don't want depth-testing either.
959953
glDisable(GL_DEPTH_TEST);
960954

961955
# But, for fun, let's make the text partially transparent too.
@@ -987,7 +981,7 @@ sub cbRenderScene
987981
$buf = sprintf "Inset: %d", $Inset_On;
988982
glRasterPos2i(2,74); ourPrintString(GLUT_BITMAP_HELVETICA_12,$buf);
989983

990-
# Now we want to render the calulated FPS at the top.
984+
# Now we want to render the calculated FPS at the top.
991985
# To ease, simply translate up. Note we're working in screen
992986
# pixels in this projection.
993987
glTranslatef(6.0,$Window_Height - 14,0.0);
@@ -1582,7 +1576,6 @@ sub quit {
15821576

15831577
if (!OpenGL::glpCheckExtension('GL_ARB_vertex_buffer_object'))
15841578
{
1585-
#$hasVBO = 1;
15861579
# Perl 5.10 crashes on VBOs!
15871580
$hasVBO = ($PERL_VERSION !~ m|^5\.10\.|);
15881581
}

0 commit comments

Comments
 (0)