hedgewars/uMisc.pas
author alfadur
Fri, 16 Aug 2019 20:45:25 +0300
changeset 15340 f9f34158ef72
parent 15319 fe705efbfc52
permissions -rw-r--r--
reduce memory usage of screenshot mirroring
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
     1
(*
6952
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
     2
 * Hedgewars, a free turn based strategy game
11046
47a8c19ecb60 more copyright fixes
sheepluva
parents: 11041
diff changeset
     3
 * Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com>
6952
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
     4
 *
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
     8
 *
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
    12
 * GNU General Public License for more details.
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
    13
 *
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
    14
 * You should have received a copy of the GNU General Public License
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
    15
 * along with this program; if not, write to the Free Software
10108
c68cf030eded update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents: 10015
diff changeset
    16
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
6952
7f70f37bbf08 license header year range adjustments
sheepluva
parents: 6884
diff changeset
    17
 *)
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    18
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2622
diff changeset
    19
{$INCLUDE "options.inc"}
079ef82eac75 revamped file access and debug display
koda
parents: 2622
diff changeset
    20
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    21
unit uMisc;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    22
interface
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2622
diff changeset
    23
5004
2efa6a414518 update some sdl-1.3 bindings (working up to rev 5296)
koda
parents: 4976
diff changeset
    24
uses SDLh, uConsts, GLunit, uTypes;
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 988
diff changeset
    25
6990
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
    26
procedure initModule;
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
    27
procedure freeModule;
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
    28
2670
1b327b7515ed regression, powerpc colors working again
koda
parents: 2666
diff changeset
    29
function  doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface;
10633
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
    30
function MakeScreenshot(filename: shortstring; k: LongInt; dump: LongWord): boolean;
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents: 4377
diff changeset
    31
function  GetTeamStatString(p: PTeam): shortstring;
6992
b8f3d8991e92 marked a couple of functions as inline
koda
parents: 6990
diff changeset
    32
function  SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect; inline;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    33
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    34
implementation
11828
0fba6cb098a1 drop SysUtils inclusion from 5 files where it is not needed anymore
sheepluva
parents: 11358
diff changeset
    35
uses uVariables, uUtils
8865
dd4035ee0f12 use SDL_Threads everywhere
koda
parents: 7848
diff changeset
    36
     {$IFDEF PNG_SCREENSHOTS}, PNGh, png {$ENDIF};
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    37
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    38
type PScreenshot = ^TScreenshot;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    39
     TScreenshot = record
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    40
         buffer: PByte;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    41
         filename: shortstring;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    42
         width, height: LongInt;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    43
         size: QWord;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    44
         end;
3756
d42571e2e6c9 lua function SetEffect to set and remove THogEffects
burp
parents: 3709
diff changeset
    45
8026
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents: 7848
diff changeset
    46
var conversionFormat : PSDL_PixelFormat;
7049
35d762458d66 minor changes for warnings and a variables scope
koda
parents: 7043
diff changeset
    47
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    48
{$IFDEF PNG_SCREENSHOTS}
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    49
// this funtion will be executed in separate thread
8865
dd4035ee0f12 use SDL_Threads everywhere
koda
parents: 7848
diff changeset
    50
function SaveScreenshot(screenshot: pointer): LongInt; cdecl; export;
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    51
var i: LongInt;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    52
    png_ptr: ^png_struct;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    53
    info_ptr: ^png_info;
8026
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents: 7848
diff changeset
    54
    f: File;
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    55
    image: PScreenshot;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    56
begin
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    57
image:= PScreenshot(screenshot);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    58
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    59
png_ptr := png_create_write_struct(png_get_libpng_ver(nil), nil, nil, nil);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    60
if png_ptr = nil then
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    61
begin
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    62
    // AddFileLog('Error: Could not create png write struct.');
6990
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
    63
    SaveScreenshot:= 0;
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
    64
    exit;
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    65
end;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    66
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    67
info_ptr := png_create_info_struct(png_ptr);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    68
if info_ptr = nil then
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    69
begin
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    70
    png_destroy_write_struct(@png_ptr, nil);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    71
    // AddFileLog('Error: Could not create png info struct.');
6990
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
    72
    SaveScreenshot:= 0;
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
    73
    exit;
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    74
end;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    75
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    76
{$IOCHECKS OFF}
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    77
Assign(f, image^.filename);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    78
Rewrite(f, 1);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    79
if IOResult = 0 then
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    80
    begin
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    81
    png_init_pascal_io(png_ptr,@f);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    82
    png_set_IHDR(png_ptr, info_ptr, image^.width, image^.height,
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    83
                 8, // bit depth
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    84
                 PNG_COLOR_TYPE_RGBA, PNG_INTERLACE_NONE,
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    85
                 PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    86
    png_write_info(png_ptr, info_ptr);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    87
    // glReadPixels and libpng number rows in different order
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    88
    for i:= image^.height-1 downto 0 do
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    89
        png_write_row(png_ptr, image^.buffer + i*4*image^.width);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    90
    png_write_end(png_ptr, info_ptr);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    91
    Close(f);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    92
    end;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    93
{$IOCHECKS ON}
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    94
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    95
// free everything
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    96
png_destroy_write_struct(@png_ptr, @info_ptr);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    97
FreeMem(image^.buffer, image^.size);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    98
Dispose(image);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
    99
SaveScreenshot:= 0;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   100
end;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   101
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   102
{$ELSE} //PNG_SCREENSHOTS
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   103
{$IFDEF WINDOWS}
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   104
function SaveScreenshot(screenshot: pointer): LongInt; cdecl; export;
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   105
var
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   106
    surface: PSDL_Surface;
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   107
    image: PScreenshot;
15340
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   108
    rowBuffer: PByte;
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   109
    row, stride: LongInt;
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   110
begin
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   111
    image:= PScreenshot(screenshot);
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   112
    stride:= image^.width * 4;
15340
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   113
    rowBuffer:= PByte(GetMem(stride));
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   114
15340
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   115
    for row:= 0 to (image^.height div 2) - 1 do
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   116
        begin
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   117
        Move((image^.buffer + (image^.height - row - 1) * stride)^,
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   118
             rowBuffer^,
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   119
             stride);
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   120
        Move((image^.buffer + row * stride)^,
15340
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   121
             (image^.buffer + (image^.height - row - 1) * stride)^,
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   122
             stride);
15340
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   123
        Move(rowBuffer^,
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   124
             (image^.buffer + row * stride)^,
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   125
             stride);
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   126
        end;
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   127
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   128
    surface:= SDL_CreateRGBSurfaceFrom(
15340
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   129
        image^.buffer,
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   130
        image^.width, image^.height, 32, stride,
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   131
        $000000FF, $0000FF00, $00FF0000, $FF000000);
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   132
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   133
    if surface <> nil then
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   134
        begin
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   135
        IMG_SavePNG(surface, Str2PChar(image^.filename));
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   136
        SDL_FreeSurface(surface);
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   137
        end;
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   138
15340
f9f34158ef72 reduce memory usage of screenshot mirroring
alfadur
parents: 15319
diff changeset
   139
    FreeMem(rowBuffer, stride);
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   140
    FreeMem(image^.buffer, image^.size);
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   141
    Dispose(image);
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   142
    SaveScreenshot:= 0;
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   143
end;
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   144
{$ELSE} //WINDOWS
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   145
// this funtion will be executed in separate thread
8865
dd4035ee0f12 use SDL_Threads everywhere
koda
parents: 7848
diff changeset
   146
function SaveScreenshot(screenshot: pointer): LongInt; cdecl; export;
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   147
var f: file;
2947
803b277e4894 hate Smaxx (tested)
unc0rr
parents: 2915
diff changeset
   148
    // Windows Bitmap Header
803b277e4894 hate Smaxx (tested)
unc0rr
parents: 2915
diff changeset
   149
    head: array[0..53] of Byte = (
6267
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   150
    $42, $4D,       // identifier ("BM")
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   151
    0, 0, 0, 0,     // file size
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   152
    0, 0, 0, 0,     // reserved
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   153
    54, 0, 0, 0,    // starting offset
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   154
    40, 0, 0, 0,    // header size
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   155
    0, 0, 0, 0,     // width
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   156
    0, 0, 0, 0,     // height
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   157
    1, 0,           // color planes
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   158
    32, 0,          // bit depth
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   159
    0, 0, 0, 0,     // compression method (uncompressed)
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   160
    0, 0, 0, 0,     // image size
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   161
    96, 0, 0, 0,    // horizontal resolution
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   162
    96, 0, 0, 0,    // vertical resolution
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   163
    0, 0, 0, 0,     // number of colors (all)
be5d40bb1e86 make screenshots with 32bits of depths, so that they are more opengles friendly
koda
parents: 5912
diff changeset
   164
    0, 0, 0, 0      // number of important colors
2947
803b277e4894 hate Smaxx (tested)
unc0rr
parents: 2915
diff changeset
   165
    );
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   166
    image: PScreenshot;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   167
    size: QWord;
8026
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents: 7848
diff changeset
   168
    writeResult:LongInt;
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   169
begin
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   170
image:= PScreenshot(screenshot);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   171
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   172
size:= image^.Width*image^.Height*4;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   173
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   174
head[$02]:= (size + 54) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   175
head[$03]:= ((size + 54) shr 8) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   176
head[$04]:= ((size + 54) shr 16) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   177
head[$05]:= ((size + 54) shr 24) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   178
head[$12]:= image^.Width and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   179
head[$13]:= (image^.Width shr 8) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   180
head[$14]:= (image^.Width shr 16) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   181
head[$15]:= (image^.Width shr 24) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   182
head[$16]:= image^.Height and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   183
head[$17]:= (image^.Height shr 8) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   184
head[$18]:= (image^.Height shr 16) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   185
head[$19]:= (image^.Height shr 24) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   186
head[$22]:= size and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   187
head[$23]:= (size shr 8) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   188
head[$24]:= (size shr 16) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   189
head[$25]:= (size shr 24) and $ff;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   190
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   191
{$IOCHECKS OFF}
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   192
Assign(f, image^.filename);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   193
Rewrite(f, 1);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   194
if IOResult = 0 then
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   195
    begin
12626
d972b31f8881 fix some fpc hints
sheepluva
parents: 11828
diff changeset
   196
    writeResult:= 0; // suppress fpc hint
8026
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents: 7848
diff changeset
   197
    BlockWrite(f, head, sizeof(head), writeResult);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents: 7848
diff changeset
   198
    BlockWrite(f, image^.buffer^, size, writeResult);
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   199
    Close(f);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   200
    end
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   201
else
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   202
    begin
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   203
    //AddFileLog('Error: Could not write to ' + filename);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   204
    end;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   205
{$IOCHECKS ON}
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   206
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   207
// free everything
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   208
FreeMem(image^.buffer, image^.size);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   209
Dispose(image);
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   210
SaveScreenshot:= 0;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   211
end;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   212
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   213
{$ENDIF} // WINDOWS
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   214
{$ENDIF} // PNG_SCREENSHOTS
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   215
7306
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   216
{$IFDEF USE_VIDEO_RECORDING}
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   217
// make image k times smaller (useful for saving thumbnails)
14894
9b292184d793 Port code to pas2c dialect
unc0rr
parents: 14813
diff changeset
   218
procedure ReduceImage(img: PByteArray; width, height, k: LongInt);
7306
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   219
var i, j, i0, j0, w, h, r, g, b: LongInt;
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   220
begin
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   221
    w:= width  div k;
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   222
    h:= height div k;
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   223
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   224
    // rescale inplace
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   225
    if k <> 1 then
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   226
    begin
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   227
        for i:= 0 to h-1 do
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   228
            for j:= 0 to w-1 do
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   229
            begin
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   230
                r:= 0;
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   231
                g:= 0;
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   232
                b:= 0;
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   233
                for i0:= 0 to k-1 do
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   234
                    for j0:= 0 to k-1 do
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   235
                    begin
14894
9b292184d793 Port code to pas2c dialect
unc0rr
parents: 14813
diff changeset
   236
                        inc(r, img^[4*(width*(i*k+i0) + j*k + j0)+0]);
9b292184d793 Port code to pas2c dialect
unc0rr
parents: 14813
diff changeset
   237
                        inc(g, img^[4*(width*(i*k+i0) + j*k + j0)+1]);
9b292184d793 Port code to pas2c dialect
unc0rr
parents: 14813
diff changeset
   238
                        inc(b, img^[4*(width*(i*k+i0) + j*k + j0)+2]);
7306
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   239
                    end;
14894
9b292184d793 Port code to pas2c dialect
unc0rr
parents: 14813
diff changeset
   240
                img^[4*(w*i + j)+0]:= r div (k*k);
9b292184d793 Port code to pas2c dialect
unc0rr
parents: 14813
diff changeset
   241
                img^[4*(w*i + j)+1]:= g div (k*k);
9b292184d793 Port code to pas2c dialect
unc0rr
parents: 14813
diff changeset
   242
                img^[4*(w*i + j)+2]:= b div (k*k);
9b292184d793 Port code to pas2c dialect
unc0rr
parents: 14813
diff changeset
   243
                img^[4*(w*i + j)+3]:= 255;
7306
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   244
            end;
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   245
    end;
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   246
end;
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   247
{$ENDIF}
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   248
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   249
// captures and saves the screen. returns true on success.
7306
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   250
// saved image will be k times smaller than original (useful for saving thumbnails).
10633
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   251
function MakeScreenshot(filename: shortstring; k: LongInt; dump: LongWord): boolean;
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   252
var p: Pointer;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   253
    size: QWord;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   254
    image: PScreenshot;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   255
    format: GLenum;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   256
    ext: string[4];
10633
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   257
    x,y: LongWord;
1080
8735046fc698 Repair screenshots capture on 'C' key press
unc0rr
parents: 1066
diff changeset
   258
begin
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   259
{$IFDEF PNG_SCREENSHOTS}
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   260
format:= GL_RGBA;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   261
ext:= '.png';
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   262
{$ELSE}
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   263
{$IFDEF WINDOWS}
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   264
format:= GL_RGBA;
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   265
ext:= '.png';
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   266
{$ELSE}
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   267
format:= GL_BGRA;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   268
ext:= '.bmp';
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   269
{$ENDIF}
15319
fe705efbfc52 remove direct libpng dependency on windows
alfadur
parents: 14894
diff changeset
   270
{$ENDIF}
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   271
10633
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   272
if dump > 0 then
10693
9819e69bc6db revert last commit
sheepluva
parents: 10692
diff changeset
   273
     size:= LAND_WIDTH*LAND_HEIGHT*4
9819e69bc6db revert last commit
sheepluva
parents: 10692
diff changeset
   274
else size:= toPowerOf2(cScreenWidth) * toPowerOf2(cScreenHeight) * 4;
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   275
p:= GetMem(size); // will be freed in SaveScreenshot()
1080
8735046fc698 Repair screenshots capture on 'C' key press
unc0rr
parents: 1066
diff changeset
   276
5910
c9a4de51b5a0 cleaned up the screenshot procedure a little.
sheepluva
parents: 5239
diff changeset
   277
// memory could not be allocated
c9a4de51b5a0 cleaned up the screenshot procedure a little.
sheepluva
parents: 5239
diff changeset
   278
if p = nil then
5912
d31eba29e706 screenshots: display a msg on failure and log causative error
sheepluva
parents: 5911
diff changeset
   279
begin
d31eba29e706 screenshots: display a msg on failure and log causative error
sheepluva
parents: 5911
diff changeset
   280
    AddFileLog('Error: Could not allocate memory for screenshot.');
6990
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
   281
    MakeScreenshot:= false;
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
   282
    exit;
5912
d31eba29e706 screenshots: display a msg on failure and log causative error
sheepluva
parents: 5911
diff changeset
   283
end;
5910
c9a4de51b5a0 cleaned up the screenshot procedure a little.
sheepluva
parents: 5239
diff changeset
   284
11041
598fa14a3a1a comment tweaks
sheepluva
parents: 10693
diff changeset
   285
// read pixels from land array
10633
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   286
if dump > 0 then
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   287
    begin
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   288
    for y:= 0 to LAND_HEIGHT-1 do
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   289
        for x:= 0 to LAND_WIDTH-1 do
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   290
            if dump = 2 then
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   291
                PLongWordArray(p)^[y*LAND_WIDTH+x]:= LandPixels[LAND_HEIGHT-1-y, x]
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   292
            else
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   293
                begin
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   294
                if Land[LAND_HEIGHT-1-y, x] and lfIndestructible = lfIndestructible then
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   295
                    PLongWordArray(p)^[y*LAND_WIDTH+x]:= (AMask or RMask)
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   296
                else if Land[LAND_HEIGHT-1-y, x] and lfIce = lfIce then
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   297
                    PLongWordArray(p)^[y*LAND_WIDTH+x]:= (AMask or BMask)
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   298
                else if Land[LAND_HEIGHT-1-y, x] and lfBouncy = lfBouncy then
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   299
                    PLongWordArray(p)^[y*LAND_WIDTH+x]:= (AMask or GMask)
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   300
                else if Land[LAND_HEIGHT-1-y, x] and lfObject = lfObject then
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   301
                    PLongWordArray(p)^[y*LAND_WIDTH+x]:= $FFFFFFFF
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   302
                else if Land[LAND_HEIGHT-1-y, x] and lfBasic = lfBasic then
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   303
                    PLongWordArray(p)^[y*LAND_WIDTH+x]:= AMask
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   304
                else
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   305
                    PLongWordArray(p)^[y*LAND_WIDTH+x]:= 0
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   306
                end
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   307
    end
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   308
else
7306
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   309
// read pixels from the front buffer
10633
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   310
    begin
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   311
    glReadPixels(0, 0, cScreenWidth, cScreenHeight, format, GL_UNSIGNED_BYTE, p);
7306
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   312
{$IFDEF USE_VIDEO_RECORDING}
10693
9819e69bc6db revert last commit
sheepluva
parents: 10692
diff changeset
   313
    ReduceImage(p, cScreenWidth, cScreenHeight, k)
7306
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   314
{$ENDIF}
10633
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   315
    end;
7306
3cff5c769509 Here they come - thumbnails.
Stepan777 <stepik-777@mail.ru>
parents: 7049
diff changeset
   316
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   317
// allocate and fill structure that will be passed to new thread
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   318
New(image); // will be disposed in SaveScreenshot()
10633
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   319
if dump = 2 then
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   320
     image^.filename:= shortstring(UserPathPrefix) + filename + '_landpixels' + ext
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   321
else if dump = 1 then
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   322
     image^.filename:= shortstring(UserPathPrefix) + filename + '_land' + ext
10658
a3872ffdeab1 fix copypasta
nemo
parents: 10633
diff changeset
   323
else image^.filename:= shortstring(UserPathPrefix) + filename + ext;
10633
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   324
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   325
if dump <> 0 then
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   326
    begin
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   327
    image^.width:= LAND_WIDTH;
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   328
    image^.height:= LAND_HEIGHT
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   329
    end
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   330
else
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   331
    begin
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   332
    image^.width:= cScreenWidth div k;
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   333
    image^.height:= cScreenHeight div k
2f062fac5791 Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents: 10150
diff changeset
   334
    end;
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   335
image^.size:= size;
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   336
image^.buffer:= p;
1080
8735046fc698 Repair screenshots capture on 'C' key press
unc0rr
parents: 1066
diff changeset
   337
11358
a91c4c4fd85c add pchar casts to make pas2c happy
sheepluva
parents: 11342
diff changeset
   338
SDL_CreateThread(@SaveScreenshot, PChar('snapshot'), image);
6881
ee01eeaa1281 png screenshots
Stepan777
parents: 6857
diff changeset
   339
MakeScreenshot:= true; // possibly it is not true but we will not wait for thread to terminate
1080
8735046fc698 Repair screenshots capture on 'C' key press
unc0rr
parents: 1066
diff changeset
   340
end;
8735046fc698 Repair screenshots capture on 'C' key press
unc0rr
parents: 1066
diff changeset
   341
5004
2efa6a414518 update some sdl-1.3 bindings (working up to rev 5296)
koda
parents: 4976
diff changeset
   342
// http://www.idevgames.com/forums/thread-5602-post-21860.html#pid21860
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2607
diff changeset
   343
function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface;
5004
2efa6a414518 update some sdl-1.3 bindings (working up to rev 5296)
koda
parents: 4976
diff changeset
   344
var convertedSurf: PSDL_Surface;
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2607
diff changeset
   345
begin
6990
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
   346
    doSurfaceConversion:= tmpsurf;
5004
2efa6a414518 update some sdl-1.3 bindings (working up to rev 5296)
koda
parents: 4976
diff changeset
   347
    if ((tmpsurf^.format^.bitsperpixel = 32) and (tmpsurf^.format^.rshift > tmpsurf^.format^.bshift)) or
2efa6a414518 update some sdl-1.3 bindings (working up to rev 5296)
koda
parents: 4976
diff changeset
   348
       (tmpsurf^.format^.bitsperpixel = 24) then
7049
35d762458d66 minor changes for warnings and a variables scope
koda
parents: 7043
diff changeset
   349
    begin
5046
fc6639d56799 this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents: 5004
diff changeset
   350
        convertedSurf:= SDL_ConvertSurface(tmpsurf, conversionFormat, SDL_SWSURFACE);
2947
803b277e4894 hate Smaxx (tested)
unc0rr
parents: 2915
diff changeset
   351
        SDL_FreeSurface(tmpsurf);
6990
40e5af28d026 change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents: 6952
diff changeset
   352
        doSurfaceConversion:= convertedSurf;
7049
35d762458d66 minor changes for warnings and a variables scope
koda
parents: 7043
diff changeset
   353
    end;
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2607
diff changeset
   354
end;
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2607
diff changeset
   355
6992
b8f3d8991e92 marked a couple of functions as inline
koda
parents: 6990
diff changeset
   356
function SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect; inline;
6695
32de8965c62c refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents: 6267
diff changeset
   357
begin
6857
b34288c8fafa Make function more pascal-ish
unc0rr
parents: 6843
diff changeset
   358
    SDL_RectMake.x:= x;
b34288c8fafa Make function more pascal-ish
unc0rr
parents: 6843
diff changeset
   359
    SDL_RectMake.y:= y;
b34288c8fafa Make function more pascal-ish
unc0rr
parents: 6843
diff changeset
   360
    SDL_RectMake.w:= width;
b34288c8fafa Make function more pascal-ish
unc0rr
parents: 6843
diff changeset
   361
    SDL_RectMake.h:= height;
6695
32de8965c62c refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents: 6267
diff changeset
   362
end;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2698
diff changeset
   363
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents: 4377
diff changeset
   364
function GetTeamStatString(p: PTeam): shortstring;
10124
aabd1b75d5a3 Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents: 10108
diff changeset
   365
var s: shortstring;
2670
1b327b7515ed regression, powerpc colors working again
koda
parents: 2666
diff changeset
   366
begin
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents: 4377
diff changeset
   367
    s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';
46caab3a8f84 uCommandHandlers
unc0rr
parents: 4377
diff changeset
   368
    GetTeamStatString:= s;
2670
1b327b7515ed regression, powerpc colors working again
koda
parents: 2666
diff changeset
   369
end;
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2622
diff changeset
   370
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   371
procedure initModule;
9311
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9080
diff changeset
   372
const SDL_PIXELFORMAT_ABGR8888 = (1 shl 28) or (6 shl 24) or (7 shl 20) or (6 shl 16) or (32 shl 8) or 4;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2698
diff changeset
   373
begin
5052
74a81c276d67 fix a couple of loose ends
koda
parents: 5050
diff changeset
   374
    conversionFormat:= SDL_AllocFormat(SDL_PIXELFORMAT_ABGR8888);
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2698
diff changeset
   375
end;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2698
diff changeset
   376
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   377
procedure freeModule;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2698
diff changeset
   378
begin
5046
fc6639d56799 this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents: 5004
diff changeset
   379
    SDL_FreeFormat(conversionFormat);
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2698
diff changeset
   380
end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   381
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   382
end.