X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_gibs.pas;h=69e5ca8b960d8d63dbdedd45094cda9ff30fc530;hb=7ea33f434a86160ce9223f5946b5e3407026c76f;hp=d190384c55cc9051d0d3cedbd65182572b3096fc;hpb=3f9f9afcc6f00317e2cac5512e88ca538ff9b903;p=d2df-sdl.git

diff --git a/src/game/g_gibs.pas b/src/game/g_gibs.pas
index d190384..69e5ca8 100644
--- a/src/game/g_gibs.pas
+++ b/src/game/g_gibs.pas
@@ -22,6 +22,7 @@ interface
   const
     DefaultGibsCount = 32;
     DefaultGibsMax = 150;
+    DefaultGibSize: TRectWH = (X: 8; Y: 8; Width: 16; Height: 16);
 
   type
     PGib = ^TGib;
@@ -163,10 +164,7 @@ implementation
         {$IFDEF ENABLE_RENDER}
           Obj.Rect := r_Render_GetGibRect(ModelID, GibID);
         {$ELSE}
-          Obj.Rect.X := 16;
-          Obj.Rect.Y := 16;
-          Obj.Rect.Width := 16;
-          Obj.Rect.Height := 16;
+          Obj.Rect := DefaultGibSize;
         {$ENDIF}
         Obj.X := fX - Obj.Rect.X - (Obj.Rect.Width div 2);
         Obj.Y := fY - Obj.Rect.Y - (Obj.Rect.Height div 2);