gl: draw sky with parallax

[d2df-sdl.git] / src / game / renders / opengl / r_render.pas

diff --git a/src/game/renders/opengl/r_render.pas b/src/game/renders/opengl/r_render.pas
index 568b8b893e6c0b27a22445d5f19a5bdd18f08fc2..2a385a15b4724838172a520fb0d2bf0ed2214b13 100644 (file)
--- a/src/game/renders/opengl/r_render.pas
+++ b/src/game/renders/opengl/r_render.pas
@@ -170,7 +170,7 @@ implementation
 
     glColor4ub(255, 255, 255, 255);
 
-    e_LogWritefln('r_render_draw: %sx%s', [gScreenWidth, gScreenHeight]);
+    //e_LogWritefln('r_render_draw: %sx%s', [gScreenWidth, gScreenHeight]);
 
     if gGameOn or (gState = STATE_FOLD) then
     begin
@@ -180,7 +180,7 @@ implementation
       // TODO setup player view siz
 
       // TODO draw player view + setup screen coords
-      r_Map_Draw(0, 0, gScreenWidth, gScreenHeight, gPlayer1.obj.x + 32, gPlayer1.obj.y + 32); // !!! remove unnamed consts
+      r_Map_Draw(0, 0, gScreenWidth, gScreenHeight, gPlayer1.obj.x + 32, gPlayer1.obj.y + 32, gPlayer1); // !!! remove unnamed consts
 
       // TODO draw holmes inspector
 
@@ -251,16 +251,14 @@ implementation
 {$IFDEF ENABLE_GIBS}
   function r_Render_GetGibRect (m, id: Integer): TRectWH;
   begin
-    Result.X := 16;
-    Result.Y := 16;
-    Result.Width := 16;
-    Result.Height := 16;
+    result := r_Map_GetGibSize(m, id);
   end;
 {$ENDIF}
 
 {$IFDEF ENABLE_GFX}
   procedure r_Render_QueueEffect (AnimType, X, Y: Integer);
   begin
+    r_Map_NewGFX(AnimType, X, Y);
   end;
 {$ENDIF}