dlls/ddraw/dpalette/main.c

   1 /*              DirectDraw - IDirectPalette base interface
   2  *
   3  * Copyright 1997-2000 Marcus Meissner
   4  * Copyright 2000-2001 TransGaming Technologies Inc.
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include "config.h"
  22 #include "winerror.h"
  23 #include "wine/debug.h"
  24
  25 #include <assert.h>
  26 #include <string.h>
  27
  28 #include "ddraw_private.h"
  29 #include "dpalette/main.h"
  30 #include "ddraw/main.h"
  31
  32 WINE_DEFAULT_DEBUG_CHANNEL(ddraw);
  33
  34 #define SIZE_BITS (DDPCAPS_1BIT | DDPCAPS_2BIT | DDPCAPS_4BIT | DDPCAPS_8BIT)
  35
  36 /* For unsigned x. 0 is not a power of 2. */
  37 #define IS_POW_2(x) (((x) & ((x) - 1)) == 0)
  38
  39 static IDirectDrawPaletteVtbl DDRAW_Main_Palette_VTable;
  40
  41 /******************************************************************************
  42  *                      IDirectDrawPalette
  43  */
  44 HRESULT Main_DirectDrawPalette_Construct(IDirectDrawPaletteImpl* This,
  45                                          IDirectDrawImpl* pDD, DWORD dwFlags)
  46 {
  47     if (!IS_POW_2(dwFlags & SIZE_BITS)) return DDERR_INVALIDPARAMS;
  48
  49     if (dwFlags & DDPCAPS_8BITENTRIES)
  50         WARN("creating palette with 8 bit entries\n");
  51
  52     This->palNumEntries = Main_DirectDrawPalette_Size(dwFlags);
  53     This->ref = 1;
  54
  55     This->local.lpGbl = &This->global;
  56     This->local.lpDD_lcl = &pDD->local;
  57     This->global.lpDD_lcl = &pDD->local;
  58     This->global.dwProcessId = GetCurrentProcessId();
  59     This->global.dwFlags = dwFlags;
  60
  61     This->final_release = Main_DirectDrawPalette_final_release;
  62     ICOM_INIT_INTERFACE(This, IDirectDrawPalette, DDRAW_Main_Palette_VTable);
  63
  64     /* we could defer hpal creation until we need it,
  65      * but does anyone have a case where it would be useful? */
  66     This->hpal = CreatePalette((const LOGPALETTE*)&(This->palVersion));
  67
  68     Main_DirectDraw_AddPalette(pDD, This);
  69
  70     return DD_OK;
  71 }
  72
  73 HRESULT
  74 Main_DirectDrawPalette_Create(IDirectDrawImpl* pDD, DWORD dwFlags,
  75                               LPDIRECTDRAWPALETTE* ppPalette,
  76                               LPUNKNOWN pUnkOuter)
  77 {
  78     IDirectDrawPaletteImpl* This;
  79     HRESULT hr;
  80
  81     if (pUnkOuter != NULL)
  82         return CLASS_E_NOAGGREGATION; /* unchecked */
  83
  84     This = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*This));
  85     if (This == NULL) return E_OUTOFMEMORY;
  86
  87     hr = Main_DirectDrawPalette_Construct(This, pDD, dwFlags);
  88     if (FAILED(hr))
  89         HeapFree(GetProcessHeap(), 0, This);
  90     else
  91         *ppPalette = ICOM_INTERFACE(This, IDirectDrawPalette);
  92
  93     return hr;
  94 }
  95
  96 DWORD Main_DirectDrawPalette_Size(DWORD dwFlags)
  97 {
  98     switch (dwFlags & SIZE_BITS)
  99     {
 100     case DDPCAPS_1BIT: return 2;
 101     case DDPCAPS_2BIT: return 4;
 102     case DDPCAPS_4BIT: return 16;
 103     case DDPCAPS_8BIT: return 256;
 104     default: assert(0); return 256;
 105     }
 106 }
 107
 108 HRESULT WINAPI
 109 Main_DirectDrawPalette_GetEntries(LPDIRECTDRAWPALETTE iface, DWORD dwFlags,
 110                                   DWORD dwStart, DWORD dwCount,
 111                                   LPPALETTEENTRY palent)
 112 {
 113     IDirectDrawPaletteImpl *This = (IDirectDrawPaletteImpl *)iface;
 114
 115     TRACE("(%p)->GetEntries(%08lx,%ld,%ld,%p)\n",This,dwFlags,dwStart,dwCount,
 116           palent);
 117
 118     if (dwFlags != 0) return DDERR_INVALIDPARAMS; /* unchecked */
 119     if (dwStart + dwCount > Main_DirectDrawPalette_Size(This->global.dwFlags))
 120         return DDERR_INVALIDPARAMS;
 121
 122     if (This->global.dwFlags & DDPCAPS_8BITENTRIES)
 123     {
 124         unsigned int i;
 125         LPBYTE entry = (LPBYTE)palent;
 126
 127         for (i=dwStart; i < dwCount+dwStart; i++)
 128             *entry++ = This->palents[i].peRed;
 129     }
 130     else
 131         memcpy(palent, This->palents+dwStart, dwCount * sizeof(PALETTEENTRY));
 132
 133     return DD_OK;
 134 }
 135
 136 HRESULT WINAPI
 137 Main_DirectDrawPalette_SetEntries(LPDIRECTDRAWPALETTE iface, DWORD dwFlags,
 138                                   DWORD dwStart, DWORD dwCount,
 139                                   LPPALETTEENTRY palent)
 140 {
 141     IDirectDrawPaletteImpl *This = (IDirectDrawPaletteImpl *)iface;
 142
 143     TRACE("(%p)->SetEntries(%08lx,%ld,%ld,%p)\n",This,dwFlags,dwStart,dwCount,
 144           palent);
 145
 146     if (This->global.dwFlags & DDPCAPS_8BITENTRIES)
 147     {
 148         unsigned int i;
 149         const BYTE* entry = (const BYTE*)palent;
 150
 151         for (i=dwStart; i < dwCount+dwStart; i++)
 152             This->palents[i].peRed = *entry++;
 153     }
 154     else {
 155         memcpy(This->palents+dwStart, palent, dwCount * sizeof(PALETTEENTRY));
 156
 157         if (This->hpal)
 158             SetPaletteEntries(This->hpal, dwStart, dwCount, This->palents+dwStart);
 159
 160         if (This->global.dwFlags & DDPCAPS_PRIMARYSURFACE) {
 161             /* update physical palette */
 162             LPDIRECTDRAWSURFACE7 psurf = NULL;
 163             IDirectDraw7_GetGDISurface(ICOM_INTERFACE(This->ddraw_owner,IDirectDraw7), &psurf);
 164             if (psurf) {
 165                 IDirectDrawSurfaceImpl *surf = ICOM_OBJECT(IDirectDrawSurfaceImpl,
 166                                                            IDirectDrawSurface7, psurf);
 167                 surf->update_palette(surf, This, dwStart, dwCount, palent);
 168                 IDirectDrawSurface7_Release(psurf);
 169             }
 170             else ERR("can't find GDI surface!!\n");
 171         }
 172     }
 173
 174 #if 0
 175     /* Now, if we are in 'depth conversion mode', update the screen palette */
 176     /* FIXME: we need to update the image or we won't get palette fading. */
 177     if (This->ddraw->d->palette_convert != NULL)
 178         This->ddraw->d->palette_convert(palent,This->screen_palents,start,count);
 179 #endif
 180
 181     return DD_OK;
 182 }
 183
 184 void Main_DirectDrawPalette_final_release(IDirectDrawPaletteImpl* This)
 185 {
 186     Main_DirectDraw_RemovePalette(This->ddraw_owner, This);
 187
 188     if (This->hpal) DeleteObject(This->hpal);
 189 }
 190
 191 static void Main_DirectDrawPalette_Destroy(IDirectDrawPaletteImpl* This)
 192 {
 193     This->final_release(This);
 194
 195     if (This->private != This+1)
 196         HeapFree(GetProcessHeap(), 0, This->private);
 197
 198     HeapFree(GetProcessHeap(),0,This);
 199 }
 200
 201 void Main_DirectDrawPalette_ForceDestroy(IDirectDrawPaletteImpl* This)
 202 {
 203     WARN("deleting palette %p with refcnt %lu\n", This, This->ref);
 204     Main_DirectDrawPalette_Destroy(This);
 205 }
 206
 207 ULONG WINAPI
 208 Main_DirectDrawPalette_Release(LPDIRECTDRAWPALETTE iface)
 209 {
 210     IDirectDrawPaletteImpl *This = (IDirectDrawPaletteImpl *)iface;
 211     ULONG ref = InterlockedDecrement(&This->ref);
 212
 213     TRACE("(%p)->() decrementing from %lu.\n", This, ref + 1);
 214
 215     if (!ref)
 216     {
 217         Main_DirectDrawPalette_Destroy(This);
 218         return 0;
 219     }
 220
 221     return ref;
 222 }
 223
 224 ULONG WINAPI Main_DirectDrawPalette_AddRef(LPDIRECTDRAWPALETTE iface) {
 225     IDirectDrawPaletteImpl *This = (IDirectDrawPaletteImpl *)iface;
 226     ULONG ref = InterlockedIncrement(&This->ref);
 227
 228     TRACE("(%p)->() incrementing from %lu.\n", This, ref - 1);
 229
 230     return ref;
 231 }
 232
 233 HRESULT WINAPI
 234 Main_DirectDrawPalette_Initialize(LPDIRECTDRAWPALETTE iface,
 235                                   LPDIRECTDRAW ddraw, DWORD dwFlags,
 236                                   LPPALETTEENTRY palent)
 237 {
 238     IDirectDrawPaletteImpl *This = (IDirectDrawPaletteImpl *)iface;
 239     TRACE("(%p)->(%p,%ld,%p)\n", This, ddraw, dwFlags, palent);
 240     return DDERR_ALREADYINITIALIZED;
 241 }
 242
 243 HRESULT WINAPI
 244 Main_DirectDrawPalette_GetCaps(LPDIRECTDRAWPALETTE iface, LPDWORD lpdwCaps)
 245 {
 246    IDirectDrawPaletteImpl *This = (IDirectDrawPaletteImpl *)iface;
 247    TRACE("(%p)->(%p)\n",This,lpdwCaps);
 248
 249    *lpdwCaps = This->global.dwFlags;
 250
 251    return DD_OK;
 252 }
 253
 254 HRESULT WINAPI
 255 Main_DirectDrawPalette_QueryInterface(LPDIRECTDRAWPALETTE iface,
 256                                       REFIID refiid, LPVOID *obj)
 257 {
 258     IDirectDrawPaletteImpl *This = (IDirectDrawPaletteImpl *)iface;
 259     TRACE("(%p)->(%s,%p)\n",This,debugstr_guid(refiid),obj);
 260
 261     if (IsEqualGUID(refiid, &IID_IUnknown)
 262         || IsEqualGUID(refiid, &IID_IDirectDrawPalette))
 263     {
 264         *obj = iface;
 265         IDirectDrawPalette_AddRef(iface);
 266         return S_OK;
 267     }
 268     else
 269     {
 270         return E_NOINTERFACE;
 271     }
 272 }
 273
 274 static IDirectDrawPaletteVtbl DDRAW_Main_Palette_VTable =
 275 {
 276     Main_DirectDrawPalette_QueryInterface,
 277     Main_DirectDrawPalette_AddRef,
 278     Main_DirectDrawPalette_Release,
 279     Main_DirectDrawPalette_GetCaps,
 280     Main_DirectDrawPalette_GetEntries,
 281     Main_DirectDrawPalette_Initialize,
 282     Main_DirectDrawPalette_SetEntries
 283 };