X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_textures.pas;h=02098004a6432c4d64385e6d6f208c1380e2a569;hb=6d6df4e3427cd01e03e172984c9d0d391ff38032;hp=660e999351988a4fb3dad1ccdecabe614d6dda3b;hpb=a6271e37492b08be8791fdc0b452f42e04c86d16;p=d2df-sdl.git diff --git a/src/game/g_textures.pas b/src/game/g_textures.pas index 660e999..0209800 100644 --- a/src/game/g_textures.pas +++ b/src/game/g_textures.pas @@ -19,7 +19,7 @@ unit g_textures; interface uses - e_graphics, BinEditor, ImagingTypes, Imaging, ImagingUtility; + e_graphics, MAPDEF, BinEditor, ImagingTypes, Imaging, ImagingUtility; Type TLevelTexture = record @@ -55,7 +55,7 @@ Type constructor Create(FramesID: DWORD; Loop: Boolean; Speed: Byte); destructor Destroy(); override; procedure Draw(X, Y: Integer; Mirror: TMirrorType); - procedure DrawEx(X, Y: Integer; Mirror: TMirrorType; RPoint: TPoint; + procedure DrawEx(X, Y: Integer; Mirror: TMirrorType; RPoint: TDFPoint; Angle: SmallInt); procedure Reset(); procedure Update(); @@ -785,7 +785,7 @@ begin FEnabled := True; end; -procedure TAnimation.DrawEx(X, Y: Integer; Mirror: TMirrorType; RPoint: TPoint; +procedure TAnimation.DrawEx(X, Y: Integer; Mirror: TMirrorType; RPoint: TDFPoint; Angle: SmallInt); begin if not FEnabled then