/* Direct3D Texture (c) 1998 Lionel ULMER This files contains the implementation of interface Direct3DTexture2. */ #include #include "config.h" #include "windef.h" #include "winerror.h" #include "wine/obj_base.h" #include "heap.h" #include "ddraw.h" #include "d3d.h" #include "debug.h" #include "d3d_private.h" #ifdef HAVE_MESAGL /* Define this if you want to save to a file all the textures used by a game (can be funny to see how they managed to cram all the pictures in texture memory) */ #undef TEXTURE_SNOOP static ICOM_VTABLE(IDirect3DTexture2) texture2_vtable; static ICOM_VTABLE(IDirect3DTexture) texture_vtable; /******************************************************************************* * Texture2 Creation functions */ LPDIRECT3DTEXTURE2 d3dtexture2_create(IDirectDrawSurface4Impl* surf) { IDirect3DTexture2Impl* tex; tex = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(IDirect3DTexture2Impl)); tex->ref = 1; tex->lpvtbl = &texture2_vtable; tex->surface = surf; return (LPDIRECT3DTEXTURE2)tex; } /******************************************************************************* * Texture Creation functions */ LPDIRECT3DTEXTURE d3dtexture_create(IDirectDrawSurface4Impl* surf) { IDirect3DTexture2Impl* tex; tex = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(IDirect3DTexture2Impl)); tex->ref = 1; tex->lpvtbl = (ICOM_VTABLE(IDirect3DTexture2)*)&texture_vtable; tex->surface = surf; return (LPDIRECT3DTEXTURE)tex; } /******************************************************************************* * IDirect3DTexture2 methods */ static HRESULT WINAPI IDirect3DTexture2Impl_QueryInterface(LPDIRECT3DTEXTURE2 iface, REFIID riid, LPVOID* ppvObj) { ICOM_THIS(IDirect3DTexture2Impl,iface); char xrefiid[50]; WINE_StringFromCLSID((LPCLSID)riid,xrefiid); FIXME(ddraw, "(%p)->(%s,%p): stub\n", This, xrefiid,ppvObj); return S_OK; } static ULONG WINAPI IDirect3DTexture2Impl_AddRef(LPDIRECT3DTEXTURE2 iface) { ICOM_THIS(IDirect3DTexture2Impl,iface); TRACE(ddraw, "(%p)->()incrementing from %lu.\n", This, This->ref ); return ++(This->ref); } static ULONG WINAPI IDirect3DTexture2Impl_Release(LPDIRECT3DTEXTURE2 iface) { ICOM_THIS(IDirect3DTexture2Impl,iface); FIXME( ddraw, "(%p)->() decrementing from %lu.\n", This, This->ref ); if (!--(This->ref)) { /* Delete texture from OpenGL */ glDeleteTextures(1, &(This->tex_name)); /* Release surface */ IDirectDrawSurface4_Release((IDirectDrawSurface4*)This->surface); HeapFree(GetProcessHeap(),0,This); return 0; } return This->ref; } /*** IDirect3DTexture methods ***/ static HRESULT WINAPI IDirect3DTextureImpl_GetHandle(LPDIRECT3DTEXTURE iface, LPDIRECT3DDEVICE lpD3DDevice, LPD3DTEXTUREHANDLE lpHandle) { ICOM_THIS(IDirect3DTexture2Impl,iface); IDirect3DDeviceImpl* ilpD3DDevice=(IDirect3DDeviceImpl*)lpD3DDevice; FIXME(ddraw, "(%p)->(%p,%p): stub\n", This, ilpD3DDevice, lpHandle); *lpHandle = (D3DTEXTUREHANDLE) This; /* Now, bind a new texture */ ilpD3DDevice->set_context(ilpD3DDevice); This->D3Ddevice = (void *) ilpD3DDevice; if (This->tex_name == 0) glGenTextures(1, &(This->tex_name)); TRACE(ddraw, "OpenGL texture handle is : %d\n", This->tex_name); return D3D_OK; } static HRESULT WINAPI IDirect3DTextureImpl_Initialize(LPDIRECT3DTEXTURE iface, LPDIRECT3DDEVICE lpD3DDevice, LPDIRECTDRAWSURFACE lpSurface) { ICOM_THIS(IDirect3DTexture2Impl,iface); TRACE(ddraw, "(%p)->(%p,%p)\n", This, lpD3DDevice, lpSurface); return DDERR_ALREADYINITIALIZED; } static HRESULT WINAPI IDirect3DTextureImpl_Unload(LPDIRECT3DTEXTURE iface) { ICOM_THIS(IDirect3DTexture2Impl,iface); FIXME(ddraw, "(%p)->(): stub\n", This); return D3D_OK; } /*** IDirect3DTexture2 methods ***/ static HRESULT WINAPI IDirect3DTexture2Impl_GetHandle(LPDIRECT3DTEXTURE2 iface, LPDIRECT3DDEVICE2 lpD3DDevice2, LPD3DTEXTUREHANDLE lpHandle) { ICOM_THIS(IDirect3DTexture2Impl,iface); IDirect3DDevice2Impl* ilpD3DDevice2=(IDirect3DDevice2Impl*)lpD3DDevice2; TRACE(ddraw, "(%p)->(%p,%p)\n", This, ilpD3DDevice2, lpHandle); /* For 32 bits OSes, handles = pointers */ *lpHandle = (D3DTEXTUREHANDLE) This; /* Now, bind a new texture */ ilpD3DDevice2->set_context(ilpD3DDevice2); This->D3Ddevice = (void *) ilpD3DDevice2; if (This->tex_name == 0) glGenTextures(1, &(This->tex_name)); TRACE(ddraw, "OpenGL texture handle is : %d\n", This->tex_name); return D3D_OK; } /* Common methods */ static HRESULT WINAPI IDirect3DTexture2Impl_PaletteChanged(LPDIRECT3DTEXTURE2 iface, DWORD dwStart, DWORD dwCount) { ICOM_THIS(IDirect3DTexture2Impl,iface); FIXME(ddraw, "(%p)->(%8ld,%8ld): stub\n", This, dwStart, dwCount); return D3D_OK; } /* NOTE : if you experience crashes in this function, you must have a buggy version of Mesa. See the file d3dtexture.c for a cure */ static HRESULT WINAPI IDirect3DTexture2Impl_Load(LPDIRECT3DTEXTURE2 iface, LPDIRECT3DTEXTURE2 lpD3DTexture2) { ICOM_THIS(IDirect3DTexture2Impl,iface); IDirect3DTexture2Impl* ilpD3DTexture2=(IDirect3DTexture2Impl*)lpD3DTexture2; DDSURFACEDESC *src_d, *dst_d; TRACE(ddraw, "(%p)->(%p)\n", This, ilpD3DTexture2); TRACE(ddraw, "Copied to surface %p, surface %p\n", This->surface, ilpD3DTexture2->surface); /* Suppress the ALLOCONLOAD flag */ This->surface->s.surface_desc.ddsCaps.dwCaps &= ~DDSCAPS_ALLOCONLOAD; /* Copy one surface on the other */ dst_d = &(This->surface->s.surface_desc); src_d = &(ilpD3DTexture2->surface->s.surface_desc); if ((src_d->dwWidth != dst_d->dwWidth) || (src_d->dwHeight != dst_d->dwHeight)) { /* Should also check for same pixel format, lPitch, ... */ ERR(ddraw, "Error in surface sizes\n"); return D3DERR_TEXTURE_LOAD_FAILED; } else { /* LPDIRECT3DDEVICE2 d3dd = (LPDIRECT3DDEVICE2) This->D3Ddevice; */ /* I should put a macro for the calculus of bpp */ int bpp = (src_d->ddpfPixelFormat.dwFlags & DDPF_PALETTEINDEXED8 ? 1 /* 8 bit of palette index */: src_d->ddpfPixelFormat.x.dwRGBBitCount / 8 /* RGB bits for each colors */ ); GLuint current_texture; /* Not sure if this is usefull ! */ memcpy(dst_d->y.lpSurface, src_d->y.lpSurface, src_d->dwWidth * src_d->dwHeight * bpp); /* Now, load the texture */ /* d3dd->set_context(d3dd); We need to set the context somehow.... */ glGetIntegerv(GL_TEXTURE_BINDING_2D, ¤t_texture); /* If the GetHandle was not done, get the texture name here */ if (This->tex_name == 0) glGenTextures(1, &(This->tex_name)); glBindTexture(GL_TEXTURE_2D, This->tex_name); if (src_d->ddpfPixelFormat.dwFlags & DDPF_PALETTEINDEXED8) { /* **************** Paletted Texture **************** */ IDirectDrawPaletteImpl* pal = This->surface->s.palette; BYTE table[256][4]; int i; if (pal == NULL) { ERR(ddraw, "Palettized texture Loading with a NULL palette !\n"); return D3DERR_TEXTURE_LOAD_FAILED; } /* Get the surface's palette */ for (i = 0; i < 256; i++) { table[i][0] = pal->palents[i].peRed; table[i][1] = pal->palents[i].peGreen; table[i][2] = pal->palents[i].peBlue; if ((This->surface->s.surface_desc.dwFlags & DDSD_CKSRCBLT) && (i >= This->surface->s.surface_desc.ddckCKSrcBlt.dwColorSpaceLowValue) && (i <= This->surface->s.surface_desc.ddckCKSrcBlt.dwColorSpaceHighValue)) table[i][3] = 0x00; else table[i][3] = 0xFF; } #ifdef TEXTURE_SNOOP { FILE *f; char buf[32]; int x, y; sprintf(buf, "%d.pnm", This->tex_name); f = fopen(buf, "wb"); fprintf(f, "P6\n%d %d\n255\n", src_d->dwWidth, src_d->dwHeight); for (y = 0; y < src_d->dwHeight; y++) { for (x = 0; x < src_d->dwWidth; x++) { unsigned char c = ((unsigned char *) src_d->y.lpSurface)[y * src_d->dwWidth + x]; fputc(table[c][0], f); fputc(table[c][1], f); fputc(table[c][2], f); } } fclose(f); } #endif /* Use Paletted Texture Extension */ glColorTableEXT(GL_TEXTURE_2D, /* target */ GL_RGBA, /* internal format */ 256, /* table size */ GL_RGBA, /* table format */ GL_UNSIGNED_BYTE, /* table type */ table); /* the color table */ glTexImage2D(GL_TEXTURE_2D, /* target */ 0, /* level */ GL_COLOR_INDEX8_EXT, /* internal format */ src_d->dwWidth, src_d->dwHeight, /* width, height */ 0, /* border */ GL_COLOR_INDEX, /* texture format */ GL_UNSIGNED_BYTE, /* texture type */ src_d->y.lpSurface); /* the texture */ } else if (src_d->ddpfPixelFormat.dwFlags & DDPF_RGB) { /* ************ RGB Textures ************ */ if (src_d->ddpfPixelFormat.x.dwRGBBitCount == 8) { /* ********************** GL_UNSIGNED_BYTE_3_3_2 ********************** */ glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, src_d->dwWidth, src_d->dwHeight, 0, GL_RGB, GL_UNSIGNED_BYTE_3_3_2, src_d->y.lpSurface); } else if (src_d->ddpfPixelFormat.x.dwRGBBitCount == 16) { if (src_d->ddpfPixelFormat.xy.dwRGBAlphaBitMask == 0x00000000) { #ifdef TEXTURE_SNOOP { FILE *f; char buf[32]; int x, y; sprintf(buf, "%d.pnm", This->tex_name); f = fopen(buf, "wb"); fprintf(f, "P6\n%d %d\n255\n", src_d->dwWidth, src_d->dwHeight); for (y = 0; y < src_d->dwHeight; y++) { for (x = 0; x < src_d->dwWidth; x++) { unsigned short c = ((unsigned short *) src_d->y.lpSurface)[y * src_d->dwWidth + x]; fputc((c & 0xF800) >> 8, f); fputc((c & 0x07E0) >> 3, f); fputc((c & 0x001F) << 3, f); } } fclose(f); } #endif glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, src_d->dwWidth, src_d->dwHeight, 0, GL_RGB, GL_UNSIGNED_SHORT_5_6_5, src_d->y.lpSurface); } else if (src_d->ddpfPixelFormat.xy.dwRGBAlphaBitMask == 0x00000001) { #ifdef TEXTURE_SNOOP { FILE *f; char buf[32]; int x, y; sprintf(buf, "%d.pnm", This->tex_name); f = fopen(buf, "wb"); fprintf(f, "P6\n%d %d\n255\n", src_d->dwWidth, src_d->dwHeight); for (y = 0; y < src_d->dwHeight; y++) { for (x = 0; x < src_d->dwWidth; x++) { unsigned short c = ((unsigned short *) src_d->y.lpSurface)[y * src_d->dwWidth + x]; fputc((c & 0xF800) >> 8, f); fputc((c & 0x07C0) >> 3, f); fputc((c & 0x003E) << 2, f); } } fclose(f); } #endif glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, src_d->dwWidth, src_d->dwHeight, 0, GL_RGBA, GL_UNSIGNED_SHORT_5_5_5_1, src_d->y.lpSurface); } else if (src_d->ddpfPixelFormat.xy.dwRGBAlphaBitMask == 0x0000000F) { glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, src_d->dwWidth, src_d->dwHeight, 0, GL_RGBA, GL_UNSIGNED_SHORT_4_4_4_4, src_d->y.lpSurface); } else { ERR(ddraw, "Unhandled texture format (bad Aplha channel for a 16 bit texture)\n"); } } else if (src_d->ddpfPixelFormat.x.dwRGBBitCount == 24) { glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, src_d->dwWidth, src_d->dwHeight, 0, GL_RGB, GL_UNSIGNED_BYTE, src_d->y.lpSurface); } else if (src_d->ddpfPixelFormat.x.dwRGBBitCount == 32) { glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, src_d->dwWidth, src_d->dwHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE, src_d->y.lpSurface); } else { ERR(ddraw, "Unhandled texture format (bad RGB count)\n"); } } else { ERR(ddraw, "Unhandled texture format (neither RGB nor INDEX)\n"); } glBindTexture(GL_TEXTURE_2D, current_texture); } return D3D_OK; } /******************************************************************************* * IDirect3DTexture2 VTable */ static ICOM_VTABLE(IDirect3DTexture2) texture2_vtable = { /*** IUnknown methods ***/ IDirect3DTexture2Impl_QueryInterface, IDirect3DTexture2Impl_AddRef, IDirect3DTexture2Impl_Release, /*** IDirect3DTexture methods ***/ IDirect3DTexture2Impl_GetHandle, IDirect3DTexture2Impl_PaletteChanged, IDirect3DTexture2Impl_Load }; /******************************************************************************* * IDirect3DTexture VTable */ static ICOM_VTABLE(IDirect3DTexture) texture_vtable = { /*** IUnknown methods ***/ IDirect3DTexture2Impl_QueryInterface, IDirect3DTexture2Impl_AddRef, IDirect3DTexture2Impl_Release, /*** IDirect3DTexture methods ***/ IDirect3DTextureImpl_Initialize, IDirect3DTextureImpl_GetHandle, IDirect3DTexture2Impl_PaletteChanged, IDirect3DTexture2Impl_Load, IDirect3DTextureImpl_Unload }; #else /* HAVE_MESAGL */ /* These function should never be called if MesaGL is not present */ LPDIRECT3DTEXTURE2 d3dtexture2_create(IDirectDrawSurface4Impl* surf) { ERR(ddraw, "Should not be called...\n"); return NULL; } LPDIRECT3DTEXTURE d3dtexture_create(IDirectDrawSurface4Impl* surf) { ERR(ddraw, "Should not be called...\n"); return NULL; } #endif /* HAVE_MESAGL */