hedgewars/uWorld.pas
changeset 10523 00ac079fa51f
parent 10510 9329dab04490
child 10530 5a65f09455c4
--- a/hedgewars/uWorld.pas	Thu Nov 20 16:38:43 2014 +0100
+++ b/hedgewars/uWorld.pas	Fri Nov 21 02:03:19 2014 +0100
@@ -1040,6 +1040,9 @@
         end;
 
     (*
+    WARNING: the following render code is outdated and does not work with
+             current Render.pas ! - don't just uncomment without fixing it first
+
     glDisable(GL_TEXTURE_2D);
     glDisableClientState(GL_TEXTURE_COORD_ARRAY);
     if (WorldEdge = weWrap) or (worldEdge = weBounce) then
@@ -1729,12 +1732,12 @@
         VertexBuffer[3].X:= cScreenWidth;
         VertexBuffer[3].Y:= cScreenHeight;
 
-        glDisable(GL_TEXTURE_2D);
+        EnableTexture(false);
 
-        glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]);
+        SetVertexPointer(@VertexBuffer[0], 4);
         glDrawArrays(GL_TRIANGLE_FAN, 0, High(VertexBuffer) - Low(VertexBuffer) + 1);
 
-        glEnable(GL_TEXTURE_2D);
+        EnableTexture(true);
         untint;
         if not isFirstFrame and ((ScreenFadeValue = 0) or (ScreenFadeValue = sfMax)) then
             ScreenFade:= sfNone