From 292e2b4e094da60e0e30512697dd275ff6d5de43 Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Mon, 6 Jun 2022 20:15:03 +0300
Subject: [PATCH] gl: free player model textures
---
src/game/renders/opengl/r_map.pas | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/src/game/renders/opengl/r_map.pas b/src/game/renders/opengl/r_map.pas
index 695195d..063c36b 100644
--- a/src/game/renders/opengl/r_map.pas
+++ b/src/game/renders/opengl/r_map.pas
@@ -276,7 +276,7 @@ implementation
end;
procedure r_Map_Free;
- var i, j, k: Integer; d: TDirection;
+ var i, j, k, a: Integer; d: TDirection;
begin
for i := 1 to WP_LAST do
begin
@@ -290,6 +290,18 @@ implementation
end;
end;
end;
+ for d := TDirection.D_LEFT to TDirection.D_RIGHT do
+ begin
+ for a := A_STAND to A_LAST do
+ begin
+ if Models[i].anim[d, a].base <> nil then
+ Models[i].anim[d, a].base.Free;
+ if Models[i].anim[d, a].mask <> nil then
+ Models[i].anim[d, a].mask.Free;
+ Models[i].anim[d, a].base := nil;
+ Models[i].anim[d, a].mask := nil;
+ end;
+ end;
for i := MONSTER_DEMON to MONSTER_MAN do
begin
for j := 0 to ANIM_LAST do
--
2.29.2