#include <cstring>

#include <map>

#include <sstream>

#include "color.h"

#include "sp-cursor.h"

void sp_cursor_bitmap_and_mask_from_xpm(GdkBitmap **bitmap, GdkBitmap **mask, gchar const *const *xpm)

{

int height = 0;

int width = 0;

int colors = 0;

int pix = 0;

std::stringstream ss;

ss << xpm[0];

ss >> height;

ss >> width;

ss >> colors;

ss >> pix;

g_return_if_fail(height == 32);

g_return_if_fail(width == 32);

g_return_if_fail(colors >= 3);

int transparent_color = ' ';

std::string black_colors;

char pixmap_buffer[(32 * 32) / 8] = {0};

char mask_buffer[(32 * 32) / 8] = {0};

for (int i = 0; i < colors; i++) {

char const *p = xpm[1 + i];

char const ccode = *p;

p++;

while (isspace(*p)) {

p++;

}

p++;

while (isspace(*p)) {

p++;

}

if (strcmp(p, "None") == 0) {

transparent_color = ccode;

}

if (strcmp(p, "Stroke") == 0) {

black_colors.push_back(ccode);

}

if (strcmp(p, "#000000") == 0) {

black_colors.push_back(ccode);

}

}

for (int y = 0; y < 32; y++) {

for (int x = 0; x < 32; ) {

char value = 0;

char maskv = 0;

for (int pix = 0; pix < 8; pix++, x++){

if (xpm[1 + colors + y][x] != transparent_color) {

maskv |= 1 << pix;

if (black_colors.find(xpm[1 + colors + y][x]) != std::string::npos) {

value |= 1 << pix;

}

}

}

pixmap_buffer[(y * 4 + x / 8) - 1] = value;

mask_buffer[(y * 4 + x / 8) - 1] = maskv;

}

}

*bitmap = gdk_bitmap_create_from_data(NULL, pixmap_buffer, 32, 32);

*mask = gdk_bitmap_create_from_data(NULL, mask_buffer, 32, 32);

}

static void free_cursor_data(guchar *pixels, gpointer /*data*/) {

delete [] reinterpret_cast<guint32*>(pixels);

}

struct RGBA {

guchar v[4];

RGBA() {

v[0] = 0;

v[1] = 0;

v[2] = 0;

v[3] = 0;

}

RGBA(guchar r, guchar g, guchar b, guchar a) {

v[0] = r;

v[1] = g;

v[2] = b;

v[3] = a;

}

operator guint32() const {

guint32 result = (static_cast<guint32>(v[0]) << 0)

| (static_cast<guint32>(v[1]) << 8)

| (static_cast<guint32>(v[2]) << 16)

| (static_cast<guint32>(v[3]) << 24);

return result;

}

};

GdkPixbuf *sp_cursor_pixbuf_from_xpm(gchar const *const *xpm, GdkColor const& black, GdkColor const& white, guint32 fill, guint32 stroke)

{

int height = 0;

int width = 0;

int colors = 0;

int pix = 0;

std::stringstream ss (std::stringstream::in | std::stringstream::out);

ss << xpm[0];

ss >> height;

ss >> width;

ss >> colors;

ss >> pix;

std::map<char, RGBA> colorMap;

for (int i = 0; i < colors; i++) {

char const *p = xpm[1 + i];

char const ccode = *p;

p++;

while (isspace(*p)) {

p++;

}

p++;

while (isspace(*p)) {

p++;

}

if (strcmp(p, "None") == 0) {

colorMap[ccode] = RGBA();

} else if (strcmp(p, "Fill") == 0) {

colorMap[ccode] = RGBA(SP_RGBA32_R_U(fill), SP_RGBA32_G_U(fill), SP_RGBA32_B_U(fill), SP_RGBA32_A_U(fill));

} else if (strcmp(p, "Stroke") == 0) {

colorMap[ccode] = RGBA(SP_RGBA32_R_U(stroke), SP_RGBA32_G_U(stroke), SP_RGBA32_B_U(stroke), SP_RGBA32_A_U(stroke));

} else if (strcmp(p, "#000000") == 0) {

colorMap[ccode] = RGBA(black.red, black.green, black.blue, 255);

} else if (strcmp(p, "#FFFFFF") == 0) {

colorMap[ccode] = RGBA(white.red, white.green, white.blue, 255);

} else {

colorMap[ccode] = RGBA();

}

}

guint32 *pixmap_buffer = new guint32[width * height];

for (int y = 0; y < height; y++) {

for (int x = 0; x < width; x++) {

std::map<char, RGBA>::const_iterator it = colorMap.find(xpm[1 + colors + y][x]);

pixmap_buffer[y * width + x] = (it == colorMap.end()) ? 0u : it->second;

}

}

return gdk_pixbuf_new_from_data(reinterpret_cast<guchar*>(pixmap_buffer), GDK_COLORSPACE_RGB, TRUE, 8, width, height, width * sizeof(guint32), free_cursor_data, NULL);

}

GdkCursor *sp_cursor_new_from_xpm(gchar const *const *xpm, gint hot_x, gint hot_y)

{

GdkCursor *cursor = 0;

GdkColor const fg = { 0, 0, 0, 0 };

GdkColor const bg = { 0, 65535, 65535, 65535 };

GdkBitmap *bitmap = 0;

GdkBitmap *mask = 0;

sp_cursor_bitmap_and_mask_from_xpm(&bitmap, &mask, xpm);

if ( bitmap && mask ) {

cursor = gdk_cursor_new_from_pixmap(bitmap, mask,

&fg, &bg,

hot_x, hot_y);

g_object_unref(bitmap);

g_object_unref(mask);

}

return cursor;

}