dlls/ddraw/material.c

   1 /* Direct3D Material
   2  * Copyright (c) 2002 Lionel ULMER
   3  * Copyright (c) 2006 Stefan DÖSINGER
   4  *
   5  * This file contains the implementation of Direct3DMaterial.
   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
  25 #include <assert.h>
  26 #include <stdarg.h>
  27 #include <string.h>
  28 #include <stdlib.h>
  29
  30 #define COBJMACROS
  31 #define NONAMELESSUNION
  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 #include "wine/debug.h"
  44
  45 WINE_DEFAULT_DEBUG_CHANNEL(d3d7);
  46 WINE_DECLARE_DEBUG_CHANNEL(ddraw_thunk);
  47
  48 static void dump_material(const D3DMATERIAL *mat)
  49 {
  50     DPRINTF("  dwSize : %d\n", mat->dwSize);
  51 }
  52
  53 /*****************************************************************************
  54  * IUnknown Methods.
  55  *****************************************************************************/
  56
  57 /*****************************************************************************
  58  * IDirect3DMaterial3::QueryInterface
  59  *
  60  * QueryInterface for IDirect3DMaterial. Can query all IDirect3DMaterial
  61  * versions.
  62  *
  63  * Params:
  64  *  riid: Interface id queried for
  65  *  obj: Address to pass the interface pointer back
  66  *
  67  * Returns:
  68  *  S_OK on success
  69  *  E_NOINTERFACE if the requested interface wasn't found
  70  *
  71  *****************************************************************************/
  72 static HRESULT WINAPI
  73 IDirect3DMaterialImpl_QueryInterface(IDirect3DMaterial3 *iface,
  74                                      REFIID riid,
  75                                      LPVOID* obp)
  76 {
  77     ICOM_THIS_FROM(IDirect3DMaterialImpl, IDirect3DMaterial3, iface);
  78     TRACE("(%p)->(%s,%p)\n", This, debugstr_guid(riid), obp);
  79
  80     *obp = NULL;
  81
  82     if ( IsEqualGUID( &IID_IUnknown,  riid ) ) {
  83         IDirect3DMaterial_AddRef(ICOM_INTERFACE(This, IDirect3DMaterial));
  84         *obp = iface;
  85         TRACE("  Creating IUnknown interface at %p.\n", *obp);
  86         return S_OK;
  87     }
  88     if ( IsEqualGUID( &IID_IDirect3DMaterial, riid ) ) {
  89         IDirect3DMaterial_AddRef(ICOM_INTERFACE(This, IDirect3DMaterial));
  90         *obp = ICOM_INTERFACE(This, IDirect3DMaterial);
  91         TRACE("  Creating IDirect3DMaterial interface %p\n", *obp);
  92         return S_OK;
  93     }
  94     if ( IsEqualGUID( &IID_IDirect3DMaterial2, riid ) ) {
  95         IDirect3DMaterial_AddRef(ICOM_INTERFACE(This, IDirect3DMaterial));
  96         *obp = ICOM_INTERFACE(This, IDirect3DMaterial2);
  97         TRACE("  Creating IDirect3DMaterial2 interface %p\n", *obp);
  98         return S_OK;
  99     }
 100     if ( IsEqualGUID( &IID_IDirect3DMaterial3, riid ) ) {
 101         IDirect3DMaterial_AddRef(ICOM_INTERFACE(This, IDirect3DMaterial));
 102         *obp = ICOM_INTERFACE(This, IDirect3DMaterial3);
 103         TRACE("  Creating IDirect3DMaterial3 interface %p\n", *obp);
 104         return S_OK;
 105     }
 106     FIXME("(%p): interface for IID %s NOT found!\n", This, debugstr_guid(riid));
 107     return E_NOINTERFACE;
 108 }
 109
 110 /*****************************************************************************
 111  * IDirect3DMaterial3::AddRef
 112  *
 113  * Increases the refcount.
 114  *
 115  * Returns:
 116  *  The new refcount
 117  *
 118  *****************************************************************************/
 119 static ULONG WINAPI
 120 IDirect3DMaterialImpl_AddRef(IDirect3DMaterial3 *iface)
 121 {
 122     ICOM_THIS_FROM(IDirect3DMaterialImpl, IDirect3DMaterial3, iface);
 123     ULONG ref = InterlockedIncrement(&This->ref);
 124
 125     TRACE("(%p)->() incrementing from %u.\n", This, ref - 1);
 126
 127     return ref;
 128 }
 129
 130 /*****************************************************************************
 131  * IDirect3DMaterial3::Release
 132  *
 133  * Reduces the refcount by one. If the refcount falls to 0, the object
 134  * is destroyed
 135  *
 136  * Returns:
 137  *  The new refcount
 138  *
 139  *****************************************************************************/
 140 static ULONG WINAPI
 141 IDirect3DMaterialImpl_Release(IDirect3DMaterial3 *iface)
 142 {
 143     ICOM_THIS_FROM(IDirect3DMaterialImpl, IDirect3DMaterial3, iface);
 144     ULONG ref = InterlockedDecrement(&This->ref);
 145
 146     TRACE("(%p)->() decrementing from %u.\n", This, ref + 1);
 147
 148     if (!ref)
 149     {
 150         if(This->Handle)
 151         {
 152             This->ddraw->d3ddevice->Handles[This->Handle - 1].ptr = NULL;
 153             This->ddraw->d3ddevice->Handles[This->Handle - 1].type = DDrawHandle_Unknown;
 154         }
 155
 156         HeapFree(GetProcessHeap(), 0, This);
 157         return 0;
 158     }
 159     return ref;
 160 }
 161
 162 /*****************************************************************************
 163  * IDirect3DMaterial Methods
 164  *****************************************************************************/
 165
 166 /*****************************************************************************
 167  * IDirect3DMaterial::Initialize
 168  *
 169  * A no-op initialization
 170  *
 171  * Params:
 172  *  Direct3D: Pointer to a Direct3D interface
 173  *
 174  * Returns:
 175  *  D3D_OK
 176  *
 177  *****************************************************************************/
 178 static HRESULT WINAPI
 179 IDirect3DMaterialImpl_Initialize(IDirect3DMaterial *iface,
 180                                   IDirect3D *Direct3D)
 181 {
 182     ICOM_THIS_FROM(IDirect3DMaterialImpl, IDirect3DMaterial, iface);
 183
 184     TRACE("(%p)->(%p) no-op...!\n", This, Direct3D);
 185
 186     return D3D_OK;
 187 }
 188
 189 /*****************************************************************************
 190  * IDirect3DMaterial::Reserve
 191  *
 192  * DirectX 5 sdk: "The IDirect3DMaterial2::Reserve method is not implemented"
 193  * Odd. They seem to have mixed their interfaces.
 194  *
 195  * Returns:
 196  *  DDERR_UNSUPPORTED
 197  *
 198  *****************************************************************************/
 199 static HRESULT WINAPI
 200 IDirect3DMaterialImpl_Reserve(IDirect3DMaterial *iface)
 201 {
 202     ICOM_THIS_FROM(IDirect3DMaterialImpl, IDirect3DMaterial, iface);
 203     TRACE("(%p)->() not implemented\n", This);
 204
 205     return DDERR_UNSUPPORTED;
 206 }
 207
 208 /*****************************************************************************
 209  * IDirect3DMaterial::Unreserve
 210  *
 211  * Not supported too
 212  *
 213  * Returns:
 214  *  DDERR_UNSUPPORTED
 215  *
 216  *****************************************************************************/
 217 static HRESULT WINAPI
 218 IDirect3DMaterialImpl_Unreserve(IDirect3DMaterial *iface)
 219 {
 220     ICOM_THIS_FROM(IDirect3DMaterialImpl, IDirect3DMaterial, iface);
 221     TRACE("(%p)->() not implemented.\n", This);
 222
 223     return DDERR_UNSUPPORTED;
 224 }
 225
 226 /*****************************************************************************
 227  * IDirect3DMaterial3::SetMaterial
 228  *
 229  * Sets the material description
 230  *
 231  * Params:
 232  *  Mat: Material to set
 233  *
 234  * Returns:
 235  *  D3D_OK on success
 236  *  DDERR_INVALIDPARAMS if Mat is NULL
 237  *
 238  *****************************************************************************/
 239 static HRESULT WINAPI
 240 IDirect3DMaterialImpl_SetMaterial(IDirect3DMaterial3 *iface,
 241                                   D3DMATERIAL *lpMat)
 242 {
 243     ICOM_THIS_FROM(IDirect3DMaterialImpl, IDirect3DMaterial3, iface);
 244     TRACE("(%p)->(%p)\n", This, lpMat);
 245     if (TRACE_ON(d3d7))
 246         dump_material(lpMat);
 247
 248     /* Stores the material */
 249     memset(&This->mat, 0, sizeof(This->mat));
 250     memcpy(&This->mat, lpMat, lpMat->dwSize);
 251
 252     return DD_OK;
 253 }
 254
 255 /*****************************************************************************
 256  * IDirect3DMaterial3::GetMaterial
 257  *
 258  * Returns the material assigned to this interface
 259  *
 260  * Params:
 261  *  Mat: Pointer to a D3DMATERIAL structure to store the material description
 262  *
 263  * Returns:
 264  *  D3D_OK on success
 265  *  DDERR_INVALIDPARAMS if Mat is NULL
 266  *
 267  *****************************************************************************/
 268 static HRESULT WINAPI
 269 IDirect3DMaterialImpl_GetMaterial(IDirect3DMaterial3 *iface,
 270                                   D3DMATERIAL *lpMat)
 271 {
 272     ICOM_THIS_FROM(IDirect3DMaterialImpl, IDirect3DMaterial3, iface);
 273     DWORD dwSize;
 274     TRACE("(%p)->(%p)\n", This, lpMat);
 275     if (TRACE_ON(d3d7)) {
 276         TRACE("  Returning material : ");
 277         dump_material(&This->mat);
 278     }
 279
 280     /* Copies the material structure */
 281     dwSize = lpMat->dwSize;
 282     memset(lpMat, 0, dwSize);
 283     memcpy(lpMat, &This->mat, dwSize);
 284
 285     return DD_OK;
 286 }
 287
 288 /*****************************************************************************
 289  * IDirect3DMaterial3::GetHandle
 290  *
 291  * Returns a handle for the material interface. The handle is simply a
 292  * pointer to the material implementation
 293  *
 294  * Params:
 295  *  Direct3DDevice3: The device this handle is assigned to
 296  *  Handle: Address to write the handle to
 297  *
 298  * Returns:
 299  *  D3D_OK on success
 300  *  DDERR_INVALIDPARAMS if Handle is NULL
 301  *
 302  *****************************************************************************/
 303 static HRESULT WINAPI
 304 IDirect3DMaterialImpl_GetHandle(IDirect3DMaterial3 *iface,
 305                                 IDirect3DDevice3 *lpDirect3DDevice3,
 306                                 D3DMATERIALHANDLE *lpHandle)
 307 {
 308     ICOM_THIS_FROM(IDirect3DMaterialImpl, IDirect3DMaterial3, iface);
 309     IDirect3DDeviceImpl *device = ICOM_OBJECT(IDirect3DDeviceImpl, IDirect3DDevice3, lpDirect3DDevice3);
 310     TRACE("(%p/%p)->(%p,%p)\n", This, iface, device, lpHandle);
 311
 312     This->active_device = device;
 313     if(!This->Handle)
 314     {
 315         This->Handle = IDirect3DDeviceImpl_CreateHandle(device);
 316         if(!This->Handle)
 317         {
 318             ERR("Error creating a handle\n");
 319             return DDERR_INVALIDPARAMS;   /* Unchecked */
 320         }
 321         device->Handles[This->Handle - 1].ptr = This;
 322         device->Handles[This->Handle - 1].type = DDrawHandle_Material;
 323     }
 324     *lpHandle = This->Handle;
 325     TRACE(" returning handle %08x.\n", *lpHandle);
 326
 327     return D3D_OK;
 328 }
 329
 330 static HRESULT WINAPI
 331 Thunk_IDirect3DMaterialImpl_2_GetHandle(LPDIRECT3DMATERIAL2 iface,
 332                                         LPDIRECT3DDEVICE2 lpDirect3DDevice2,
 333                                         LPD3DMATERIALHANDLE lpHandle)
 334 {
 335     TRACE_(ddraw_thunk)("(%p)->(%p,%p) thunking to IDirect3DMaterial3 interface.\n", iface, lpDirect3DDevice2, lpHandle);
 336     return IDirect3DMaterial3_GetHandle(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial2, IDirect3DMaterial3, iface),
 337                                         COM_INTERFACE_CAST(IDirect3DDeviceImpl, IDirect3DDevice2, IDirect3DDevice3, lpDirect3DDevice2),
 338                                         lpHandle);
 339 }
 340
 341 static HRESULT WINAPI
 342 Thunk_IDirect3DMaterialImpl_1_GetHandle(LPDIRECT3DMATERIAL iface,
 343                                         LPDIRECT3DDEVICE lpDirect3DDevice,
 344                                         LPD3DMATERIALHANDLE lpHandle)
 345 {
 346     TRACE_(ddraw_thunk)("(%p)->(%p,%p) thunking to IDirect3DMaterial3 interface.\n", iface, lpDirect3DDevice, lpHandle);
 347     return IDirect3DMaterial3_GetHandle(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial, IDirect3DMaterial3, iface),
 348                                         COM_INTERFACE_CAST(IDirect3DDeviceImpl, IDirect3DDevice, IDirect3DDevice3, lpDirect3DDevice),
 349                                         lpHandle);
 350 }
 351
 352 static HRESULT WINAPI
 353 Thunk_IDirect3DMaterialImpl_2_QueryInterface(LPDIRECT3DMATERIAL2 iface,
 354                                              REFIID riid,
 355                                              LPVOID* obp)
 356 {
 357     TRACE_(ddraw_thunk)("(%p)->(%s,%p) thunking to IDirect3DMaterial3 interface.\n", iface, debugstr_guid(riid), obp);
 358     return IDirect3DMaterial3_QueryInterface(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial2, IDirect3DMaterial3, iface),
 359                                              riid,
 360                                              obp);
 361 }
 362
 363 static HRESULT WINAPI
 364 Thunk_IDirect3DMaterialImpl_1_QueryInterface(LPDIRECT3DMATERIAL iface,
 365                                              REFIID riid,
 366                                              LPVOID* obp)
 367 {
 368     TRACE_(ddraw_thunk)("(%p)->(%s,%p) thunking to IDirect3DMaterial3 interface.\n", iface, debugstr_guid(riid), obp);
 369     return IDirect3DMaterial3_QueryInterface(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial, IDirect3DMaterial3, iface),
 370                                              riid,
 371                                              obp);
 372 }
 373
 374 static ULONG WINAPI
 375 Thunk_IDirect3DMaterialImpl_2_AddRef(LPDIRECT3DMATERIAL2 iface)
 376 {
 377     TRACE_(ddraw_thunk)("(%p)->() thunking to IDirect3DMaterial3 interface.\n", iface);
 378     return IDirect3DMaterial3_AddRef(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial2, IDirect3DMaterial3, iface));
 379 }
 380
 381 static ULONG WINAPI
 382 Thunk_IDirect3DMaterialImpl_1_AddRef(LPDIRECT3DMATERIAL iface)
 383 {
 384     TRACE_(ddraw_thunk)("(%p)->() thunking to IDirect3DMaterial3 interface.\n", iface);
 385     return IDirect3DMaterial3_AddRef(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial, IDirect3DMaterial3, iface));
 386 }
 387
 388 static ULONG WINAPI
 389 Thunk_IDirect3DMaterialImpl_2_Release(LPDIRECT3DMATERIAL2 iface)
 390 {
 391     TRACE_(ddraw_thunk)("(%p)->() thunking to IDirect3DMaterial3 interface.\n", iface);
 392     return IDirect3DMaterial3_Release(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial2, IDirect3DMaterial3, iface));
 393 }
 394
 395 static ULONG WINAPI
 396 Thunk_IDirect3DMaterialImpl_1_Release(LPDIRECT3DMATERIAL iface)
 397 {
 398     TRACE_(ddraw_thunk)("(%p)->() thunking to IDirect3DMaterial3 interface.\n", iface);
 399     return IDirect3DMaterial3_Release(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial, IDirect3DMaterial3, iface));
 400 }
 401
 402 static HRESULT WINAPI
 403 Thunk_IDirect3DMaterialImpl_2_SetMaterial(LPDIRECT3DMATERIAL2 iface,
 404                                           LPD3DMATERIAL lpMat)
 405 {
 406     TRACE_(ddraw_thunk)("(%p)->(%p) thunking to IDirect3DMaterial3 interface.\n", iface, lpMat);
 407     return IDirect3DMaterial3_SetMaterial(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial2, IDirect3DMaterial3, iface),
 408                                           lpMat);
 409 }
 410
 411 static HRESULT WINAPI
 412 Thunk_IDirect3DMaterialImpl_1_SetMaterial(LPDIRECT3DMATERIAL iface,
 413                                           LPD3DMATERIAL lpMat)
 414 {
 415     TRACE_(ddraw_thunk)("(%p)->(%p) thunking to IDirect3DMaterial3 interface.\n", iface, lpMat);
 416     return IDirect3DMaterial3_SetMaterial(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial, IDirect3DMaterial3, iface),
 417                                           lpMat);
 418 }
 419
 420 static HRESULT WINAPI
 421 Thunk_IDirect3DMaterialImpl_2_GetMaterial(LPDIRECT3DMATERIAL2 iface,
 422                                           LPD3DMATERIAL lpMat)
 423 {
 424     TRACE_(ddraw_thunk)("(%p)->(%p) thunking to IDirect3DMaterial3 interface.\n", iface, lpMat);
 425     return IDirect3DMaterial3_GetMaterial(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial2, IDirect3DMaterial3, iface),
 426                                           lpMat);
 427 }
 428
 429 static HRESULT WINAPI
 430 Thunk_IDirect3DMaterialImpl_1_GetMaterial(LPDIRECT3DMATERIAL iface,
 431                                           LPD3DMATERIAL lpMat)
 432 {
 433     TRACE_(ddraw_thunk)("(%p)->(%p) thunking to IDirect3DMaterial3 interface.\n", iface, lpMat);
 434     return IDirect3DMaterial3_GetMaterial(COM_INTERFACE_CAST(IDirect3DMaterialImpl, IDirect3DMaterial, IDirect3DMaterial3, iface),
 435                                           lpMat);
 436 }
 437
 438
 439 /*****************************************************************************
 440  * material_activate
 441  *
 442  * Uses IDirect3DDevice7::SetMaterial to activate the material
 443  *
 444  * Params:
 445  *  This: Pointer to the material implementation to activate
 446  *
 447  *****************************************************************************/
 448 void material_activate(IDirect3DMaterialImpl* This)
 449 {
 450     D3DMATERIAL7 d3d7mat;
 451
 452     TRACE("Activating material %p\n", This);
 453     d3d7mat.u.diffuse = This->mat.u.diffuse;
 454     d3d7mat.u1.ambient = This->mat.u1.ambient;
 455     d3d7mat.u2.specular = This->mat.u2.specular;
 456     d3d7mat.u3.emissive = This->mat.u3.emissive;
 457     d3d7mat.u4.power = This->mat.u4.power;
 458
 459     IDirect3DDevice7_SetMaterial(ICOM_INTERFACE(This->active_device, IDirect3DDevice7),
 460                                  &d3d7mat);
 461 }
 462
 463 const IDirect3DMaterial3Vtbl IDirect3DMaterial3_Vtbl =
 464 {
 465     /*** IUnknown Methods ***/
 466     IDirect3DMaterialImpl_QueryInterface,
 467     IDirect3DMaterialImpl_AddRef,
 468     IDirect3DMaterialImpl_Release,
 469     /*** IDirect3DMaterial3 Methods ***/
 470     IDirect3DMaterialImpl_SetMaterial,
 471     IDirect3DMaterialImpl_GetMaterial,
 472     IDirect3DMaterialImpl_GetHandle,
 473 };
 474
 475 const IDirect3DMaterial2Vtbl IDirect3DMaterial2_Vtbl =
 476 {
 477     /*** IUnknown Methods ***/
 478     Thunk_IDirect3DMaterialImpl_2_QueryInterface,
 479     Thunk_IDirect3DMaterialImpl_2_AddRef,
 480     Thunk_IDirect3DMaterialImpl_2_Release,
 481     /*** IDirect3DMaterial2 Methods ***/
 482     Thunk_IDirect3DMaterialImpl_2_SetMaterial,
 483     Thunk_IDirect3DMaterialImpl_2_GetMaterial,
 484     Thunk_IDirect3DMaterialImpl_2_GetHandle,
 485 };
 486
 487 const IDirect3DMaterialVtbl IDirect3DMaterial_Vtbl =
 488 {
 489     /*** IUnknown Methods ***/
 490     Thunk_IDirect3DMaterialImpl_1_QueryInterface,
 491     Thunk_IDirect3DMaterialImpl_1_AddRef,
 492     Thunk_IDirect3DMaterialImpl_1_Release,
 493     /*** IDirect3DMaterial1 Methods ***/
 494     IDirect3DMaterialImpl_Initialize,
 495     Thunk_IDirect3DMaterialImpl_1_SetMaterial,
 496     Thunk_IDirect3DMaterialImpl_1_GetMaterial,
 497     Thunk_IDirect3DMaterialImpl_1_GetHandle,
 498     IDirect3DMaterialImpl_Reserve,
 499     IDirect3DMaterialImpl_Unreserve
 500 };