X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fg_map.pas;h=e080bca7cc0e9ba2423956395a48235d460d3581;hp=e67e5359be1d51ac372100db16ff444515b6619a;hb=ebb13957295d3f50ba51ff5b871310570d0d4dfe;hpb=0cf82d25f7ffee01d662d9d11793077805a263cb

diff --git a/src/game/g_map.pas b/src/game/g_map.pas
index e67e535..e080bca 100644
--- a/src/game/g_map.pas
+++ b/src/game/g_map.pas
@@ -92,6 +92,8 @@ function g_Map_PanelForPID(PanelID: Integer; var PanelArrayID: Integer): PPanel;
 procedure g_Map_SaveState(Var Mem: TBinMemoryWriter);
 procedure g_Map_LoadState(Var Mem: TBinMemoryReader);
 
+procedure g_Map_DrawPanelShadowVolumes(lightX: Integer; lightY: Integer; radius: Integer);
+
 const
   RESPAWNPOINT_PLAYER1 = 1;
   RESPAWNPOINT_PLAYER2 = 2;
@@ -1792,6 +1794,26 @@ begin
   end;
 end;
 
+procedure g_Map_DrawPanelShadowVolumes(lightX: Integer; lightY: Integer; radius: Integer);
+
+  procedure drawPanels (var panels: TPanelArray);
+  var
+    a: Integer;
+  begin
+    if panels <> nil then
+    begin
+      for a := 0 to High(panels) do
+      begin
+        panels[a].DrawShadowVolume(lightX, lightY, radius);
+      end;
+    end;
+  end;
+
+begin
+  drawPanels(gWalls);
+  drawPanels(gRenderForegrounds);
+end;
+
 procedure g_Map_DrawBack(dx, dy: Integer);
 begin
   if gDrawBackGround and (BackID <> DWORD(-1)) then