hedgewars/uRenderUtils.pas
author unc0rr
Sun, 21 Nov 2010 16:55:19 +0300
changeset 4395 54dedd218dde
parent 4380 b78638b36b89
child 4403 0dfe26f48ec1
permissions -rw-r--r--
merge
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4380
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
     1
{$INCLUDE "options.inc"}
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
     2
unit uRenderUtils;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
     3
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
     4
interface
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
     5
uses SDLh, uTypes;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
     6
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
     7
procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
     8
procedure copyRotatedSurface(src, dest: PSDL_Surface); // this is necessary since width/height are read only in SDL
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
     9
procedure copyToXY(src, dest: PSDL_Surface; destX, destY: LongInt);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    10
function  RenderStringTex(s: ansistring; Color: Longword; font: THWFont): PTexture;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    11
function  RenderSpeechBubbleTex(s: ansistring; SpeechType: Longword; font: THWFont): PTexture;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    12
procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    13
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    14
implementation
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    15
uses uIO, uUtils, uVariables, uConsts, uTextures, sysutils;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    16
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    17
procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    18
var r: TSDL_Rect;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    19
begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    20
    r:= rect^;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    21
    if Clear then SDL_FillRect(Surface, @r, 0);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    22
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    23
    BorderColor:= SDL_MapRGB(Surface^.format, BorderColor shr 16, BorderColor shr 8, BorderColor and $FF);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    24
    FillColor:= SDL_MapRGB(Surface^.format, FillColor shr 16, FillColor shr 8, FillColor and $FF);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    25
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    26
    r.y:= rect^.y + 1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    27
    r.h:= rect^.h - 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    28
    SDL_FillRect(Surface, @r, BorderColor);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    29
    r.x:= rect^.x + 1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    30
    r.w:= rect^.w - 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    31
    r.y:= rect^.y;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    32
    r.h:= rect^.h;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    33
    SDL_FillRect(Surface, @r, BorderColor);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    34
    r.x:= rect^.x + 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    35
    r.y:= rect^.y + 1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    36
    r.w:= rect^.w - 4;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    37
    r.h:= rect^.h - 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    38
    SDL_FillRect(Surface, @r, FillColor);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    39
    r.x:= rect^.x + 1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    40
    r.y:= rect^.y + 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    41
    r.w:= rect^.w - 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    42
    r.h:= rect^.h - 4;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    43
    SDL_FillRect(Surface, @r, FillColor)
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    44
end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    45
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    46
function WriteInRoundRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: ansistring): TSDL_Rect;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    47
var w, h: LongInt;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    48
    tmpsurf: PSDL_Surface;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    49
    clr: TSDL_Color;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    50
    finalRect: TSDL_Rect;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    51
begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    52
    TTF_SizeUTF8(Fontz[Font].Handle, Str2PChar(s), w, h);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    53
    finalRect.x:= X;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    54
    finalRect.y:= Y;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    55
    finalRect.w:= w + FontBorder * 2 + 4;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    56
    finalRect.h:= h + FontBorder * 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    57
    DrawRoundRect(@finalRect, cWhiteColor, endian(cNearBlackColorChannels.value), Surface, true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    58
    clr.r:= (Color shr 16) and $FF;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    59
    clr.g:= (Color shr 8) and $FF;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    60
    clr.b:= Color and $FF;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    61
    tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, Str2PChar(s), clr);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    62
    finalRect.x:= X + FontBorder + 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    63
    finalRect.y:= Y + FontBorder;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    64
    SDLTry(tmpsurf <> nil, true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    65
    SDL_UpperBlit(tmpsurf, nil, Surface, @finalRect);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    66
    SDL_FreeSurface(tmpsurf);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    67
    finalRect.x:= X;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    68
    finalRect.y:= Y;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    69
    finalRect.w:= w + FontBorder * 2 + 4;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    70
    finalRect.h:= h + FontBorder * 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    71
    WriteInRoundRect:= finalRect;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    72
end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    73
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    74
procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    75
var y, x, i, j: LongInt;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    76
    tmpPixel: Longword;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    77
    pixels: PLongWordArray;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    78
begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    79
    TryDo(Surface^.format^.BytesPerPixel = 4, 'flipSurface failed, expecting 32 bit surface', true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    80
    pixels:= Surface^.pixels;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    81
    if Vertical then
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    82
    for y := 0 to (Surface^.h div 2) - 1 do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    83
        for x := 0 to Surface^.w - 1 do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    84
            begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    85
            i:= y * Surface^.w + x;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    86
            j:= (Surface^.h - y - 1) * Surface^.w + x;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    87
            tmpPixel:= pixels^[i];
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    88
            pixels^[i]:= pixels^[j];
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    89
            pixels^[j]:= tmpPixel;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    90
            end
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    91
    else
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    92
    for x := 0 to (Surface^.w div 2) - 1 do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    93
        for y := 0 to Surface^.h -1 do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    94
            begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    95
            i:= y*Surface^.w + x;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    96
            j:= y*Surface^.w + (Surface^.w - x - 1);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    97
            tmpPixel:= pixels^[i];
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    98
            pixels^[i]:= pixels^[j];
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
    99
            pixels^[j]:= tmpPixel;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   100
            end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   101
end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   102
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   103
procedure copyToXY(src, dest: PSDL_Surface; destX, destY: LongInt);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   104
var srcX, srcY, i, j, maxDest: LongInt;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   105
    srcPixels, destPixels: PLongWordArray;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   106
    r0, g0, b0, a0, r1, g1, b1, a1: Byte;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   107
begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   108
    maxDest:= (dest^.pitch div 4) * dest^.h;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   109
    srcPixels:= src^.pixels;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   110
    destPixels:= dest^.pixels;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   111
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   112
    for srcX:= 0 to src^.w - 1 do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   113
    for srcY:= 0 to src^.h - 1 do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   114
        begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   115
        i:= (destY + srcY) * (dest^.pitch div 4) + destX + srcX;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   116
        j:= srcY * (src^.pitch div 4) + srcX;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   117
        if (i < maxDest) and (srcPixels^[j] and AMask <> 0) then
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   118
            begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   119
            SDL_GetRGBA(destPixels^[i], dest^.format, @r0, @g0, @b0, @a0);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   120
            SDL_GetRGBA(srcPixels^[j], src^.format, @r1, @g1, @b1, @a1);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   121
            r0:= (r0 * (255 - LongInt(a1)) + r1 * LongInt(a1)) div 255;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   122
            g0:= (g0 * (255 - LongInt(a1)) + g1 * LongInt(a1)) div 255;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   123
            b0:= (b0 * (255 - LongInt(a1)) + b1 * LongInt(a1)) div 255;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   124
            a0:= (a0 * (255 - LongInt(a1)) + a1 * LongInt(a1)) div 255;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   125
            destPixels^[i]:= SDL_MapRGBA(dest^.format, r0, g0, b0, a0);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   126
            end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   127
        end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   128
end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   129
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   130
procedure copyRotatedSurface(src, dest: PSDL_Surface); // this is necessary since width/height are read only in SDL, apparently
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   131
var y, x, i, j: LongInt;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   132
    srcPixels, destPixels: PLongWordArray;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   133
begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   134
    TryDo(src^.format^.BytesPerPixel = 4, 'rotateSurface failed, expecting 32 bit surface', true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   135
    TryDo(dest^.format^.BytesPerPixel = 4, 'rotateSurface failed, expecting 32 bit surface', true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   136
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   137
    srcPixels:= src^.pixels;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   138
    destPixels:= dest^.pixels;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   139
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   140
    j:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   141
    for x := 0 to src^.w - 1 do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   142
        for y := 0 to src^.h - 1 do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   143
            begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   144
            i:= (src^.h - 1 - y) * (src^.pitch div 4) + x;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   145
            destPixels^[j]:= srcPixels^[i];
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   146
            inc(j)
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   147
            end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   148
end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   149
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   150
function  RenderStringTex(s: ansistring; Color: Longword; font: THWFont): PTexture;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   151
var w, h: LongInt;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   152
    finalSurface: PSDL_Surface;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   153
begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   154
    if length(s) = 0 then s:= ' ';
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   155
    font:= CheckCJKFont(s, font);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   156
    w:= 0; h:= 0; // avoid compiler hints
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   157
    TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(s), w, h);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   158
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   159
    finalSurface:= SDL_CreateRGBSurface(SDL_SWSURFACE, w + FontBorder * 2 + 4, h + FontBorder * 2,
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   160
            32, RMask, GMask, BMask, AMask);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   161
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   162
    TryDo(finalSurface <> nil, 'RenderString: fail to create surface', true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   163
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   164
    WriteInRoundRect(finalSurface, 0, 0, Color, font, s);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   165
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   166
    TryDo(SDL_SetColorKey(finalSurface, SDL_SRCCOLORKEY, 0) = 0, errmsgTransparentSet, true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   167
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   168
    RenderStringTex:= Surface2Tex(finalSurface, false);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   169
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   170
    SDL_FreeSurface(finalSurface);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   171
end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   172
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   173
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   174
function RenderSpeechBubbleTex(s: ansistring; SpeechType: Longword; font: THWFont): PTexture;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   175
var textWidth, textHeight, x, y, w, h, i, j, pos, prevpos, line, numLines, edgeWidth, edgeHeight, cornerWidth, cornerHeight: LongInt;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   176
    finalSurface, tmpsurf, rotatedEdge: PSDL_Surface;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   177
    rect: TSDL_Rect;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   178
    chars: set of char = [#9,' ','.',';',':','?','!',','];
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   179
    substr: shortstring;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   180
    edge, corner, tail: TSPrite;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   181
begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   182
    case SpeechType of
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   183
        1: begin;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   184
        edge:= sprSpeechEdge;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   185
        corner:= sprSpeechCorner;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   186
        tail:= sprSpeechTail;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   187
        end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   188
        2: begin;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   189
        edge:= sprThoughtEdge;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   190
        corner:= sprThoughtCorner;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   191
        tail:= sprThoughtTail;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   192
        end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   193
        3: begin;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   194
        edge:= sprShoutEdge;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   195
        corner:= sprShoutCorner;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   196
        tail:= sprShoutTail;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   197
        end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   198
        end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   199
    edgeHeight:= SpritesData[edge].Height;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   200
    edgeWidth:= SpritesData[edge].Width;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   201
    cornerWidth:= SpritesData[corner].Width;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   202
    cornerHeight:= SpritesData[corner].Height;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   203
    // This one screws up WrapText
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   204
    //s:= 'This is the song that never ends.  ''cause it goes on and on my friends. Some people, started singing it not knowing what it was. And they''ll just go on singing it forever just because... This is the song that never ends...';
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   205
    // This one does not
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   206
    //s:= 'This is the song that never ends.  cause it goes on and on my friends. Some people, started singing it not knowing what it was. And they will go on singing it forever just because... This is the song that never ends... ';
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   207
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   208
    numLines:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   209
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   210
    if length(s) = 0 then s:= '...';
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   211
    font:= CheckCJKFont(s, font);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   212
    w:= 0; h:= 0; // avoid compiler hints
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   213
    TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(s), w, h);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   214
    if w<8 then w:= 8;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   215
    j:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   216
    if (length(s) > 20) then
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   217
        begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   218
        w:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   219
        i:= round(Sqrt(length(s)) * 2);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   220
        s:= WrapText(s, #1, chars, i);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   221
        pos:= 1; prevpos:= 0; line:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   222
    // Find the longest line for the purposes of centring the text.  Font dependant.
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   223
        while pos <= length(s) do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   224
            begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   225
            if (s[pos] = #1) or (pos = length(s)) then
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   226
                begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   227
                inc(numlines);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   228
                if s[pos] <> #1 then inc(pos);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   229
                while s[prevpos+1] = ' ' do inc(prevpos);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   230
                substr:= copy(s, prevpos+1, pos-prevpos-1);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   231
                i:= 0; j:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   232
                TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(substr), i, j);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   233
                if i > w then w:= i;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   234
                prevpos:= pos;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   235
                end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   236
            inc(pos);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   237
            end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   238
        end
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   239
    else numLines := 1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   240
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   241
    textWidth:=((w-(cornerWidth-edgeWidth)*2) div edgeWidth)*edgeWidth+edgeWidth;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   242
    textHeight:=(((numlines * h + 2)-((cornerHeight-edgeWidth)*2)) div edgeWidth)*edgeWidth;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   243
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   244
    textHeight:=max(textHeight,edgeWidth);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   245
    //textWidth:=max(textWidth,SpritesData[tail].Width);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   246
    rect.x:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   247
    rect.y:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   248
    rect.w:= textWidth + (cornerWidth * 2);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   249
    rect.h:= textHeight + cornerHeight*2 - edgeHeight + SpritesData[tail].Height;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   250
    //s:= inttostr(w) + ' ' + inttostr(numlines) + ' ' + inttostr(rect.x) + ' '+inttostr(rect.y) + ' ' + inttostr(rect.w) + ' ' + inttostr(rect.h);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   251
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   252
    finalSurface:= SDL_CreateRGBSurface(SDL_SWSURFACE, rect.w, rect.h, 32, RMask, GMask, BMask, AMask);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   253
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   254
    TryDo(finalSurface <> nil, 'RenderString: fail to create surface', true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   255
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   256
    //////////////////////////////// CORNERS ///////////////////////////////
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   257
    copyToXY(SpritesData[corner].Surface, finalSurface, 0, 0); /////////////////// NW
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   258
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   259
    flipSurface(SpritesData[corner].Surface, true); // store all 4 versions in memory to avoid repeated flips?
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   260
    x:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   261
    y:= textHeight + cornerHeight -1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   262
    copyToXY(SpritesData[corner].Surface, finalSurface, x, y); /////////////////// SW
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   263
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   264
    flipSurface(SpritesData[corner].Surface, false);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   265
    x:= rect.w-cornerWidth-1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   266
    y:= textHeight + cornerHeight -1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   267
    copyToXY(SpritesData[corner].Surface, finalSurface, x, y); /////////////////// SE
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   268
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   269
    flipSurface(SpritesData[corner].Surface, true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   270
    x:= rect.w-cornerWidth-1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   271
    y:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   272
    copyToXY(SpritesData[corner].Surface, finalSurface, x, y); /////////////////// NE
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   273
    flipSurface(SpritesData[corner].Surface, false); // restore original position
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   274
    //////////////////////////////// END CORNERS ///////////////////////////////
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   275
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   276
    //////////////////////////////// EDGES //////////////////////////////////////
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   277
    x:= cornerWidth;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   278
    y:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   279
    while x < rect.w-cornerWidth-1 do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   280
        begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   281
        copyToXY(SpritesData[edge].Surface, finalSurface, x, y); ///////////////// top edge
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   282
        inc(x,edgeWidth);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   283
        end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   284
    flipSurface(SpritesData[edge].Surface, true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   285
    x:= cornerWidth;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   286
    y:= textHeight + cornerHeight*2 - edgeHeight-1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   287
    while x < rect.w-cornerWidth-1 do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   288
        begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   289
        copyToXY(SpritesData[edge].Surface, finalSurface, x, y); ///////////////// bottom edge
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   290
        inc(x,edgeWidth);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   291
        end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   292
    flipSurface(SpritesData[edge].Surface, true); // restore original position
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   293
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   294
    rotatedEdge:= SDL_CreateRGBSurface(SDL_SWSURFACE, edgeHeight, edgeWidth, 32, RMask, GMask, BMask, AMask);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   295
    x:= rect.w - edgeHeight - 1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   296
    y:= cornerHeight;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   297
    //// initially was going to rotate in place, but the SDL spec claims width/height are read only
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   298
    copyRotatedSurface(SpritesData[edge].Surface,rotatedEdge);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   299
    while y < textHeight + cornerHeight do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   300
        begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   301
        copyToXY(rotatedEdge, finalSurface, x, y);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   302
        inc(y,edgeWidth);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   303
        end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   304
    flipSurface(rotatedEdge, false); // restore original position
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   305
    x:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   306
    y:= cornerHeight;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   307
    while y < textHeight + cornerHeight do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   308
        begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   309
        copyToXY(rotatedEdge, finalSurface, x, y);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   310
        inc(y,edgeWidth);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   311
        end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   312
    //////////////////////////////// END EDGES //////////////////////////////////////
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   313
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   314
    x:= cornerWidth;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   315
    y:= textHeight + cornerHeight * 2 - edgeHeight - 1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   316
    copyToXY(SpritesData[tail].Surface, finalSurface, x, y);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   317
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   318
    rect.x:= edgeHeight;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   319
    rect.y:= edgeHeight;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   320
    rect.w:= rect.w - edgeHeight * 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   321
    rect.h:= textHeight + cornerHeight * 2 - edgeHeight * 2;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   322
    i:= rect.w;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   323
    j:= rect.h;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   324
    SDL_FillRect(finalSurface, @rect, cWhiteColor);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   325
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   326
    pos:= 1; prevpos:= 0; line:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   327
    while pos <= length(s) do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   328
        begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   329
        if (s[pos] = #1) or (pos = length(s)) then
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   330
            begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   331
            if s[pos] <> #1 then inc(pos);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   332
            while s[prevpos+1] = ' 'do inc(prevpos);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   333
            substr:= copy(s, prevpos+1, pos-prevpos-1);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   334
            if Length(substr) <> 0 then
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   335
            begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   336
            tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, Str2PChar(substr), cNearBlackColorChannels);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   337
            rect.x:= edgeHeight + 1 + ((i - w) div 2);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   338
            // trying to more evenly position the text, vertically
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   339
            rect.y:= edgeHeight + ((j-(numLines*h)) div 2) + line * h;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   340
            SDLTry(tmpsurf <> nil, true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   341
            SDL_UpperBlit(tmpsurf, nil, finalSurface, @rect);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   342
            SDL_FreeSurface(tmpsurf);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   343
            inc(line);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   344
            prevpos:= pos;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   345
            end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   346
            end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   347
        inc(pos);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   348
        end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   349
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   350
    RenderSpeechBubbleTex:= Surface2Tex(finalSurface, true);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   351
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   352
    SDL_FreeSurface(rotatedEdge);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   353
    SDL_FreeSurface(finalSurface);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   354
end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   355
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents:
diff changeset
   356
end.