341 lines
14 KiB
C++
341 lines
14 KiB
C++
// Copyright (C) 2003 Dolphin Project.
|
|
|
|
// This program is free software: you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation, version 2.0.
|
|
|
|
// This program is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License 2.0 for more details.
|
|
|
|
// A copy of the GPL 2.0 should have been included with the program.
|
|
// If not, see http://www.gnu.org/licenses/
|
|
|
|
// Official SVN repository and contact information can be found at
|
|
// http://code.google.com/p/dolphin-emu/
|
|
|
|
#include "OCLTextureDecoder.h"
|
|
|
|
#include "OpenCL.h"
|
|
|
|
#include <fcntl.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <math.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
|
|
struct sDecoders
|
|
{
|
|
const char name[256]; // kernel name
|
|
cl_kernel kernel; // compute kernel
|
|
};
|
|
|
|
const char *Kernel = " \n\
|
|
kernel void DecodeI4(global uchar *dst, \n\
|
|
const global uchar *src, int width) \n\
|
|
{ \n\
|
|
int x = get_global_id(0) * 8, y = get_global_id(1) * 8; \n\
|
|
int srcOffset = x + y * width / 8; \n\
|
|
for (int iy = 0; iy < 8; iy++) \n\
|
|
{ \n\
|
|
uchar4 val = vload4(srcOffset, src); \n\
|
|
uchar8 res; \n\
|
|
res.even = (val >> 4) & 0x0F; \n\
|
|
res.odd = val & 0x0F; \n\
|
|
res |= res << 4; \n\
|
|
vstore8(res, 0, dst + ((y + iy)*width + x)); \n\
|
|
srcOffset++; \n\
|
|
} \n\
|
|
} \n\
|
|
\n\
|
|
kernel void DecodeI8(global uchar *dst, \n\
|
|
const global uchar *src, int width) \n\
|
|
{ \n\
|
|
int x = get_global_id(0) * 8, y = get_global_id(1) * 4; \n\
|
|
int srcOffset = ((x * 4) + (y * width)) / 8; \n\
|
|
for (int iy = 0; iy < 4; iy++) \n\
|
|
{ \n\
|
|
vstore8(vload8(srcOffset, src), \n\
|
|
0, dst + ((y + iy)*width + x)); \n\
|
|
srcOffset++; \n\
|
|
} \n\
|
|
} \n\
|
|
\n\
|
|
kernel void DecodeIA8(global uchar *dst, \n\
|
|
const global uchar *src, int width) \n\
|
|
{ \n\
|
|
int x = get_global_id(0) * 4, y = get_global_id(1) * 4; \n\
|
|
int srcOffset = ((x * 4) + (y * width)) / 4; \n\
|
|
for (int iy = 0; iy < 4; iy++) \n\
|
|
{ \n\
|
|
uchar8 val = vload8(srcOffset, src); \n\
|
|
uchar8 res; \n\
|
|
res.odd = val.even; \n\
|
|
res.even = val.odd; \n\
|
|
vstore8(res, 0, dst + ((y + iy)*width + x) * 2); \n\
|
|
srcOffset++; \n\
|
|
} \n\
|
|
} \n\
|
|
\n\
|
|
kernel void DecodeIA4(global uchar *dst, \n\
|
|
const global uchar *src, int width) \n\
|
|
{ \n\
|
|
int x = get_global_id(0) * 8, y = get_global_id(1) * 4; \n\
|
|
int srcOffset = ((x * 4) + (y * width)) / 8; \n\
|
|
for (int iy = 0; iy < 4; iy++) \n\
|
|
{ \n\
|
|
uchar8 val = vload8(srcOffset, src); \n\
|
|
uchar16 res; \n\
|
|
res.odd = (val >> 4) & 0x0F; \n\
|
|
res.even = val & 0x0F; \n\
|
|
res |= res << 4; \n\
|
|
vstore16(res, 0, dst + ((y + iy)*width + x) * 2); \n\
|
|
srcOffset++; \n\
|
|
} \n\
|
|
} \n\
|
|
\n\
|
|
kernel void DecodeDXT(global ulong *dst, \n\
|
|
const global ulong *src, int width) \n\
|
|
{ // TODO: PLEASE NOTE THAT THIS CODE DOES NOT WORK \n\
|
|
int x = get_global_id(0) * 8, y = get_global_id(1) * 8; \n\
|
|
int srcOffset = ((x * 4) + (y * width)) / 8; \n\
|
|
for (int iy = 0; iy < 4; iy++) \n\
|
|
{ \n\
|
|
vstore8(vload8(srcOffset, src), \n\
|
|
0, dst + ((y + iy)*width + x)); \n\
|
|
srcOffset++; \n\
|
|
} \n\
|
|
} \n\
|
|
";
|
|
|
|
cl_program g_program;
|
|
// NULL terminated set of kernels
|
|
sDecoders Decoders[] = {
|
|
{"DecodeI4", NULL},
|
|
{"DecodeI8", NULL},
|
|
{"DecodeIA4", NULL},
|
|
{"DecodeIA8", NULL},
|
|
{"DecodeDXT", NULL},
|
|
{"", NULL},
|
|
};
|
|
|
|
bool g_Inited = false;
|
|
|
|
extern PC_TexFormat TexDecoder_Decode_OpenCL(u8 *dst, const u8 *src, int width, int height, int texformat, int tlutaddr, int tlutfmt)
|
|
{
|
|
#if defined(HAVE_OPENCL) && HAVE_OPENCL
|
|
cl_int err;
|
|
cl_kernel kernelToRun = Decoders[0].kernel;
|
|
float sizeOfDst = sizeof(u8), sizeOfSrc = sizeof(u8), xSkip, ySkip;
|
|
PC_TexFormat formatResult;
|
|
cl_mem clsrc, cldst; // texture buffer memory objects
|
|
if(!g_Inited)
|
|
{
|
|
if(!OpenCL::Initialize())
|
|
return PC_TEX_FMT_NONE;
|
|
|
|
|
|
g_program = OpenCL::CompileProgram(Kernel);
|
|
|
|
int i = 0;
|
|
while(strlen(Decoders[i].name) > 0) {
|
|
Decoders[i].kernel = OpenCL::CompileKernel(g_program, Decoders[i].name);
|
|
i++;
|
|
}
|
|
|
|
g_Inited = true;
|
|
}
|
|
switch(texformat)
|
|
{
|
|
case GX_TF_I4:
|
|
kernelToRun = Decoders[0].kernel;
|
|
sizeOfSrc = sizeof(u8) / 2.0f;
|
|
sizeOfDst = sizeof(u8);
|
|
xSkip = 8;
|
|
ySkip = 8;
|
|
formatResult = PC_TEX_FMT_I4_AS_I8;
|
|
break;
|
|
case GX_TF_I8:
|
|
kernelToRun = Decoders[1].kernel;
|
|
sizeOfSrc = sizeOfDst = sizeof(u8);
|
|
xSkip = 8;
|
|
ySkip = 4;
|
|
formatResult = PC_TEX_FMT_I8;
|
|
break;
|
|
case GX_TF_IA4:
|
|
// Maybe a cleaner way is needed
|
|
kernelToRun = Decoders[2].kernel;
|
|
sizeOfSrc = sizeof(u8);
|
|
sizeOfDst = sizeof(u16);
|
|
xSkip = 8;
|
|
ySkip = 4;
|
|
formatResult = PC_TEX_FMT_IA4_AS_IA8;
|
|
break;
|
|
case GX_TF_IA8:
|
|
kernelToRun = Decoders[3].kernel;
|
|
sizeOfSrc = sizeOfDst = sizeof(u16);
|
|
xSkip = 4;
|
|
ySkip = 4;
|
|
formatResult = PC_TEX_FMT_IA8;
|
|
break;
|
|
case GX_TF_CMPR:
|
|
return PC_TEX_FMT_NONE; // <-- TODO: Fix CMPR
|
|
kernelToRun = Decoders[3].kernel;
|
|
sizeOfSrc = sizeOfDst = sizeof(u32);
|
|
xSkip = 8;
|
|
ySkip = 8;
|
|
formatResult = PC_TEX_FMT_BGRA32;
|
|
break;
|
|
default:
|
|
return PC_TEX_FMT_NONE;
|
|
}
|
|
|
|
// TODO: Optimize
|
|
clsrc = clCreateBuffer(OpenCL::GetContext(), CL_MEM_READ_ONLY | CL_MEM_COPY_HOST_PTR, (size_t)(width * height * sizeOfSrc), (void *)src, NULL);
|
|
cldst = clCreateBuffer(OpenCL::GetContext(), CL_MEM_WRITE_ONLY, width * height * sizeOfDst, NULL, NULL);
|
|
|
|
clSetKernelArg(kernelToRun, 0, sizeof(cl_mem), &cldst);
|
|
clSetKernelArg(kernelToRun, 1, sizeof(cl_mem), &clsrc);
|
|
clSetKernelArg(kernelToRun, 2, sizeof(cl_int), &width);
|
|
|
|
size_t global[] = { (size_t)(width / xSkip), (size_t)(height / ySkip) };
|
|
|
|
// No work-groups for now
|
|
/*
|
|
size_t local;
|
|
err = clGetKernelWorkGroupInfo(kernelToRun, OpenCL::device_id, CL_KERNEL_WORK_GROUP_SIZE, sizeof(local), &local, NULL);
|
|
if(err)
|
|
PanicAlert("Error obtaining work-group information");
|
|
*/
|
|
|
|
err = clEnqueueNDRangeKernel(OpenCL::GetCommandQueue(), kernelToRun, 2, NULL, global, NULL, 0, NULL, NULL);
|
|
if(err)
|
|
PanicAlert("Error queueing kernel");
|
|
|
|
clFinish(OpenCL::GetCommandQueue());
|
|
|
|
clEnqueueReadBuffer(OpenCL::GetCommandQueue(), cldst, CL_TRUE, 0, (size_t)(width * height * sizeOfDst), dst, 0, NULL, NULL);
|
|
|
|
clReleaseMemObject(clsrc);
|
|
clReleaseMemObject(cldst);
|
|
|
|
return formatResult;
|
|
#else
|
|
return PC_TEX_FMT_NONE;
|
|
#endif
|
|
|
|
/* switch (texformat)
|
|
{
|
|
case GX_TF_C4:
|
|
if (tlutfmt == 2)
|
|
{
|
|
// Special decoding is required for TLUT format 5A3
|
|
for (int y = 0; y < height; y += 8)
|
|
for (int x = 0; x < width; x += 8)
|
|
for (int iy = 0; iy < 8; iy++, src += 4)
|
|
decodebytesC4_5A3_To_BGRA32((u32*)dst + (y + iy) * width + x, src, tlutaddr);
|
|
}
|
|
else
|
|
{
|
|
for (int y = 0; y < height; y += 8)
|
|
for (int x = 0; x < width; x += 8)
|
|
for (int iy = 0; iy < 8; iy++, src += 4)
|
|
decodebytesC4_To_Raw16((u16*)dst + (y + iy) * width + x, src, tlutaddr);
|
|
}
|
|
return GetPCFormatFromTLUTFormat(tlutfmt);
|
|
case GX_TF_C8:
|
|
if (tlutfmt == 2)
|
|
{
|
|
// Special decoding is required for TLUT format 5A3
|
|
for (int y = 0; y < height; y += 4)
|
|
for (int x = 0; x < width; x += 8)
|
|
for (int iy = 0; iy < 4; iy++, src += 8)
|
|
decodebytesC8_5A3_To_BGRA32((u32*)dst + (y + iy) * width + x, src, tlutaddr);
|
|
}
|
|
else
|
|
{
|
|
for (int y = 0; y < height; y += 4)
|
|
for (int x = 0; x < width; x += 8)
|
|
for (int iy = 0; iy < 4; iy++, src += 8)
|
|
decodebytesC8_To_Raw16((u16*)dst + (y + iy) * width + x, src, tlutaddr);
|
|
}
|
|
return GetPCFormatFromTLUTFormat(tlutfmt);
|
|
case GX_TF_C14X2:
|
|
if (tlutfmt == 2)
|
|
{
|
|
// Special decoding is required for TLUT format 5A3
|
|
for (int y = 0; y < height; y += 4)
|
|
for (int x = 0; x < width; x += 4)
|
|
for (int iy = 0; iy < 4; iy++, src += 8)
|
|
decodebytesC14X2_5A3_To_BGRA32((u32*)dst + (y + iy) * width + x, (u16*)src, tlutaddr);
|
|
}
|
|
else
|
|
{
|
|
for (int y = 0; y < height; y += 4)
|
|
for (int x = 0; x < width; x += 4)
|
|
for (int iy = 0; iy < 4; iy++, src += 8)
|
|
decodebytesC14X2_To_Raw16((u16*)dst + (y + iy) * width + x, (u16*)src, tlutaddr);
|
|
}
|
|
return GetPCFormatFromTLUTFormat(tlutfmt);
|
|
case GX_TF_RGB565:
|
|
{
|
|
for (int y = 0; y < height; y += 4)
|
|
for (int x = 0; x < width; x += 4)
|
|
for (int iy = 0; iy < 4; iy++, src += 8)
|
|
{
|
|
u16 *ptr = (u16 *)dst + (y + iy) * width + x;
|
|
u16 *s = (u16 *)src;
|
|
for(int j = 0; j < 4; j++)
|
|
*ptr++ = Common::swap16(*s++);
|
|
}
|
|
}
|
|
return PC_TEX_FMT_RGB565;
|
|
case GX_TF_RGB5A3:
|
|
{
|
|
for (int y = 0; y < height; y += 4)
|
|
for (int x = 0; x < width; x += 4)
|
|
for (int iy = 0; iy < 4; iy++, src += 8)
|
|
//decodebytesRGB5A3((u32*)dst+(y+iy)*width+x, (u16*)src, 4);
|
|
decodebytesRGB5A3((u32*)dst+(y+iy)*width+x, (u16*)src);
|
|
}
|
|
return PC_TEX_FMT_BGRA32;
|
|
case GX_TF_RGBA8: // speed critical
|
|
{
|
|
for (int y = 0; y < height; y += 4)
|
|
for (int x = 0; x < width; x += 4)
|
|
{
|
|
for (int iy = 0; iy < 4; iy++)
|
|
decodebytesARGB8_4((u32*)dst + (y+iy)*width + x, (u16*)src + 4 * iy, (u16*)src + 4 * iy + 16);
|
|
src += 64;
|
|
}
|
|
}
|
|
return PC_TEX_FMT_BGRA32;
|
|
case GX_TF_CMPR: // speed critical
|
|
// The metroid games use this format almost exclusively.
|
|
{
|
|
for (int y = 0; y < height; y += 8)
|
|
{
|
|
for (int x = 0; x < width; x += 8)
|
|
{
|
|
decodeDXTBlock((u32*)dst + y * width + x, (DXTBlock*)src, width);
|
|
src += sizeof(DXTBlock);
|
|
decodeDXTBlock((u32*)dst + y * width + x + 4, (DXTBlock*)src, width);
|
|
src += sizeof(DXTBlock);
|
|
decodeDXTBlock((u32*)dst + (y + 4) * width + x, (DXTBlock*)src, width);
|
|
src += sizeof(DXTBlock);
|
|
decodeDXTBlock((u32*)dst + (y + 4) * width + x + 4, (DXTBlock*)src, width);
|
|
src += sizeof(DXTBlock);
|
|
}
|
|
}
|
|
return PC_TEX_FMT_BGRA32;
|
|
}
|
|
}
|
|
*/
|
|
// The "copy" texture formats, too?
|
|
return PC_TEX_FMT_NONE;
|
|
}
|
|
|