grpapi/grpapi.cpp

   1 #include "grpapi.h"\r
   2 #include "../LoadStorm/storm.h"\r
   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
  10 struct GRPLIBMODULE {\r
  11         GRPLIBMODULE();\r
  12         ~GRPLIBMODULE();\r
  13 } GrpLib;\r
  14 \r
  15 BOOL APIENTRY DllMain(HINSTANCE hInstDLL, DWORD  ul_reason_for_call, LPVOID lpReserved);\r
  16 \r
  17 GRPLIBMODULE::GRPLIBMODULE()\r
  18 {\r
  19         GrpMain(0,DLL_PROCESS_ATTACH,0);\r
  20 }\r
  21 \r
  22 GRPLIBMODULE::~GRPLIBMODULE()\r
  23 {\r
  24         GrpMain(0,DLL_PROCESS_DETACH,0);\r
  25 }\r
  26 \r
  27 #endif\r
  28 \r
  29 typedef 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
  37 typedef struct {\r
  38         WORD *lpRowOffsets;\r
  39         WORD *lpRowSizes;\r
  40         LPBYTE *lpRowData;\r
  41 } FRAMEDATA;\r
  42 \r
  43 GETPIXELPROC MyGetPixel = GetPixel;\r
  44 SETPIXELPROC MySetPixel = (SETPIXELPROC)SetPixelV;\r
  45 \r
  46 void __inline SetPix(HDC hDC, int X, int Y, COLORREF clrColor, DWORD *dwPalette, DWORD dwFlags, DWORD dwAlpha);\r
  47 void EncodeFrameData(signed short *lpImageData, WORD nFrame, GRPHEADER *lpGrpHeader, FRAMEHEADER *lpFrameHeader, FRAMEDATA *lpFrameData);\r
  48 BOOL VerifyRow(signed short *lpRawRow, int nWidth, LPBYTE lpEncRow, int nSize);\r
  49 \r
  50 extern HINSTANCE hStorm;\r
  51 \r
  52 BOOL APIENTRY DllMain( HINSTANCE hInstDLL, \r
  53                        DWORD  ul_reason_for_call, \r
  54                        LPVOID lpReserved\r
  55                                          )\r
  56 {\r
  57     switch (ul_reason_for_call)\r
  58         {\r
  59                 case DLL_PROCESS_ATTACH:\r
  60                         break;\r
  61                 case DLL_THREAD_ATTACH:\r
  62                         break;\r
  63                 case DLL_THREAD_DETACH:\r
  64                         break;\r
  65                 case DLL_PROCESS_DETACH:\r
  66                         break;\r
  67     }\r
  68 \r
  69     return TRUE;\r
  70 }\r
  71 \r
  72 BOOL GRPAPI WINAPI LoadGrpApi()\r
  73 {\r
  74         if (!hStorm) return FALSE;\r
  75         else return TRUE;\r
  76 }\r
  77 \r
  78 void GRPAPI WINAPI FreeGrpApi()\r
  79 {\r
  80 }\r
  81 \r
  82 /*\r
  83 HANDLE hProcessHeap = NULL;\r
  84 \r
  85 void * SFAlloc(size_t nSize)\r
  86 {\r
  87         if (!hProcessHeap) hProcessHeap = GetProcessHeap();\r
  88         if (hProcessHeap) return HeapAlloc(hProcessHeap, 0, nSize);\r
  89         else return NULL;\r
  90 }\r
  91 \r
  92 void SFFree(void *lpMem)\r
  93 {\r
  94         if (!hProcessHeap) hProcessHeap = GetProcessHeap();\r
  95         if (hProcessHeap) HeapFree(hProcessHeap, 0, lpMem);\r
  96 }\r
  97 */\r
  98 \r
  99 BOOL GRPAPI WINAPI SetMpqDll(LPCSTR lpDllFileName)\r
 100 {\r
 101         if (LoadStorm((char *)lpDllFileName)) return TRUE;\r
 102         else return FALSE;\r
 103 }\r
 104 \r
 105 BOOL GRPAPI WINAPI LoadPalette(LPCSTR lpFileName, DWORD *dwPaletteBuffer)\r
 106 {\r
 107         if (!lpFileName || !dwPaletteBuffer) return FALSE;\r
 108         HANDLE hFile;\r
 109         if (SFileOpenFileEx && SFileGetFileSize\r
 110          && SFileSetFilePointer && SFileReadFile\r
 111          && SFileCloseFile) {\r
 112                 if (!SFileOpenFileEx(0,lpFileName,1,&hFile)) return FALSE;\r
 113                 DWORD fsz = SFileGetFileSize(hFile,0);\r
 114                 SFileSetFilePointer(hFile,0,0,FILE_BEGIN);\r
 115                 if (fsz>=1024) {\r
 116                         memset(dwPaletteBuffer,0,1024);\r
 117                         SFileReadFile(hFile,dwPaletteBuffer,1024,0,0);\r
 118                 }\r
 119                 else if (fsz==768) {\r
 120                         char *buffer = (char *)_alloca(768);\r
 121                         memset(buffer,0,768);\r
 122                         SFileReadFile(hFile,buffer,768,0,0);\r
 123                         for (DWORD i=0;i<256;i++) {\r
 124                                 memcpy(&dwPaletteBuffer[i],buffer+i*3,3);\r
 125                                 *(((char *)&dwPaletteBuffer[i])+3) = 0;\r
 126                         }\r
 127                 }\r
 128                 else {\r
 129                         memset(dwPaletteBuffer,0,1024);\r
 130                         SFileReadFile(hFile,dwPaletteBuffer,fsz,0,0);\r
 131                 }\r
 132                 SFileCloseFile(hFile);\r
 133         }\r
 134         else {\r
 135                 hFile = CreateFile(lpFileName,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);\r
 136                 if (hFile==INVALID_HANDLE_VALUE) return FALSE;\r
 137                 DWORD fsz = GetFileSize(hFile,0),tsz;\r
 138                 SetFilePointer(hFile,0,0,FILE_BEGIN);\r
 139                 if (fsz>=1024) {\r
 140                         memset(dwPaletteBuffer,0,1024);\r
 141                         ReadFile(hFile,dwPaletteBuffer,1024,&tsz,0);\r
 142                 }\r
 143                 else if (fsz==768) {\r
 144                         char *buffer = (char *)_alloca(768);\r
 145                         memset(buffer,0,768);\r
 146                         ReadFile(hFile,buffer,768,&tsz,0);\r
 147                         for (DWORD i=0;i<256;i++) {\r
 148                                 memcpy(&dwPaletteBuffer[i],buffer+i*3,3);\r
 149                                 *(((char *)&dwPaletteBuffer[i])+3) = 0;\r
 150                         }\r
 151                 }\r
 152                 else {\r
 153                         memset(dwPaletteBuffer,0,1024);\r
 154                         ReadFile(hFile,dwPaletteBuffer,fsz,&tsz,0);\r
 155                 }\r
 156                 CloseHandle(hFile);\r
 157         }\r
 158         return TRUE;\r
 159 }\r
 160 \r
 161 HANDLE GRPAPI WINAPI LoadGrp(LPCSTR lpFileName)\r
 162 {\r
 163         if (!lpFileName) return (HANDLE)-1;\r
 164         HANDLE hFile;\r
 165         char *GrpFile;\r
 166         if (SFileOpenFileEx && SFileGetFileSize\r
 167          && SFileSetFilePointer && SFileReadFile\r
 168          && SFileCloseFile) {\r
 169                 if (!SFileOpenFileEx(0,lpFileName,1,&hFile)) return (HANDLE)-1;\r
 170                 DWORD fsz = SFileGetFileSize(hFile,0);\r
 171                 if (fsz<6) {\r
 172                         SFileCloseFile(hFile);\r
 173                         return (HANDLE)-1;\r
 174                 }\r
 175                 GrpFile = (char *)malloc(fsz);\r
 176                 if (GrpFile) {\r
 177                         SFileSetFilePointer(hFile,0,0,FILE_BEGIN);\r
 178                         SFileReadFile(hFile,GrpFile,fsz,0,0);\r
 179                 }\r
 180                 else GrpFile=(char *)-1;\r
 181                 SFileCloseFile(hFile);\r
 182         }\r
 183         else {\r
 184                 hFile = CreateFile(lpFileName,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);\r
 185                 if (hFile==INVALID_HANDLE_VALUE) return (HANDLE)-1;\r
 186                 DWORD fsz = GetFileSize(hFile,0),tsz;\r
 187                 if (fsz<6) {\r
 188                         CloseHandle(hFile);\r
 189                         return (HANDLE)-1;\r
 190                 }\r
 191                 GrpFile = (char *)malloc(fsz);\r
 192                 if (GrpFile) {\r
 193                         SetFilePointer(hFile,0,0,FILE_BEGIN);\r
 194                         ReadFile(hFile,GrpFile,fsz,&tsz,0);\r
 195                 }\r
 196                 else GrpFile=(char *)-1;\r
 197                 CloseHandle(hFile);\r
 198         }\r
 199         return (HANDLE)GrpFile;\r
 200 }\r
 201 \r
 202 BOOL GRPAPI WINAPI DestroyGrp(HANDLE hGrp)\r
 203 {\r
 204         if (!hGrp || hGrp==INVALID_HANDLE_VALUE) return FALSE;\r
 205         free(hGrp);\r
 206         return TRUE;\r
 207 }\r
 208 \r
 209 BOOL GRPAPI WINAPI DrawGrp(HANDLE hGrp, HDC hdcDest, int nXDest, int nYDest, WORD nFrame, DWORD *dwPalette, DWORD dwFlags, DWORD dwAlpha)\r
 210 {\r
 211         if (!hGrp || hGrp==INVALID_HANDLE_VALUE || hdcDest==0 || (!dwPalette && !(dwFlags&USE_INDEX))) return FALSE;\r
 212         GRPHEADER *GrpFile = (GRPHEADER *)hGrp;\r
 213         nFrame %= GrpFile->nFrames;\r
 214         FRAMEHEADER *GrpFrame = &((FRAMEHEADER *)(((char *)GrpFile)+6))[nFrame];\r
 215         FRAMEHEADER *GrpFrames = &((FRAMEHEADER *)(((char *)GrpFile)+6))[0];\r
 216         int FrameSize = 0xFFFFFF;\r
 217         DWORD Right,Bottom;\r
 218         if (dwFlags&HORIZONTAL_FLIP) Right = nXDest+GrpFile->wMaxWidth-1-GrpFrame->Left;\r
 219         if (dwFlags&VERTICAL_FLIP) Bottom = nYDest+GrpFile->wMaxHeight-1-GrpFrame->Top;\r
 220         nXDest += GrpFrame->Left;\r
 221         nYDest += GrpFrame->Top;\r
 222         WORD *GrpOffsets = ((WORD *)(((char *)GrpFile)+GrpFrame->Offset));\r
 223         BYTE *GrpRaw = (BYTE *)GrpOffsets;\r
 224         BYTE *RowData;\r
 225         WORD x,ofs;\r
 226         DWORD y;\r
 227         WORD i;\r
 228         int j;\r
 229         if (nFrame + 1 < GrpFile->nFrames) {\r
 230                 for (i = 0; i + 1 < GrpFile->nFrames; i++) {\r
 231                         j = GrpFrames[i].Offset - GrpFrame->Offset;\r
 232                         if (j > 0 && j < FrameSize)\r
 233                                 FrameSize = j;\r
 234                 }\r
 235         }\r
 236         if (FrameSize == 0xFFFFFF || FrameSize == GrpFrame->Width * GrpFrame->Height) {\r
 237                 FrameSize = 0xFFFFFF;\r
 238                 for (i = 0; i + 1 < GrpFile->nFrames; i++) {\r
 239                         j = GrpFrames[i].Offset - GrpFrames[0].Offset;\r
 240                         if (j > 0 && j < FrameSize)\r
 241                                 FrameSize = j;\r
 242                 }\r
 243                 if (FrameSize == GrpFrames[0].Width * GrpFrames[0].Height)\r
 244                         FrameSize = GrpFrame->Width * GrpFrame->Height;\r
 245         }\r
 246         if (!(dwFlags&HORIZONTAL_FLIP) && !(dwFlags&VERTICAL_FLIP)) {\r
 247                 if (FrameSize != GrpFrame->Width * GrpFrame->Height) {\r
 248                         for (y=0;y<GrpFrame->Height;y++) {\r
 249                                 RowData = ((BYTE *)(((char *)GrpOffsets)+GrpOffsets[y]));\r
 250                                 x=0; ofs=0;\r
 251                                 while (x<GrpFrame->Width) {\r
 252                                         if (!(RowData[ofs] & 0x80)) {\r
 253                                                 if (!(RowData[ofs] & 0x40)) {\r
 254                                                         for (i=1;i<=RowData[ofs] && x<GrpFrame->Width;i++) {\r
 255                                                                 SetPix(hdcDest,nXDest+x,nYDest+y,RowData[ofs+i],dwPalette,dwFlags,dwAlpha);\r
 256                                                                 x++;\r
 257                                                         }\r
 258                                                         ofs+=RowData[ofs]+1;\r
 259                                                 }\r
 260                                                 else {\r
 261                                                         for (i=0;i<RowData[ofs]-64 && x<GrpFrame->Width;i++) {\r
 262                                                                 SetPix(hdcDest,nXDest+x,nYDest+y,RowData[ofs+1],dwPalette,dwFlags,dwAlpha);\r
 263                                                                 x++;\r
 264                                                         }\r
 265                                                         ofs+=2;\r
 266                                                 }\r
 267                                         }\r
 268                                         else {\r
 269                                                 x+=RowData[ofs]-128;\r
 270                                                 ofs++;\r
 271                                         }\r
 272                                 }\r
 273                         }\r
 274                 }\r
 275                 else {\r
 276                         for (y=0;y<GrpFrame->Height;y++) {\r
 277                                 for (x=0;x<GrpFrame->Width;x++) {\r
 278                                         SetPix(hdcDest,nXDest+x,nYDest+y,GrpRaw[y * GrpFrame->Width + x],dwPalette,dwFlags,dwAlpha);\r
 279                                 }\r
 280                         }\r
 281                 }\r
 282         }\r
 283         else if (dwFlags&HORIZONTAL_FLIP && !(dwFlags&VERTICAL_FLIP)) {\r
 284                 if (FrameSize != GrpFrame->Width * GrpFrame->Height) {\r
 285                         for (y=0;y<GrpFrame->Height;y++) {\r
 286                                 RowData = ((BYTE *)(((char *)GrpOffsets)+GrpOffsets[y]));\r
 287                                 x=0; ofs=0;\r
 288                                 while (x<GrpFrame->Width) {\r
 289                                         if (!(RowData[ofs] & 0x80)) {\r
 290                                                 if (!(RowData[ofs] & 0x40)) {\r
 291                                                         for (i=1;i<=RowData[ofs] && x<GrpFrame->Width;i++) {\r
 292                                                                 SetPix(hdcDest,Right-x,nYDest+y,RowData[ofs+i],dwPalette,dwFlags,dwAlpha);\r
 293                                                                 x++;\r
 294                                                         }\r
 295                                                         ofs+=RowData[ofs]+1;\r
 296                                                 }\r
 297                                                 else {\r
 298                                                         for (i=0;i<RowData[ofs]-64 && x<GrpFrame->Width;i++) {\r
 299                                                                 SetPix(hdcDest,Right-x,nYDest+y,RowData[ofs+1],dwPalette,dwFlags,dwAlpha);\r
 300                                                                 x++;\r
 301                                                         }\r
 302                                                         ofs+=2;\r
 303                                                 }\r
 304                                         }\r
 305                                         else {\r
 306                                                 x+=RowData[ofs]-128;\r
 307                                                 ofs++;\r
 308                                         }\r
 309                                 }\r
 310                         }\r
 311                 }\r
 312                 else {\r
 313                         for (y=0;y<GrpFrame->Height;y++) {\r
 314                                 for (x=0;x<GrpFrame->Width;x++) {\r
 315                                         SetPix(hdcDest,Right-x,nYDest+y,GrpRaw[y * GrpFrame->Width + x],dwPalette,dwFlags,dwAlpha);\r
 316                                 }\r
 317                         }\r
 318                 }\r
 319         }\r
 320         else if (!(dwFlags&HORIZONTAL_FLIP) && dwFlags&VERTICAL_FLIP) {\r
 321                 if (FrameSize != GrpFrame->Width * GrpFrame->Height) {\r
 322                         for (y=0;y<GrpFrame->Height;y++) {\r
 323                                 RowData = ((BYTE *)(((char *)GrpOffsets)+GrpOffsets[y]));\r
 324                                 x=0; ofs=0;\r
 325                                 while (x<GrpFrame->Width) {\r
 326                                         if (!(RowData[ofs] & 0x80)) {\r
 327                                                 if (!(RowData[ofs] & 0x40)) {\r
 328                                                         for (i=1;i<=RowData[ofs] && x<GrpFrame->Width;i++) {\r
 329                                                                 SetPix(hdcDest,nXDest+x,Bottom-y,RowData[ofs+i],dwPalette,dwFlags,dwAlpha);\r
 330                                                                 x++;\r
 331                                                         }\r
 332                                                         ofs+=RowData[ofs]+1;\r
 333                                                 }\r
 334                                                 else {\r
 335                                                         for (i=0;i<RowData[ofs]-64 && x<GrpFrame->Width;i++) {\r
 336                                                                 SetPix(hdcDest,nXDest+x,Bottom-y,RowData[ofs+1],dwPalette,dwFlags,dwAlpha);\r
 337                                                                 x++;\r
 338                                                         }\r
 339                                                         ofs+=2;\r
 340                                                 }\r
 341                                         }\r
 342                                         else {\r
 343                                                 x+=RowData[ofs]-128;\r
 344                                                 ofs++;\r
 345                                         }\r
 346                                 }\r
 347                         }\r
 348                 }\r
 349                 else {\r
 350                         for (y=0;y<GrpFrame->Height;y++) {\r
 351                                 for (x=0;x<GrpFrame->Width;x++) {\r
 352                                         SetPix(hdcDest,nXDest+x,Bottom-y,GrpRaw[y * GrpFrame->Width + x],dwPalette,dwFlags,dwAlpha);\r
 353                                 }\r
 354                         }\r
 355                 }\r
 356         }\r
 357         else {\r
 358                 if (FrameSize != GrpFrame->Width * GrpFrame->Height) {\r
 359                         for (y=0;y<GrpFrame->Height;y++) {\r
 360                                 RowData = ((BYTE *)(((char *)GrpOffsets)+GrpOffsets[y]));\r
 361                                 x=0; ofs=0;\r
 362                                 while (x<GrpFrame->Width) {\r
 363                                         if (!(RowData[ofs] & 0x80)) {\r
 364                                                 if (!(RowData[ofs] & 0x40)) {\r
 365                                                         for (i=1;i<=RowData[ofs] && x<GrpFrame->Width;i++) {\r
 366                                                                 SetPix(hdcDest,Right-x,Bottom-y,RowData[ofs+i],dwPalette,dwFlags,dwAlpha);\r
 367                                                                 x++;\r
 368                                                         }\r
 369                                                         ofs+=RowData[ofs]+1;\r
 370                                                 }\r
 371                                                 else {\r
 372                                                         for (i=0;i<RowData[ofs]-64 && x<GrpFrame->Width;i++) {\r
 373                                                                 SetPix(hdcDest,Right-x,Bottom-y,RowData[ofs+1],dwPalette,dwFlags,dwAlpha);\r
 374                                                                 x++;\r
 375                                                         }\r
 376                                                         ofs+=2;\r
 377                                                 }\r
 378                                         }\r
 379                                         else {\r
 380                                                 x+=RowData[ofs]-128;\r
 381                                                 ofs++;\r
 382                                         }\r
 383                                 }\r
 384                         }\r
 385                 }\r
 386                 else {\r
 387                         for (y=0;y<GrpFrame->Height;y++) {\r
 388                                 for (x=0;x<GrpFrame->Width;x++) {\r
 389                                         SetPix(hdcDest,Right-x,Bottom-y,GrpRaw[y * GrpFrame->Width + x],dwPalette,dwFlags,dwAlpha);\r
 390                                 }\r
 391                         }\r
 392                 }\r
 393         }\r
 394         return TRUE;\r
 395 }\r
 396 \r
 397 BOOL GRPAPI WINAPI GetGrpInfo(HANDLE hGrp, GRPHEADER *GrpInfo)\r
 398 {\r
 399         if (!hGrp || hGrp==INVALID_HANDLE_VALUE || !GrpInfo) return FALSE;\r
 400         memcpy(GrpInfo,hGrp,6);\r
 401         return TRUE;\r
 402 }\r
 403 \r
 404 BOOL GRPAPI WINAPI GetGrpFrameInfo(HANDLE hGrp, WORD nFrame, DWORD *nLeft, DWORD *nTop, DWORD *nWidth, DWORD *nHeight)\r
 405 {\r
 406         if (!hGrp || hGrp==INVALID_HANDLE_VALUE) return FALSE;\r
 407         FRAMEHEADER *GrpFrame = &((FRAMEHEADER *)(((char *)hGrp)+6))[nFrame];\r
 408 \r
 409         if (nLeft) *nLeft = GrpFrame->Left;\r
 410         if (nTop) *nTop = GrpFrame->Top;\r
 411         if (nWidth) *nWidth = GrpFrame->Width;\r
 412         if (nHeight) *nHeight = GrpFrame->Height;\r
 413 \r
 414         return TRUE;\r
 415 }\r
 416 \r
 417 void GRPAPI WINAPI SetFunctionGetPixel(GETPIXELPROC lpGetPixelProc)\r
 418 {\r
 419         if (!lpGetPixelProc)\r
 420                 MyGetPixel = GetPixel;\r
 421         else\r
 422                 MyGetPixel = lpGetPixelProc;\r
 423 }\r
 424 \r
 425 void GRPAPI WINAPI SetFunctionSetPixel(SETPIXELPROC lpSetPixelProc)\r
 426 {\r
 427         if (!lpSetPixelProc)\r
 428                 MySetPixel = (SETPIXELPROC)SetPixelV;\r
 429         else\r
 430                 MySetPixel = lpSetPixelProc;\r
 431 }\r
 432 \r
 433 void __inline SetPix(HDC hDC, int X, int Y, COLORREF clrColor, DWORD *dwPalette, DWORD dwFlags, DWORD dwAlpha)\r
 434 {\r
 435         if (!(dwFlags&USE_INDEX)) {\r
 436                 if (dwFlags&SHADOW_COLOR) {\r
 437                         clrColor = (dwFlags >> 8) & 0x00FFFFFF;\r
 438                 }\r
 439                 else {\r
 440                         clrColor = dwPalette[clrColor];\r
 441                 }\r
 442                 if (dwFlags&ALPHA_BLEND) {\r
 443                         DWORD dwColor = MyGetPixel(hDC,X,Y);\r
 444 \r
 445                         // Old alpha\r
 446                         /*((BYTE *)&dwColor)[0]*=1-((float)((BYTE *)&dwAlpha)[0]/256);\r
 447                         ((BYTE *)&dwColor)[1]*=1-((float)((BYTE *)&dwAlpha)[1]/256);\r
 448                         ((BYTE *)&dwColor)[2]*=1-((float)((BYTE *)&dwAlpha)[2]/256);\r
 449                         ((BYTE *)&clrColor)[0]*=(float)((BYTE *)&dwAlpha)[0]/256;\r
 450                         ((BYTE *)&clrColor)[1]*=(float)((BYTE *)&dwAlpha)[1]/256;\r
 451                         ((BYTE *)&clrColor)[2]*=(float)((BYTE *)&dwAlpha)[2]/256;\r
 452                         ((BYTE *)&clrColor)[0]+=((BYTE *)&dwColor)[0];\r
 453                         ((BYTE *)&clrColor)[1]+=((BYTE *)&dwColor)[1];\r
 454                         ((BYTE *)&clrColor)[2]+=((BYTE *)&dwColor)[2];*/\r
 455 \r
 456                         /* blendedcolor =\r
 457                                  ( ( forecolor * ( 1 - alpha ) ) >> 8 )\r
 458                            + ( ( backcolor * ( 256 - alpha ) ) >> 8 ) */\r
 459                         ((BYTE *)&clrColor)[0] =\r
 460                                 ( ( ((BYTE *)&clrColor)[0] * ( ((BYTE *)&dwAlpha)[0] + 1 ) ) >> 8 )\r
 461                                 + ( ( ((BYTE *)&dwColor)[0] * ( 256 - ((BYTE *)&dwAlpha)[0] ) ) >> 8 );\r
 462                         ((BYTE *)&clrColor)[1] =\r
 463                                 ( ( ((BYTE *)&clrColor)[1] * ( ((BYTE *)&dwAlpha)[1] + 1 ) ) >> 8 )\r
 464                                 + ( ( ((BYTE *)&dwColor)[1] * ( 256 - ((BYTE *)&dwAlpha)[1] ) ) >> 8 );\r
 465                         ((BYTE *)&clrColor)[2] =\r
 466                                 ( ( ((BYTE *)&clrColor)[2] * ( ((BYTE *)&dwAlpha)[2] + 1 ) ) >> 8 )\r
 467                                 + ( ( ((BYTE *)&dwColor)[2] * ( 256 - ((BYTE *)&dwAlpha)[2] ) ) >> 8 );\r
 468                 }\r
 469         }\r
 470         MySetPixel(hDC,X,Y,clrColor);\r
 471 }\r
 472 \r
 473 HANDLE GRPAPI WINAPI CreateGrp(signed short *lpImageData, WORD nFrames, WORD wMaxWidth, WORD wMaxHeight, BOOL bNoCompress, DWORD *nGrpSize)\r
 474 {\r
 475         GRPHEADER GrpHeader;\r
 476         FRAMEHEADER *lpFrameHeaders;\r
 477         FRAMEDATA *lpFrameData;\r
 478         LPBYTE lpGrpData;\r
 479         int i, j, x, y, x1, x2, y1, y2;\r
 480         DWORD nLastOffset;\r
 481 \r
 482         if (!lpImageData || !nGrpSize) return (HANDLE)-1;\r
 483 \r
 484         GrpHeader.nFrames = nFrames;\r
 485         GrpHeader.wMaxWidth = wMaxWidth;\r
 486         GrpHeader.wMaxHeight = wMaxHeight;\r
 487         lpFrameHeaders = (FRAMEHEADER *)malloc(nFrames * sizeof(FRAMEHEADER));\r
 488         lpFrameData = (FRAMEDATA *)malloc(nFrames * sizeof(FRAMEDATA));\r
 489         nLastOffset = sizeof(GRPHEADER) + nFrames * sizeof(FRAMEHEADER);\r
 490 \r
 491         for (i = 0; i < nFrames; i++) {\r
 492                 // Search for duplicate frames\r
 493                 for (j = 0; j < i; j++) {\r
 494                         if (memcmp(&lpImageData[i * wMaxWidth * wMaxHeight],\r
 495                                    &lpImageData[j * wMaxWidth * wMaxHeight],\r
 496                                            wMaxWidth * wMaxHeight * sizeof(short)) == 0)\r
 497                                 break;\r
 498                 }\r
 499 \r
 500                 if (j < i) {\r
 501                         memcpy(&lpFrameHeaders[i], &lpFrameHeaders[j], sizeof(FRAMEHEADER));\r
 502                         lpFrameData[i].lpRowOffsets = 0;\r
 503                         continue;\r
 504                 }\r
 505 \r
 506                 if (i == 0) {\r
 507                         lpFrameHeaders[i].Offset = sizeof(GRPHEADER) + nFrames * sizeof(FRAMEHEADER);\r
 508                 }\r
 509                 else {\r
 510                         lpFrameHeaders[i].Offset = nLastOffset;\r
 511                 }\r
 512 \r
 513                 // Scan frame to find dimensions of used part\r
 514                 x1 = y1 = 0x10000;\r
 515                 x2 = y2 = -1;\r
 516                 for (y = 0; y < wMaxHeight; y++) {\r
 517                         for (x = 0; x < wMaxWidth; x++) {\r
 518                                 if (lpImageData[i * wMaxWidth * wMaxHeight + y * wMaxWidth + x] >= 0) {\r
 519                                         if (x < x1) x1 = x;\r
 520                                         if (x > x2) x2 = x;\r
 521                                         if (y < y1) y1 = y;\r
 522                                         if (y > y2) y2 = y;\r
 523                                 }\r
 524                         }\r
 525                 }\r
 526                 x2 = x2 - x1 + 1;\r
 527                 y2 = y2 - y1 + 1;\r
 528                 if ((WORD)x1 > 255) x1 = 255;\r
 529                 if ((WORD)y1 > 255) y1 = 255;\r
 530                 if ((WORD)x2 > 255) x2 = 255;\r
 531                 if ((WORD)y2 > 255) y2 = 255;\r
 532                 lpFrameHeaders[i].Left = x1;\r
 533                 lpFrameHeaders[i].Top = y1;\r
 534                 lpFrameHeaders[i].Width = x2;\r
 535                 lpFrameHeaders[i].Height = y2;\r
 536 \r
 537                 if (!bNoCompress) {\r
 538                         EncodeFrameData(lpImageData, i, &GrpHeader, &lpFrameHeaders[i], &lpFrameData[i]);\r
 539 \r
 540                         y = lpFrameHeaders[i].Height;\r
 541                         if (y > 0) {\r
 542                                 y--;\r
 543                                 nLastOffset = lpFrameHeaders[i].Offset + lpFrameData[i].lpRowOffsets[y] + lpFrameData[i].lpRowSizes[y];\r
 544                         }\r
 545                         else {\r
 546                                 nLastOffset = lpFrameHeaders[i].Offset;\r
 547                         }\r
 548                 }\r
 549                 else {\r
 550                         nLastOffset = lpFrameHeaders[i].Offset + lpFrameHeaders[i].Width * lpFrameHeaders[i].Height;\r
 551                 }\r
 552         }\r
 553 \r
 554         lpGrpData = (LPBYTE)malloc(nLastOffset);\r
 555 \r
 556         // Write completed GRP to buffer\r
 557         memcpy(lpGrpData, &GrpHeader, sizeof(GRPHEADER));\r
 558         memcpy(lpGrpData + sizeof(GRPHEADER), lpFrameHeaders, nFrames * sizeof(FRAMEHEADER));\r
 559 \r
 560         for (i = 0; i < nFrames; i++) {\r
 561                 if (lpFrameData[i].lpRowOffsets) {\r
 562                         if (!bNoCompress) {\r
 563                                 memcpy(lpGrpData + lpFrameHeaders[i].Offset, lpFrameData[i].lpRowOffsets, lpFrameHeaders[i].Height * sizeof(WORD));\r
 564 \r
 565                                 for (y = 0; y < lpFrameHeaders[i].Height; y++) {\r
 566                                         if (lpFrameData[i].lpRowData[y]) {\r
 567                                                 memcpy(lpGrpData + lpFrameHeaders[i].Offset + lpFrameData[i].lpRowOffsets[y], lpFrameData[i].lpRowData[y], lpFrameData[i].lpRowSizes[y]);\r
 568                                                 free(lpFrameData[i].lpRowData[y]);\r
 569                                         }\r
 570                                 }\r
 571 \r
 572                                 free(lpFrameData[i].lpRowOffsets);\r
 573                                 free(lpFrameData[i].lpRowSizes);\r
 574                                 free(lpFrameData[i].lpRowData);\r
 575                         }\r
 576                         else {\r
 577                                 for (y = 0; y < lpFrameHeaders[i].Height; y++) {\r
 578                                         for (x = 0; x < lpFrameHeaders[i].Width; x++) {\r
 579                                                 lpGrpData[lpFrameHeaders[i].Offset + y * lpFrameHeaders[i].Width + x] =\r
 580                                                         (BYTE)lpImageData[i * wMaxWidth * wMaxHeight + (lpFrameHeaders[i].Top + y) * wMaxWidth + lpFrameHeaders[i].Left + x];\r
 581                                         }\r
 582                                 }\r
 583                         }\r
 584                 }\r
 585         }\r
 586 \r
 587         free(lpFrameHeaders);\r
 588         free(lpFrameData);\r
 589 \r
 590         *nGrpSize = nLastOffset;\r
 591         return (HANDLE)lpGrpData;\r
 592 }\r
 593 \r
 594 void EncodeFrameData(signed short *lpImageData, WORD nFrame, GRPHEADER *lpGrpHeader, FRAMEHEADER *lpFrameHeader, FRAMEDATA *lpFrameData)\r
 595 {\r
 596         int x, y, i, nBufPos, nRepeat;\r
 597         LPBYTE lpRowBuf;\r
 598         WORD nLastOffset;\r
 599 \r
 600         lpFrameData->lpRowOffsets = (WORD *)malloc(lpFrameHeader->Height * sizeof(WORD));\r
 601         lpFrameData->lpRowSizes = (WORD *)malloc(lpFrameHeader->Height * sizeof(WORD));\r
 602         lpFrameData->lpRowData = (LPBYTE *)malloc(lpFrameHeader->Height * sizeof(LPBYTE));\r
 603         lpRowBuf = (LPBYTE)malloc(lpFrameHeader->Width * 2);\r
 604         nLastOffset = lpFrameHeader->Height * sizeof(WORD);\r
 605 \r
 606         for (y = 0; y < lpFrameHeader->Height; y++) {\r
 607                 i = nFrame * lpGrpHeader->wMaxWidth * lpGrpHeader->wMaxHeight + (lpFrameHeader->Top + y) * lpGrpHeader->wMaxWidth;\r
 608 \r
 609                 /* Fails verification when using this.  Bug in encoder or decoder?  Doesn't provide much benefit.\r
 610                 // Search for duplicate rows (experimental)\r
 611                 for (x = 0; x < y; x++) {\r
 612                         j = nFrame * lpGrpHeader->wMaxWidth * lpGrpHeader->wMaxHeight + (lpFrameHeader->Top + x) * lpGrpHeader->wMaxWidth;\r
 613                         if (memcmp(&lpImageData[i+lpFrameHeader->Left],\r
 614                                    &lpImageData[j+lpFrameHeader->Left],\r
 615                                    lpGrpHeader->wMaxWidth * sizeof(short)) == 0)\r
 616                                 break;\r
 617                 }\r
 618 \r
 619                 if (x < y) {\r
 620                         lpFrameData->lpRowOffsets[y] = lpFrameData->lpRowOffsets[x];\r
 621                         lpFrameData->lpRowSizes[y] = 0;\r
 622                         lpFrameData->lpRowData[y] = 0;\r
 623 \r
 624 #ifdef _DEBUG\r
 625                         if (!VerifyRow(&lpImageData[i+lpFrameHeader->Left], lpFrameHeader->Width, lpFrameData->lpRowData[x], lpFrameData->lpRowSizes[x])) {\r
 626                                 nBufPos = nBufPos;\r
 627                         }\r
 628 #endif\r
 629 \r
 630                         continue;\r
 631                 }\r
 632                 */\r
 633 \r
 634                 nBufPos = 0;\r
 635                 if (lpFrameHeader->Width > 0) {\r
 636                         for (x = lpFrameHeader->Left; x < lpFrameHeader->Left + lpFrameHeader->Width; x++) {\r
 637                                 if (x < lpFrameHeader->Left + lpFrameHeader->Width - 1) {\r
 638                                         if (lpImageData[i+x] < 0) {\r
 639                                                 lpRowBuf[nBufPos] = 0x80;\r
 640                                                 for (; lpImageData[i+x] < 0 && x < lpFrameHeader->Left + lpFrameHeader->Width && lpRowBuf[nBufPos] < 0xFF; x++) {\r
 641                                                         lpRowBuf[nBufPos]++;\r
 642                                                 }\r
 643                                                 x--;\r
 644                                                 if (nLastOffset + nBufPos + 1 <= 0xFFFF)\r
 645                                                         nBufPos++;\r
 646                                                 continue;\r
 647                                         }\r
 648 \r
 649                                         // Count repeating pixels, nRepeat = number of pixels - 1, ignore if there are less than 4 duplicates\r
 650                                         for (nRepeat = 0; lpImageData[i+x+nRepeat] == lpImageData[i+x+nRepeat+1] && x+nRepeat < lpFrameHeader->Left + lpFrameHeader->Width - 1 && nRepeat < 0x3E; nRepeat++) {}\r
 651 \r
 652                                         if (nRepeat > 2) {\r
 653                                                 lpRowBuf[nBufPos] = 0x41 + nRepeat;\r
 654                                                 lpRowBuf[nBufPos+1] = (BYTE)lpImageData[i+x];\r
 655                                                 x += nRepeat;\r
 656                                                 if (nLastOffset + nBufPos + 2 <= 0xFFFF)\r
 657                                                         nBufPos += 2;\r
 658                                         }\r
 659                                         else {\r
 660                                                 lpRowBuf[nBufPos] = 0;\r
 661                                                 for (; lpImageData[i+x] >= 0 && x < lpFrameHeader->Left + lpFrameHeader->Width && lpRowBuf[nBufPos] < 0x3F; x++) {\r
 662                                                         // Count repeating pixels, ignore if there are less than 4 duplicates\r
 663                                                         for (nRepeat = 0; lpImageData[i+x+nRepeat] == lpImageData[i+x+nRepeat+1] && x+nRepeat < lpFrameHeader->Left + lpFrameHeader->Width - 1 && nRepeat < 3; nRepeat++) {}\r
 664                                                         if (nRepeat > 2) break;\r
 665 \r
 666                                                         lpRowBuf[nBufPos]++;\r
 667                                                         lpRowBuf[nBufPos+lpRowBuf[nBufPos]] = (BYTE)lpImageData[i+x];\r
 668                                                 }\r
 669                                                 if (lpImageData[i+x] >= 0 && x == lpFrameHeader->Left + lpFrameHeader->Width - 1 && lpRowBuf[nBufPos] < 0x3F) {\r
 670                                                         lpRowBuf[nBufPos]++;\r
 671                                                         lpRowBuf[nBufPos+lpRowBuf[nBufPos]] = (BYTE)lpImageData[i+x];\r
 672                                                 }\r
 673                                                 x--;\r
 674                                                 if (nLastOffset + nBufPos + 1 + lpRowBuf[nBufPos] <= 0xFFFF)\r
 675                                                         nBufPos += 1 + lpRowBuf[nBufPos];\r
 676                                         }\r
 677                                 }\r
 678                                 else {\r
 679                                         if (lpImageData[i+x] < 0) {\r
 680                                                 lpRowBuf[nBufPos] = 0x81;\r
 681                                                 if (nLastOffset + nBufPos + 1 <= 0xFFFF)\r
 682                                                         nBufPos++;\r
 683                                         }\r
 684                                         else {\r
 685                                                 lpRowBuf[nBufPos] = 1;\r
 686                                                 lpRowBuf[nBufPos+1] = (BYTE)lpImageData[i+x];\r
 687                                                 if (nLastOffset + nBufPos + 2 <= 0xFFFF)\r
 688                                                         nBufPos += 2;\r
 689                                         }\r
 690                                 }\r
 691                         }\r
 692                 }\r
 693 \r
 694 #ifdef _DEBUG\r
 695                 if (!VerifyRow(&lpImageData[i+lpFrameHeader->Left], lpFrameHeader->Width, lpRowBuf, nBufPos)) {\r
 696                         nBufPos = nBufPos;\r
 697                 }\r
 698 #endif\r
 699 \r
 700                 if (y == 0) {\r
 701                         lpFrameData->lpRowOffsets[y] = lpFrameHeader->Height * sizeof(WORD);\r
 702                 }\r
 703                 else {\r
 704                         lpFrameData->lpRowOffsets[y] = nLastOffset;\r
 705                 }\r
 706 \r
 707                 nLastOffset = lpFrameData->lpRowOffsets[y] + nBufPos;\r
 708 \r
 709                 lpFrameData->lpRowSizes[y] = nBufPos;\r
 710                 lpFrameData->lpRowData[y] = (LPBYTE)malloc(nBufPos);\r
 711                 memcpy(lpFrameData->lpRowData[y], lpRowBuf, nBufPos);\r
 712         }\r
 713 \r
 714         free(lpRowBuf);\r
 715 }\r
 716 \r
 717 #ifdef _DEBUG\r
 718 BOOL VerifyRow(signed short *lpRawRow, int nWidth, LPBYTE lpEncRow, int nSize)\r
 719 {\r
 720         int i,x=0,ofs=0;\r
 721         while (x < nWidth && ofs < nSize) {\r
 722                 if (!(lpEncRow[ofs] & 0x80)) {\r
 723                         if (!(lpEncRow[ofs] & 0x40)) {\r
 724                                 for (i=1;i<=lpEncRow[ofs] && x<nWidth;i++) {\r
 725                                         if (lpEncRow[ofs+i] != (BYTE)lpRawRow[x]) return FALSE;\r
 726                                         x++;\r
 727                                 }\r
 728                                 ofs+=lpEncRow[ofs]+1;\r
 729                         }\r
 730                         else {\r
 731                                 for (i=0;i<lpEncRow[ofs]-64 && x<nWidth;i++) {\r
 732                                         if (lpEncRow[ofs+1] != (BYTE)lpRawRow[x]) return FALSE;\r
 733                                         x++;\r
 734                                 }\r
 735                                 ofs+=2;\r
 736                         }\r
 737                 }\r
 738                 else {\r
 739                         for (i=0;i<lpEncRow[ofs]-128 && x<nWidth;i++) {\r
 740                                 if (lpRawRow[x] >= 0) return FALSE;\r
 741                         }\r
 742                         x+=lpEncRow[ofs]-128;\r
 743                         ofs++;\r
 744                 }\r
 745         }\r
 746 \r
 747         if (x != nWidth || ofs != nSize) return FALSE;\r
 748 \r
 749         return TRUE;\r
 750 }\r
 751 #endif\r