Current News
Archived News
Search News
Discussion Forum


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




index 84420e6..3de6be8 100644 (file)
@@ -34,10 +34,17 @@ typedef struct {
        DWORD Offset;\r
 } FRAMEHEADER;\r
 \r
+typedef struct {\r
+       WORD *lpRowOffsets;\r
+       WORD *lpRowSizes;\r
+       LPBYTE *lpRowData;\r
+} FRAMEDATA;\r
+\r
 GETPIXELPROC MyGetPixel = GetPixel;\r
 SETPIXELPROC MySetPixel = (SETPIXELPROC)SetPixelV;\r
 \r
 void __inline SetPix(HDC hDC, int X, int Y, COLORREF clrColor, DWORD *dwPalette, DWORD dwFlags, DWORD dwAlpha);\r
+void EncodeFrameData(signed short *lpImageData, WORD nFrame, GRPHEADER *lpGrpHeader, FRAMEHEADER *lpFrameHeader, FRAMEDATA *lpFrameData);\r
 \r
 extern HINSTANCE hStorm;\r
 \r
@@ -183,7 +190,7 @@ BOOL GRPAPI WINAPI DestroyGrp(HANDLE hGrp)
 \r
 BOOL GRPAPI WINAPI DrawGrp(HANDLE hGrp, HDC hdcDest, int nXDest, int nYDest, WORD nFrame, DWORD *dwPalette, DWORD dwFlags, DWORD dwAlpha)\r
 {\r
-       if (!hGrp || hGrp==INVALID_HANDLE_VALUE || hdcDest==0 || !dwPalette) return FALSE;\r
+       if (!hGrp || hGrp==INVALID_HANDLE_VALUE || hdcDest==0 || (!dwPalette && !(dwFlags&USE_INDEX))) return FALSE;\r
        GRPHEADER *GrpFile = (GRPHEADER *)hGrp;\r
        nFrame %= GrpFile->nFrames;\r
        FRAMEHEADER *GrpFrame = &((FRAMEHEADER *)(((char *)GrpFile)+6))[nFrame];\r
@@ -430,3 +437,153 @@ void __inline SetPix(HDC hDC, int X, int Y, COLORREF clrColor, DWORD *dwPalette,
        }\r
        MySetPixel(hDC,X,Y,clrColor);\r
 }\r
+\r
+HANDLE GRPAPI WINAPI CreateGrp(signed short *lpImageData, WORD nFrames, WORD wMaxWidth, WORD wMaxHeight, DWORD *nGrpSize)\r
+{\r
+       GRPHEADER GrpHeader;\r
+       FRAMEHEADER *lpFrameHeaders;\r
+       FRAMEDATA *lpFrameData;\r
+       LPBYTE lpGrpData;\r
+       int i, x, y, x1, x2, y1, y2;\r
+\r
+       if (!lpImageData || !nGrpSize) return (HANDLE)-1;\r
+\r
+       GrpHeader.nFrames = nFrames;\r
+       GrpHeader.wMaxWidth = wMaxWidth;\r
+       GrpHeader.wMaxHeight = wMaxHeight;\r
+       lpFrameHeaders = (FRAMEHEADER *)malloc((nFrames + 1) * sizeof(FRAMEHEADER));\r
+       lpFrameData = (FRAMEDATA *)malloc(nFrames * sizeof(FRAMEDATA));\r
+\r
+       for (i = 0; i <= nFrames; i++) {\r
+               if (i == 0) {\r
+                       lpFrameHeaders[i].Offset = sizeof(GRPHEADER) + nFrames * sizeof(FRAMEHEADER);\r
+               }\r
+               else {\r
+                       y = lpFrameHeaders[i-1].Height;\r
+                       if (y > 0) {\r
+                               y--;\r
+                               lpFrameHeaders[i].Offset = lpFrameHeaders[i-1].Offset + lpFrameData[i-1].lpRowOffsets[y] + lpFrameData[i-1].lpRowSizes[y];\r
+                       }\r
+                       else {\r
+                               lpFrameHeaders[i].Offset = lpFrameHeaders[i-1].Offset;\r
+                       }\r
+               }\r
+               if (i == nFrames) continue;\r
+\r
+               // Scan frame to find dimensions of used part\r
+               x1 = y1 = 0x10000;\r
+               x2 = y2 = -1;\r
+               for (y = 0; y < wMaxHeight; y++) {\r
+                       for (x = 0; x < wMaxWidth; x++) {\r
+                               if (lpImageData[i * wMaxWidth * wMaxHeight + y * wMaxWidth + x] >= 0) {\r
+                                       if (x < x1) x1 = x;\r
+                                       if (x > x2) x2 = x;\r
+                                       if (y < y1) y1 = y;\r
+                                       if (y > y2) y2 = y;\r
+                               }\r
+                       }\r
+               }\r
+               lpFrameHeaders[i].Left = x1;\r
+               lpFrameHeaders[i].Top = y1;\r
+               lpFrameHeaders[i].Width = x2 - x1 + 1;\r
+               lpFrameHeaders[i].Height = y2 - y1 + 1;\r
+\r
+               EncodeFrameData(lpImageData, i, &GrpHeader, &lpFrameHeaders[i], &lpFrameData[i]);\r
+       }\r
+\r
+       lpGrpData = (LPBYTE)malloc(lpFrameHeaders[nFrames].Offset);\r
+\r
+       // Write completed GRP to buffer\r
+       memcpy(lpGrpData, &GrpHeader, sizeof(GRPHEADER));\r
+       memcpy(lpGrpData + sizeof(GRPHEADER), lpFrameHeaders, nFrames * sizeof(FRAMEHEADER));\r
+\r
+       for (i = 0; i < nFrames; i++) {\r
+               memcpy(lpGrpData + lpFrameHeaders[i].Offset, lpFrameData[i].lpRowOffsets, lpFrameHeaders[i].Height * sizeof(WORD));\r
+\r
+               for (y = 0; y < lpFrameHeaders[i].Height; y++) {\r
+                       memcpy(lpGrpData + lpFrameHeaders[i].Offset + lpFrameData[i].lpRowOffsets[y], lpFrameData[i].lpRowData[y], lpFrameData[i].lpRowSizes[y]);\r
+                       free(lpFrameData[i].lpRowData[y]);\r
+               }\r
+\r
+               free(lpFrameData[i].lpRowOffsets);\r
+               free(lpFrameData[i].lpRowSizes);\r
+               free(lpFrameData[i].lpRowData);\r
+       }\r
+\r
+       *nGrpSize = lpFrameHeaders[nFrames].Offset;\r
+       free(lpFrameHeaders);\r
+       free(lpFrameData);\r
+\r
+       return (HANDLE)lpGrpData;\r
+}\r
+\r
+void EncodeFrameData(signed short *lpImageData, WORD nFrame, GRPHEADER *lpGrpHeader, FRAMEHEADER *lpFrameHeader, FRAMEDATA *lpFrameData)\r
+{\r
+       int x, y, i, nBufPos;\r
+       LPBYTE lpRowBuf;\r
+\r
+       lpFrameData->lpRowOffsets = (WORD *)malloc(lpFrameHeader->Height * sizeof(WORD));\r
+       lpFrameData->lpRowSizes = (WORD *)malloc(lpFrameHeader->Height * sizeof(WORD));\r
+       lpFrameData->lpRowData = (LPBYTE *)malloc(lpFrameHeader->Height * sizeof(LPBYTE));\r
+       lpRowBuf = (LPBYTE)malloc(lpFrameHeader->Width * 2);\r
+\r
+       for (y = 0; y < lpFrameHeader->Height; y++) {\r
+               i = nFrame * lpGrpHeader->wMaxWidth * lpGrpHeader->wMaxHeight + (lpFrameHeader->Top + y) * lpGrpHeader->wMaxWidth;\r
+               nBufPos = 0;\r
+               if (lpFrameHeader->Width > 1) {\r
+                       for (x = lpFrameHeader->Left; x < lpFrameHeader->Left + lpFrameHeader->Width - 1; x++) {\r
+                               if (lpImageData[i+x] < 0) {\r
+                                       lpRowBuf[nBufPos] = 0x80;\r
+                                       for (; lpImageData[i+x] < 0 && x < lpFrameHeader->Left + lpFrameHeader->Width; x++) {\r
+                                               lpRowBuf[nBufPos]++;\r
+                                       }\r
+                                       x--;\r
+                                       nBufPos++;\r
+                               }\r
+                               else if (lpImageData[i+x] == lpImageData[i+x+1]) {\r
+                                       lpRowBuf[nBufPos] = 0x41;\r
+                                       lpRowBuf[nBufPos+1] = (BYTE)lpImageData[i+x];\r
+                                       for (; lpImageData[i+x] == lpImageData[i+x+1] && x < lpFrameHeader->Left + lpFrameHeader->Width - 1; x++) {\r
+                                               lpRowBuf[nBufPos]++;\r
+                                       }\r
+                                       nBufPos += 2;\r
+                               }\r
+                               else {\r
+                                       lpRowBuf[nBufPos] = 1;\r
+                                       lpRowBuf[nBufPos+1] = (BYTE)lpImageData[i+x];\r
+                                       x++;\r
+                                       for (; lpImageData[i+x] != lpImageData[i+x+1] && x < lpFrameHeader->Left + lpFrameHeader->Width - 1; x++) {\r
+                                               lpRowBuf[nBufPos]++;\r
+                                               lpRowBuf[nBufPos+lpRowBuf[nBufPos]] = (BYTE)lpImageData[i+x];\r
+                                       }\r
+                                       x--;\r
+                                       nBufPos += 1 + lpRowBuf[nBufPos];\r
+                               }\r
+                       }\r
+               }\r
+               else if (lpFrameHeader->Width == 1){\r
+                       if (lpImageData[i] < 0) {\r
+                               lpRowBuf[nBufPos] = 0x81;\r
+                               nBufPos++;\r
+                       }\r
+                       else {\r
+                               lpRowBuf[nBufPos] = 1;\r
+                               lpRowBuf[nBufPos+1] = (BYTE)lpImageData[i+1];\r
+                               nBufPos += 2;\r
+                       }\r
+               }\r
+\r
+               if (y == 0) {\r
+                       lpFrameData->lpRowOffsets[y] = lpFrameHeader->Height * sizeof(WORD);\r
+               }\r
+               else {\r
+                       lpFrameData->lpRowOffsets[y] = lpFrameData->lpRowOffsets[y-1] + lpFrameData->lpRowSizes[y-1];\r
+               }\r
+\r
+               lpFrameData->lpRowSizes[y] = nBufPos;\r
+               lpFrameData->lpRowData[y] = (LPBYTE)malloc(nBufPos);\r
+               memcpy(lpFrameData->lpRowData[y], lpRowBuf, nBufPos);\r
+       }\r
+\r
+       free(lpRowBuf);\r
+}\r