d3d8: Backport null pointer check in SetCursorProperties.
[wine] / dlls / d3d8 / device.c
1 /*
2  * IDirect3DDevice8 implementation
3  *
4  * Copyright 2002-2004 Jason Edmeades
5  * Copyright 2004 Christian Costa
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  */
21
22 #include "config.h"
23
24 #include <math.h>
25 #include <stdarg.h>
26
27 #define NONAMELESSUNION
28 #define NONAMELESSSTRUCT
29 #include "windef.h"
30 #include "winbase.h"
31 #include "winuser.h"
32 #include "wingdi.h"
33 #include "wine/debug.h"
34
35 #include "d3d8_private.h"
36
37 WINE_DEFAULT_DEBUG_CHANNEL(d3d8);
38
39 /* Shader handle functions */
40 static shader_handle *alloc_shader_handle(IDirect3DDevice8Impl *This) {
41     if (This->free_shader_handles) {
42         /* Use a free handle */
43         shader_handle *handle = This->free_shader_handles;
44         This->free_shader_handles = *handle;
45         return handle;
46     }
47     if (!(This->allocated_shader_handles < This->shader_handle_table_size)) {
48         /* Grow the table */
49         DWORD new_size = This->shader_handle_table_size + (This->shader_handle_table_size >> 1);
50         shader_handle *new_handles = HeapReAlloc(GetProcessHeap(), 0, This->shader_handles, new_size * sizeof(shader_handle));
51         if (!new_handles) return NULL;
52         This->shader_handles = new_handles;
53         This->shader_handle_table_size = new_size;
54     }
55
56     return &This->shader_handles[This->allocated_shader_handles++];
57 }
58
59 static void free_shader_handle(IDirect3DDevice8Impl *This, shader_handle *handle) {
60     *handle = This->free_shader_handles;
61     This->free_shader_handles = handle;
62 }
63
64 /* IDirect3D IUnknown parts follow: */
65 static HRESULT WINAPI IDirect3DDevice8Impl_QueryInterface(LPDIRECT3DDEVICE8 iface,REFIID riid,LPVOID *ppobj)
66 {
67     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
68
69     if (IsEqualGUID(riid, &IID_IUnknown)
70         || IsEqualGUID(riid, &IID_IDirect3DDevice8)) {
71         IUnknown_AddRef(iface);
72         *ppobj = This;
73         return S_OK;
74     }
75
76     WARN("(%p)->(%s,%p),not found\n", This, debugstr_guid(riid), ppobj);
77     *ppobj = NULL;
78     return E_NOINTERFACE;
79 }
80
81 static ULONG WINAPI IDirect3DDevice8Impl_AddRef(LPDIRECT3DDEVICE8 iface) {
82     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
83     ULONG ref = InterlockedIncrement(&This->ref);
84
85     TRACE("(%p) : AddRef from %d\n", This, ref - 1);
86
87     return ref;
88 }
89
90 static ULONG WINAPI IDirect3DDevice8Impl_Release(LPDIRECT3DDEVICE8 iface) {
91     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
92     ULONG ref = InterlockedDecrement(&This->ref);
93
94     TRACE("(%p) : ReleaseRef to %d\n", This, ref);
95
96     if (ref == 0) {
97         TRACE("Releasing wined3d device %p\n", This->WineD3DDevice);
98         IWineD3DDevice_Uninit3D(This->WineD3DDevice);
99         IWineD3DDevice_Release(This->WineD3DDevice);
100         HeapFree(GetProcessHeap(), 0, This->shader_handles);
101         HeapFree(GetProcessHeap(), 0, This);
102     }
103     return ref;
104 }
105
106 /* IDirect3DDevice Interface follow: */
107 static HRESULT WINAPI IDirect3DDevice8Impl_TestCooperativeLevel(LPDIRECT3DDEVICE8 iface) {
108     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
109
110     TRACE("(%p) : Relay\n", This);
111     return IWineD3DDevice_TestCooperativeLevel(This->WineD3DDevice);
112 }
113
114 static UINT WINAPI  IDirect3DDevice8Impl_GetAvailableTextureMem(LPDIRECT3DDEVICE8 iface) {
115     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
116
117     TRACE("(%p) Relay\n", This);
118     return IWineD3DDevice_GetAvailableTextureMem(This->WineD3DDevice);
119 }
120
121 static HRESULT WINAPI IDirect3DDevice8Impl_ResourceManagerDiscardBytes(LPDIRECT3DDEVICE8 iface, DWORD Bytes) {
122     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
123
124     TRACE("(%p) : Relay bytes(%d)\n", This, Bytes);
125     return IWineD3DDevice_EvictManagedResources(This->WineD3DDevice);
126 }
127
128 static HRESULT WINAPI IDirect3DDevice8Impl_GetDirect3D(LPDIRECT3DDEVICE8 iface, IDirect3D8** ppD3D8) {
129     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
130     HRESULT hr = D3D_OK;
131     IWineD3D* pWineD3D;
132
133     TRACE("(%p) Relay\n", This);
134
135     if (NULL == ppD3D8) {
136         return D3DERR_INVALIDCALL;
137     }
138     hr = IWineD3DDevice_GetDirect3D(This->WineD3DDevice, &pWineD3D);
139     if (hr == D3D_OK && pWineD3D != NULL)
140     {
141         IWineD3DResource_GetParent((IWineD3DResource *)pWineD3D,(IUnknown **)ppD3D8);
142         IWineD3DResource_Release((IWineD3DResource *)pWineD3D);
143     } else {
144         FIXME("Call to IWineD3DDevice_GetDirect3D failed\n");
145         *ppD3D8 = NULL;
146     }
147     TRACE("(%p) returning %p\n",This , *ppD3D8);
148     return hr;
149 }
150
151 static HRESULT WINAPI IDirect3DDevice8Impl_GetDeviceCaps(LPDIRECT3DDEVICE8 iface, D3DCAPS8* pCaps) {
152     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
153     HRESULT hrc = D3D_OK;
154     WINED3DCAPS *pWineCaps;
155
156     TRACE("(%p) : Relay pCaps %p\n", This, pCaps);
157     if(NULL == pCaps){
158         return D3DERR_INVALIDCALL;
159     }
160     pWineCaps = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(WINED3DCAPS));
161     if(pWineCaps == NULL){
162         return D3DERR_INVALIDCALL; /* well this is what MSDN says to return */
163     }
164
165     D3D8CAPSTOWINECAPS(pCaps, pWineCaps)
166     hrc = IWineD3DDevice_GetDeviceCaps(This->WineD3DDevice, pWineCaps);
167     HeapFree(GetProcessHeap(), 0, pWineCaps);
168     TRACE("Returning %p %p\n", This, pCaps);
169     return hrc;
170 }
171
172 static HRESULT WINAPI IDirect3DDevice8Impl_GetDisplayMode(LPDIRECT3DDEVICE8 iface, D3DDISPLAYMODE* pMode) {
173     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
174     TRACE("(%p) Relay\n", This);
175     return IWineD3DDevice_GetDisplayMode(This->WineD3DDevice, 0, (WINED3DDISPLAYMODE *) pMode);
176 }
177
178 static HRESULT WINAPI IDirect3DDevice8Impl_GetCreationParameters(LPDIRECT3DDEVICE8 iface, D3DDEVICE_CREATION_PARAMETERS *pParameters) {
179     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
180     TRACE("(%p) Relay\n", This);
181     return IWineD3DDevice_GetCreationParameters(This->WineD3DDevice, (WINED3DDEVICE_CREATION_PARAMETERS *) pParameters);
182 }
183
184 static HRESULT WINAPI IDirect3DDevice8Impl_SetCursorProperties(LPDIRECT3DDEVICE8 iface, UINT XHotSpot, UINT YHotSpot, IDirect3DSurface8* pCursorBitmap) {
185     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
186     IDirect3DSurface8Impl *pSurface = (IDirect3DSurface8Impl*)pCursorBitmap;
187     TRACE("(%p) Relay\n", This);
188     if(!pCursorBitmap) {
189         WARN("No cursor bitmap, returning WINED3DERR_INVALIDCALL\n");
190         return WINED3DERR_INVALIDCALL;
191     }
192     return IWineD3DDevice_SetCursorProperties(This->WineD3DDevice,XHotSpot,YHotSpot,(IWineD3DSurface*)pSurface->wineD3DSurface);
193 }
194
195 static void WINAPI IDirect3DDevice8Impl_SetCursorPosition(LPDIRECT3DDEVICE8 iface, UINT XScreenSpace, UINT YScreenSpace, DWORD Flags) {
196     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
197     TRACE("(%p) Relay\n", This);
198     return IWineD3DDevice_SetCursorPosition(This->WineD3DDevice, XScreenSpace, YScreenSpace, Flags);
199 }
200
201 static BOOL WINAPI IDirect3DDevice8Impl_ShowCursor(LPDIRECT3DDEVICE8 iface, BOOL bShow) {
202     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
203     TRACE("(%p) Relay\n", This);
204
205     return IWineD3DDevice_ShowCursor(This->WineD3DDevice, bShow);
206 }
207
208 static HRESULT WINAPI IDirect3DDevice8Impl_CreateAdditionalSwapChain(LPDIRECT3DDEVICE8 iface, D3DPRESENT_PARAMETERS* pPresentationParameters, IDirect3DSwapChain8** pSwapChain) {
209     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
210     IDirect3DSwapChain8Impl* object;
211     HRESULT hrc = D3D_OK;
212     WINED3DPRESENT_PARAMETERS localParameters;
213
214     TRACE("(%p) Relay\n", This);
215
216     /* Fix the back buffer count */
217     if(pPresentationParameters->BackBufferCount == 0) {
218         pPresentationParameters->BackBufferCount = 1;
219     }
220
221     object = HeapAlloc(GetProcessHeap(),  HEAP_ZERO_MEMORY, sizeof(*object));
222     if (NULL == object) {
223         FIXME("Allocation of memory failed\n");
224         *pSwapChain = NULL;
225         return D3DERR_OUTOFVIDEOMEMORY;
226     }
227     object->ref = 1;
228     object->lpVtbl = &Direct3DSwapChain8_Vtbl;
229
230     /* Allocate an associated WineD3DDevice object */
231     localParameters.BackBufferWidth                = &pPresentationParameters->BackBufferWidth;
232     localParameters.BackBufferHeight               = &pPresentationParameters->BackBufferHeight;
233     localParameters.BackBufferFormat               = (WINED3DFORMAT *)&pPresentationParameters->BackBufferFormat;
234     localParameters.BackBufferCount                = &pPresentationParameters->BackBufferCount;
235     localParameters.MultiSampleType                = (WINED3DMULTISAMPLE_TYPE *) &pPresentationParameters->MultiSampleType;
236     localParameters.MultiSampleQuality             = NULL; /* d3d9 only */
237     localParameters.SwapEffect                     = (WINED3DSWAPEFFECT *) &pPresentationParameters->SwapEffect;
238     localParameters.hDeviceWindow                  = &pPresentationParameters->hDeviceWindow;
239     localParameters.Windowed                       = &pPresentationParameters->Windowed;
240     localParameters.EnableAutoDepthStencil         = &pPresentationParameters->EnableAutoDepthStencil;
241     localParameters.AutoDepthStencilFormat         = (WINED3DFORMAT *)&pPresentationParameters->AutoDepthStencilFormat;
242     localParameters.Flags                          = &pPresentationParameters->Flags;
243     localParameters.FullScreen_RefreshRateInHz     = &pPresentationParameters->FullScreen_RefreshRateInHz;
244     localParameters.PresentationInterval           = &pPresentationParameters->FullScreen_PresentationInterval;
245
246
247     hrc = IWineD3DDevice_CreateAdditionalSwapChain(This->WineD3DDevice, &localParameters, &object->wineD3DSwapChain, (IUnknown*)object, D3D8CB_CreateRenderTarget, D3D8CB_CreateDepthStencilSurface);
248     if (hrc != D3D_OK) {
249         FIXME("(%p) call to IWineD3DDevice_CreateAdditionalSwapChain failed\n", This);
250         HeapFree(GetProcessHeap(), 0 , object);
251         *pSwapChain = NULL;
252     }else{
253         IUnknown_AddRef(iface);
254         object->parentDevice = iface;
255         *pSwapChain = (IDirect3DSwapChain8 *)object;
256     }
257     TRACE("(%p) returning %p\n", This, *pSwapChain);
258     return hrc;
259 }
260
261 static HRESULT WINAPI IDirect3DDevice8Impl_Reset(LPDIRECT3DDEVICE8 iface, D3DPRESENT_PARAMETERS* pPresentationParameters) {
262     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
263     WINED3DPRESENT_PARAMETERS localParameters;
264     TRACE("(%p) Relay pPresentationParameters(%p)\n", This, pPresentationParameters);
265 /* FINDME: FIXME: */
266     localParameters.BackBufferWidth                = &pPresentationParameters->BackBufferWidth;
267     localParameters.BackBufferHeight               = &pPresentationParameters->BackBufferHeight;
268     localParameters.BackBufferFormat               = (WINED3DFORMAT *)&pPresentationParameters->BackBufferFormat;
269     localParameters.BackBufferCount                = &pPresentationParameters->BackBufferCount;
270     localParameters.MultiSampleType                = (WINED3DMULTISAMPLE_TYPE *) &pPresentationParameters->MultiSampleType;
271     localParameters.MultiSampleQuality             = NULL; /* D3d9 only */
272     localParameters.SwapEffect                     = (WINED3DSWAPEFFECT *) &pPresentationParameters->SwapEffect;
273     localParameters.hDeviceWindow                  = &pPresentationParameters->hDeviceWindow;
274     localParameters.Windowed                       = &pPresentationParameters->Windowed;
275     localParameters.EnableAutoDepthStencil         = &pPresentationParameters->EnableAutoDepthStencil;
276     localParameters.AutoDepthStencilFormat         = (WINED3DFORMAT *)&pPresentationParameters->AutoDepthStencilFormat;
277     localParameters.Flags                          = &pPresentationParameters->Flags;
278     localParameters.FullScreen_RefreshRateInHz     = &pPresentationParameters->FullScreen_RefreshRateInHz;
279     localParameters.PresentationInterval           = &pPresentationParameters->FullScreen_PresentationInterval;
280     return IWineD3DDevice_Reset(This->WineD3DDevice, &localParameters);
281 }
282
283 static HRESULT WINAPI IDirect3DDevice8Impl_Present(LPDIRECT3DDEVICE8 iface, CONST RECT* pSourceRect,CONST RECT* pDestRect,HWND hDestWindowOverride,CONST RGNDATA* pDirtyRegion) {
284     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
285     TRACE("(%p) Relay\n", This);
286     return IWineD3DDevice_Present(This->WineD3DDevice, pSourceRect, pDestRect, hDestWindowOverride, pDirtyRegion);
287 }
288
289 static HRESULT WINAPI IDirect3DDevice8Impl_GetBackBuffer(LPDIRECT3DDEVICE8 iface, UINT BackBuffer, D3DBACKBUFFER_TYPE Type, IDirect3DSurface8** ppBackBuffer) {
290     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
291     IWineD3DSurface *retSurface = NULL;
292     HRESULT rc = D3D_OK;
293
294     TRACE("(%p) Relay\n", This);
295
296     rc = IWineD3DDevice_GetBackBuffer(This->WineD3DDevice, 0, BackBuffer, (WINED3DBACKBUFFER_TYPE) Type, (IWineD3DSurface **)&retSurface);
297     if (rc == D3D_OK && NULL != retSurface && NULL != ppBackBuffer) {
298         IWineD3DSurface_GetParent(retSurface, (IUnknown **)ppBackBuffer);
299         IWineD3DSurface_Release(retSurface);
300     }
301     return rc;
302 }
303
304 static HRESULT WINAPI IDirect3DDevice8Impl_GetRasterStatus(LPDIRECT3DDEVICE8 iface, D3DRASTER_STATUS* pRasterStatus) {
305     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
306     TRACE("(%p) Relay\n", This);
307
308     return IWineD3DDevice_GetRasterStatus(This->WineD3DDevice, 0, (WINED3DRASTER_STATUS *) pRasterStatus);
309 }
310
311 static void WINAPI IDirect3DDevice8Impl_SetGammaRamp(LPDIRECT3DDEVICE8 iface, DWORD Flags, CONST D3DGAMMARAMP* pRamp) {
312     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
313     TRACE("(%p) Relay\n", This);
314
315     /* Note: D3DGAMMARAMP is compatible with WINED3DGAMMARAMP */
316     return IWineD3DDevice_SetGammaRamp(This->WineD3DDevice, 0, Flags, (CONST WINED3DGAMMARAMP *) pRamp);
317 }
318
319 static void WINAPI IDirect3DDevice8Impl_GetGammaRamp(LPDIRECT3DDEVICE8 iface, D3DGAMMARAMP* pRamp) {
320     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
321     TRACE("(%p) Relay\n", This);
322
323     /* Note: D3DGAMMARAMP is compatible with WINED3DGAMMARAMP */
324     return IWineD3DDevice_GetGammaRamp(This->WineD3DDevice, 0, (WINED3DGAMMARAMP *) pRamp);
325 }
326
327 static HRESULT WINAPI IDirect3DDevice8Impl_CreateTexture(LPDIRECT3DDEVICE8 iface, UINT Width, UINT Height, UINT Levels, DWORD Usage,
328                                                     D3DFORMAT Format, D3DPOOL Pool, IDirect3DTexture8 **ppTexture) {
329     IDirect3DTexture8Impl *object;
330     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
331     HRESULT hrc = D3D_OK;
332
333     TRACE("(%p) : W(%d) H(%d), Lvl(%d) d(%d), Fmt(%u), Pool(%d)\n", This, Width, Height, Levels, Usage, Format,  Pool);
334
335     /* Allocate the storage for the device */
336     object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDirect3DTexture8Impl));
337
338     if (NULL == object) {
339         FIXME("Allocation of memory failed\n");
340 /*        *ppTexture = NULL; */
341         return D3DERR_OUTOFVIDEOMEMORY;
342     }
343
344     object->lpVtbl = &Direct3DTexture8_Vtbl;
345     object->ref = 1;
346     hrc = IWineD3DDevice_CreateTexture(This->WineD3DDevice, Width, Height, Levels, Usage & WINED3DUSAGE_MASK,
347                                  (WINED3DFORMAT)Format, (WINED3DPOOL) Pool, &object->wineD3DTexture, NULL, (IUnknown *)object, D3D8CB_CreateSurface);
348
349     if (FAILED(hrc)) {
350         /* free up object */ 
351         FIXME("(%p) call to IWineD3DDevice_CreateTexture failed\n", This);
352         HeapFree(GetProcessHeap(), 0, object);
353 /*      *ppTexture = NULL; */
354    } else {
355         IUnknown_AddRef(iface);
356         object->parentDevice = iface;
357         *ppTexture = (LPDIRECT3DTEXTURE8) object;
358    }
359
360    TRACE("(%p) Created Texture %p, %p\n",This,object,object->wineD3DTexture);
361    return hrc;
362 }
363
364 static HRESULT WINAPI IDirect3DDevice8Impl_CreateVolumeTexture(LPDIRECT3DDEVICE8 iface, 
365                                                           UINT Width, UINT Height, UINT Depth, UINT Levels, DWORD Usage, 
366                                                           D3DFORMAT Format, D3DPOOL Pool, IDirect3DVolumeTexture8** ppVolumeTexture) {
367
368     IDirect3DVolumeTexture8Impl *object;
369     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
370     HRESULT hrc = D3D_OK;
371
372     TRACE("(%p) Relay\n", This);
373
374     /* Allocate the storage for the device */
375     object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDirect3DVolumeTexture8Impl));
376     if (NULL == object) {
377         FIXME("(%p) allocation of memory failed\n", This);
378         *ppVolumeTexture = NULL;
379         return D3DERR_OUTOFVIDEOMEMORY;
380     }
381
382     object->lpVtbl = &Direct3DVolumeTexture8_Vtbl;
383     object->ref = 1;
384     hrc = IWineD3DDevice_CreateVolumeTexture(This->WineD3DDevice, Width, Height, Depth, Levels, Usage & WINED3DUSAGE_MASK,
385                                  (WINED3DFORMAT)Format, (WINED3DPOOL) Pool, &object->wineD3DVolumeTexture, NULL,
386                                  (IUnknown *)object, D3D8CB_CreateVolume);
387
388     if (hrc != D3D_OK) {
389
390         /* free up object */
391         FIXME("(%p) call to IWineD3DDevice_CreateVolumeTexture failed\n", This);
392         HeapFree(GetProcessHeap(), 0, object);
393         *ppVolumeTexture = NULL;
394     } else {
395         IUnknown_AddRef(iface);
396         object->parentDevice = iface;
397         *ppVolumeTexture = (LPDIRECT3DVOLUMETEXTURE8) object;
398     }
399     TRACE("(%p)  returning %p\n", This , *ppVolumeTexture);
400     return hrc;
401 }
402
403 static HRESULT WINAPI IDirect3DDevice8Impl_CreateCubeTexture(LPDIRECT3DDEVICE8 iface, UINT EdgeLength, UINT Levels, DWORD Usage, 
404                                                         D3DFORMAT Format, D3DPOOL Pool, IDirect3DCubeTexture8** ppCubeTexture) {
405
406     IDirect3DCubeTexture8Impl *object;
407     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
408     HRESULT hr = D3D_OK;
409
410     TRACE("(%p) : ELen(%d) Lvl(%d) Usage(%d) fmt(%u), Pool(%d)\n" , This, EdgeLength, Levels, Usage, Format, Pool);
411
412     /* Allocate the storage for the device */
413     object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*object));
414
415     if (NULL == object) {
416         FIXME("(%p) allocation of CubeTexture failed\n", This);
417         *ppCubeTexture = NULL;
418         return D3DERR_OUTOFVIDEOMEMORY;
419     }
420
421     object->lpVtbl = &Direct3DCubeTexture8_Vtbl;
422     object->ref = 1;
423     hr = IWineD3DDevice_CreateCubeTexture(This->WineD3DDevice, EdgeLength, Levels, Usage & WINED3DUSAGE_MASK,
424                                  (WINED3DFORMAT)Format, (WINED3DPOOL) Pool, &object->wineD3DCubeTexture, NULL, (IUnknown*)object,
425                                  D3D8CB_CreateSurface);
426
427     if (hr != D3D_OK){
428
429         /* free up object */
430         FIXME("(%p) call to IWineD3DDevice_CreateCubeTexture failed\n", This);
431         HeapFree(GetProcessHeap(), 0, object);
432         *ppCubeTexture = NULL;
433     } else {
434         IUnknown_AddRef(iface);
435         object->parentDevice = iface;
436         *ppCubeTexture = (LPDIRECT3DCUBETEXTURE8) object;
437     }
438
439     TRACE("(%p) returning %p\n",This, *ppCubeTexture);
440     return hr;
441 }
442
443 static HRESULT WINAPI IDirect3DDevice8Impl_CreateVertexBuffer(LPDIRECT3DDEVICE8 iface, UINT Size, DWORD Usage, DWORD FVF, D3DPOOL Pool, IDirect3DVertexBuffer8** ppVertexBuffer) {
444     IDirect3DVertexBuffer8Impl *object;
445     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
446     HRESULT hrc = D3D_OK;
447
448     TRACE("(%p) Relay\n", This);
449     /* Allocate the storage for the device */
450     object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDirect3DVertexBuffer8Impl));
451     if (NULL == object) {
452         FIXME("Allocation of memory failed\n");
453         *ppVertexBuffer = NULL;
454         return D3DERR_OUTOFVIDEOMEMORY;
455     }
456
457     object->lpVtbl = &Direct3DVertexBuffer8_Vtbl;
458     object->ref = 1;
459     hrc = IWineD3DDevice_CreateVertexBuffer(This->WineD3DDevice, Size, Usage & WINED3DUSAGE_MASK, FVF, (WINED3DPOOL) Pool, &(object->wineD3DVertexBuffer), NULL, (IUnknown *)object);
460
461     if (D3D_OK != hrc) {
462
463         /* free up object */
464         FIXME("(%p) call to IWineD3DDevice_CreateVertexBuffer failed\n", This);
465         HeapFree(GetProcessHeap(), 0, object);
466         *ppVertexBuffer = NULL;
467     } else {
468         IUnknown_AddRef(iface);
469         object->parentDevice = iface;
470         *ppVertexBuffer = (LPDIRECT3DVERTEXBUFFER8) object;
471     }
472     return hrc;
473 }
474
475 static HRESULT WINAPI IDirect3DDevice8Impl_CreateIndexBuffer(LPDIRECT3DDEVICE8 iface, UINT Length, DWORD Usage, D3DFORMAT Format, D3DPOOL Pool, IDirect3DIndexBuffer8** ppIndexBuffer) {
476     IDirect3DIndexBuffer8Impl *object;
477     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
478     HRESULT hrc = D3D_OK;
479
480     TRACE("(%p) Relay\n", This);
481     /* Allocate the storage for the device */
482     object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*object));
483     if (NULL == object) {
484         FIXME("Allocation of memory failed\n");
485         *ppIndexBuffer = NULL;
486         return D3DERR_OUTOFVIDEOMEMORY;
487     }
488
489     object->lpVtbl = &Direct3DIndexBuffer8_Vtbl;
490     object->ref = 1;
491     TRACE("Calling wined3d create index buffer\n");
492     hrc = IWineD3DDevice_CreateIndexBuffer(This->WineD3DDevice, Length, Usage & WINED3DUSAGE_MASK, Format, (WINED3DPOOL) Pool, &object->wineD3DIndexBuffer, NULL, (IUnknown *)object);
493
494     if (D3D_OK != hrc) {
495
496         /* free up object */
497         FIXME("(%p) call to IWineD3DDevice_CreateIndexBuffer failed\n", This);
498         HeapFree(GetProcessHeap(), 0, object);
499         *ppIndexBuffer = NULL;
500     } else {
501         IUnknown_AddRef(iface);
502         object->parentDevice = iface;
503         *ppIndexBuffer = (LPDIRECT3DINDEXBUFFER8)object;
504     }
505     return hrc;
506 }
507
508 static HRESULT WINAPI IDirect3DDevice8Impl_CreateSurface(LPDIRECT3DDEVICE8 iface, UINT Width, UINT Height, D3DFORMAT Format, BOOL Lockable, BOOL Discard, UINT Level, IDirect3DSurface8 **ppSurface,D3DRESOURCETYPE Type, UINT Usage,D3DPOOL Pool, D3DMULTISAMPLE_TYPE MultiSample, DWORD MultisampleQuality)  {
509     HRESULT hrc;
510     IDirect3DSurface8Impl *object;
511     IDirect3DDevice8Impl  *This = (IDirect3DDevice8Impl *)iface;
512     TRACE("(%p) Relay\n", This);
513     if(MultisampleQuality < 0) { 
514         FIXME("MultisampleQuality out of range %d, substituting 0\n", MultisampleQuality);
515         /*FIXME: Find out what windows does with a MultisampleQuality < 0 */
516         MultisampleQuality=0;
517     }
518
519     if(MultisampleQuality > 0){
520         FIXME("MultisampleQuality set to %d, substituting 0\n" , MultisampleQuality);
521         /*
522         MultisampleQuality
523         [in] Quality level. The valid range is between zero and one less than the level returned by pQualityLevels used by IDirect3D8::CheckDeviceMultiSampleType. Passing a larger value returns the error D3DERR_INVALIDCALL. The MultisampleQuality values of paired render targets, depth stencil surfaces, and the MultiSample type must all match.
524         */
525         MultisampleQuality=0;
526     }
527     /*FIXME: Check MAX bounds of MultisampleQuality*/
528
529     /* Allocate the storage for the device */
530     object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDirect3DSurface8Impl));
531     if (NULL == object) {
532         FIXME("Allocation of memory failed\n");
533         *ppSurface = NULL;
534         return D3DERR_OUTOFVIDEOMEMORY;
535     }
536
537     object->lpVtbl = &Direct3DSurface8_Vtbl;
538     object->ref = 1;
539
540     TRACE("(%p) : w(%d) h(%d) fmt(%d) surf@%p\n", This, Width, Height, Format, *ppSurface);
541
542     hrc = IWineD3DDevice_CreateSurface(This->WineD3DDevice, Width, Height, Format, Lockable, Discard, Level,  &object->wineD3DSurface, Type, Usage & WINED3DUSAGE_MASK, (WINED3DPOOL) Pool,MultiSample,MultisampleQuality, NULL, SURFACE_OPENGL, (IUnknown *)object);
543     if (hrc != D3D_OK || NULL == object->wineD3DSurface) {
544        /* free up object */
545         FIXME("(%p) call to IWineD3DDevice_CreateSurface failed\n", This);
546         HeapFree(GetProcessHeap(), 0, object);
547         *ppSurface = NULL;
548     } else {
549         IUnknown_AddRef(iface);
550         object->parentDevice = iface;
551         *ppSurface = (LPDIRECT3DSURFACE8) object;
552     }
553     return hrc;
554 }
555
556 static HRESULT WINAPI IDirect3DDevice8Impl_CreateRenderTarget(LPDIRECT3DDEVICE8 iface, UINT Width, UINT Height, D3DFORMAT Format, D3DMULTISAMPLE_TYPE MultiSample, BOOL Lockable, IDirect3DSurface8** ppSurface) {
557     TRACE("Relay\n");
558
559     return IDirect3DDevice8Impl_CreateSurface(iface, Width, Height, Format, Lockable, FALSE /* Discard */, 0 /* Level */ , ppSurface, D3DRTYPE_SURFACE, D3DUSAGE_RENDERTARGET, D3DPOOL_DEFAULT, MultiSample, 0);
560 }
561
562 static HRESULT WINAPI IDirect3DDevice8Impl_CreateDepthStencilSurface(LPDIRECT3DDEVICE8 iface, UINT Width, UINT Height, D3DFORMAT Format, D3DMULTISAMPLE_TYPE MultiSample, IDirect3DSurface8** ppSurface) {
563     TRACE("Relay\n");
564     /* TODO: Verify that Discard is false */
565     return IDirect3DDevice8Impl_CreateSurface(iface, Width, Height, Format, TRUE /* Lockable */, FALSE, 0 /* Level */
566                                                ,ppSurface, D3DRTYPE_SURFACE, D3DUSAGE_DEPTHSTENCIL,
567                                                 D3DPOOL_DEFAULT, MultiSample, 0);
568 }
569
570 static HRESULT WINAPI IDirect3DDevice8Impl_CreateImageSurface(LPDIRECT3DDEVICE8 iface, UINT Width, UINT Height, D3DFORMAT Format, IDirect3DSurface8** ppSurface) {
571     TRACE("Relay\n");
572
573     return IDirect3DDevice8Impl_CreateSurface(iface, Width, Height, Format, TRUE /* Loackable */ , FALSE /*Discard*/ , 0 /* Level */ , ppSurface, D3DRTYPE_SURFACE, 0 /* Usage (undefined/none) */ , D3DPOOL_SCRATCH, D3DMULTISAMPLE_NONE, 0 /* MultisampleQuality */);
574 }
575
576 static HRESULT WINAPI IDirect3DDevice8Impl_CopyRects(LPDIRECT3DDEVICE8 iface, IDirect3DSurface8 *pSourceSurface, CONST RECT *pSourceRects, UINT cRects, IDirect3DSurface8 *pDestinationSurface, CONST POINT *pDestPoints) {
577     IDirect3DSurface8Impl *Source = (IDirect3DSurface8Impl *) pSourceSurface;
578     IDirect3DSurface8Impl *Dest = (IDirect3DSurface8Impl *) pDestinationSurface;
579
580     HRESULT              hr = WINED3D_OK;
581     WINED3DFORMAT        srcFormat, destFormat;
582     UINT                 srcWidth,  destWidth;
583     UINT                 srcHeight, destHeight;
584     UINT                 srcSize;
585     WINED3DSURFACE_DESC  winedesc;
586
587     TRACE("(%p) pSrcSur=%p, pSourceRects=%p, cRects=%d, pDstSur=%p, pDestPtsArr=%p\n", iface,
588           pSourceSurface, pSourceRects, cRects, pDestinationSurface, pDestPoints);
589
590
591     /* Check that the source texture is in WINED3DPOOL_SYSTEMMEM and the destination texture is in WINED3DPOOL_DEFAULT */
592     memset(&winedesc, 0, sizeof(winedesc));
593
594     winedesc.Format = &srcFormat;
595     winedesc.Width  = &srcWidth;
596     winedesc.Height = &srcHeight;
597     winedesc.Size   = &srcSize;
598     IWineD3DSurface_GetDesc(Source->wineD3DSurface, &winedesc);
599
600     winedesc.Format = &destFormat;
601     winedesc.Width  = &destWidth;
602     winedesc.Height = &destHeight;
603     winedesc.Size   = NULL;
604     IWineD3DSurface_GetDesc(Dest->wineD3DSurface, &winedesc);
605
606     /* Check that the source and destination formats match */
607     if (srcFormat != destFormat && WINED3DFMT_UNKNOWN != destFormat) {
608         WARN("(%p) source %p format must match the dest %p format, returning WINED3DERR_INVALIDCALL\n", iface, pSourceSurface, pDestinationSurface);
609         return WINED3DERR_INVALIDCALL;
610     } else if (WINED3DFMT_UNKNOWN == destFormat) {
611         TRACE("(%p) : Converting destination surface from WINED3DFMT_UNKNOWN to the source format\n", iface);
612         IWineD3DSurface_SetFormat(Dest->wineD3DSurface, srcFormat);
613         destFormat = srcFormat;
614     }
615
616     /* Quick if complete copy ... */
617     if (cRects == 0 && pSourceRects == NULL && pDestPoints == NULL) {
618         IWineD3DSurface_BltFast(Dest->wineD3DSurface, 0, 0, Source->wineD3DSurface, NULL, DDBLTFAST_NOCOLORKEY);
619     } else {
620         unsigned int i;
621         /* Copy rect by rect */
622         if (NULL != pSourceRects && NULL != pDestPoints) {
623             for (i = 0; i < cRects; ++i) {
624                 IWineD3DSurface_BltFast(Dest->wineD3DSurface, pDestPoints[i].x, pDestPoints[i].y, Source->wineD3DSurface, (RECT *) &pSourceRects[i], DDBLTFAST_NOCOLORKEY);
625             }
626         } else {
627             for (i = 0; i < cRects; ++i) {
628                 IWineD3DSurface_BltFast(Dest->wineD3DSurface, 0, 0, Source->wineD3DSurface, (RECT *) &pSourceRects[i], DDBLTFAST_NOCOLORKEY);
629             }
630         }
631     }
632
633     return hr;
634 }
635
636 static HRESULT WINAPI IDirect3DDevice8Impl_UpdateTexture(LPDIRECT3DDEVICE8 iface, IDirect3DBaseTexture8* pSourceTexture, IDirect3DBaseTexture8* pDestinationTexture) {
637     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
638     TRACE("(%p) Relay\n" , This);
639
640     return IWineD3DDevice_UpdateTexture(This->WineD3DDevice,  ((IDirect3DBaseTexture8Impl *)pSourceTexture)->wineD3DBaseTexture, ((IDirect3DBaseTexture8Impl *)pDestinationTexture)->wineD3DBaseTexture);
641 }
642
643 static HRESULT WINAPI IDirect3DDevice8Impl_GetFrontBuffer(LPDIRECT3DDEVICE8 iface, IDirect3DSurface8* pDestSurface) {
644     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
645     IDirect3DSurface8Impl *destSurface = (IDirect3DSurface8Impl *)pDestSurface;
646
647     TRACE("(%p) Relay\n" , This);
648
649     if (pDestSurface == NULL) {
650         WARN("(%p) : Caller passed NULL as pDestSurface returning D3DERR_INVALIDCALL\n", This);
651         return D3DERR_INVALIDCALL;
652     }
653
654     return IWineD3DDevice_GetFrontBufferData(This->WineD3DDevice, 0, destSurface->wineD3DSurface);
655 }
656
657 static HRESULT WINAPI IDirect3DDevice8Impl_SetRenderTarget(LPDIRECT3DDEVICE8 iface, IDirect3DSurface8* pRenderTarget, IDirect3DSurface8* pNewZStencil) {
658     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
659     IDirect3DSurface8Impl *pSurface = (IDirect3DSurface8Impl *)pRenderTarget;
660     IDirect3DSurface8Impl *pZSurface = (IDirect3DSurface8Impl *)pNewZStencil;
661     TRACE("(%p) Relay\n" , This);
662
663     IWineD3DDevice_SetDepthStencilSurface(This->WineD3DDevice, NULL == pZSurface ? NULL : (IWineD3DSurface *)pZSurface->wineD3DSurface);
664
665     return IWineD3DDevice_SetRenderTarget(This->WineD3DDevice, 0, pSurface ? (IWineD3DSurface *)pSurface->wineD3DSurface : NULL);
666 }
667
668 static HRESULT  WINAPI  IDirect3DDevice8Impl_GetRenderTarget(LPDIRECT3DDEVICE8 iface, IDirect3DSurface8** ppRenderTarget) {
669     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
670     HRESULT hr = D3D_OK;
671     IWineD3DSurface *pRenderTarget;
672
673     TRACE("(%p) Relay\n" , This);
674
675     if (ppRenderTarget == NULL) {
676         return D3DERR_INVALIDCALL;
677     }
678     hr = IWineD3DDevice_GetRenderTarget(This->WineD3DDevice, 0, &pRenderTarget);
679
680     if (hr == D3D_OK && pRenderTarget != NULL) {
681         IWineD3DResource_GetParent((IWineD3DResource *)pRenderTarget,(IUnknown**)ppRenderTarget);
682         IWineD3DResource_Release((IWineD3DResource *)pRenderTarget);
683     } else {
684         FIXME("Call to IWineD3DDevice_GetRenderTarget failed\n");
685         *ppRenderTarget = NULL;
686     }
687
688     return hr;
689 }
690
691 static HRESULT  WINAPI  IDirect3DDevice8Impl_GetDepthStencilSurface(LPDIRECT3DDEVICE8 iface, IDirect3DSurface8** ppZStencilSurface) {
692     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
693     HRESULT hr = D3D_OK;
694     IWineD3DSurface *pZStencilSurface;
695
696     TRACE("(%p) Relay\n" , This);
697     if(ppZStencilSurface == NULL){
698         return D3DERR_INVALIDCALL;
699     }
700
701     hr=IWineD3DDevice_GetDepthStencilSurface(This->WineD3DDevice,&pZStencilSurface);
702     if(hr == D3D_OK && pZStencilSurface != NULL){
703         IWineD3DResource_GetParent((IWineD3DResource *)pZStencilSurface,(IUnknown**)ppZStencilSurface);
704         IWineD3DResource_Release((IWineD3DResource *)pZStencilSurface);
705     }else{
706         FIXME("Call to IWineD3DDevice_GetDepthStencilSurface failed\n");
707         *ppZStencilSurface = NULL;
708     }
709
710     return D3D_OK;
711 }
712
713 static HRESULT WINAPI IDirect3DDevice8Impl_BeginScene(LPDIRECT3DDEVICE8 iface) {
714     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
715     return IWineD3DDevice_BeginScene(This->WineD3DDevice);
716 }
717
718 static HRESULT WINAPI IDirect3DDevice8Impl_EndScene(LPDIRECT3DDEVICE8 iface) {
719     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
720     TRACE("(%p) Relay\n" , This);
721
722     return IWineD3DDevice_EndScene(This->WineD3DDevice);
723 }
724
725 static HRESULT WINAPI IDirect3DDevice8Impl_Clear(LPDIRECT3DDEVICE8 iface, DWORD Count, CONST D3DRECT* pRects, DWORD Flags, D3DCOLOR Color, float Z, DWORD Stencil) {
726     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
727     TRACE("(%p) Relay\n" , This);
728
729     /* Note: D3DRECT is compatible with WINED3DRECT */
730     return IWineD3DDevice_Clear(This->WineD3DDevice, Count, (CONST WINED3DRECT*) pRects, Flags, Color, Z, Stencil);
731 }
732
733 static HRESULT WINAPI IDirect3DDevice8Impl_SetTransform(LPDIRECT3DDEVICE8 iface, D3DTRANSFORMSTATETYPE State, CONST D3DMATRIX* lpMatrix) {
734     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
735     TRACE("(%p) Relay\n" , This);
736
737     /* Note: D3DMATRIX is compatible with WINED3DMATRIX */
738     return IWineD3DDevice_SetTransform(This->WineD3DDevice, State, (CONST WINED3DMATRIX*) lpMatrix);
739 }
740
741 static HRESULT WINAPI IDirect3DDevice8Impl_GetTransform(LPDIRECT3DDEVICE8 iface, D3DTRANSFORMSTATETYPE State,D3DMATRIX* pMatrix) {
742     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
743     TRACE("(%p) Relay\n" , This);
744
745     /* Note: D3DMATRIX is compatible with WINED3DMATRIX */
746     return IWineD3DDevice_GetTransform(This->WineD3DDevice, State, (WINED3DMATRIX*) pMatrix);
747 }
748
749 static HRESULT WINAPI IDirect3DDevice8Impl_MultiplyTransform(LPDIRECT3DDEVICE8 iface, D3DTRANSFORMSTATETYPE State, CONST D3DMATRIX* pMatrix) {
750     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
751     TRACE("(%p) Relay\n" , This);
752
753     /* Note: D3DMATRIX is compatible with WINED3DMATRIX */
754     return IWineD3DDevice_MultiplyTransform(This->WineD3DDevice, State, (CONST WINED3DMATRIX*) pMatrix);
755 }
756
757 static HRESULT WINAPI IDirect3DDevice8Impl_SetViewport(LPDIRECT3DDEVICE8 iface, CONST D3DVIEWPORT8* pViewport) {
758     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
759     TRACE("(%p) Relay\n" , This);
760
761     /* Note: D3DVIEWPORT8 is compatible with WINED3DVIEWPORT */
762     return IWineD3DDevice_SetViewport(This->WineD3DDevice, (const WINED3DVIEWPORT *)pViewport);
763 }
764
765 static HRESULT WINAPI IDirect3DDevice8Impl_GetViewport(LPDIRECT3DDEVICE8 iface, D3DVIEWPORT8* pViewport) {
766     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
767     TRACE("(%p) Relay\n" , This);
768
769     /* Note: D3DVIEWPORT8 is compatible with WINED3DVIEWPORT */
770     return IWineD3DDevice_GetViewport(This->WineD3DDevice, (WINED3DVIEWPORT *)pViewport);
771 }
772
773 static HRESULT WINAPI IDirect3DDevice8Impl_SetMaterial(LPDIRECT3DDEVICE8 iface, CONST D3DMATERIAL8* pMaterial) {
774     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
775     TRACE("(%p) Relay\n" , This);
776
777     /* Note: D3DMATERIAL8 is compatible with WINED3DMATERIAL */
778     return IWineD3DDevice_SetMaterial(This->WineD3DDevice, (const WINED3DMATERIAL *)pMaterial);
779 }
780
781 static HRESULT WINAPI IDirect3DDevice8Impl_GetMaterial(LPDIRECT3DDEVICE8 iface, D3DMATERIAL8* pMaterial) {
782     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
783     TRACE("(%p) Relay\n" , This);
784
785     /* Note: D3DMATERIAL8 is compatible with WINED3DMATERIAL */
786     return IWineD3DDevice_GetMaterial(This->WineD3DDevice, (WINED3DMATERIAL *)pMaterial);
787 }
788
789 static HRESULT WINAPI IDirect3DDevice8Impl_SetLight(LPDIRECT3DDEVICE8 iface, DWORD Index, CONST D3DLIGHT8* pLight) {
790     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
791     TRACE("(%p) Relay\n" , This);
792  
793     /* Note: D3DLIGHT8 is compatible with WINED3DLIGHT */
794     return IWineD3DDevice_SetLight(This->WineD3DDevice, Index, (const WINED3DLIGHT *)pLight);
795 }
796
797 static HRESULT WINAPI IDirect3DDevice8Impl_GetLight(LPDIRECT3DDEVICE8 iface, DWORD Index,D3DLIGHT8* pLight) {
798     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
799     TRACE("(%p) Relay\n" , This);
800
801     /* Note: D3DLIGHT8 is compatible with WINED3DLIGHT */
802     return IWineD3DDevice_GetLight(This->WineD3DDevice, Index, (WINED3DLIGHT *)pLight);
803 }
804
805 static HRESULT WINAPI IDirect3DDevice8Impl_LightEnable(LPDIRECT3DDEVICE8 iface, DWORD Index,BOOL Enable) {
806     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
807     TRACE("(%p) Relay\n" , This);
808
809     return IWineD3DDevice_SetLightEnable(This->WineD3DDevice, Index, Enable);
810 }
811
812 static HRESULT WINAPI IDirect3DDevice8Impl_GetLightEnable(LPDIRECT3DDEVICE8 iface, DWORD Index,BOOL* pEnable) {
813     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
814     TRACE("(%p) Relay\n" , This);
815
816     return IWineD3DDevice_GetLightEnable(This->WineD3DDevice, Index, pEnable);
817 }
818
819 static HRESULT WINAPI IDirect3DDevice8Impl_SetClipPlane(LPDIRECT3DDEVICE8 iface, DWORD Index,CONST float* pPlane) {
820     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
821     TRACE("(%p) Relay\n" , This);
822
823     return IWineD3DDevice_SetClipPlane(This->WineD3DDevice, Index, pPlane);
824 }
825
826 static HRESULT WINAPI IDirect3DDevice8Impl_GetClipPlane(LPDIRECT3DDEVICE8 iface, DWORD Index,float* pPlane) {
827     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
828     TRACE("(%p) Relay\n" , This);
829
830     return IWineD3DDevice_GetClipPlane(This->WineD3DDevice, Index, pPlane);
831 }
832
833 static HRESULT WINAPI IDirect3DDevice8Impl_SetRenderState(LPDIRECT3DDEVICE8 iface, D3DRENDERSTATETYPE State,DWORD Value) {
834     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
835     TRACE("(%p) Relay\n" , This);
836
837     return IWineD3DDevice_SetRenderState(This->WineD3DDevice, State, Value);
838 }
839
840 static HRESULT WINAPI IDirect3DDevice8Impl_GetRenderState(LPDIRECT3DDEVICE8 iface, D3DRENDERSTATETYPE State,DWORD* pValue) {
841     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
842     TRACE("(%p) Relay\n" , This);
843
844     return IWineD3DDevice_GetRenderState(This->WineD3DDevice, State, pValue);
845 }
846
847 static HRESULT WINAPI IDirect3DDevice8Impl_BeginStateBlock(LPDIRECT3DDEVICE8 iface) {
848   IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
849
850   TRACE("(%p)\n", This);
851
852   return IWineD3DDevice_BeginStateBlock(This->WineD3DDevice);
853 }
854
855 static HRESULT WINAPI IDirect3DDevice8Impl_EndStateBlock(LPDIRECT3DDEVICE8 iface, DWORD* pToken) {
856     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
857     HRESULT hr;
858     IWineD3DStateBlock* wineD3DStateBlock;
859     IDirect3DStateBlock8Impl* object;
860
861     TRACE("(%p) Relay\n", This);
862
863     /* Tell wineD3D to endstatablock before anything else (in case we run out
864      * of memory later and cause locking problems)
865      */
866     hr = IWineD3DDevice_EndStateBlock(This->WineD3DDevice , &wineD3DStateBlock);
867     if (hr != D3D_OK) {
868        FIXME("IWineD3DDevice_EndStateBlock returned an error\n");
869        return hr;
870     }
871
872     /* allocate a new IDirectD3DStateBlock */
873     object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY ,sizeof(IDirect3DStateBlock8Impl));
874     object->ref = 1;
875     object->lpVtbl = &Direct3DStateBlock8_Vtbl;
876
877     object->wineD3DStateBlock = wineD3DStateBlock;
878
879     *pToken = (DWORD)object;
880     TRACE("(%p)Returning %p %p\n", This, object, wineD3DStateBlock);
881
882     return hr;
883 }
884
885 static HRESULT WINAPI IDirect3DDevice8Impl_ApplyStateBlock(LPDIRECT3DDEVICE8 iface, DWORD Token) {
886     IDirect3DStateBlock8Impl *pSB  = (IDirect3DStateBlock8Impl*) Token;
887     IDirect3DDevice8Impl     *This = (IDirect3DDevice8Impl *)iface;
888
889     TRACE("(%p) %p Relay\n", This, pSB);
890
891     return  IWineD3DStateBlock_Apply(pSB->wineD3DStateBlock);
892 }
893
894 static HRESULT WINAPI IDirect3DDevice8Impl_CaptureStateBlock(LPDIRECT3DDEVICE8 iface, DWORD Token) {
895     IDirect3DStateBlock8Impl* pSB = (IDirect3DStateBlock8Impl *)Token;
896     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
897
898     TRACE("(%p) %p Relay\n", This, pSB);
899
900     return IWineD3DStateBlock_Capture(pSB->wineD3DStateBlock);
901 }
902
903 static HRESULT WINAPI IDirect3DDevice8Impl_DeleteStateBlock(LPDIRECT3DDEVICE8 iface, DWORD Token) {
904     IDirect3DStateBlock8Impl* pSB = (IDirect3DStateBlock8Impl *)Token;
905     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
906
907     TRACE("(%p) Relay\n", This);
908
909     while(IUnknown_Release((IUnknown *)pSB));
910
911     return D3D_OK;
912 }
913
914 static HRESULT WINAPI IDirect3DDevice8Impl_CreateStateBlock(LPDIRECT3DDEVICE8 iface, D3DSTATEBLOCKTYPE Type, DWORD* pToken) {
915    IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
916    IDirect3DStateBlock8Impl *object;
917    HRESULT hrc = D3D_OK;
918
919    TRACE("(%p) Relay\n", This);
920
921    object  = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDirect3DStateBlock8Impl));
922    if (NULL == object) {
923       *pToken = 0;
924       return E_OUTOFMEMORY;
925    }
926    object->lpVtbl = &Direct3DStateBlock8_Vtbl;
927    object->ref = 1;
928
929    hrc = IWineD3DDevice_CreateStateBlock(This->WineD3DDevice, (WINED3DSTATEBLOCKTYPE)Type, &object->wineD3DStateBlock, (IUnknown *)object);
930    if(D3D_OK != hrc){
931        FIXME("(%p) Call to IWineD3DDevice_CreateStateBlock failed.\n", This);
932        HeapFree(GetProcessHeap(), 0, object);
933        *pToken = 0;
934    } else {
935        *pToken = (DWORD)object;
936    }
937    TRACE("(%p) returning token (ptr to stateblock) of %p\n", This, object);
938
939    return hrc;
940 }
941
942 static HRESULT WINAPI IDirect3DDevice8Impl_SetClipStatus(LPDIRECT3DDEVICE8 iface, CONST D3DCLIPSTATUS8* pClipStatus) {
943     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
944     TRACE("(%p) Relay\n" , This);
945 /* FIXME: Verify that D3DCLIPSTATUS8 ~= WINED3DCLIPSTATUS */
946     return IWineD3DDevice_SetClipStatus(This->WineD3DDevice, (const WINED3DCLIPSTATUS *)pClipStatus);
947 }
948
949 static HRESULT WINAPI IDirect3DDevice8Impl_GetClipStatus(LPDIRECT3DDEVICE8 iface, D3DCLIPSTATUS8* pClipStatus) {
950     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
951     TRACE("(%p) Relay\n" , This);
952
953     return IWineD3DDevice_GetClipStatus(This->WineD3DDevice, (WINED3DCLIPSTATUS *)pClipStatus);
954 }
955
956 static HRESULT WINAPI IDirect3DDevice8Impl_GetTexture(LPDIRECT3DDEVICE8 iface, DWORD Stage,IDirect3DBaseTexture8** ppTexture) {
957     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
958     IWineD3DBaseTexture *retTexture = NULL;
959     HRESULT rc = D3D_OK;
960
961     TRACE("(%p) Relay\n" , This);
962
963     if(ppTexture == NULL){
964         return D3DERR_INVALIDCALL;
965     }
966
967     rc = IWineD3DDevice_GetTexture(This->WineD3DDevice, Stage, (IWineD3DBaseTexture **)&retTexture);
968     if (rc == D3D_OK && NULL != retTexture) {
969         IWineD3DBaseTexture_GetParent(retTexture, (IUnknown **)ppTexture);
970         IWineD3DBaseTexture_Release(retTexture);
971     } else {
972         FIXME("Call to get texture  (%d) failed (%p)\n", Stage, retTexture);
973         *ppTexture = NULL;
974     }
975
976     return rc;
977 }
978
979 static HRESULT WINAPI IDirect3DDevice8Impl_SetTexture(LPDIRECT3DDEVICE8 iface, DWORD Stage, IDirect3DBaseTexture8* pTexture) {
980     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
981     TRACE("(%p) Relay %d %p\n" , This, Stage, pTexture);
982
983     return IWineD3DDevice_SetTexture(This->WineD3DDevice, Stage,
984                                      pTexture==NULL ? NULL : ((IDirect3DBaseTexture8Impl *)pTexture)->wineD3DBaseTexture);
985 }
986
987 static HRESULT  WINAPI  IDirect3DDevice8Impl_GetTextureStageState(LPDIRECT3DDEVICE8 iface, DWORD Stage,D3DTEXTURESTAGESTATETYPE Type,DWORD* pValue) {
988     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
989     TRACE("(%p) Relay\n" , This);
990
991     switch(Type) {
992     case D3DTSS_ADDRESSU:
993         Type = WINED3DSAMP_ADDRESSU;
994         break;
995     case D3DTSS_ADDRESSV:
996         Type = WINED3DSAMP_ADDRESSV;
997         break;
998     case D3DTSS_ADDRESSW:
999         Type = WINED3DSAMP_ADDRESSW;
1000         break;
1001     case D3DTSS_BORDERCOLOR:
1002         Type = WINED3DSAMP_BORDERCOLOR;
1003         break;
1004     case D3DTSS_MAGFILTER:
1005         Type = WINED3DSAMP_MAGFILTER;
1006         break;
1007     case D3DTSS_MAXANISOTROPY:
1008         Type = WINED3DSAMP_MAXANISOTROPY;
1009         break;
1010     case D3DTSS_MAXMIPLEVEL:
1011         Type = WINED3DSAMP_MAXMIPLEVEL;
1012         break;
1013     case D3DTSS_MINFILTER:
1014         Type = WINED3DSAMP_MINFILTER;
1015         break;
1016     case D3DTSS_MIPFILTER:
1017         Type = WINED3DSAMP_MIPFILTER;
1018         break;
1019     case D3DTSS_MIPMAPLODBIAS:
1020         Type = WINED3DSAMP_MIPMAPLODBIAS;
1021         break;
1022     default:
1023         return IWineD3DDevice_GetTextureStageState(This->WineD3DDevice, Stage, Type, pValue);
1024     }
1025
1026     return IWineD3DDevice_GetSamplerState(This->WineD3DDevice, Stage, Type, pValue);
1027 }
1028
1029 static HRESULT WINAPI IDirect3DDevice8Impl_SetTextureStageState(LPDIRECT3DDEVICE8 iface, DWORD Stage, D3DTEXTURESTAGESTATETYPE Type, DWORD Value) {
1030     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1031     TRACE("(%p) Relay\n" , This);
1032
1033     switch(Type) {
1034     case D3DTSS_ADDRESSU:
1035         Type = WINED3DSAMP_ADDRESSU;
1036         break;
1037     case D3DTSS_ADDRESSV:
1038         Type = WINED3DSAMP_ADDRESSV;
1039         break;
1040     case D3DTSS_ADDRESSW:
1041         Type = WINED3DSAMP_ADDRESSW;
1042         break;
1043     case D3DTSS_BORDERCOLOR:
1044         Type = WINED3DSAMP_BORDERCOLOR;
1045         break;
1046     case D3DTSS_MAGFILTER:
1047         Type = WINED3DSAMP_MAGFILTER;
1048         break;
1049     case D3DTSS_MAXANISOTROPY:
1050         Type = WINED3DSAMP_MAXANISOTROPY;
1051         break;
1052     case D3DTSS_MAXMIPLEVEL:
1053         Type = WINED3DSAMP_MAXMIPLEVEL;
1054         break;
1055     case D3DTSS_MINFILTER:
1056         Type = WINED3DSAMP_MINFILTER;
1057         break;
1058     case D3DTSS_MIPFILTER:
1059         Type = WINED3DSAMP_MIPFILTER;
1060         break;
1061     case D3DTSS_MIPMAPLODBIAS:
1062         Type = WINED3DSAMP_MIPMAPLODBIAS;
1063         break;
1064     default:
1065         return IWineD3DDevice_SetTextureStageState(This->WineD3DDevice, Stage, Type, Value);
1066     }
1067
1068     return IWineD3DDevice_SetSamplerState(This->WineD3DDevice, Stage, Type, Value);
1069 }
1070
1071 static HRESULT WINAPI IDirect3DDevice8Impl_ValidateDevice(LPDIRECT3DDEVICE8 iface, DWORD* pNumPasses) {
1072     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1073     TRACE("(%p) Relay\n" , This);
1074
1075     return IWineD3DDevice_ValidateDevice(This->WineD3DDevice, pNumPasses);
1076 }
1077
1078 static HRESULT WINAPI IDirect3DDevice8Impl_GetInfo(LPDIRECT3DDEVICE8 iface, DWORD DevInfoID, void* pDevInfoStruct, DWORD DevInfoStructSize) {
1079     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1080     FIXME("(%p) : stub\n", This);
1081     return D3D_OK;
1082 }
1083
1084 static HRESULT WINAPI IDirect3DDevice8Impl_SetPaletteEntries(LPDIRECT3DDEVICE8 iface, UINT PaletteNumber, CONST PALETTEENTRY* pEntries) {
1085     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1086     TRACE("(%p) Relay\n" , This);
1087
1088     return IWineD3DDevice_SetPaletteEntries(This->WineD3DDevice, PaletteNumber, pEntries);
1089 }
1090
1091 static HRESULT WINAPI IDirect3DDevice8Impl_GetPaletteEntries(LPDIRECT3DDEVICE8 iface, UINT PaletteNumber, PALETTEENTRY* pEntries) {
1092     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1093     TRACE("(%p) Relay\n" , This);
1094
1095     return IWineD3DDevice_GetPaletteEntries(This->WineD3DDevice, PaletteNumber, pEntries);
1096 }
1097
1098 static HRESULT WINAPI IDirect3DDevice8Impl_SetCurrentTexturePalette(LPDIRECT3DDEVICE8 iface, UINT PaletteNumber) {
1099     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1100     TRACE("(%p) Relay\n" , This);
1101
1102     return IWineD3DDevice_SetCurrentTexturePalette(This->WineD3DDevice, PaletteNumber);
1103 }
1104
1105 static HRESULT  WINAPI  IDirect3DDevice8Impl_GetCurrentTexturePalette(LPDIRECT3DDEVICE8 iface, UINT *PaletteNumber) {
1106     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1107     TRACE("(%p) Relay\n" , This);
1108
1109     return IWineD3DDevice_GetCurrentTexturePalette(This->WineD3DDevice, PaletteNumber);
1110 }
1111
1112 static HRESULT WINAPI IDirect3DDevice8Impl_DrawPrimitive(LPDIRECT3DDEVICE8 iface, D3DPRIMITIVETYPE PrimitiveType, UINT StartVertex, UINT PrimitiveCount) {
1113     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface; 
1114     TRACE("(%p) Relay\n" , This);
1115
1116     return IWineD3DDevice_DrawPrimitive(This->WineD3DDevice, PrimitiveType, StartVertex, PrimitiveCount);
1117 }
1118
1119 static HRESULT WINAPI IDirect3DDevice8Impl_DrawIndexedPrimitive(LPDIRECT3DDEVICE8 iface, D3DPRIMITIVETYPE PrimitiveType,
1120                                                            UINT MinVertexIndex,UINT NumVertices,UINT startIndex,UINT primCount) {
1121     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1122     TRACE("(%p) Relay\n" , This);
1123
1124     return IWineD3DDevice_DrawIndexedPrimitive(This->WineD3DDevice, PrimitiveType, This->baseVertexIndex, MinVertexIndex, NumVertices, startIndex, primCount);
1125 }
1126
1127 static HRESULT WINAPI IDirect3DDevice8Impl_DrawPrimitiveUP(LPDIRECT3DDEVICE8 iface, D3DPRIMITIVETYPE PrimitiveType,UINT PrimitiveCount,CONST void* pVertexStreamZeroData,UINT VertexStreamZeroStride) {
1128     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1129     TRACE("(%p) Relay\n" , This);
1130
1131     return IWineD3DDevice_DrawPrimitiveUP(This->WineD3DDevice, PrimitiveType, PrimitiveCount, pVertexStreamZeroData, VertexStreamZeroStride);
1132 }
1133
1134 static HRESULT WINAPI IDirect3DDevice8Impl_DrawIndexedPrimitiveUP(LPDIRECT3DDEVICE8 iface, D3DPRIMITIVETYPE PrimitiveType,UINT MinVertexIndex,
1135                                                              UINT NumVertexIndices,UINT PrimitiveCount,CONST void* pIndexData,
1136                                                              D3DFORMAT IndexDataFormat,CONST void* pVertexStreamZeroData,
1137                                                              UINT VertexStreamZeroStride) {
1138     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1139     TRACE("(%p) Relay\n" , This);
1140
1141     return IWineD3DDevice_DrawIndexedPrimitiveUP(This->WineD3DDevice, PrimitiveType, MinVertexIndex, NumVertexIndices, PrimitiveCount,
1142                                                  pIndexData, IndexDataFormat, pVertexStreamZeroData, VertexStreamZeroStride);
1143 }
1144
1145 static HRESULT WINAPI IDirect3DDevice8Impl_ProcessVertices(LPDIRECT3DDEVICE8 iface, UINT SrcStartIndex,UINT DestIndex,UINT VertexCount,IDirect3DVertexBuffer8* pDestBuffer,DWORD Flags) {
1146     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1147     TRACE("(%p) Relay\n" , This);
1148
1149     return IWineD3DDevice_ProcessVertices(This->WineD3DDevice,SrcStartIndex, DestIndex, VertexCount, ((IDirect3DVertexBuffer8Impl *)pDestBuffer)->wineD3DVertexBuffer, NULL, Flags);
1150 }
1151
1152 static HRESULT WINAPI IDirect3DDevice8Impl_CreateVertexShader(LPDIRECT3DDEVICE8 iface, CONST DWORD* pDeclaration, CONST DWORD* pFunction, DWORD* ppShader, DWORD Usage) {
1153     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1154     HRESULT hrc = D3D_OK;
1155     IDirect3DVertexShader8Impl *object;
1156
1157     /* Setup a stub object for now */
1158     object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*object));
1159     TRACE("(%p) : pFunction(%p), ppShader(%p)\n", This, pFunction, ppShader);
1160     if (NULL == object) {
1161         FIXME("Allocation of memory failed\n");
1162         *ppShader = 0;
1163         return D3DERR_OUTOFVIDEOMEMORY;
1164     }
1165
1166     object->ref = 1;
1167     object->lpVtbl = &Direct3DVertexShader8_Vtbl;
1168     /* Usage is missing ..*/
1169     hrc = IWineD3DDevice_CreateVertexShader(This->WineD3DDevice, pDeclaration, pFunction, &object->wineD3DVertexShader, (IUnknown *)object);
1170
1171     if (FAILED(hrc)) {
1172         /* free up object */
1173         FIXME("Call to IWineD3DDevice_CreateVertexShader failed\n");
1174         HeapFree(GetProcessHeap(), 0, object);
1175         *ppShader = 0;
1176     } else {
1177         /* TODO: Store the VS declarations locally so that they can be derefferenced with a value higher than VS_HIGHESTFIXEDFXF */
1178         shader_handle *handle = alloc_shader_handle(This);
1179         if (!handle) {
1180             ERR("Failed to allocate shader handle\n");
1181             IDirect3DVertexShader8_Release((IUnknown *)object);
1182             hrc = E_OUTOFMEMORY;
1183         } else {
1184             object->handle = handle;
1185             *handle = object;
1186             *ppShader = (handle - This->shader_handles) + VS_HIGHESTFIXEDFXF + 1;
1187         }
1188     }
1189     TRACE("(%p) : returning %p (handle %#x)\n", This, object, *ppShader);
1190
1191     return hrc;
1192 }
1193
1194 static HRESULT WINAPI IDirect3DDevice8Impl_SetVertexShader(LPDIRECT3DDEVICE8 iface, DWORD pShader) {
1195     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1196     HRESULT hrc = D3D_OK;
1197
1198     TRACE("(%p) : Relay\n", This);
1199     if (VS_HIGHESTFIXEDFXF >= pShader) {
1200         TRACE("Setting FVF, %d %d\n", VS_HIGHESTFIXEDFXF, pShader);
1201         IWineD3DDevice_SetFVF(This->WineD3DDevice, pShader);
1202
1203         /* Call SetVertexShader with a NULL shader to set the vertexshader in the stateblock to NULL. */
1204         IWineD3DDevice_SetVertexShader(This->WineD3DDevice, NULL);
1205     } else {
1206         TRACE("Setting shader\n");
1207         if (This->allocated_shader_handles <= pShader - (VS_HIGHESTFIXEDFXF + 1)) {
1208             FIXME("(%p) : Number of shaders exceeds the maximum number of possible shaders\n", This);
1209             hrc = D3DERR_INVALIDCALL;
1210         } else {
1211             IDirect3DVertexShader8Impl *shader = This->shader_handles[pShader - (VS_HIGHESTFIXEDFXF + 1)];
1212             hrc =  IWineD3DDevice_SetVertexShader(This->WineD3DDevice, 0 == shader ? NULL : shader->wineD3DVertexShader);
1213         }
1214     }
1215     TRACE("(%p) : returning hr(%u)\n", This, hrc);
1216
1217     return hrc;
1218 }
1219
1220 static HRESULT WINAPI IDirect3DDevice8Impl_GetVertexShader(LPDIRECT3DDEVICE8 iface, DWORD* ppShader) {
1221     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1222     IWineD3DVertexShader *pShader;
1223     HRESULT hrc = D3D_OK;
1224
1225     TRACE("(%p) : Relay  device@%p\n", This, This->WineD3DDevice);
1226     hrc = IWineD3DDevice_GetVertexShader(This->WineD3DDevice, &pShader);
1227     if (D3D_OK == hrc) {
1228         if(0 != pShader) {
1229             IDirect3DVertexShader8Impl *d3d8_shader;
1230             hrc = IWineD3DVertexShader_GetParent(pShader, (IUnknown **)&d3d8_shader);
1231             IWineD3DVertexShader_Release(pShader);
1232             *ppShader = (d3d8_shader->handle - This->shader_handles) + (VS_HIGHESTFIXEDFXF + 1);
1233         } else {
1234             WARN("(%p) : The shader has been set to NULL\n", This);
1235
1236             /* TODO: Find out what should be returned, e.g. the FVF */
1237             *ppShader = 0;
1238             hrc = D3DERR_INVALIDCALL;
1239         }
1240     } else {
1241         WARN("(%p) : Call to IWineD3DDevice_GetVertexShader failed %u (device %p)\n", This, hrc, This->WineD3DDevice);
1242     }
1243     TRACE("(%p) : returning %#x\n", This, *ppShader);
1244
1245     return hrc;
1246 }
1247
1248 static HRESULT  WINAPI  IDirect3DDevice8Impl_DeleteVertexShader(LPDIRECT3DDEVICE8 iface, DWORD pShader) {
1249     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1250
1251     TRACE("(%p) : pShader %#x\n", This, pShader);
1252
1253     if (pShader <= VS_HIGHESTFIXEDFXF || This->allocated_shader_handles <= pShader - (VS_HIGHESTFIXEDFXF + 1)) {
1254         ERR("(%p) : Trying to delete an invalid handle\n", This);
1255         return D3DERR_INVALIDCALL;
1256     } else {
1257         shader_handle *handle = &This->shader_handles[pShader - (VS_HIGHESTFIXEDFXF + 1)];
1258         IDirect3DVertexShader8Impl *shader = *handle;
1259         while(IUnknown_Release((IUnknown *)shader));
1260         free_shader_handle(This, handle);
1261     }
1262
1263     return D3D_OK;
1264 }
1265
1266 static HRESULT WINAPI IDirect3DDevice8Impl_SetVertexShaderConstant(LPDIRECT3DDEVICE8 iface, DWORD Register, CONST void* pConstantData, DWORD ConstantCount) {
1267     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1268     TRACE("(%p) : Relay\n", This);
1269
1270     return IWineD3DDevice_SetVertexShaderConstantF(This->WineD3DDevice, Register, (CONST float *)pConstantData, ConstantCount);
1271 }
1272
1273 static HRESULT WINAPI IDirect3DDevice8Impl_GetVertexShaderConstant(LPDIRECT3DDEVICE8 iface, DWORD Register, void* pConstantData, DWORD ConstantCount) {
1274     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1275     TRACE("(%p) : Relay\n", This);
1276
1277     return IWineD3DDevice_GetVertexShaderConstantF(This->WineD3DDevice, Register, (float *)pConstantData, ConstantCount);
1278 }
1279
1280 static HRESULT WINAPI IDirect3DDevice8Impl_GetVertexShaderDeclaration(LPDIRECT3DDEVICE8 iface, DWORD pVertexShader, void* pData, DWORD* pSizeOfData) {
1281     IDirect3DVertexShader8Impl *This = (IDirect3DVertexShader8Impl *)pVertexShader;
1282
1283     TRACE("(%p) : Relay\n", This);
1284 /*    return IWineD3DVertexShader_GetDeclaration(This->wineD3DVertexShader, pData, (UINT *)pSizeOfData); */
1285     return D3DERR_INVALIDCALL;
1286 }
1287 static HRESULT WINAPI IDirect3DDevice8Impl_GetVertexShaderFunction(LPDIRECT3DDEVICE8 iface, DWORD pVertexShader, void* pData, DWORD* pSizeOfData) {
1288     IDirect3DVertexShader8Impl *This = (IDirect3DVertexShader8Impl *)pVertexShader;
1289
1290     TRACE("(%p) : Relay\n", This);
1291     return IWineD3DVertexShader_GetFunction(This->wineD3DVertexShader, pData, (UINT *)pSizeOfData);
1292 }
1293
1294 static HRESULT WINAPI IDirect3DDevice8Impl_SetIndices(LPDIRECT3DDEVICE8 iface, IDirect3DIndexBuffer8* pIndexData, UINT baseVertexIndex) {
1295     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1296     TRACE("(%p) Relay\n", This);
1297 /* FIXME: store base vertex index properly */
1298     This->baseVertexIndex = baseVertexIndex;
1299     return IWineD3DDevice_SetIndices(This->WineD3DDevice,
1300                                      NULL == pIndexData ? NULL : ((IDirect3DIndexBuffer8Impl *)pIndexData)->wineD3DIndexBuffer,
1301                                      0);
1302 }
1303
1304 static HRESULT WINAPI IDirect3DDevice8Impl_GetIndices(LPDIRECT3DDEVICE8 iface, IDirect3DIndexBuffer8** ppIndexData,UINT* pBaseVertexIndex) {
1305     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1306     IWineD3DIndexBuffer *retIndexData = NULL;
1307     HRESULT rc = D3D_OK;
1308     UINT tmp;
1309
1310     TRACE("(%p) Relay\n", This);
1311
1312     if(ppIndexData == NULL){
1313         return D3DERR_INVALIDCALL;
1314     }
1315
1316     rc = IWineD3DDevice_GetIndices(This->WineD3DDevice, &retIndexData, &tmp);
1317     if (D3D_OK == rc && NULL != retIndexData) {
1318         IWineD3DVertexBuffer_GetParent(retIndexData, (IUnknown **)ppIndexData);
1319         IWineD3DVertexBuffer_Release(retIndexData);
1320     } else {
1321         if(rc != D3D_OK)  FIXME("Call to GetIndices failed\n");
1322         *ppIndexData = NULL;
1323     }
1324 /* FIXME: store base vertex index properly */
1325     *pBaseVertexIndex = This->baseVertexIndex;
1326     return rc;
1327 }
1328 static HRESULT WINAPI IDirect3DDevice8Impl_CreatePixelShader(LPDIRECT3DDEVICE8 iface, CONST DWORD* pFunction, DWORD* ppShader) {
1329     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1330     IDirect3DPixelShader8Impl *object;
1331     HRESULT hrc = D3D_OK;
1332
1333     TRACE("(%p) : pFunction(%p), ppShader(%p)\n", This, pFunction, ppShader);
1334
1335     if (NULL == ppShader) {
1336         TRACE("(%p) Invalid call\n", This);
1337         return D3DERR_INVALIDCALL;
1338     }
1339     object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*object));
1340
1341     if (NULL == object) {
1342         return E_OUTOFMEMORY;
1343     } else {
1344
1345         object->ref    = 1;
1346         object->lpVtbl = &Direct3DPixelShader8_Vtbl;
1347         hrc = IWineD3DDevice_CreatePixelShader(This->WineD3DDevice, pFunction, &object->wineD3DPixelShader , (IUnknown *)object);
1348         if (D3D_OK != hrc) {
1349             FIXME("(%p) call to IWineD3DDevice_CreatePixelShader failed\n", This);
1350             HeapFree(GetProcessHeap(), 0 , object);
1351             *ppShader = 0;
1352         } else {
1353             shader_handle *handle = alloc_shader_handle(This);
1354             if (!handle) {
1355                 ERR("Failed to allocate shader handle\n");
1356                 IDirect3DVertexShader8_Release((IUnknown *)object);
1357                 hrc = E_OUTOFMEMORY;
1358             } else {
1359                 object->handle = handle;
1360                 *handle = object;
1361                 *ppShader = (handle - This->shader_handles) + VS_HIGHESTFIXEDFXF + 1;
1362             }
1363         }
1364
1365     }
1366
1367     TRACE("(%p) : returning %p (handle %#x)\n", This, object, *ppShader);
1368     return hrc;
1369 }
1370
1371 static HRESULT WINAPI IDirect3DDevice8Impl_SetPixelShader(LPDIRECT3DDEVICE8 iface, DWORD pShader) {
1372     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1373     IDirect3DPixelShader8Impl *shader = NULL;
1374
1375     TRACE("(%p) : pShader %#x\n", This, pShader);
1376
1377     if (pShader > VS_HIGHESTFIXEDFXF && This->allocated_shader_handles > pShader - (VS_HIGHESTFIXEDFXF + 1)) {
1378         shader = This->shader_handles[pShader - (VS_HIGHESTFIXEDFXF + 1)];
1379     } else if (pShader) {
1380         ERR("Trying to set an invalid handle.\n");
1381     }
1382
1383     TRACE("(%p) : Setting shader %p\n", This, shader);
1384     return IWineD3DDevice_SetPixelShader(This->WineD3DDevice, shader == NULL ? NULL :shader->wineD3DPixelShader);
1385 }
1386
1387 static HRESULT WINAPI IDirect3DDevice8Impl_GetPixelShader(LPDIRECT3DDEVICE8 iface, DWORD* ppShader) {
1388     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1389     IWineD3DPixelShader *object;
1390
1391     HRESULT hrc = D3D_OK;
1392     TRACE("(%p) Relay\n", This);
1393     if (NULL == ppShader) {
1394         TRACE("(%p) Invalid call\n", This);
1395         return D3DERR_INVALIDCALL;
1396     }
1397
1398     hrc = IWineD3DDevice_GetPixelShader(This->WineD3DDevice, &object);
1399     if (D3D_OK == hrc && NULL != object) {
1400         IDirect3DPixelShader8Impl *d3d8_shader;
1401         hrc = IWineD3DPixelShader_GetParent(object, (IUnknown **)&d3d8_shader);
1402         IWineD3DPixelShader_Release(object);
1403         *ppShader = (d3d8_shader->handle - This->shader_handles) + (VS_HIGHESTFIXEDFXF + 1);
1404     } else {
1405         *ppShader = (DWORD)NULL;
1406     }
1407
1408     TRACE("(%p) : returning %#x\n", This, *ppShader);
1409     return hrc;
1410 }
1411
1412 static HRESULT WINAPI IDirect3DDevice8Impl_DeletePixelShader(LPDIRECT3DDEVICE8 iface, DWORD pShader) {
1413     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1414
1415     TRACE("(%p) : pShader %#x\n", This, pShader);
1416
1417     if (pShader <= VS_HIGHESTFIXEDFXF || This->allocated_shader_handles <= pShader - (VS_HIGHESTFIXEDFXF + 1)) {
1418         ERR("(%p) : Trying to delete an invalid handle\n", This);
1419         return D3DERR_INVALIDCALL;
1420     } else {
1421         shader_handle *handle = &This->shader_handles[pShader - (VS_HIGHESTFIXEDFXF + 1)];
1422         IDirect3DPixelShader8Impl *shader = *handle;
1423         while(IUnknown_Release((IUnknown *)shader));
1424         free_shader_handle(This, handle);
1425     }
1426
1427     return D3D_OK;
1428 }
1429
1430 static HRESULT  WINAPI  IDirect3DDevice8Impl_SetPixelShaderConstant(LPDIRECT3DDEVICE8 iface, DWORD Register, CONST void* pConstantData, DWORD ConstantCount) {
1431     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1432     TRACE("(%p) Relay\n", This);
1433
1434     return IWineD3DDevice_SetPixelShaderConstantF(This->WineD3DDevice, Register, (CONST float *)pConstantData, ConstantCount);
1435 }
1436
1437 static HRESULT WINAPI IDirect3DDevice8Impl_GetPixelShaderConstant(LPDIRECT3DDEVICE8 iface, DWORD Register, void* pConstantData, DWORD ConstantCount) {
1438     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1439     TRACE("(%p) Relay\n", This);
1440
1441     return IWineD3DDevice_GetPixelShaderConstantF(This->WineD3DDevice, Register, (float *)pConstantData, ConstantCount);
1442 }
1443
1444 static HRESULT WINAPI IDirect3DDevice8Impl_GetPixelShaderFunction(LPDIRECT3DDEVICE8 iface, DWORD pPixelShader, void* pData, DWORD* pSizeOfData) {
1445     IDirect3DPixelShader8Impl *This = (IDirect3DPixelShader8Impl *)pPixelShader;
1446
1447     TRACE("(%p) : Relay\n", This);
1448     return IWineD3DPixelShader_GetFunction(This->wineD3DPixelShader, pData, (UINT *)pSizeOfData);
1449 }
1450
1451 static HRESULT WINAPI IDirect3DDevice8Impl_DrawRectPatch(LPDIRECT3DDEVICE8 iface, UINT Handle,CONST float* pNumSegs,CONST D3DRECTPATCH_INFO* pRectPatchInfo) {
1452     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1453     TRACE("(%p) Relay\n", This);
1454
1455     return IWineD3DDevice_DrawRectPatch(This->WineD3DDevice, Handle, pNumSegs, (CONST WINED3DRECTPATCH_INFO *)pRectPatchInfo);
1456 }
1457
1458 static HRESULT WINAPI IDirect3DDevice8Impl_DrawTriPatch(LPDIRECT3DDEVICE8 iface, UINT Handle,CONST float* pNumSegs,CONST D3DTRIPATCH_INFO* pTriPatchInfo) {
1459     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1460     TRACE("(%p) Relay\n", This);
1461
1462     return IWineD3DDevice_DrawTriPatch(This->WineD3DDevice, Handle, pNumSegs, (CONST WINED3DTRIPATCH_INFO *)pTriPatchInfo);
1463 }
1464
1465 static HRESULT WINAPI IDirect3DDevice8Impl_DeletePatch(LPDIRECT3DDEVICE8 iface, UINT Handle) {
1466     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1467     TRACE("(%p) Relay\n", This);
1468
1469     return IWineD3DDevice_DeletePatch(This->WineD3DDevice, Handle);
1470 }
1471
1472 static HRESULT WINAPI IDirect3DDevice8Impl_SetStreamSource(LPDIRECT3DDEVICE8 iface, UINT StreamNumber,IDirect3DVertexBuffer8* pStreamData,UINT Stride) {
1473     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1474     TRACE("(%p) Relay\n" , This);
1475
1476     return IWineD3DDevice_SetStreamSource(This->WineD3DDevice, StreamNumber,
1477                                           NULL == pStreamData ? NULL : ((IDirect3DVertexBuffer8Impl *)pStreamData)->wineD3DVertexBuffer,
1478                                           0/* Offset in bytes */, Stride);
1479 }
1480
1481 static HRESULT WINAPI IDirect3DDevice8Impl_GetStreamSource(LPDIRECT3DDEVICE8 iface, UINT StreamNumber,IDirect3DVertexBuffer8** pStream,UINT* pStride) {
1482     IDirect3DDevice8Impl *This = (IDirect3DDevice8Impl *)iface;
1483     IWineD3DVertexBuffer *retStream = NULL;
1484     HRESULT rc = D3D_OK;
1485
1486     TRACE("(%p) Relay\n" , This);
1487
1488     if(pStream == NULL){
1489         return D3DERR_INVALIDCALL;
1490     }
1491
1492     rc = IWineD3DDevice_GetStreamSource(This->WineD3DDevice, StreamNumber, (IWineD3DVertexBuffer **)&retStream, 0 /* Offset in bytes */, pStride);
1493     if (rc == D3D_OK  && NULL != retStream) {
1494         IWineD3DVertexBuffer_GetParent(retStream, (IUnknown **)pStream);
1495         IWineD3DVertexBuffer_Release(retStream);
1496     }else{
1497          FIXME("Call to GetStreamSource failed %p\n",  pStride);
1498         *pStream = NULL;
1499     }
1500
1501     return rc;
1502 }
1503
1504
1505 const IDirect3DDevice8Vtbl Direct3DDevice8_Vtbl =
1506 {
1507     IDirect3DDevice8Impl_QueryInterface,
1508     IDirect3DDevice8Impl_AddRef,
1509     IDirect3DDevice8Impl_Release,
1510     IDirect3DDevice8Impl_TestCooperativeLevel,
1511     IDirect3DDevice8Impl_GetAvailableTextureMem,
1512     IDirect3DDevice8Impl_ResourceManagerDiscardBytes,
1513     IDirect3DDevice8Impl_GetDirect3D,
1514     IDirect3DDevice8Impl_GetDeviceCaps,
1515     IDirect3DDevice8Impl_GetDisplayMode,
1516     IDirect3DDevice8Impl_GetCreationParameters,
1517     IDirect3DDevice8Impl_SetCursorProperties,
1518     IDirect3DDevice8Impl_SetCursorPosition,
1519     IDirect3DDevice8Impl_ShowCursor,
1520     IDirect3DDevice8Impl_CreateAdditionalSwapChain,
1521     IDirect3DDevice8Impl_Reset,
1522     IDirect3DDevice8Impl_Present,
1523     IDirect3DDevice8Impl_GetBackBuffer,
1524     IDirect3DDevice8Impl_GetRasterStatus,
1525     IDirect3DDevice8Impl_SetGammaRamp,
1526     IDirect3DDevice8Impl_GetGammaRamp,
1527     IDirect3DDevice8Impl_CreateTexture,
1528     IDirect3DDevice8Impl_CreateVolumeTexture,
1529     IDirect3DDevice8Impl_CreateCubeTexture,
1530     IDirect3DDevice8Impl_CreateVertexBuffer,
1531     IDirect3DDevice8Impl_CreateIndexBuffer,
1532     IDirect3DDevice8Impl_CreateRenderTarget,
1533     IDirect3DDevice8Impl_CreateDepthStencilSurface,
1534     IDirect3DDevice8Impl_CreateImageSurface,
1535     IDirect3DDevice8Impl_CopyRects,
1536     IDirect3DDevice8Impl_UpdateTexture,
1537     IDirect3DDevice8Impl_GetFrontBuffer,
1538     IDirect3DDevice8Impl_SetRenderTarget,
1539     IDirect3DDevice8Impl_GetRenderTarget,
1540     IDirect3DDevice8Impl_GetDepthStencilSurface,
1541     IDirect3DDevice8Impl_BeginScene,
1542     IDirect3DDevice8Impl_EndScene,
1543     IDirect3DDevice8Impl_Clear,
1544     IDirect3DDevice8Impl_SetTransform,
1545     IDirect3DDevice8Impl_GetTransform,
1546     IDirect3DDevice8Impl_MultiplyTransform,
1547     IDirect3DDevice8Impl_SetViewport,
1548     IDirect3DDevice8Impl_GetViewport,
1549     IDirect3DDevice8Impl_SetMaterial,
1550     IDirect3DDevice8Impl_GetMaterial,
1551     IDirect3DDevice8Impl_SetLight,
1552     IDirect3DDevice8Impl_GetLight,
1553     IDirect3DDevice8Impl_LightEnable,
1554     IDirect3DDevice8Impl_GetLightEnable,
1555     IDirect3DDevice8Impl_SetClipPlane,
1556     IDirect3DDevice8Impl_GetClipPlane,
1557     IDirect3DDevice8Impl_SetRenderState,
1558     IDirect3DDevice8Impl_GetRenderState,
1559     IDirect3DDevice8Impl_BeginStateBlock,
1560     IDirect3DDevice8Impl_EndStateBlock,
1561     IDirect3DDevice8Impl_ApplyStateBlock,
1562     IDirect3DDevice8Impl_CaptureStateBlock,
1563     IDirect3DDevice8Impl_DeleteStateBlock,
1564     IDirect3DDevice8Impl_CreateStateBlock,
1565     IDirect3DDevice8Impl_SetClipStatus,
1566     IDirect3DDevice8Impl_GetClipStatus,
1567     IDirect3DDevice8Impl_GetTexture,
1568     IDirect3DDevice8Impl_SetTexture,
1569     IDirect3DDevice8Impl_GetTextureStageState,
1570     IDirect3DDevice8Impl_SetTextureStageState,
1571     IDirect3DDevice8Impl_ValidateDevice,
1572     IDirect3DDevice8Impl_GetInfo,
1573     IDirect3DDevice8Impl_SetPaletteEntries,
1574     IDirect3DDevice8Impl_GetPaletteEntries,
1575     IDirect3DDevice8Impl_SetCurrentTexturePalette,
1576     IDirect3DDevice8Impl_GetCurrentTexturePalette,
1577     IDirect3DDevice8Impl_DrawPrimitive,
1578     IDirect3DDevice8Impl_DrawIndexedPrimitive,
1579     IDirect3DDevice8Impl_DrawPrimitiveUP,
1580     IDirect3DDevice8Impl_DrawIndexedPrimitiveUP,
1581     IDirect3DDevice8Impl_ProcessVertices,
1582     IDirect3DDevice8Impl_CreateVertexShader,
1583     IDirect3DDevice8Impl_SetVertexShader,
1584     IDirect3DDevice8Impl_GetVertexShader,
1585     IDirect3DDevice8Impl_DeleteVertexShader,
1586     IDirect3DDevice8Impl_SetVertexShaderConstant,
1587     IDirect3DDevice8Impl_GetVertexShaderConstant,
1588     IDirect3DDevice8Impl_GetVertexShaderDeclaration,
1589     IDirect3DDevice8Impl_GetVertexShaderFunction,
1590     IDirect3DDevice8Impl_SetStreamSource,
1591     IDirect3DDevice8Impl_GetStreamSource,
1592     IDirect3DDevice8Impl_SetIndices,
1593     IDirect3DDevice8Impl_GetIndices,
1594     IDirect3DDevice8Impl_CreatePixelShader,
1595     IDirect3DDevice8Impl_SetPixelShader,
1596     IDirect3DDevice8Impl_GetPixelShader,
1597     IDirect3DDevice8Impl_DeletePixelShader,
1598     IDirect3DDevice8Impl_SetPixelShaderConstant,
1599     IDirect3DDevice8Impl_GetPixelShaderConstant,
1600     IDirect3DDevice8Impl_GetPixelShaderFunction,
1601     IDirect3DDevice8Impl_DrawRectPatch,
1602     IDirect3DDevice8Impl_DrawTriPatch,
1603     IDirect3DDevice8Impl_DeletePatch
1604 };
1605
1606 /* Internal function called back during the CreateDevice to create a render target  */
1607 HRESULT WINAPI D3D8CB_CreateSurface(IUnknown *device, UINT Width, UINT Height, 
1608                                          WINED3DFORMAT Format, DWORD Usage, WINED3DPOOL Pool, UINT Level,
1609                                          IWineD3DSurface **ppSurface, HANDLE *pSharedHandle) {
1610
1611     HRESULT res = D3D_OK;
1612     IDirect3DSurface8Impl *d3dSurface = NULL;
1613     BOOL Lockable = TRUE;
1614
1615     if((WINED3DPOOL_DEFAULT == Pool && WINED3DUSAGE_DYNAMIC != Usage))
1616         Lockable = FALSE;
1617
1618     TRACE("relay\n");
1619     res = IDirect3DDevice8Impl_CreateSurface((IDirect3DDevice8 *)device, Width, Height, (D3DFORMAT)Format, Lockable, FALSE/*Discard*/, Level,  (IDirect3DSurface8 **)&d3dSurface, D3DRTYPE_SURFACE, Usage, Pool, D3DMULTISAMPLE_NONE, 0 /* MultisampleQuality */);
1620
1621     if (SUCCEEDED(res)) {
1622         *ppSurface = d3dSurface->wineD3DSurface;
1623         IUnknown_Release(d3dSurface->parentDevice);
1624         d3dSurface->parentDevice = NULL;
1625     } else {
1626         FIXME("(%p) IDirect3DDevice8_CreateSurface failed\n", device);
1627     }
1628     return res;
1629 }