+
−(*
+
− * Hedgewars, a free turn based strategy game
+
− * Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com>
+
− *
+
− * This program is free software; you can redistribute it and/or modify
+
− * it under the terms of the GNU General Public License as published by
+
− * the Free Software Foundation; version 2 of the License
+
− *
+
− * This program is distributed in the hope that it will be useful,
+
− * but WITHOUT ANY WARRANTY; without even the implied warranty of
+
− * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+
− * GNU General Public License for more details.
+
− *
+
− * You should have received a copy of the GNU General Public License
+
− * along with this program; if not, write to the Free Software
+
− * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+
− *)
+
−
+
−{$INCLUDE "options.inc"}
+
−
+
−unit uTextures;
+
−interface
+
−uses SDLh, uTypes;
+
−
+
−function  NewTexture(width, height: Longword; buf: Pointer): PTexture;
+
−procedure Surface2GrayScale(surf: PSDL_Surface);
+
−function  Surface2Atlas(surf: PSDL_Surface; enableClamp: boolean): PTexture;
+
−procedure FreeTexture(tex: PTexture);
+
−procedure ComputeTexcoords(texture: PTexture; r: PSDL_Rect; tb: PVertexRect);
+
−
+
−procedure initModule;
+
−procedure freeModule;
+
−
+
−implementation
+
−uses GLunit, uUtils, uVariables, uConsts, uDebug, uConsole, uAtlas;
+
−
+
−var TextureList: PTexture;
+
−
+
−
+
−procedure SetTextureParameters(enableClamp: Boolean);
+
−begin
+
−    if enableClamp and ((cReducedQuality and rqClampLess) = 0) then
+
−        begin
+
−        glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
+
−        glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE)
+
−        end;
+
−    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
+
−    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)
+
−end;
+
−
+
−procedure ComputeTexcoords(texture: PTexture; r: PSDL_Rect; tb: PVertexRect);
+
−var x0, y0, x1, y1: Real;
+
−    w, h, aw, ah: LongInt;
+
−const texelOffset = 0.0;
+
−begin
+
−aw:=texture^.atlas^.w;
+
−ah:=texture^.atlas^.h;
+
−if texture^.isRotated then
+
−    begin
+
−    w:=r^.h;
+
−    h:=r^.w;
+
−    end 
+
−else
+
−    begin
+
−    w:=r^.w;
+
−    h:=r^.h;        
+
−    end;
+
−
+
−x0:= (r^.x +     texelOffset)/aw;
+
−x1:= (r^.x + w - texelOffset)/aw;
+
−y0:= (r^.y +     texelOffset)/ah;
+
−y1:= (r^.y + h - texelOffset)/ah;
+
−
+
−tb^[0].X:= x0;
+
−tb^[0].Y:= y0;
+
−tb^[1].X:= x1;
+
−tb^[1].Y:= y0;
+
−tb^[2].X:= x1;
+
−tb^[2].Y:= y1;
+
−tb^[3].X:= x0;
+
−tb^[3].Y:= y1
+
−end;
+
−
+
−procedure ResetVertexArrays(texture: PTexture);
+
−var r: TSDL_Rect;
+
−begin
+
−with texture^ do
+
−begin
+
−    vb[0].X:= 0;
+
−    vb[0].Y:= 0;
+
−    vb[1].X:= w;
+
−    vb[1].Y:= 0;
+
−    vb[2].X:= w;
+
−    vb[2].Y:= h;
+
−    vb[3].X:= 0;
+
−    vb[3].Y:= h;
+
−end;
+
−
+
−r.x:= 0;
+
−r.y:= 0;
+
−r.w:= texture^.w;
+
−r.h:= texture^.h;
+
−ComputeTexcoords(texture, @r, @texture^.tb);
+
−end;
+
−
+
−function NewTexture(width, height: Longword; buf: Pointer): PTexture;
+
−begin
+
−new(NewTexture);
+
−NewTexture^.PrevTexture:= nil;
+
−NewTexture^.NextTexture:= nil;
+
−NewTexture^.Scale:= 1;
+
−if TextureList <> nil then
+
−    begin
+
−    TextureList^.PrevTexture:= NewTexture;
+
−    NewTexture^.NextTexture:= TextureList
+
−    end;
+
−TextureList:= NewTexture;
+
−
+
−
+
−// Atlas allocation happens here later on. For now we just allocate one exclusive atlas per sprite
+
−new(NewTexture^.atlas);
+
−NewTexture^.atlas^.w:=width;
+
−NewTexture^.atlas^.h:=height;
+
−NewTexture^.x:=0;
+
−NewTexture^.y:=0;
+
−NewTexture^.w:=width;
+
−NewTexture^.h:=height;
+
−NewTexture^.isRotated:=false;
+
−
+
−ResetVertexArrays(NewTexture);
+
−
+
−glGenTextures(1, @NewTexture^.atlas^.id);
+
−
+
−glBindTexture(GL_TEXTURE_2D, NewTexture^.atlas^.id);
+
−glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, width, height, 0, GL_RGBA, GL_UNSIGNED_BYTE, buf);
+
−
+
−SetTextureParameters(true);
+
−end;
+
−
+
−procedure Surface2GrayScale(surf: PSDL_Surface);
+
−var tw, x, y: Longword;
+
−    fromP4: PLongWordArray;
+
−begin
+
−fromP4:= Surf^.pixels;
+
−for y:= 0 to Pred(Surf^.h) do
+
−    begin
+
−    for x:= 0 to Pred(Surf^.w) do 
+
−        begin
+
−        tw:= fromP4^[x];
+
−        tw:= round((tw shr RShift and $FF) * RGB_LUMINANCE_RED +  
+
−              (tw shr GShift and $FF) * RGB_LUMINANCE_GREEN + 
+
−              (tw shr BShift and $FF) * RGB_LUMINANCE_BLUE);
+
−        if tw > 255 then tw:= 255;
+
−        tw:= (tw and $FF shl RShift) or (tw and $FF shl BShift) or (tw and $FF shl GShift) or (fromP4^[x] and AMask);
+
−        fromP4^[x]:= tw;
+
−        end;
+
−    fromP4:= @(fromP4^[Surf^.pitch div 4])
+
−    end;
+
−end;
+
−
+
−
+
−function Surface2Atlas(surf: PSDL_Surface; enableClamp: boolean): PTexture;
+
−var tw, th, x, y: Longword;
+
−    tmpp: pointer;
+
−    fromP4, toP4: PLongWordArray;
+
−begin
+
−    if (surf^.w <= 128) and (surf^.h <= 128) then
+
−        Surface2Tex_(surf, enableClamp); // run the atlas side by side for debugging
+
−new(Surface2Atlas);
+
−Surface2Atlas^.PrevTexture:= nil;
+
−Surface2Atlas^.NextTexture:= nil;
+
−if TextureList <> nil then
+
−    begin
+
−    TextureList^.PrevTexture:= Surface2Atlas;
+
−    Surface2Atlas^.NextTexture:= TextureList
+
−    end;
+
−TextureList:= Surface2Atlas;
+
−
+
−// Atlas allocation happens here later on. For now we just allocate one exclusive atlas per sprite
+
−new(Surface2Atlas^.atlas);
+
−
+
−Surface2Atlas^.w:= surf^.w;
+
−Surface2Atlas^.h:= surf^.h;
+
−Surface2Atlas^.x:=0;
+
−Surface2Atlas^.y:=0;
+
−Surface2Atlas^.isRotated:=false;
+
−Surface2Atlas^.surface:= surf;
+
−
+
−
+
−if (surf^.format^.BytesPerPixel <> 4) then
+
−    begin
+
−    TryDo(false, 'Surface2Tex failed, expecting 32 bit surface', true);
+
−    Surface2Atlas^.atlas^.id:= 0;
+
−    exit
+
−    end;
+
−
+
−
+
−glGenTextures(1, @Surface2Atlas^.atlas^.id);
+
−
+
−glBindTexture(GL_TEXTURE_2D, Surface2Atlas^.atlas^.id);
+
−
+
−if SDL_MustLock(surf) then
+
−    SDLTry(SDL_LockSurface(surf) >= 0, true);
+
−
+
−fromP4:= Surf^.pixels;
+
−
+
−if GrayScale then
+
−    Surface2GrayScale(Surf);
+
−
+
−if (not SupportNPOTT) and (not (isPowerOf2(Surf^.w) and isPowerOf2(Surf^.h))) then
+
−    begin
+
−    tw:= toPowerOf2(Surf^.w);
+
−    th:= toPowerOf2(Surf^.h);
+
−
+
−    Surface2Atlas^.atlas^.w:=tw;
+
−    Surface2Atlas^.atlas^.h:=th;
+
−
+
−    tmpp:= GetMem(tw * th * surf^.format^.BytesPerPixel);
+
−
+
−    fromP4:= Surf^.pixels;
+
−    toP4:= tmpp;
+
−
+
−    for y:= 0 to Pred(Surf^.h) do
+
−        begin
+
−        for x:= 0 to Pred(Surf^.w) do
+
−            toP4^[x]:= fromP4^[x];
+
−        for x:= Surf^.w to Pred(tw) do
+
−            toP4^[x]:= 0;
+
−        toP4:= @(toP4^[tw]);
+
−        fromP4:= @(fromP4^[Surf^.pitch div 4])
+
−        end;
+
−
+
−    for y:= Surf^.h to Pred(th) do
+
−        begin
+
−        for x:= 0 to Pred(tw) do
+
−            toP4^[x]:= 0;
+
−        toP4:= @(toP4^[tw])
+
−        end;
+
−
+
−    glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, tw, th, 0, GL_RGBA, GL_UNSIGNED_BYTE, tmpp);
+
−
+
−    FreeMem(tmpp, tw * th * surf^.format^.BytesPerPixel)
+
−    end
+
−else
+
−    begin
+
−    Surface2Atlas^.atlas^.w:=Surf^.w;
+
−    Surface2Atlas^.atlas^.h:=Surf^.h;
+
−    glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, surf^.w, surf^.h, 0, GL_RGBA, GL_UNSIGNED_BYTE, surf^.pixels);
+
−    end;
+
−
+
−ResetVertexArrays(Surface2Atlas);
+
−
+
−if SDL_MustLock(surf) then
+
−    SDL_UnlockSurface(surf);
+
−
+
−SetTextureParameters(enableClamp);
+
−end;
+
−
+
−// deletes texture and frees the memory allocated for it.
+
−// if nil is passed nothing is done
+
−procedure FreeTexture(tex: PTexture);
+
−begin
+
−    FreeTexture_(tex); // run atlas side by side for debugging
+
−if tex <> nil then
+
−    begin
+
−    // Atlas cleanup happens here later on. For now we just free as each sprite has one atlas
+
−    Dispose(tex^.atlas);
+
−
+
−    if tex^.NextTexture <> nil then
+
−        tex^.NextTexture^.PrevTexture:= tex^.PrevTexture;
+
−    if tex^.PrevTexture <> nil then
+
−        tex^.PrevTexture^.NextTexture:= tex^.NextTexture
+
−    else
+
−        TextureList:= tex^.NextTexture;
+
−    glDeleteTextures(1, @tex^.atlas^.id);
+
−
+
−    SDL_FreeSurface(tex^.surface);
+
−    Dispose(tex);
+
−    end
+
−end;
+
−
+
−procedure initModule;
+
−begin
+
−uAtlas.initModule;
+
−TextureList:= nil;
+
−end;
+
−
+
−procedure freeModule;
+
−begin
+
−if TextureList <> nil then
+
−    WriteToConsole('FIXME FIXME FIXME. App shutdown without full cleanup of texture list; read game0.log and please report this problem');
+
−    while TextureList <> nil do 
+
−        begin
+
−        AddFileLog('Sprite not freed: width='+inttostr(LongInt(TextureList^.w))+' height='+inttostr(LongInt(TextureList^.h))+' priority='+inttostr(round(TextureList^.atlas^.priority*1000)));
+
−        FreeTexture(TextureList);
+
−        end
+
−end;
+
−
+
−end.