author | koda |
Sun, 05 Dec 2010 23:48:58 +0100 | |
changeset 4463 | 1fe77f2bc1d1 |
parent 4413 | 46caab3a8f84 |
child 4578 | f3cf226fad16 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
2947 | 2 |
* Hedgewars, a free turn based strategy game |
3 |
* Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com> |
|
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 |
|
4374 | 24 |
uses SDLh, uConsts, GLunit, uTypes; |
2697 | 25 |
|
3611 | 26 |
|
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
|
27 |
procedure movecursor(dx, dy: LongInt); |
2670 | 28 |
function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
2735 | 29 |
procedure MakeScreenshot(filename: shortstring); |
4413 | 30 |
function GetTeamStatString(p: PTeam): shortstring; |
4 | 31 |
|
4359 | 32 |
procedure initModule; |
33 |
procedure freeModule; |
|
34 |
||
4 | 35 |
implementation |
4377 | 36 |
uses typinfo, sysutils, uVariables; |
3756 | 37 |
|
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
|
38 |
procedure movecursor(dx, dy: LongInt); |
2428 | 39 |
var x, y: LongInt; |
40 |
begin |
|
41 |
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
|
42 |
|
2428 | 43 |
SDL_GetMouseState(@x, @y); |
44 |
Inc(x, dx); |
|
45 |
Inc(y, dy); |
|
46 |
SDL_WarpMouse(x, y); |
|
47 |
end; |
|
48 |
||
4 | 49 |
|
2735 | 50 |
procedure MakeScreenshot(filename: shortstring); |
1080 | 51 |
var p: Pointer; |
2947 | 52 |
size: Longword; |
53 |
f: file; |
|
54 |
// Windows Bitmap Header |
|
55 |
head: array[0..53] of Byte = ( |
|
56 |
$42, $4D, // identifier ("BM") |
|
57 |
0, 0, 0, 0, // file size |
|
58 |
0, 0, 0, 0, // reserved |
|
59 |
54, 0, 0, 0, // starting offset |
|
60 |
40, 0, 0, 0, // header size |
|
61 |
0, 0, 0, 0, // width |
|
62 |
0, 0, 0, 0, // height |
|
63 |
1, 0, // color planes |
|
64 |
24, 0, // bit depth |
|
65 |
0, 0, 0, 0, // compression method (uncompressed) |
|
66 |
0, 0, 0, 0, // image size |
|
67 |
96, 0, 0, 0, // horizontal resolution |
|
68 |
96, 0, 0, 0, // vertical resolution |
|
69 |
0, 0, 0, 0, // number of colors (all) |
|
70 |
0, 0, 0, 0 // number of important colors |
|
71 |
); |
|
1080 | 72 |
begin |
3107 | 73 |
// flash |
74 |
ScreenFade:= sfFromWhite; |
|
75 |
ScreenFadeValue:= sfMax; |
|
76 |
ScreenFadeSpeed:= 5; |
|
77 |
||
1080 | 78 |
size:= cScreenWidth * cScreenHeight * 3; |
79 |
p:= GetMem(size); |
|
80 |
||
2735 | 81 |
// update header information and file name |
82 |
||
3350 | 83 |
filename:= ParamStr(1) + '/Screenshots/' + filename + '.bmp'; |
2735 | 84 |
|
85 |
head[$02]:= (size + 54) and $ff; |
|
86 |
head[$03]:= ((size + 54) shr 8) and $ff; |
|
87 |
head[$04]:= ((size + 54) shr 16) and $ff; |
|
88 |
head[$05]:= ((size + 54) shr 24) and $ff; |
|
89 |
head[$12]:= cScreenWidth and $ff; |
|
90 |
head[$13]:= (cScreenWidth shr 8) and $ff; |
|
91 |
head[$14]:= (cScreenWidth shr 16) and $ff; |
|
92 |
head[$15]:= (cScreenWidth shr 24) and $ff; |
|
93 |
head[$16]:= cScreenHeight and $ff; |
|
94 |
head[$17]:= (cScreenHeight shr 8) and $ff; |
|
95 |
head[$18]:= (cScreenHeight shr 16) and $ff; |
|
96 |
head[$19]:= (cScreenHeight shr 24) and $ff; |
|
97 |
head[$22]:= size and $ff; |
|
98 |
head[$23]:= (size shr 8) and $ff; |
|
99 |
head[$24]:= (size shr 16) and $ff; |
|
100 |
head[$25]:= (size shr 24) and $ff; |
|
2163
12730f5e79b9
koda's patch fixing some iphone port troubles (color, mouse)
unc0rr
parents:
2162
diff
changeset
|
101 |
|
12730f5e79b9
koda's patch fixing some iphone port troubles (color, mouse)
unc0rr
parents:
2162
diff
changeset
|
102 |
//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
|
103 |
//glReadBuffer(GL_FRONT); |
1080 | 104 |
glReadPixels(0, 0, cScreenWidth, cScreenHeight, GL_BGR, GL_UNSIGNED_BYTE, p); |
105 |
||
106 |
{$I-} |
|
2735 | 107 |
Assign(f, filename); |
1080 | 108 |
Rewrite(f, 1); |
109 |
if IOResult = 0 then |
|
2947 | 110 |
begin |
111 |
BlockWrite(f, head, sizeof(head)); |
|
112 |
BlockWrite(f, p^, size); |
|
113 |
Close(f); |
|
114 |
end; |
|
1080 | 115 |
{$I+} |
116 |
||
117 |
FreeMem(p) |
|
118 |
end; |
|
119 |
||
2619 | 120 |
function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
121 |
{* for more information http://www.idevgames.com/forum/showpost.php?p=85864&postcount=7 *} |
|
122 |
var convertedSurf: PSDL_Surface = nil; |
|
123 |
begin |
|
2947 | 124 |
if (tmpsurf^.format^.bitsperpixel = 24) or ((tmpsurf^.format^.bitsperpixel = 32) and (tmpsurf^.format^.rshift > tmpsurf^.format^.bshift)) then |
125 |
begin |
|
126 |
convertedSurf:= SDL_ConvertSurface(tmpsurf, @conversionFormat, SDL_SWSURFACE); |
|
127 |
SDL_FreeSurface(tmpsurf); |
|
128 |
exit(convertedSurf); |
|
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; |
|
137 |
begin |
|
138 |
s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':'; |
|
139 |
GetTeamStatString:= s; |
|
140 |
end; |
|
141 |
||
3038 | 142 |
procedure initModule; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
143 |
begin |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
144 |
end; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
145 |
|
3038 | 146 |
procedure freeModule; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
147 |
begin |
3626 | 148 |
recordFileName:= ''; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
149 |
end; |
4 | 150 |
|
151 |
end. |