author | nemo |
Sun, 24 Jul 2011 14:42:28 -0400 | |
changeset 5443 | 83cb9dd54469 |
parent 5239 | f34f391a223b |
child 5910 | c9a4de51b5a0 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
2947 | 2 |
* Hedgewars, a free turn based strategy game |
4976 | 3 |
* Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com> |
2947 | 4 |
* |
5 |
* This program is free software; you can redistribute it and/or modify |
|
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
8 |
* |
|
9 |
* This program is distributed in the hope that it will be useful, |
|
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
13 |
* |
|
14 |
* You should have received a copy of the GNU General Public License |
|
15 |
* along with this program; if not, write to the Free Software |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
17 |
*) |
|
4 | 18 |
|
2630 | 19 |
{$INCLUDE "options.inc"} |
20 |
||
4 | 21 |
unit uMisc; |
22 |
interface |
|
2630 | 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 | 25 |
|
3169
c8c6ac44f51b
prophylactic removal of some Integer references, raise a few of the template islands up a bit so they work inverted without triggering border
nemo
parents:
3165
diff
changeset
|
26 |
procedure movecursor(dx, dy: LongInt); |
2670 | 27 |
function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
2735 | 28 |
procedure MakeScreenshot(filename: shortstring); |
4413 | 29 |
function GetTeamStatString(p: PTeam): shortstring; |
2630 | 30 |
|
3038 | 31 |
procedure initModule; |
32 |
procedure freeModule; |
|
4 | 33 |
|
34 |
implementation |
|
4377 | 35 |
uses typinfo, sysutils, uVariables; |
3756 | 36 |
|
3169
c8c6ac44f51b
prophylactic removal of some Integer references, raise a few of the template islands up a bit so they work inverted without triggering border
nemo
parents:
3165
diff
changeset
|
37 |
procedure movecursor(dx, dy: LongInt); |
2428 | 38 |
var x, y: LongInt; |
39 |
begin |
|
40 |
if (dx = 0) and (dy = 0) then exit; |
|
2671
7e0f88013fe8
smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents:
2670
diff
changeset
|
41 |
|
2428 | 42 |
SDL_GetMouseState(@x, @y); |
43 |
Inc(x, dx); |
|
44 |
Inc(y, dy); |
|
45 |
SDL_WarpMouse(x, y); |
|
46 |
end; |
|
47 |
||
949 | 48 |
|
2735 | 49 |
procedure MakeScreenshot(filename: shortstring); |
1080 | 50 |
var p: Pointer; |
2947 | 51 |
size: Longword; |
52 |
f: file; |
|
53 |
// Windows Bitmap Header |
|
54 |
head: array[0..53] of Byte = ( |
|
55 |
$42, $4D, // identifier ("BM") |
|
56 |
0, 0, 0, 0, // file size |
|
57 |
0, 0, 0, 0, // reserved |
|
58 |
54, 0, 0, 0, // starting offset |
|
59 |
40, 0, 0, 0, // header size |
|
60 |
0, 0, 0, 0, // width |
|
61 |
0, 0, 0, 0, // height |
|
62 |
1, 0, // color planes |
|
63 |
24, 0, // bit depth |
|
64 |
0, 0, 0, 0, // compression method (uncompressed) |
|
65 |
0, 0, 0, 0, // image size |
|
66 |
96, 0, 0, 0, // horizontal resolution |
|
67 |
96, 0, 0, 0, // vertical resolution |
|
68 |
0, 0, 0, 0, // number of colors (all) |
|
69 |
0, 0, 0, 0 // number of important colors |
|
70 |
); |
|
1080 | 71 |
begin |
3107 | 72 |
// flash |
73 |
ScreenFade:= sfFromWhite; |
|
74 |
ScreenFadeValue:= sfMax; |
|
75 |
ScreenFadeSpeed:= 5; |
|
76 |
||
1080 | 77 |
size:= cScreenWidth * cScreenHeight * 3; |
78 |
p:= GetMem(size); |
|
79 |
||
2735 | 80 |
// update header information and file name |
81 |
||
5239 | 82 |
filename:= UserPathPrefix + '/Screenshots/' + filename + '.bmp'; |
2735 | 83 |
|
84 |
head[$02]:= (size + 54) and $ff; |
|
85 |
head[$03]:= ((size + 54) shr 8) and $ff; |
|
86 |
head[$04]:= ((size + 54) shr 16) and $ff; |
|
87 |
head[$05]:= ((size + 54) shr 24) and $ff; |
|
88 |
head[$12]:= cScreenWidth and $ff; |
|
89 |
head[$13]:= (cScreenWidth shr 8) and $ff; |
|
90 |
head[$14]:= (cScreenWidth shr 16) and $ff; |
|
91 |
head[$15]:= (cScreenWidth shr 24) and $ff; |
|
92 |
head[$16]:= cScreenHeight and $ff; |
|
93 |
head[$17]:= (cScreenHeight shr 8) and $ff; |
|
94 |
head[$18]:= (cScreenHeight shr 16) and $ff; |
|
95 |
head[$19]:= (cScreenHeight shr 24) and $ff; |
|
96 |
head[$22]:= size and $ff; |
|
97 |
head[$23]:= (size shr 8) and $ff; |
|
98 |
head[$24]:= (size shr 16) and $ff; |
|
99 |
head[$25]:= (size shr 24) and $ff; |
|
2163
12730f5e79b9
koda's patch fixing some iphone port troubles (color, mouse)
unc0rr
parents:
2162
diff
changeset
|
100 |
|
12730f5e79b9
koda's patch fixing some iphone port troubles (color, mouse)
unc0rr
parents:
2162
diff
changeset
|
101 |
//remember that opengles operates on a single surface, so GL_FRONT *should* be implied |
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3650
diff
changeset
|
102 |
//glReadBuffer(GL_FRONT); |
1080 | 103 |
glReadPixels(0, 0, cScreenWidth, cScreenHeight, GL_BGR, GL_UNSIGNED_BYTE, p); |
104 |
||
105 |
{$I-} |
|
2735 | 106 |
Assign(f, filename); |
1080 | 107 |
Rewrite(f, 1); |
108 |
if IOResult = 0 then |
|
2947 | 109 |
begin |
110 |
BlockWrite(f, head, sizeof(head)); |
|
111 |
BlockWrite(f, p^, size); |
|
112 |
Close(f); |
|
113 |
end; |
|
1080 | 114 |
{$I+} |
115 |
||
116 |
FreeMem(p) |
|
117 |
end; |
|
118 |
||
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
119 |
// http://www.idevgames.com/forums/thread-5602-post-21860.html#pid21860 |
2619 | 120 |
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
|
121 |
var convertedSurf: PSDL_Surface; |
2619 | 122 |
begin |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
123 |
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
|
124 |
(tmpsurf^.format^.bitsperpixel = 24) then |
4578 | 125 |
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
|
126 |
convertedSurf:= SDL_ConvertSurface(tmpsurf, conversionFormat, SDL_SWSURFACE); |
2947 | 127 |
SDL_FreeSurface(tmpsurf); |
128 |
exit(convertedSurf); |
|
4578 | 129 |
end; |
2705
2b5625c4ec16
fix a nasty 196 bytes memory leak in engine, plus other stuff for iphone frontend
koda
parents:
2699
diff
changeset
|
130 |
|
2947 | 131 |
exit(tmpsurf); |
2619 | 132 |
end; |
133 |
||
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
134 |
|
4413 | 135 |
function GetTeamStatString(p: PTeam): shortstring; |
136 |
var s: ansistring; |
|
2670 | 137 |
begin |
4413 | 138 |
s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':'; |
139 |
GetTeamStatString:= s; |
|
2670 | 140 |
end; |
2630 | 141 |
|
3038 | 142 |
procedure initModule; |
5052 | 143 |
const SDL_PIXELFORMAT_ABGR8888 = ((1 shl 31) 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
|
144 |
begin |
5052 | 145 |
conversionFormat:= SDL_AllocFormat(SDL_PIXELFORMAT_ABGR8888); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
146 |
end; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
147 |
|
3038 | 148 |
procedure freeModule; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
149 |
begin |
3626 | 150 |
recordFileName:= ''; |
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
|
151 |
SDL_FreeFormat(conversionFormat); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
152 |
end; |
4 | 153 |
|
154 |
end. |