ole: ProgIDFromCLSID sets progid to NULL on failure.
[wine] / dlls / d3d8 / volumetexture.c
1 /*
2  * IDirect3DVolumeTexture8 implementation
3  *
4  * Copyright 2002 Jason Edmeades
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #include "config.h"
22
23 #include <stdarg.h>
24
25 #include "windef.h"
26 #include "winbase.h"
27 #include "winuser.h"
28 #include "wingdi.h"
29 #include "wine/debug.h"
30
31 #include "d3d8_private.h"
32
33 WINE_DEFAULT_DEBUG_CHANNEL(d3d);
34
35 /* IDirect3DVolumeTexture8 IUnknown parts follow: */
36 HRESULT WINAPI IDirect3DVolumeTexture8Impl_QueryInterface(LPDIRECT3DVOLUMETEXTURE8 iface,REFIID riid,LPVOID *ppobj)
37 {
38     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
39
40     TRACE("(%p) : QueryInterface\n", This);
41     if (IsEqualGUID(riid, &IID_IUnknown)
42         || IsEqualGUID(riid, &IID_IDirect3DResource8)
43         || IsEqualGUID(riid, &IID_IDirect3DBaseTexture8)
44         || IsEqualGUID(riid, &IID_IDirect3DVolumeTexture8)) {
45         IDirect3DVolumeTexture8Impl_AddRef(iface);
46         *ppobj = This;
47         return D3D_OK;
48     }
49
50     WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppobj);
51     return E_NOINTERFACE;
52 }
53
54 ULONG WINAPI IDirect3DVolumeTexture8Impl_AddRef(LPDIRECT3DVOLUMETEXTURE8 iface) {
55     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
56     ULONG ref = InterlockedIncrement(&This->ref);
57
58     TRACE("(%p) : AddRef from %ld\n", This, ref - 1);
59
60     return ref;
61 }
62
63 ULONG WINAPI IDirect3DVolumeTexture8Impl_Release(LPDIRECT3DVOLUMETEXTURE8 iface) {
64     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
65     ULONG ref = InterlockedDecrement(&This->ref);
66     UINT  i;
67
68     TRACE("(%p) : ReleaseRef to %ld\n", This, ref);
69
70     if (ref == 0) {
71         for (i = 0; i < This->levels; i++) {
72             if (This->volumes[i] != NULL) {
73                 TRACE("(%p) : Releasing volume %p\n", This, This->volumes[i]);
74                 IDirect3DVolume8Impl_Release((LPDIRECT3DVOLUME8) This->volumes[i]);
75             }
76         }
77         HeapFree(GetProcessHeap(), 0, This);
78     }
79     return ref;
80 }
81
82 /* IDirect3DVolumeTexture8 IDirect3DResource8 Interface follow: */
83 HRESULT  WINAPI        IDirect3DVolumeTexture8Impl_GetDevice(LPDIRECT3DVOLUMETEXTURE8 iface, IDirect3DDevice8** ppDevice) {
84     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
85     TRACE("(%p) : returning %p\n", This, This->Device);
86     *ppDevice = (LPDIRECT3DDEVICE8) This->Device;
87     /**
88      * Note  Calling this method will increase the internal reference count 
89      * on the IDirect3DDevice8 interface. 
90      */
91     IDirect3DDevice8Impl_AddRef(*ppDevice);
92     return D3D_OK;
93 }
94 HRESULT  WINAPI        IDirect3DVolumeTexture8Impl_SetPrivateData(LPDIRECT3DVOLUMETEXTURE8 iface, REFGUID refguid, CONST void* pData, DWORD SizeOfData, DWORD Flags) {
95     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
96     FIXME("(%p) : stub\n", This);
97     return D3D_OK;
98 }
99 HRESULT  WINAPI        IDirect3DVolumeTexture8Impl_GetPrivateData(LPDIRECT3DVOLUMETEXTURE8 iface, REFGUID refguid, void* pData, DWORD* pSizeOfData) {
100     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
101     FIXME("(%p) : stub\n", This);
102     return D3D_OK;
103 }
104 HRESULT  WINAPI        IDirect3DVolumeTexture8Impl_FreePrivateData(LPDIRECT3DVOLUMETEXTURE8 iface, REFGUID refguid) {
105     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
106     FIXME("(%p) : stub\n", This);
107     return D3D_OK;
108 }
109 DWORD    WINAPI        IDirect3DVolumeTexture8Impl_SetPriority(LPDIRECT3DVOLUMETEXTURE8 iface, DWORD PriorityNew) {
110     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
111     FIXME("(%p) : stub returning 0\n", This);    
112     return 0;
113 }
114 DWORD    WINAPI        IDirect3DVolumeTexture8Impl_GetPriority(LPDIRECT3DVOLUMETEXTURE8 iface) {
115     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
116     FIXME("(%p) : stub returning 0\n", This);    
117     return 0;
118 }
119 void     WINAPI        IDirect3DVolumeTexture8Impl_PreLoad(LPDIRECT3DVOLUMETEXTURE8 iface) {
120     unsigned int i;
121     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
122     TRACE("(%p) : About to load texture\n", This);
123
124     ENTER_GL();
125
126     for (i = 0; i < This->levels; i++) {
127       if (i == 0 && This->volumes[i]->textureName != 0 && This->Dirty == FALSE) {
128         glBindTexture(GL_TEXTURE_3D, This->volumes[i]->textureName);
129         checkGLcall("glBindTexture");
130         TRACE("Texture %p (level %d) given name %d\n", This->volumes[i], i, This->volumes[i]->textureName);
131         /* No need to walk through all mip-map levels, since already all assigned */
132         i = This->levels;
133       } else {
134         if (i == 0) {
135           if (This->volumes[i]->textureName == 0) {
136             glGenTextures(1, &This->volumes[i]->textureName);
137             checkGLcall("glGenTextures");
138             TRACE("Texture %p (level %d) given name %d\n", This->volumes[i], i, This->volumes[i]->textureName);
139           }
140           
141           glBindTexture(GL_TEXTURE_3D, This->volumes[i]->textureName);
142           checkGLcall("glBindTexture");
143           
144           TRACE("Setting GL_TEXTURE_MAX_LEVEL to %d\n", This->levels - 1);
145           glTexParameteri(GL_TEXTURE_3D, GL_TEXTURE_MAX_LEVEL, This->levels - 1); 
146           checkGLcall("glTexParameteri(GL_TEXTURE_3D, GL_TEXTURE_MAX_LEVEL, This->levels - 1)");
147         }
148
149         TRACE("Calling glTexImage3D %x i=%d, intfmt=%x, w=%d, h=%d,d=%d, 0=%d, glFmt=%x, glType=%x, Mem=%p\n",
150               GL_TEXTURE_3D, 
151               i, 
152               D3DFmt2GLIntFmt(This->Device, This->format), 
153               This->volumes[i]->myDesc.Width, 
154               This->volumes[i]->myDesc.Height, 
155               This->volumes[i]->myDesc.Depth,
156               0, 
157               D3DFmt2GLFmt(This->Device, This->format), 
158               D3DFmt2GLType(This->Device, This->format),
159               This->volumes[i]->allocatedMemory);
160         glTexImage3D(GL_TEXTURE_3D, 
161                      i,
162                      D3DFmt2GLIntFmt(This->Device, This->format),
163                      This->volumes[i]->myDesc.Width,
164                      This->volumes[i]->myDesc.Height,
165                      This->volumes[i]->myDesc.Depth,
166                      0,
167                      D3DFmt2GLFmt(This->Device, This->format),
168                      D3DFmt2GLType(This->Device, This->format),
169                      This->volumes[i]->allocatedMemory);
170         checkGLcall("glTexImage3D");
171
172         /* Removed glTexParameterf now TextureStageStates are initialized at startup */
173         This->Dirty = FALSE;
174       }
175     }
176
177     LEAVE_GL();
178
179     return ;
180 }
181 D3DRESOURCETYPE WINAPI IDirect3DVolumeTexture8Impl_GetType(LPDIRECT3DVOLUMETEXTURE8 iface) {
182     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
183     TRACE("(%p) : returning %d\n", This, This->ResourceType);
184     return This->ResourceType;
185 }
186
187 /* IDirect3DVolumeTexture8 IDirect3DBaseTexture8 Interface follow: */
188 DWORD    WINAPI        IDirect3DVolumeTexture8Impl_SetLOD(LPDIRECT3DVOLUMETEXTURE8 iface, DWORD LODNew) {
189     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
190     FIXME("(%p) : stub returning 0\n", This);    
191     return 0;
192 }
193 DWORD    WINAPI        IDirect3DVolumeTexture8Impl_GetLOD(LPDIRECT3DVOLUMETEXTURE8 iface) {
194     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
195     FIXME("(%p) : stub returning 0\n", This);    
196     return 0;
197 }
198 DWORD    WINAPI        IDirect3DVolumeTexture8Impl_GetLevelCount(LPDIRECT3DVOLUMETEXTURE8 iface) {
199     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
200     TRACE("(%p) : returning %d\n", This, This->levels);
201     return This->levels;
202 }
203
204 /* IDirect3DVolumeTexture8 */
205 HRESULT  WINAPI        IDirect3DVolumeTexture8Impl_GetLevelDesc(LPDIRECT3DVOLUMETEXTURE8 iface, UINT Level,D3DVOLUME_DESC *pDesc) {
206     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
207     if (Level < This->levels) {
208         TRACE("(%p) Level (%d)\n", This, Level);
209         return IDirect3DVolume8Impl_GetDesc((LPDIRECT3DVOLUME8) This->volumes[Level], pDesc);
210     } else {
211         FIXME("(%p) Level (%d)\n", This, Level);
212     }
213     return D3D_OK;
214 }
215 HRESULT  WINAPI        IDirect3DVolumeTexture8Impl_GetVolumeLevel(LPDIRECT3DVOLUMETEXTURE8 iface, UINT Level, IDirect3DVolume8** ppVolumeLevel) {
216     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
217     if (Level < This->levels) {
218       *ppVolumeLevel = (LPDIRECT3DVOLUME8)This->volumes[Level];
219       IDirect3DVolume8Impl_AddRef((LPDIRECT3DVOLUME8) *ppVolumeLevel);
220       TRACE("(%p) -> level(%d) returning volume@%p\n", This, Level, *ppVolumeLevel);
221     } else {
222       FIXME("(%p) Level(%d) overflow Levels(%d)\n", This, Level, This->levels);
223       return D3DERR_INVALIDCALL;
224     }
225     return D3D_OK;
226
227 }
228 HRESULT  WINAPI        IDirect3DVolumeTexture8Impl_LockBox(LPDIRECT3DVOLUMETEXTURE8 iface, UINT Level, D3DLOCKED_BOX* pLockedVolume, CONST D3DBOX* pBox, DWORD Flags) {
229     HRESULT hr;
230     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
231     if (Level < This->levels) {
232       /**
233        * Not dirtified while Surfaces don't notify dirtification
234        * This->Dirty = TRUE;
235        */
236       hr = IDirect3DVolume8Impl_LockBox((LPDIRECT3DVOLUME8) This->volumes[Level], pLockedVolume, pBox, Flags);
237       TRACE("(%p) Level (%d) success(%lu)\n", This, Level, hr);
238     } else {
239       FIXME("(%p) level(%d) overflow Levels(%d)\n", This, Level, This->levels);
240       return D3DERR_INVALIDCALL;
241     }
242     return hr;
243 }
244 HRESULT  WINAPI        IDirect3DVolumeTexture8Impl_UnlockBox(LPDIRECT3DVOLUMETEXTURE8 iface, UINT Level) {
245     HRESULT hr;
246     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
247     if (Level < This->levels) {
248       hr = IDirect3DVolume8Impl_UnlockBox((LPDIRECT3DVOLUME8) This->volumes[Level]);
249       TRACE("(%p) -> level(%d) success(%lu)\n", This, Level, hr);
250     } else {
251       FIXME("(%p) level(%d) overflow Levels(%d)\n", This, Level, This->levels);
252       return D3DERR_INVALIDCALL;
253     }
254     return hr;
255 }
256 HRESULT  WINAPI        IDirect3DVolumeTexture8Impl_AddDirtyBox(LPDIRECT3DVOLUMETEXTURE8 iface, CONST D3DBOX* pDirtyBox) {
257     IDirect3DVolumeTexture8Impl *This = (IDirect3DVolumeTexture8Impl *)iface;
258     This->Dirty = TRUE;
259     TRACE("(%p) : dirtyfication of volume Level (0)\n", This);    
260     return IDirect3DVolume8Impl_AddDirtyBox((LPDIRECT3DVOLUME8) This->volumes[0], pDirtyBox);
261 }
262
263
264 const IDirect3DVolumeTexture8Vtbl Direct3DVolumeTexture8_Vtbl =
265 {
266     IDirect3DVolumeTexture8Impl_QueryInterface,
267     IDirect3DVolumeTexture8Impl_AddRef,
268     IDirect3DVolumeTexture8Impl_Release,
269     IDirect3DVolumeTexture8Impl_GetDevice,
270     IDirect3DVolumeTexture8Impl_SetPrivateData,
271     IDirect3DVolumeTexture8Impl_GetPrivateData,
272     IDirect3DVolumeTexture8Impl_FreePrivateData,
273     IDirect3DVolumeTexture8Impl_SetPriority,
274     IDirect3DVolumeTexture8Impl_GetPriority,
275     IDirect3DVolumeTexture8Impl_PreLoad,
276     IDirect3DVolumeTexture8Impl_GetType,
277     IDirect3DVolumeTexture8Impl_SetLOD,
278     IDirect3DVolumeTexture8Impl_GetLOD,
279     IDirect3DVolumeTexture8Impl_GetLevelCount,
280     IDirect3DVolumeTexture8Impl_GetLevelDesc,
281     IDirect3DVolumeTexture8Impl_GetVolumeLevel,
282     IDirect3DVolumeTexture8Impl_LockBox,
283     IDirect3DVolumeTexture8Impl_UnlockBox,
284     IDirect3DVolumeTexture8Impl_AddDirtyBox
285 };