still messing with rendering
authorsheepluva
Tue, 24 Mar 2015 21:18:05 +0100
changeset 10873 84c00d1127d6
parent 10872 0ad3c53992d2
child 10874 059a6492176e
still messing with rendering
hedgewars/uRender.pas
--- a/hedgewars/uRender.pas	Tue Mar 24 22:51:49 2015 +0300
+++ b/hedgewars/uRender.pas	Tue Mar 24 21:18:05 2015 +0100
@@ -95,14 +95,9 @@
 
 procedure UpdateModelviewProjection(); inline;
 
-procedure openglLoadIdentity    (); inline;
-procedure openglTranslProjMatrix(X, Y, Z: GLFloat); inline;
 procedure openglPushMatrix      (); inline;
 procedure openglPopMatrix       (); inline;
 procedure openglTranslatef      (X, Y, Z: GLfloat); inline;
-procedure openglScalef          (ScaleX, ScaleY, ScaleZ: GLfloat); inline;
-procedure openglRotatef         (RotX, RotY, RotZ: GLfloat; dir: LongInt); inline;
-procedure openglTint            (r, g, b, a: Byte); inline;
 
 
 implementation
@@ -135,6 +130,12 @@
     texLRDtb, texLvb, texRvb: array [0..3] of TVertex2f;
 {$ENDIF}
 
+procedure openglLoadIdentity    (); forward;
+procedure openglTranslProjMatrix(X, Y, Z: GLFloat); forward;
+procedure openglScalef          (ScaleX, ScaleY, ScaleZ: GLfloat); forward;
+procedure openglRotatef         (RotX, RotY, RotZ: GLfloat; dir: LongInt); forward;
+procedure openglTint            (r, g, b, a: Byte); forward;
+
 procedure CreateFramebuffer(var frame, depth, tex: GLuint); forward;
 procedure DeleteFramebuffer(var frame, depth, tex: GLuint); forward;
 
@@ -1584,11 +1585,6 @@
 firsti:= -1;
 afteri:=  0;
 
-if GameTicks < 2000 then
-    lol:= 2000 - GameTicks
-else
-    lol:= 0;
-
 if InTopY < 0 then
     InTopY:= 0;
 
@@ -1600,6 +1596,13 @@
     end
 else
     begin
+
+    // animate water walls raise animation at start of game
+    if GameTicks < 2000 then
+        lol:= 2000 - GameTicks
+    else
+        lol:= 0;
+
     if InLeftX > ViewLeftX then
         begin
         VertexBuffer[0].X:= OutLeftX - lol;