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