X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fopengl%2Fr_map.pas;h=ef75c14c223452db1e12a37d1c66411b552b21aa;hb=01ca3b4324c78f00caae7d5b16cd49efce31f831;hp=eb50ad9bfa35e6791e0783b2e8c8653477f6b236;hpb=0a15e02146dcf1f0ebbd1d99d0f1350c4bc7d63b;p=d2df-sdl.git

diff --git a/src/game/opengl/r_map.pas b/src/game/opengl/r_map.pas
index eb50ad9..ef75c14 100644
--- a/src/game/opengl/r_map.pas
+++ b/src/game/opengl/r_map.pas
@@ -30,9 +30,10 @@ implementation
   uses
     {$INCLUDE ../nogl/noGLuses.inc}
     SysUtils, Classes, Math,
-    e_graphics,
-    g_basic, g_game, g_options,
-    g_panel, g_map
+    r_graphics,
+    g_base, g_basic, g_game, g_options,
+    g_panel, g_map,
+    r_panel
   ;
 
 procedure dplClear ();
@@ -52,7 +53,8 @@ procedure r_Map_DrawPanels (PanelType: Word; hasAmbient: Boolean; constref ambCo
       // alas, no visible set
       for idx := 0 to High(panels) do
       begin
-        if not (drawDoors xor panels[idx].Door) then panels[idx].Draw(hasAmbient, ambColor);
+        if not (drawDoors xor panels[idx].Door) then
+          r_Panel_Draw(panels[idx], hasAmbient, ambColor);
       end;
     end;
   end;
@@ -89,7 +91,7 @@ var
   it: TPanelGrid.Iter;
 begin
   it := mapGrid.forEachInAABB(lightX-radius, lightY-radius, radius*2, radius*2, (GridTagWall or GridTagDoor));
-  for mwit in it do mwit^.DrawShadowVolume(lightX, lightY, radius);
+  for mwit in it do r_Panel_DrawShadowVolume(mwit^, lightX, lightY, radius);
   it.release();
 end;