Main
Current News
Archived News
Search News
Forums
Discussion Forum


Old Forum
Programs
Install Programs
Downloads
More Downloads...
Troubleshooting
Other Sections
Source Code
Format Specs.
Misc. Information
Non-SF Stuff
Links



projects / grpapi.git / blame
? search:
summary | graphiclog | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
(no commit message)
[grpapi.git] / grpapi / grpapi.cpp
CommitLineData
14362b19 1#include "grpapi.h"\r
ecca31ff 2#include "../LoadStorm/storm.h"\r
14362b19 3#include <malloc.h>\r
4\r
5#ifdef GRPAPI_STATIC\r
6#define DllMain GrpMain\r
7\r
8#include "grp_static.h"\r
9\r
10struct GRPLIBMODULE {\r
11 GRPLIBMODULE();\r
12 ~GRPLIBMODULE();\r
13} GrpLib;\r
14\r
15BOOL APIENTRY DllMain(HINSTANCE hInstDLL, DWORD ul_reason_for_call, LPVOID lpReserved);\r
16\r
17GRPLIBMODULE::GRPLIBMODULE()\r
18{\r
19 GrpMain(0,DLL_PROCESS_ATTACH,0);\r
20}\r
21\r
22GRPLIBMODULE::~GRPLIBMODULE()\r
23{\r
24 GrpMain(0,DLL_PROCESS_DETACH,0);\r
25}\r
26\r
27#endif\r
28\r
29typedef struct {\r
30 BYTE Left;\r
31 BYTE Top;\r
32 BYTE Width;\r
33 BYTE Height;\r
34 DWORD Offset;\r
35} FRAMEHEADER;\r
36\r
ecca31ff 37GETPIXELPROC MyGetPixel = GetPixel;\r
38SETPIXELPROC MySetPixel = (SETPIXELPROC)SetPixelV;\r
39\r
14362b19 40void __inline SetPix(HDC hDC, int X, int Y, COLORREF clrColor, DWORD dwFlags, DWORD dwAlpha);\r
41\r
42extern HINSTANCE hStorm;\r
43\r
44BOOL APIENTRY DllMain( HINSTANCE hInstDLL, \r
45 DWORD ul_reason_for_call, \r
46 LPVOID lpReserved\r
47 )\r
48{\r
49 switch (ul_reason_for_call)\r
50 {\r
51 case DLL_PROCESS_ATTACH:\r
52 break;\r
53 case DLL_THREAD_ATTACH:\r
54 break;\r
55 case DLL_THREAD_DETACH:\r
56 break;\r
57 case DLL_PROCESS_DETACH:\r
58 break;\r
59 }\r
60\r
61 return TRUE;\r
62}\r
63\r
64BOOL GRPAPI WINAPI LoadGrpApi()\r
65{\r
ecca31ff 66 if (!hStorm) return FALSE;\r
14362b19 67 else return TRUE;\r
68}\r
69\r
70void GRPAPI WINAPI FreeGrpApi()\r
71{\r
72}\r
73\r
ecca31ff 74BOOL GRPAPI WINAPI SetMpqDll(LPCSTR lpDllFileName)\r
75{\r
76 if (LoadStorm((char *)lpDllFileName)) return TRUE;\r
77 else return FALSE;\r
78}\r
79\r
14362b19 80BOOL GRPAPI WINAPI LoadPalette(LPCSTR lpFileName, DWORD *dwPaletteBuffer)\r
81{\r
ecca31ff 82 if (!lpFileName || !dwPaletteBuffer) return FALSE;\r
14362b19 83 HANDLE hFile;\r
ecca31ff 84 if (SFileOpenFileEx && SFileGetFileSize\r
85 && SFileSetFilePointer && SFileReadFile\r
86 && SFileCloseFile) {\r
87 if (!SFileOpenFileEx(0,lpFileName,1,&hFile)) return FALSE;\r
14362b19 88 DWORD fsz = SFileGetFileSize(hFile,0);\r
89 SFileSetFilePointer(hFile,0,0,FILE_BEGIN);\r
90 if (fsz>=1024) {\r
91 memset(dwPaletteBuffer,0,1024);\r
92 SFileReadFile(hFile,dwPaletteBuffer,1024,0,0);\r
93 }\r
94 else if (fsz==768) {\r
95 char *buffer = (char *)_alloca(768);\r
96 memset(buffer,0,768);\r
97 SFileReadFile(hFile,buffer,768,0,0);\r
98 for (DWORD i=0;i<256;i++) {\r
99 memcpy(&dwPaletteBuffer[i],buffer+i*3,3);\r
100 *(((char *)&dwPaletteBuffer[i])+3) = 0;\r
101 }\r
102 }\r
103 else {\r
104 memset(dwPaletteBuffer,0,1024);\r
105 SFileReadFile(hFile,dwPaletteBuffer,fsz,0,0);\r
106 }\r
107 SFileCloseFile(hFile);\r
108 }\r
109 else {\r
110 hFile = CreateFile(lpFileName,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);\r
111 if (hFile==INVALID_HANDLE_VALUE) return FALSE;\r
112 DWORD fsz = GetFileSize(hFile,0),tsz;\r
113 SetFilePointer(hFile,0,0,FILE_BEGIN);\r
114 if (fsz>=1024) {\r
115 memset(dwPaletteBuffer,0,1024);\r
116 ReadFile(hFile,dwPaletteBuffer,1024,&tsz,0);\r
117 }\r
118 else if (fsz==768) {\r
119 char *buffer = (char *)_alloca(768);\r
120 memset(buffer,0,768);\r
121 ReadFile(hFile,buffer,768,&tsz,0);\r
122 for (DWORD i=0;i<256;i++) {\r
123 memcpy(&dwPaletteBuffer[i],buffer+i*3,3);\r
124 *(((char *)&dwPaletteBuffer[i])+3) = 0;\r
125 }\r
126 }\r
127 else {\r
128 memset(dwPaletteBuffer,0,1024);\r
129 ReadFile(hFile,dwPaletteBuffer,fsz,&tsz,0);\r
130 }\r
131 CloseHandle(hFile);\r
132 }\r
133 return TRUE;\r
134}\r
135\r
136HANDLE GRPAPI WINAPI LoadGrp(LPCSTR lpFileName)\r
137{\r
ecca31ff 138 if (!lpFileName) return (HANDLE)-1;\r
14362b19 139 HANDLE hFile;\r
140 char *GrpFile;\r
ecca31ff 141 if (SFileOpenFileEx && SFileGetFileSize\r
142 && SFileSetFilePointer && SFileReadFile\r
143 && SFileCloseFile) {\r
144 if (!SFileOpenFileEx(0,lpFileName,1,&hFile)) return (HANDLE)-1;\r
14362b19 145 DWORD fsz = SFileGetFileSize(hFile,0);\r
146 if (fsz<6) {\r
147 SFileCloseFile(hFile);\r
148 return (HANDLE)-1;\r
149 }\r
150 GrpFile = (char *)VirtualAlloc(0,fsz,MEM_COMMIT,PAGE_READWRITE);\r
ecca31ff 151 if (GrpFile) {\r
14362b19 152 SFileSetFilePointer(hFile,0,0,FILE_BEGIN);\r
153 SFileReadFile(hFile,GrpFile,fsz,0,0);\r
154 }\r
155 else GrpFile=(char *)-1;\r
156 SFileCloseFile(hFile);\r
157 }\r
158 else {\r
159 hFile = CreateFile(lpFileName,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);\r
160 if (hFile==INVALID_HANDLE_VALUE) return (HANDLE)-1;\r
161 DWORD fsz = GetFileSize(hFile,0),tsz;\r
162 if (fsz<6) {\r
163 CloseHandle(hFile);\r
164 return (HANDLE)-1;\r
165 }\r
166 GrpFile = (char *)VirtualAlloc(0,fsz,MEM_COMMIT,PAGE_READWRITE);\r
ecca31ff 167 if (GrpFile) {\r
14362b19 168 SetFilePointer(hFile,0,0,FILE_BEGIN);\r
169 ReadFile(hFile,GrpFile,fsz,&tsz,0);\r
170 }\r
171 else GrpFile=(char *)-1;\r
172 CloseHandle(hFile);\r
173 }\r
174 return (HANDLE)GrpFile;\r
175}\r
176\r
177BOOL GRPAPI WINAPI DestroyGrp(HANDLE hGrp)\r
178{\r
ecca31ff 179 if (!hGrp || hGrp==INVALID_HANDLE_VALUE) return FALSE;\r
14362b19 180 VirtualFree(hGrp,0,MEM_RELEASE);\r
181 return TRUE;\r
182}\r
183\r
184BOOL GRPAPI WINAPI DrawGrp(HANDLE hGrp, HDC hdcDest, int nXDest, int nYDest, WORD nFrame, DWORD *dwPalette, DWORD dwFlags, DWORD dwAlpha)\r
185{\r
ecca31ff 186 if (!hGrp || hGrp==INVALID_HANDLE_VALUE || hdcDest==0 || !dwPalette) return FALSE;\r
14362b19 187 GRPHEADER *GrpFile = (GRPHEADER *)hGrp;\r
188 nFrame %= GrpFile->nFrames;\r
189 FRAMEHEADER *GrpFrame = &((FRAMEHEADER *)(((char *)GrpFile)+6))[nFrame];\r
2975ca34 190 FRAMEHEADER *GrpFrames = &((FRAMEHEADER *)(((char *)GrpFile)+6))[0];\r
191 int FrameSize = 0xFFFFFF;\r
14362b19 192 DWORD Right,Bottom;\r
193 if (dwFlags&HORIZONTAL_FLIP) Right = nXDest+GrpFile->wMaxWidth-1-GrpFrame->Left;\r
194 if (dwFlags&VERTICAL_FLIP) Bottom = nYDest+GrpFile->wMaxHeight-1-GrpFrame->Top;\r
195 nXDest += GrpFrame->Left;\r
196 nYDest += GrpFrame->Top;\r
197 WORD *GrpOffsets = ((WORD *)(((char *)GrpFile)+GrpFrame->Offset));\r
2975ca34 198 BYTE *GrpRaw = (BYTE *)GrpOffsets;\r
ecca31ff 199 BYTE *RowData;\r
200 WORD x,ofs;\r
201 DWORD y;\r
202 WORD i;\r
2975ca34 203 int j;\r
204 if (nFrame + 1 < GrpFile->nFrames) {\r
205 for (i = 0; i + 1 < GrpFile->nFrames; i++) {\r
206 j = GrpFrames[i].Offset - GrpFrame->Offset;\r
207 if (j > 0 && j < FrameSize)\r
208 FrameSize = j;\r
209 }\r
210 }\r
211 if (FrameSize == 0xFFFFFF) {\r
212 for (i = 0; i + 1 < GrpFile->nFrames; i++) {\r
213 j = GrpFrames[i].Offset - GrpFrames[0].Offset;\r
214 if (j > 0 && j < FrameSize)\r
215 FrameSize = j;\r
216 }\r
217 if (FrameSize == GrpFrames[0].Width * GrpFrames[0].Height)\r
218 FrameSize = GrpFrame->Width * GrpFrame->Height;\r
219 }\r
ecca31ff 220 if (!(dwFlags&HORIZONTAL_FLIP) && !(dwFlags&VERTICAL_FLIP)) {\r
2975ca34 221 if (FrameSize != GrpFrame->Width * GrpFrame->Height) {\r
222 for (y=0;y<GrpFrame->Height;y++) {\r
223 RowData = ((BYTE *)(((char *)GrpOffsets)+GrpOffsets[y]));\r
224 x=0; ofs=0;\r
225 while (x<GrpFrame->Width) {\r
226 if (!(RowData[ofs] & 0x80)) {\r
227 if (!(RowData[ofs] & 0x40)) {\r
228 for (i=1;i<=RowData[ofs] && x<GrpFrame->Width;i++) {\r
229 SetPix(hdcDest,nXDest+x,nYDest+y,dwPalette[RowData[ofs+i]],dwFlags,dwAlpha);\r
230 x++;\r
231 }\r
232 ofs+=RowData[ofs]+1;\r
233 }\r
234 else {\r
235 for (i=0;i<RowData[ofs]-64 && x<GrpFrame->Width;i++) {\r
236 SetPix(hdcDest,nXDest+x,nYDest+y,dwPalette[RowData[ofs+1]],dwFlags,dwAlpha);\r
237 x++;\r
238 }\r
239 ofs+=2;\r
ecca31ff 240 }\r
14362b19 241 }\r
ecca31ff 242 else {\r
2975ca34 243 x+=RowData[ofs]-128;\r
244 ofs++;\r
14362b19 245 }\r
246 }\r
2975ca34 247 }\r
248 }\r
249 else {\r
250 for (y=0;y<GrpFrame->Height;y++) {\r
251 for (x=0;x<GrpFrame->Width;x++) {\r
252 SetPix(hdcDest,nXDest+x,nYDest+y,dwPalette[GrpRaw[y * GrpFrame->Width + x]],dwFlags,dwAlpha);\r
ecca31ff 253 }\r
254 }\r
255 }\r
256 }\r
257 else if (dwFlags&HORIZONTAL_FLIP && !(dwFlags&VERTICAL_FLIP)) {\r
2975ca34 258 if (FrameSize != GrpFrame->Width * GrpFrame->Height) {\r
259 for (y=0;y<GrpFrame->Height;y++) {\r
260 RowData = ((BYTE *)(((char *)GrpOffsets)+GrpOffsets[y]));\r
261 x=0; ofs=0;\r
262 while (x<GrpFrame->Width) {\r
263 if (!(RowData[ofs] & 0x80)) {\r
264 if (!(RowData[ofs] & 0x40)) {\r
265 for (i=1;i<=RowData[ofs] && x<GrpFrame->Width;i++) {\r
266 SetPix(hdcDest,Right-x,nYDest+y,dwPalette[RowData[ofs+i]],dwFlags,dwAlpha);\r
267 x++;\r
268 }\r
269 ofs+=RowData[ofs]+1;\r
270 }\r
271 else {\r
272 for (i=0;i<RowData[ofs]-64 && x<GrpFrame->Width;i++) {\r
273 SetPix(hdcDest,Right-x,nYDest+y,dwPalette[RowData[ofs+1]],dwFlags,dwAlpha);\r
274 x++;\r
275 }\r
276 ofs+=2;\r
ecca31ff 277 }\r
ecca31ff 278 }\r
279 else {\r
2975ca34 280 x+=RowData[ofs]-128;\r
281 ofs++;\r
14362b19 282 }\r
283 }\r
2975ca34 284 }\r
285 }\r
286 else {\r
287 for (y=0;y<GrpFrame->Height;y++) {\r
288 for (x=0;x<GrpFrame->Width;x++) {\r
289 SetPix(hdcDest,Right-x,nYDest+y,dwPalette[GrpRaw[y * GrpFrame->Width + x]],dwFlags,dwAlpha);\r
14362b19 290 }\r
14362b19 291 }\r
ecca31ff 292 }\r
293 }\r
294 else if (!(dwFlags&HORIZONTAL_FLIP) && dwFlags&VERTICAL_FLIP) {\r
2975ca34 295 if (FrameSize != GrpFrame->Width * GrpFrame->Height) {\r
296 for (y=0;y<GrpFrame->Height;y++) {\r
297 RowData = ((BYTE *)(((char *)GrpOffsets)+GrpOffsets[y]));\r
298 x=0; ofs=0;\r
299 while (x<GrpFrame->Width) {\r
300 if (!(RowData[ofs] & 0x80)) {\r
301 if (!(RowData[ofs] & 0x40)) {\r
302 for (i=1;i<=RowData[ofs] && x<GrpFrame->Width;i++) {\r
303 SetPix(hdcDest,nXDest+x,Bottom-y,dwPalette[RowData[ofs+i]],dwFlags,dwAlpha);\r
304 x++;\r
305 }\r
306 ofs+=RowData[ofs]+1;\r
307 }\r
308 else {\r
309 for (i=0;i<RowData[ofs]-64 && x<GrpFrame->Width;i++) {\r
310 SetPix(hdcDest,nXDest+x,Bottom-y,dwPalette[RowData[ofs+1]],dwFlags,dwAlpha);\r
311 x++;\r
312 }\r
313 ofs+=2;\r
ecca31ff 314 }\r
14362b19 315 }\r
ecca31ff 316 else {\r
2975ca34 317 x+=RowData[ofs]-128;\r
318 ofs++;\r
14362b19 319 }\r
320 }\r
2975ca34 321 }\r
322 }\r
323 else {\r
324 for (y=0;y<GrpFrame->Height;y++) {\r
325 for (x=0;x<GrpFrame->Width;x++) {\r
326 SetPix(hdcDest,nXDest+x,Bottom-y,dwPalette[GrpRaw[y * GrpFrame->Width + x]],dwFlags,dwAlpha);\r
ecca31ff 327 }\r
328 }\r
329 }\r
330 }\r
331 else {\r
2975ca34 332 if (FrameSize != GrpFrame->Width * GrpFrame->Height) {\r
333 for (y=0;y<GrpFrame->Height;y++) {\r
334 RowData = ((BYTE *)(((char *)GrpOffsets)+GrpOffsets[y]));\r
335 x=0; ofs=0;\r
336 while (x<GrpFrame->Width) {\r
337 if (!(RowData[ofs] & 0x80)) {\r
338 if (!(RowData[ofs] & 0x40)) {\r
339 for (i=1;i<=RowData[ofs] && x<GrpFrame->Width;i++) {\r
340 SetPix(hdcDest,Right-x,Bottom-y,dwPalette[RowData[ofs+i]],dwFlags,dwAlpha);\r
341 x++;\r
342 }\r
343 ofs+=RowData[ofs]+1;\r
344 }\r
345 else {\r
346 for (i=0;i<RowData[ofs]-64 && x<GrpFrame->Width;i++) {\r
347 SetPix(hdcDest,Right-x,Bottom-y,dwPalette[RowData[ofs+1]],dwFlags,dwAlpha);\r
348 x++;\r
349 }\r
350 ofs+=2;\r
ecca31ff 351 }\r
ecca31ff 352 }\r
353 else {\r
2975ca34 354 x+=RowData[ofs]-128;\r
355 ofs++;\r
14362b19 356 }\r
357 }\r
2975ca34 358 }\r
359 }\r
360 else {\r
361 for (y=0;y<GrpFrame->Height;y++) {\r
362 for (x=0;x<GrpFrame->Width;x++) {\r
363 SetPix(hdcDest,Right-x,Bottom-y,dwPalette[GrpRaw[y * GrpFrame->Width + x]],dwFlags,dwAlpha);\r
14362b19 364 }\r
14362b19 365 }\r
366 }\r
367 }\r
368 return TRUE;\r
369}\r
370\r
371BOOL GRPAPI WINAPI GetGrpInfo(HANDLE hGrp, GRPHEADER *GrpInfo)\r
372{\r
ecca31ff 373 if (!hGrp || hGrp==INVALID_HANDLE_VALUE || !GrpInfo) return FALSE;\r
14362b19 374 memcpy(GrpInfo,hGrp,6);\r
375 return TRUE;\r
376}\r
377\r
ecca31ff 378void GRPAPI WINAPI SetFunctionGetPixel(GETPIXELPROC lpGetPixelProc)\r
379{\r
380 MyGetPixel = lpGetPixelProc;\r
381}\r
382\r
383void GRPAPI WINAPI SetFunctionSetPixel(SETPIXELPROC lpSetPixelProc)\r
384{\r
385 MySetPixel = lpSetPixelProc;\r
386}\r
387\r
14362b19 388void __inline SetPix(HDC hDC, int X, int Y, COLORREF clrColor, DWORD dwFlags, DWORD dwAlpha)\r
389{\r
390 if (dwFlags&SHADOW_COLOR) {\r
ecca31ff 391 clrColor = (dwFlags >> 8) & 0x00FFFFFF;\r
14362b19 392 }\r
393 if (dwFlags&ALPHA_BLEND) {\r
ecca31ff 394 DWORD dwColor = MyGetPixel(hDC,X,Y);\r
14362b19 395\r
396 // Old alpha\r
397 /*((BYTE *)&dwColor)[0]*=1-((float)((BYTE *)&dwAlpha)[0]/256);\r
398 ((BYTE *)&dwColor)[1]*=1-((float)((BYTE *)&dwAlpha)[1]/256);\r
399 ((BYTE *)&dwColor)[2]*=1-((float)((BYTE *)&dwAlpha)[2]/256);\r
400 ((BYTE *)&clrColor)[0]*=(float)((BYTE *)&dwAlpha)[0]/256;\r
401 ((BYTE *)&clrColor)[1]*=(float)((BYTE *)&dwAlpha)[1]/256;\r
402 ((BYTE *)&clrColor)[2]*=(float)((BYTE *)&dwAlpha)[2]/256;\r
403 ((BYTE *)&clrColor)[0]+=((BYTE *)&dwColor)[0];\r
404 ((BYTE *)&clrColor)[1]+=((BYTE *)&dwColor)[1];\r
405 ((BYTE *)&clrColor)[2]+=((BYTE *)&dwColor)[2];*/\r
406\r
407 /* blendedcolor =\r
408 ( ( forecolor * ( 1 - alpha ) ) >> 8 )\r
409 + ( ( backcolor * ( 256 - alpha ) ) >> 8 ) */\r
410 ((BYTE *)&clrColor)[0] =\r
411 ( ( ((BYTE *)&clrColor)[0] * ( ((BYTE *)&dwAlpha)[0] + 1 ) ) >> 8 )\r
412 + ( ( ((BYTE *)&dwColor)[0] * ( 256 - ((BYTE *)&dwAlpha)[0] ) ) >> 8 );\r
413 ((BYTE *)&clrColor)[1] =\r
414 ( ( ((BYTE *)&clrColor)[1] * ( ((BYTE *)&dwAlpha)[1] + 1 ) ) >> 8 )\r
415 + ( ( ((BYTE *)&dwColor)[1] * ( 256 - ((BYTE *)&dwAlpha)[1] ) ) >> 8 );\r
416 ((BYTE *)&clrColor)[2] =\r
417 ( ( ((BYTE *)&clrColor)[2] * ( ((BYTE *)&dwAlpha)[2] + 1 ) ) >> 8 )\r
418 + ( ( ((BYTE *)&dwColor)[2] * ( 256 - ((BYTE *)&dwAlpha)[2] ) ) >> 8 );\r
419 }\r
ecca31ff 420 MySetPixel(hDC,X,Y,clrColor);\r
14362b19 421}\r
GRP encoding/decoding library