d3dx9: Implement D3DXAssembleShaderFromFile.
[wine] / dlls / ddraw / light.c
1 /* Direct3D Light
2  * Copyright (c) 1998 / 2002 Lionel ULMER
3  * Copyright (c) 2006        Stefan DÖSINGER
4  *
5  * This file contains the implementation of Direct3DLight.
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 #include "wine/port.h"
24 #include "wine/debug.h"
25
26 #include <assert.h>
27 #include <stdarg.h>
28 #include <string.h>
29 #include <stdlib.h>
30
31 #define COBJMACROS
32
33 #include "windef.h"
34 #include "winbase.h"
35 #include "winerror.h"
36 #include "wingdi.h"
37 #include "wine/exception.h"
38
39 #include "ddraw.h"
40 #include "d3d.h"
41
42 #include "ddraw_private.h"
43
44 WINE_DEFAULT_DEBUG_CHANNEL(d3d7);
45
46 /*****************************************************************************
47  * IUnknown Methods.
48  *****************************************************************************/
49
50 /*****************************************************************************
51  * IDirect3DLight::QueryInterface
52  *
53  * Queries the object for different interfaces. Unimplemented for this
54  * object at the moment
55  *
56  * Params:
57  *  riid: Interface id asked for
58  *  obj: Address to return the resulting pointer at.
59  *
60  * Returns:
61  *  E_NOINTERFACE, because it's a stub
62  *****************************************************************************/
63 static HRESULT WINAPI
64 IDirect3DLightImpl_QueryInterface(IDirect3DLight *iface,
65                                   REFIID riid,
66                                   void **obp)
67 {
68     IDirect3DLightImpl *This = (IDirect3DLightImpl *)iface;
69     FIXME("(%p)->(%s,%p): stub!\n", This, debugstr_guid(riid), obp);
70     *obp = NULL;
71     return E_NOINTERFACE;
72 }
73
74 /*****************************************************************************
75  * IDirect3DLight::AddRef
76  *
77  * Increases the refcount by 1
78  *
79  * Returns:
80  *  The new refcount
81  *
82  *****************************************************************************/
83 static ULONG WINAPI
84 IDirect3DLightImpl_AddRef(IDirect3DLight *iface)
85 {
86     IDirect3DLightImpl *This = (IDirect3DLightImpl *)iface;
87     ULONG ref = InterlockedIncrement(&This->ref);
88
89     TRACE("(%p)->() incrementing from %u.\n", This, ref - 1);
90
91     return ref;
92 }
93
94 /*****************************************************************************
95  * IDirect3DLight::Release
96  *
97  * Reduces the refcount by one. If the refcount falls to 0, the object
98  * is destroyed
99  *
100  * Returns:
101  *  The new refcount
102  *
103  *****************************************************************************/
104 static ULONG WINAPI
105 IDirect3DLightImpl_Release(IDirect3DLight *iface)
106 {
107     IDirect3DLightImpl *This = (IDirect3DLightImpl *)iface;
108     ULONG ref = InterlockedDecrement(&This->ref);
109
110     TRACE("(%p)->() decrementing from %u.\n", This, ref + 1);
111
112     if (!ref) {
113         HeapFree(GetProcessHeap(), 0, This);
114         return 0;
115     }
116     return ref;
117 }
118
119 /*****************************************************************************
120  * IDirect3DLight Methods.
121  *****************************************************************************/
122
123 /*****************************************************************************
124  * IDirect3DLight::Initialize
125  *
126  * Initializes the interface. This implementation is a no-op, because
127  * initialization takes place at creation time
128  *
129  * Params:
130  *  Direct3D: Pointer to an IDirect3D interface.
131  *
132  * Returns:
133  *  D3D_OK
134  *
135  *****************************************************************************/
136 static HRESULT WINAPI
137 IDirect3DLightImpl_Initialize(IDirect3DLight *iface,
138                               IDirect3D *lpDirect3D)
139 {
140     IDirect3DLightImpl *This = (IDirect3DLightImpl *)iface;
141     IDirectDrawImpl *d3d = lpDirect3D ? ddraw_from_d3d1(lpDirect3D) : NULL;
142     TRACE("(%p)->(%p) no-op...\n", This, d3d);
143     return D3D_OK;
144 }
145
146 /*****************************************************************************
147  * IDirect3DLight::SetLight
148  *
149  * Assigns a lighting value to this object
150  *
151  * Params:
152  *  Light: Lighting parameter to set
153  *
154  * Returns:
155  *  D3D_OK on success
156  *  DDERR_INVALIDPARAMS if Light is NULL
157  *
158  *****************************************************************************/
159 static void dump_light(const D3DLIGHT2 *light)
160 {
161     TRACE("    - dwSize : %d\n", light->dwSize);
162 }
163
164 static const float zero_value[] = {
165     0.0, 0.0, 0.0, 0.0
166 };
167
168 static HRESULT WINAPI
169 IDirect3DLightImpl_SetLight(IDirect3DLight *iface,
170                             D3DLIGHT *lpLight)
171 {
172     IDirect3DLightImpl *This = (IDirect3DLightImpl *)iface;
173     LPD3DLIGHT7 light7 = &(This->light7);
174     TRACE("(%p)->(%p)\n", This, lpLight);
175     if (TRACE_ON(d3d7)) {
176         TRACE("  Light definition :\n");
177         dump_light((LPD3DLIGHT2) lpLight);
178     }
179
180     if ( (lpLight->dltType == 0) || (lpLight->dltType > D3DLIGHT_PARALLELPOINT) )
181          return DDERR_INVALIDPARAMS;
182
183     if ( lpLight->dltType == D3DLIGHT_PARALLELPOINT )
184         FIXME("D3DLIGHT_PARALLELPOINT no supported\n");
185
186     /* Translate D3DLIGH2 structure to D3DLIGHT7 */
187     light7->dltType        = lpLight->dltType;
188     light7->dcvDiffuse     = lpLight->dcvColor;
189     if ((((LPD3DLIGHT2)lpLight)->dwFlags & D3DLIGHT_NO_SPECULAR) != 0)
190       light7->dcvSpecular    = lpLight->dcvColor;
191     else
192       light7->dcvSpecular    = *(const D3DCOLORVALUE*)zero_value;
193     light7->dcvAmbient     = lpLight->dcvColor;
194     light7->dvPosition     = lpLight->dvPosition;
195     light7->dvDirection    = lpLight->dvDirection;
196     light7->dvRange        = lpLight->dvRange;
197     light7->dvFalloff      = lpLight->dvFalloff;
198     light7->dvAttenuation0 = lpLight->dvAttenuation0;
199     light7->dvAttenuation1 = lpLight->dvAttenuation1;
200     light7->dvAttenuation2 = lpLight->dvAttenuation2;
201     light7->dvTheta        = lpLight->dvTheta;
202     light7->dvPhi          = lpLight->dvPhi;
203
204     EnterCriticalSection(&ddraw_cs);
205     memcpy(&This->light, lpLight, lpLight->dwSize);
206     if ((This->light.dwFlags & D3DLIGHT_ACTIVE) != 0) {
207         This->update(This);
208     }
209     LeaveCriticalSection(&ddraw_cs);
210     return D3D_OK;
211 }
212
213 /*****************************************************************************
214  * IDirect3DLight::GetLight
215  *
216  * Returns the parameters currently assigned to the IDirect3DLight object
217  *
218  * Params:
219  *  Light: Pointer to an D3DLIGHT structure to store the parameters
220  *
221  * Returns:
222  *  D3D_OK on success
223  *  DDERR_INVALIDPARAMS if Light is NULL
224  *****************************************************************************/
225 static HRESULT WINAPI
226 IDirect3DLightImpl_GetLight(IDirect3DLight *iface,
227                             D3DLIGHT *lpLight)
228 {
229     IDirect3DLightImpl *This = (IDirect3DLightImpl *)iface;
230     TRACE("(%p/%p)->(%p)\n", This, iface, lpLight);
231     if (TRACE_ON(d3d7)) {
232         TRACE("  Returning light definition :\n");
233         dump_light(&This->light);
234     }
235
236     EnterCriticalSection(&ddraw_cs);
237     memcpy(lpLight, &This->light, lpLight->dwSize);
238     LeaveCriticalSection(&ddraw_cs);
239
240     return DD_OK;
241 }
242
243 /*****************************************************************************
244  * light_update
245  *
246  * Updates the Direct3DDevice7 lighting parameters
247  *
248  *****************************************************************************/
249 void light_update(IDirect3DLightImpl* This)
250 {
251     IDirect3DDeviceImpl* device;
252
253     TRACE("(%p)\n", This);
254
255     if (!This->active_viewport || !This->active_viewport->active_device)
256         return;
257     device =  This->active_viewport->active_device;
258
259     IDirect3DDevice7_SetLight((IDirect3DDevice7 *)device, This->dwLightIndex, &(This->light7));
260 }
261
262 /*****************************************************************************
263  * light_activate
264  *
265  * Uses the Direct3DDevice7::LightEnable method to active the light
266  *
267  *****************************************************************************/
268 void light_activate(IDirect3DLightImpl* This)
269 {
270     IDirect3DDeviceImpl* device;
271
272     TRACE("(%p)\n", This);
273
274     if (!This->active_viewport || !This->active_viewport->active_device)
275         return;
276     device =  This->active_viewport->active_device;
277
278     light_update(This);
279     /* If was not active, activate it */
280     if ((This->light.dwFlags & D3DLIGHT_ACTIVE) == 0) {
281         IDirect3DDevice7_LightEnable((IDirect3DDevice7 *)device, This->dwLightIndex, TRUE);
282         This->light.dwFlags |= D3DLIGHT_ACTIVE;
283     }
284 }
285
286 /*****************************************************************************
287  *
288  * light_desactivate
289  *
290  * Uses the Direct3DDevice7::LightEnable method to deactivate the light
291  *
292  *****************************************************************************/
293 void light_desactivate(IDirect3DLightImpl* This)
294 {
295     IDirect3DDeviceImpl* device;
296
297     TRACE("(%p)\n", This);
298
299     if (!This->active_viewport || !This->active_viewport->active_device)
300         return;
301     device =  This->active_viewport->active_device;
302
303     /* If was not active, activate it */
304     if ((This->light.dwFlags & D3DLIGHT_ACTIVE) != 0) {
305         IDirect3DDevice7_LightEnable((IDirect3DDevice7 *)device, This->dwLightIndex, FALSE);
306         This->light.dwFlags &= ~D3DLIGHT_ACTIVE;
307     }
308 }
309
310 const IDirect3DLightVtbl IDirect3DLight_Vtbl =
311 {
312     /*** IUnknown Methods ***/
313     IDirect3DLightImpl_QueryInterface,
314     IDirect3DLightImpl_AddRef,
315     IDirect3DLightImpl_Release,
316     /*** IDirect3DLight Methods ***/
317     IDirect3DLightImpl_Initialize,
318     IDirect3DLightImpl_SetLight,
319     IDirect3DLightImpl_GetLight
320 };