diff --git a/src/nogl/noGLALSW.inc b/src/nogl/noGLALSW.inc
index bec8350941184b5f5453209c1d24a4a9cc462864..d18ff9923e81023e8acfaf1eb9277b2a86e08349 100644 (file)
--- a/src/nogl/noGLALSW.inc
+++ b/src/nogl/noGLALSW.inc
matrixMode: GLenum;
blendMode: Integer;
- globalTransTable: COLOR_MAP_T;
- redTransTable: COLOR_MAP_T;
- greenTransTable: COLOR_MAP_T;
- blueTransTable: COLOR_MAP_T;
- darkTransTable: COLOR_MAP_T;
- lightTransTable: COLOR_MAP_T;
+ vram_usage, xram_usage: Integer;
function AddTexture: Integer;
var i: Integer;
BLEND_DEFAULT:
begin
(* FIX texture colorize *)
- if DEFAULT_DEPTH <= 8 then
+ if sdl2allegro_bpp <= 8 then
begin
drawing_mode(DRAW_MODE_SOLID, nil, 0, 0)
end
tex[ctex].bmp := create_bitmap(width, height);
assert(tex[ctex].bmp <> nil);
+ vram_usage += width * height;
if pixels = nil then exit;
p := pixels;
if format = GL_RGBA then
begin
- if DEFAULT_DEPTH <= 8 then
+ xram_usage += width * height * 4;
+ if sdl2allegro_bpp <= 8 then
trans := 0
else
trans := makeacol(255, 0, 255, 0);
end
else
begin
+ xram_usage += width * height * 3;
for j := 0 to height - 1 do
for i := 0 to width - 1 do
begin
p := pixels;
if format = GL_RGBA then
begin
- if DEFAULT_DEPTH <= 8 then
+ xram_usage += width * height * 4;
+ if sdl2allegro_bpp <= 8 then
trans := 0
else
trans := makeacol(255, 0, 255, 0);
end
else
begin
+ xram_usage += width * height * 4;
for j := 0 to height - 1 do
for i := 0 to width - 1 do
begin
procedure nogl_Init;
begin
cmds.mode := GL_INVALID_ENUM;
- create_trans_table(@globalTransTable, default_palette, 255, 255, 255, nil);
- create_trans_table(@redTransTable, default_palette, 0, 255, 255, nil);
- create_trans_table(@greenTransTable, default_palette, 255, 0, 255, nil);
- create_trans_table(@blueTransTable, default_palette, 255, 255, 0, nil);
- create_trans_table(@darkTransTable, default_palette, 191, 191, 191, nil);
- create_trans_table(@lightTransTable, default_palette, 64, 64, 64, nil);
- color_map := @globalTransTable;
end;
procedure nogl_Quit;
begin
+ e_LogWritefln('vram=%s xram=%s', [vram_usage, xram_usage]);
end;
initialization