/*

SDL - Simple DirectMedia Layer

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA

Sam Lantinga

slouken@libsdl.org

*/

#include "SDL_config.h"

#if SDL_VIDEO_RENDER_GDI

#include "SDL_win32video.h"

#ifdef _WIN32_WCE

#define NO_GETDIBBITS 1

#endif

/* GDI renderer implementation */

static int GDI_CreateTexture(SDL_Renderer * renderer, SDL_Texture * texture);

static int GDI_QueryTexturePixels(SDL_Renderer * renderer,

SDL_Texture * texture, void **pixels,

int *pitch);

static int GDI_SetTexturePalette(SDL_Renderer * renderer,

SDL_Texture * texture,

const SDL_Color * colors, int firstcolor,

int ncolors);

static int GDI_GetTexturePalette(SDL_Renderer * renderer,

SDL_Texture * texture, SDL_Color * colors,

int firstcolor, int ncolors);

static int GDI_SetTextureAlphaMod(SDL_Renderer * renderer,

SDL_Texture * texture);

static int GDI_SetTextureBlendMode(SDL_Renderer * renderer,

SDL_Texture * texture);

static int GDI_SetTextureScaleMode(SDL_Renderer * renderer,

SDL_Texture * texture);

static int GDI_UpdateTexture(SDL_Renderer * renderer, SDL_Texture * texture,

const SDL_Rect * rect, const void *pixels,

int pitch);

static int GDI_LockTexture(SDL_Renderer * renderer, SDL_Texture * texture,

const SDL_Rect * rect, int markDirty,

void **pixels, int *pitch);

static void GDI_UnlockTexture(SDL_Renderer * renderer, SDL_Texture * texture);

static int GDI_RenderPoint(SDL_Renderer * renderer, int x, int y);

static int GDI_RenderLine(SDL_Renderer * renderer, int x1, int y1, int x2,

int y2);

static int GDI_RenderReadPixels(SDL_Renderer * renderer, const SDL_Rect * rect,

Uint32 format, void * pixels, int pitch);

static int GDI_RenderWritePixels(SDL_Renderer * renderer, const SDL_Rect * rect,

Uint32 format, const void * pixels, int pitch);

static void GDI_RenderPresent(SDL_Renderer * renderer);

static void GDI_DestroyTexture(SDL_Renderer * renderer,

SDL_Texture * texture);

static void GDI_DestroyRenderer(SDL_Renderer * renderer);

SDL_RenderDriver GDI_RenderDriver = {

GDI_CreateRenderer,

{

"gdi",

SDL_PIXELFORMAT_INDEX8,

SDL_PIXELFORMAT_RGB555,

SDL_PIXELFORMAT_RGB565,

SDL_PIXELFORMAT_RGB888,

SDL_PIXELFORMAT_BGR888,

SDL_PIXELFORMAT_ARGB8888,

SDL_PIXELFORMAT_RGBA8888,

SDL_PIXELFORMAT_ABGR8888,

SDL_PIXELFORMAT_BGRA8888,

SDL_PIXELFORMAT_YV12,

SDL_PIXELFORMAT_IYUV,

SDL_PIXELFORMAT_UYVY,

SDL_PIXELFORMAT_YVYU},

0,

0}

};

typedef struct

{

HWND hwnd;

HDC window_hdc;

HDC render_hdc;

HDC memory_hdc;

HDC current_hdc;

HBITMAP hbm[3];

int current_hbm;

SDL_DirtyRectList dirty;

SDL_bool makedirty;

typedef struct

{

SDL_SW_YUVTexture *yuv;

Uint32 format;

HPALETTE hpal;

HBITMAP hbm;

void *pixels;

int pitch;

static void

UpdateYUVTextureData(SDL_Texture * texture)

{

SDL_Rect rect;

rect.x = 0;

rect.y = 0;

rect.w = texture->w;

rect.h = texture->h;

SDL_SW_CopyYUVToRGB(data->yuv, &rect, data->format, texture->w,

texture->h, data->pixels, data->pitch);

}

void

GDI_AddRenderDriver(_THIS)

{

int i;

for (i = 0; i < _this->num_displays; ++i) {

SDL_AddRenderDriver(&_this->displays[i], &GDI_RenderDriver);

}

}

SDL_Renderer *

{

SDL_WindowData *windowdata = (SDL_WindowData *) window->driverdata;

SDL_Renderer *renderer;

int bmi_size;

HBITMAP hbm;

if (!renderer) {

SDL_OutOfMemory();

return NULL;

}

SDL_OutOfMemory();

return NULL;

}

renderer->CreateTexture = GDI_CreateTexture;

renderer->QueryTexturePixels = GDI_QueryTexturePixels;

renderer->SetTexturePalette = GDI_SetTexturePalette;

renderer->GetTexturePalette = GDI_GetTexturePalette;

renderer->SetTextureAlphaMod = GDI_SetTextureAlphaMod;

renderer->SetTextureBlendMode = GDI_SetTextureBlendMode;

renderer->SetTextureScaleMode = GDI_SetTextureScaleMode;

renderer->UpdateTexture = GDI_UpdateTexture;

renderer->LockTexture = GDI_LockTexture;

renderer->UnlockTexture = GDI_UnlockTexture;

renderer->RenderPoint = GDI_RenderPoint;

renderer->RenderLine = GDI_RenderLine;

renderer->RenderFill = GDI_RenderFill;

renderer->RenderCopy = GDI_RenderCopy;

renderer->RenderReadPixels = GDI_RenderReadPixels;

renderer->RenderWritePixels = GDI_RenderWritePixels;

renderer->RenderPresent = GDI_RenderPresent;

renderer->DestroyTexture = GDI_DestroyTexture;

renderer->DestroyRenderer = GDI_DestroyRenderer;

renderer->info = GDI_RenderDriver.info;

renderer->window = window->id;

renderer->driverdata = data;

data->render_hdc = CreateCompatibleDC(data->window_hdc);

data->memory_hdc = CreateCompatibleDC(data->window_hdc);

/* Fill in the compatible bitmap info */

bmi_size = sizeof(BITMAPINFOHEADER) + 256 * sizeof(RGBQUAD);

SDL_OutOfMemory();

return NULL;

}

data->bmi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);

hbm = CreateCompatibleBitmap(data->window_hdc, 1, 1);

GetDIBits(data->window_hdc, hbm, 0, 1, NULL, data->bmi, DIB_RGB_COLORS);

GetDIBits(data->window_hdc, hbm, 0, 1, NULL, data->bmi, DIB_RGB_COLORS);

DeleteObject(hbm);

} else if (flags & SDL_RENDERER_PRESENTFLIP2) {

renderer->info.flags |= SDL_RENDERER_PRESENTFLIP2;

} else if (flags & SDL_RENDERER_PRESENTFLIP3) {

renderer->info.flags |= SDL_RENDERER_PRESENTFLIP3;

n = 3;

} else {

n = 1;

}

for (i = 0; i < n; ++i) {

data->hbm[i] =

CreateCompatibleBitmap(data->window_hdc, window->w, window->h);

if (!data->hbm[i]) {

WIN_SetError("CreateCompatibleBitmap()");

return NULL;

}

}

if (n > 0) {

SelectObject(data->render_hdc, data->hbm[0]);

data->current_hdc = data->render_hdc;

data->makedirty = SDL_TRUE;

} else {

data->current_hdc = data->window_hdc;

data->makedirty = SDL_FALSE;

}

data->current_hbm = 0;

return renderer;

}

static int

GDI_DisplayModeChanged(SDL_Renderer * renderer)

{

GDI_RenderData *data = (GDI_RenderData *) renderer->driverdata;

SDL_Window *window = SDL_GetWindowFromID(renderer->window);

int i, n;

if (renderer->info.flags & SDL_RENDERER_SINGLEBUFFER) {

n = 0;

} else if (renderer->info.flags & SDL_RENDERER_PRESENTFLIP2) {

n = 2;

} else if (renderer->info.flags & SDL_RENDERER_PRESENTFLIP3) {

n = 3;

} else {

n = 1;

}

for (i = 0; i < n; ++i) {

if (data->hbm[i]) {

DeleteObject(data->hbm[i]);

data->hbm[i] = NULL;

}

}

for (i = 0; i < n; ++i) {

data->hbm[i] =

CreateCompatibleBitmap(data->window_hdc, window->w, window->h);

if (!data->hbm[i]) {

WIN_SetError("CreateCompatibleBitmap()");

return -1;

}

}

if (n > 0) {

SelectObject(data->render_hdc, data->hbm[0]);

}

data->current_hbm = 0;

return 0;

}

static HBITMAP

GDI_CreateDIBSection(HDC hdc, int w, int h, int pitch, Uint32 format,

HPALETTE * hpal, void ** pixels)

{

int bmi_size;

LPBITMAPINFO bmi;

bmi_size = sizeof(BITMAPINFOHEADER) + 256 * sizeof(RGBQUAD);

bmi = (LPBITMAPINFO) SDL_calloc(1, bmi_size);

if (!bmi) {

SDL_OutOfMemory();

return NULL;

}

bmi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);

bmi->bmiHeader.biWidth = w;

bmi->bmiHeader.biHeight = -h; /* topdown bitmap */

bmi->bmiHeader.biPlanes = 1;

bmi->bmiHeader.biSizeImage = h * pitch;

bmi->bmiHeader.biXPelsPerMeter = 0;

bmi->bmiHeader.biYPelsPerMeter = 0;

bmi->bmiHeader.biClrUsed = 0;

bmi->bmiHeader.biClrImportant = 0;

bmi->bmiHeader.biBitCount = SDL_BYTESPERPIXEL(format) * 8;

if (SDL_ISPIXELFORMAT_INDEXED(format)) {

bmi->bmiHeader.biCompression = BI_RGB;

if (hpal) {

int i, ncolors;

LOGPALETTE *palette;

ncolors = (1 << SDL_BITSPERPIXEL(format));

palette =

(LOGPALETTE *) SDL_malloc(sizeof(*palette) +

ncolors * sizeof(PALETTEENTRY));

if (!palette) {

SDL_free(bmi);

SDL_OutOfMemory();

return NULL;

}

palette->palVersion = 0x300;

palette->palNumEntries = ncolors;

for (i = 0; i < ncolors; ++i) {

palette->palPalEntry[i].peRed = 0xFF;

palette->palPalEntry[i].peGreen = 0xFF;

palette->palPalEntry[i].peBlue = 0xFF;

palette->palPalEntry[i].peFlags = 0;

}

*hpal = CreatePalette(palette);

SDL_free(palette);

}

} else {

int bpp;

Uint32 Rmask, Gmask, Bmask, Amask;

bmi->bmiHeader.biCompression = BI_BITFIELDS;

SDL_PixelFormatEnumToMasks(format, &bpp, &Rmask, &Gmask, &Bmask,

&Amask);

((Uint32 *) bmi->bmiColors)[0] = Rmask;

((Uint32 *) bmi->bmiColors)[1] = Gmask;

((Uint32 *) bmi->bmiColors)[2] = Bmask;

if (hpal) {

*hpal = NULL;

}

}

return CreateDIBSection(hdc, bmi, DIB_RGB_COLORS, pixels, NULL, 0);

}

SDL_Window *window = SDL_GetWindowFromID(renderer->window);

SDL_VideoDisplay *display = SDL_GetDisplayFromWindow(window);

if (!data) {

SDL_OutOfMemory();

return -1;

}

texture->driverdata = data;

if (SDL_ISPIXELFORMAT_FOURCC(texture->format)) {

data->yuv =

SDL_SW_CreateYUVTexture(texture->format, texture->w, texture->h);

if (!data->yuv) {

return -1;

}

data->format = display->current_mode.format;

} else {

data->format = texture->format;

}

data->pitch = (texture->w * SDL_BYTESPERPIXEL(data->format));

data->hbm = GDI_CreateDIBSection(renderdata->memory_hdc,

texture->w, texture->h,

data->pitch, data->format,

&data->hpal, &data->pixels);

data->hbm = CreateCompatibleBitmap(renderdata->window_hdc,

texture->w, texture->h);

}

if (!data->hbm) {

WIN_SetError("Couldn't create bitmap");

return -1;

}

return 0;

}

static int

GDI_QueryTexturePixels(SDL_Renderer * renderer, SDL_Texture * texture,

void **pixels, int *pitch)

if (data->yuv) {

return SDL_SW_QueryYUVTexturePixels(data->yuv, pixels, pitch);

} else {

*pixels = data->pixels;

return 0;

}

}

static int

GDI_SetTexturePalette(SDL_Renderer * renderer, SDL_Texture * texture,

const SDL_Color * colors, int firstcolor, int ncolors)

GDI_RenderData *renderdata = (GDI_RenderData *) renderer->driverdata;

GDI_TextureData *data = (GDI_TextureData *) texture->driverdata;

if (data->yuv) {

SDL_SetError("YUV textures don't have a palette");

return -1;

} else {

PALETTEENTRY entries[256];

int i;

for (i = 0; i < ncolors; ++i) {

entries[i].peRed = colors[i].r;

entries[i].peGreen = colors[i].g;

entries[i].peBlue = colors[i].b;

entries[i].peFlags = 0;

}

if (!SetPaletteEntries(data->hpal, firstcolor, ncolors, entries)) {

WIN_SetError("SetPaletteEntries()");

return -1;

}

return 0;

}

}

static int

GDI_GetTexturePalette(SDL_Renderer * renderer, SDL_Texture * texture,

SDL_Color * colors, int firstcolor, int ncolors)

if (data->yuv) {

SDL_SetError("YUV textures don't have a palette");

return -1;

} else {

PALETTEENTRY entries[256];

int i;

if (!GetPaletteEntries(data->hpal, firstcolor, ncolors, entries)) {

WIN_SetError("GetPaletteEntries()");

return -1;

}

for (i = 0; i < ncolors; ++i) {

colors[i].r = entries[i].peRed;

colors[i].g = entries[i].peGreen;

colors[i].b = entries[i].peBlue;

}

return 0;

}

}

static int

GDI_SetTextureAlphaMod(SDL_Renderer * renderer, SDL_Texture * texture)

{

return 0;

}

static int

GDI_SetTextureBlendMode(SDL_Renderer * renderer, SDL_Texture * texture)

{

GDI_TextureData *data = (GDI_TextureData *) texture->driverdata;

if (data->premultiplied) {

/* Crap, we've lost the original pixel data... *sigh* */

}

return 0;

case SDL_BLENDMODE_MASK:

case SDL_BLENDMODE_BLEND:

if (!data->premultiplied && data->pixels) {

switch (texture->format) {

case SDL_PIXELFORMAT_ARGB8888:

SDL_PreMultiplyAlphaARGB8888(texture->w, texture->h,

(Uint32 *) data->pixels,

data->pitch);

data->premultiplied = SDL_TRUE;

break;

case SDL_PIXELFORMAT_RGBA8888:

SDL_PreMultiplyAlphaRGBA8888(texture->w, texture->h,

(Uint32 *) data->pixels,

data->pitch);

data->premultiplied = SDL_TRUE;

break;

case SDL_PIXELFORMAT_ABGR8888:

SDL_PreMultiplyAlphaABGR8888(texture->w, texture->h,

(Uint32 *) data->pixels,

data->pitch);

data->premultiplied = SDL_TRUE;

break;

case SDL_PIXELFORMAT_BGRA8888:

SDL_PreMultiplyAlphaBGRA8888(texture->w, texture->h,

(Uint32 *) data->pixels,

data->pitch);

data->premultiplied = SDL_TRUE;

break;

}

}

default:

SDL_Unsupported();

return -1;

}

}

static int

GDI_SetTextureScaleMode(SDL_Renderer * renderer, SDL_Texture * texture)

{

switch (texture->scaleMode) {

case SDL_TEXTURESCALEMODE_NONE:

case SDL_TEXTURESCALEMODE_FAST:

return 0;

case SDL_TEXTURESCALEMODE_SLOW:

case SDL_TEXTURESCALEMODE_BEST:

SDL_Unsupported();

texture->scaleMode = SDL_TEXTURESCALEMODE_FAST;

return -1;

default:

SDL_Unsupported();

texture->scaleMode = SDL_TEXTURESCALEMODE_NONE;

return -1;

}

return 0;

}

GDI_UpdateTexture(SDL_Renderer * renderer, SDL_Texture * texture,

const SDL_Rect * rect, const void *pixels, int pitch)

if (data->yuv) {

if (SDL_SW_UpdateYUVTexture(data->yuv, rect, pixels, pitch) < 0) {

return -1;

}

UpdateYUVTextureData(texture);

return 0;

} else {

if (data->pixels) {

Uint8 *src, *dst;

int row;

size_t length;

src = (Uint8 *) pixels;

dst =

(Uint8 *) data->pixels + rect->y * data->pitch +

rect->x * SDL_BYTESPERPIXEL(texture->format);

length = rect->w * SDL_BYTESPERPIXEL(texture->format);

for (row = 0; row < rect->h; ++row) {

SDL_memcpy(dst, src, length);

src += pitch;

dst += data->pitch;

}

Uint32 *pixels =

(Uint32 *) data->pixels + rect->y * (data->pitch / 4) +

rect->x;

switch (texture->format) {

case SDL_PIXELFORMAT_ARGB8888:

SDL_PreMultiplyAlphaARGB8888(rect->w, rect->h, pixels,

data->pitch);

break;

case SDL_PIXELFORMAT_RGBA8888:

SDL_PreMultiplyAlphaRGBA8888(rect->w, rect->h, pixels,

data->pitch);

break;

case SDL_PIXELFORMAT_ABGR8888:

SDL_PreMultiplyAlphaABGR8888(rect->w, rect->h, pixels,

data->pitch);

break;

case SDL_PIXELFORMAT_BGRA8888:

SDL_PreMultiplyAlphaBGRA8888(rect->w, rect->h, pixels,

data->pitch);

break;

}

}

if (!SetDIBits

(renderdata->window_hdc, data->hbm, rect->y, rect->h, pixels,

renderdata->bmi, DIB_RGB_COLORS)) {

WIN_SetError("SetDIBits()");

return -1;

}

#else

SDL_SetError("FIXME: Update Texture");

return -1;

#endif

} else {

SDL_SetError

("FIXME: Need to allocate temporary memory and do GetDIBits() followed by SetDIBits(), since we can only set blocks of scanlines at a time");

return -1;

}

return 0;

}

}

static int

GDI_LockTexture(SDL_Renderer * renderer, SDL_Texture * texture,

const SDL_Rect * rect, int markDirty, void **pixels,

int *pitch)

if (data->yuv) {

return SDL_SW_LockYUVTexture(data->yuv, rect, markDirty, pixels,

pitch);

*pixels =

(void *) ((Uint8 *) data->pixels + rect->y * data->pitch +

rect->x * SDL_BYTESPERPIXEL(texture->format));

*pitch = data->pitch;

return 0;

} else {

SDL_SetError("No pixels available");

return -1;

}

}

static void

if (data->yuv) {

SDL_SW_UnlockYUVTexture(data->yuv);

UpdateYUVTextureData(texture);

}

}

static int

GDI_SetDrawBlendMode(SDL_Renderer * renderer)

{

switch (renderer->blendMode) {

case SDL_BLENDMODE_NONE:

return 0;

default:

SDL_Unsupported();

renderer->blendMode = SDL_BLENDMODE_NONE;

return -1;

}

}

static int

GDI_RenderPoint(SDL_Renderer * renderer, int x, int y)

{

GDI_RenderData *data = (GDI_RenderData *) renderer->driverdata;

if (data->makedirty) {

SDL_Rect rect;

rect.x = x;

rect.y = y;

rect.w = 1;

rect.h = 1;

SDL_AddDirtyRect(&data->dirty, &rect);

}

SetPixel(data->current_hdc, x, y,

RGB(renderer->r, renderer->g, renderer->b));

return 0;

}

static int

GDI_RenderLine(SDL_Renderer * renderer, int x1, int y1, int x2, int y2)

{

GDI_RenderData *data = (GDI_RenderData *) renderer->driverdata;

POINT points[2];

BOOL status;

if (data->makedirty) {

SDL_Rect rect;

if (x1 < x2) {

rect.x = x1;

rect.w = (x2 - x1) + 1;

} else {

rect.x = x2;

rect.w = (x1 - x2) + 1;

}

if (y1 < y2) {

rect.y = y1;

rect.h = (y2 - y1) + 1;

} else {

rect.y = y2;

rect.h = (y1 - y2) + 1;

}

SDL_AddDirtyRect(&data->dirty, &rect);

}

/* Should we cache the pen? .. it looks like GDI does for us. :) */

pen = CreatePen(PS_SOLID, 1, RGB(renderer->r, renderer->g, renderer->b));

SelectObject(data->current_hdc, pen);

points[0].x = x1;

points[0].y = y1;

points[1].x = x2;

points[1].y = y2;

status = Polyline(data->current_hdc, points, 2);

if (!status) {

WIN_SetError("FillRect()");

return -1;

}

return 0;

}