forked from AuroraMiddleware/gtk
507 lines
12 KiB
C
507 lines
12 KiB
C
/*
|
|
* Creates an GdkPixbuf from a Drawable
|
|
*
|
|
* Authors:
|
|
* Cody Russell <bratsche@dfw.net>
|
|
* Michael Zucchi <zucchi@zedzone.mmc.com.au>
|
|
*/
|
|
|
|
#include <config.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <glib.h>
|
|
#include <gmodule.h>
|
|
#include "gdk-pixbuf.h"
|
|
#include "gdk-pixbuf-drawable.h"
|
|
|
|
|
|
#if (G_BYTE_ORDER == G_LITTLE_ENDIAN)
|
|
#define LITTLE
|
|
#endif
|
|
#define d(x)
|
|
|
|
unsigned long mask_table[] = {
|
|
0x00000000, 0x00000001, 0x00000003, 0x00000007,
|
|
0x0000000f, 0x0000001f, 0x0000003f, 0x0000007f,
|
|
0x000000ff, 0x000001ff, 0x000003ff, 0x000007ff,
|
|
0x00000fff, 0x00001fff, 0x00003fff, 0x00007fff,
|
|
0x0000ffff, 0x0001ffff, 0x0003ffff, 0x0007ffff,
|
|
0x000fffff, 0x001fffff, 0x003fffff, 0x007fffff,
|
|
0x00ffffff, 0x01ffffff, 0x03ffffff, 0x07ffffff,
|
|
0x0fffffff, 0x1fffffff, 0x3fffffff, 0x7fffffff,
|
|
0xffffffff
|
|
};
|
|
|
|
static GdkPixbuf *
|
|
gdk_pixbuf_from_drawable_core (GdkPixmap * window, gint x, gint y, gint width,
|
|
gint height, gint with_alpha)
|
|
{
|
|
GdkImage *image;
|
|
ArtPixBuf *art_pixbuf;
|
|
GdkColormap *colormap;
|
|
art_u8 *buff;
|
|
art_u8 *pixels;
|
|
gulong pixel;
|
|
gint rowstride;
|
|
art_u8 r, g, b;
|
|
gint xx, yy;
|
|
gint fatness;
|
|
gint screen_width, screen_height;
|
|
gint window_width, window_height, window_x, window_y;
|
|
int bpl;
|
|
|
|
g_return_val_if_fail (window != NULL, NULL);
|
|
|
|
/* always returns image in ZPixmap format ... */
|
|
image = gdk_image_get (window, x, y, width, height);
|
|
|
|
fatness = with_alpha ? 4 : 3;
|
|
rowstride = width * fatness;
|
|
|
|
buff = art_alloc (rowstride * height);
|
|
pixels = buff;
|
|
|
|
#if 0
|
|
printf ("bpp = %d\n", image->bpp);
|
|
printf ("depth = %d\n", image->depth);
|
|
printf ("byte order = %d\n", image->byte_order);
|
|
printf ("bytes/line = %d\n", image->bpl);
|
|
#endif
|
|
|
|
bpl = image->bpl;
|
|
|
|
switch (image->bpp)
|
|
{
|
|
case 1:
|
|
{
|
|
unsigned char *s;
|
|
register unsigned char bits;
|
|
register unsigned char data;
|
|
unsigned char *o;
|
|
unsigned char *srow = image->mem, *orow = pixels;
|
|
int i, base;
|
|
|
|
d (printf ("1 bits/pixel\n"));
|
|
|
|
/* convert upto 8 pixels/time */
|
|
colormap = gdk_rgb_get_cmap ();
|
|
for (yy = 0; yy < height; yy++)
|
|
{
|
|
s = srow;
|
|
o = orow;
|
|
|
|
for (xx = 0; xx < width; xx += 8)
|
|
{
|
|
bits = *s++;
|
|
|
|
if (xx + 8 >= width)
|
|
base = 7 - (xx + 8 - width);
|
|
else
|
|
base = 0;
|
|
|
|
for (i = 7; i >= base; i--)
|
|
{
|
|
data = (bits & (0x80 >> i)) & 1;
|
|
*o++ = colormap->colors[data].red;
|
|
*o++ = colormap->colors[data].green;
|
|
*o++ = colormap->colors[data].blue;
|
|
}
|
|
}
|
|
|
|
srow += bpl;
|
|
orow += rowstride;
|
|
}
|
|
break;
|
|
}
|
|
|
|
case 8:
|
|
{
|
|
unsigned char *s;
|
|
unsigned long mask;
|
|
register unsigned long data;
|
|
unsigned char *o;
|
|
unsigned char *srow = image->mem, *orow = pixels;
|
|
|
|
d (printf ("8 bits/pixel\n"));
|
|
|
|
colormap = gdk_rgb_get_cmap ();
|
|
mask = mask_table[image->depth];
|
|
|
|
for (yy = 0; yy < height; yy++)
|
|
{
|
|
s = srow;
|
|
o = orow;
|
|
for (xx = 0; xx < width; xx++)
|
|
{
|
|
data = *s++ & mask;
|
|
*o++ = colormap->colors[data].red;
|
|
*o++ = colormap->colors[data].green;
|
|
*o++ = colormap->colors[data].blue;
|
|
}
|
|
srow += bpl;
|
|
orow += rowstride;
|
|
}
|
|
break;
|
|
}
|
|
|
|
/*#define SIMPLE_16 this is really quite slow ! */
|
|
case 16:
|
|
{
|
|
#ifdef SIMPLE_16
|
|
unsigned short *s;
|
|
#else
|
|
unsigned long *s; /* read 2 pixels at once */
|
|
#endif
|
|
register unsigned long data;
|
|
unsigned short *o;
|
|
unsigned char *srow = image->mem, *orow = pixels;
|
|
|
|
printf ("16 bits/pixel\n");
|
|
|
|
for (yy = 0; yy < height; yy++)
|
|
{
|
|
s = srow;
|
|
o = orow;
|
|
|
|
if (image->byte_order == GDK_LSB_FIRST)
|
|
{
|
|
#ifdef SIMPLE_16
|
|
for (xx = 0; xx < width; xx++)
|
|
{
|
|
data = *s++;
|
|
*o++ = (data >> 8) & 0xf8;
|
|
*o++ = (data >> 3) & 0xfc;
|
|
*o++ = (data << 3) & 0xf8;
|
|
}
|
|
#else
|
|
switch (image->depth)
|
|
{
|
|
case 15:
|
|
/* starts at 1, so we dont over-flow the conversion */
|
|
for (xx = 0; xx < width; xx += 2)
|
|
{
|
|
/* read/convert 2 pixels at a time */
|
|
|
|
/* little endian, lsb data */
|
|
#ifdef LITTLE
|
|
/*7c 3e 1f */
|
|
data = *s++;
|
|
*o++ = (data & 0x7c00) >> 7 | (data & 0x3e0) << 6;
|
|
*o++ = (data & 0x1f) << 3 | (data & 0x7c000000) >> 15;
|
|
*o++ =
|
|
((data & 0x3e00000) >> 18) | (data & 0x1f0000) >> 5;
|
|
#else
|
|
/* big endian, lsb data */
|
|
/* swap endianness first */
|
|
data = (unsigned long) ((unsigned char *) s)[3] << 24
|
|
| (unsigned long) ((unsigned char *) s)[2] << 16
|
|
| (unsigned long) ((unsigned char *) s)[1] << 8
|
|
| (unsigned long) ((unsigned char *) s)[0];
|
|
s++;
|
|
*o++ = (data & 0x7c00) << 1 | (data & 0x3e0) >> 2;
|
|
*o++ =
|
|
(data & 0x1f) << 11 | (data & 0x7c000000) >> 23;
|
|
*o++ =
|
|
((data & 0x3e00000) >> 10) | (data & 0x1f0000) >>
|
|
13;
|
|
#endif
|
|
}
|
|
/* check for last remaining pixel */
|
|
if (width & 1)
|
|
{
|
|
register unsigned short data;
|
|
#ifdef LITTLE
|
|
data = *((short *) s);
|
|
#else
|
|
data = *((short *) s);
|
|
data = ((data >> 8) & 0xff) | ((data & 0xff) << 8);
|
|
data &= mask;
|
|
#endif
|
|
((char *) o)[0] = (data & 0x7c0) >> 7;
|
|
((char *) o)[1] = (data & 0x3e0) >> 2;
|
|
((char *) o)[2] = (data & 0x1f) << 3;
|
|
}
|
|
break;
|
|
case 16:
|
|
for (xx = 0; xx < width; xx += 2)
|
|
{
|
|
/* read/convert 2 pixels at a time */
|
|
|
|
/* little endian, lsb data */
|
|
#ifdef LITTLE
|
|
data = *s++;
|
|
*o++ = (data & 0xf800) >> 8 | (data & 0x7e0) << 5;
|
|
*o++ = (data & 0x1f) << 3 | (data & 0xf8000000) >> 16;
|
|
*o++ =
|
|
((data & 0x7e00000) >> 19) | (data & 0x1f0000) >> 5;
|
|
#else
|
|
/* big endian, lsb data */
|
|
/* swap endianness first */
|
|
data = (unsigned long) ((unsigned char *) s)[3] << 24
|
|
| (unsigned long) ((unsigned char *) s)[2] << 16
|
|
| (unsigned long) ((unsigned char *) s)[1] << 8
|
|
| (unsigned long) ((unsigned char *) s)[0];
|
|
s++;
|
|
*o++ = (data & 0xf800) | (data & 0x7e0) >> 3;
|
|
*o++ =
|
|
(data & 0x1f) << 11 | (data & 0xf8000000) >> 24;
|
|
*o++ =
|
|
((data & 0x7e00000) >> 11) | (data & 0x1f0000) >>
|
|
13;
|
|
#endif
|
|
}
|
|
/* check for last remaining pixel */
|
|
if (width & 1)
|
|
{
|
|
register unsigned short data;
|
|
#ifdef LITTLE
|
|
data = *((short *) s);
|
|
#else
|
|
data = *((short *) s);
|
|
data = ((data >> 8) & 0xff) | ((data & 0xff) << 8);
|
|
#endif
|
|
((char *) o)[0] = (data >> 8) & 0xf8;
|
|
((char *) o)[1] = (data >> 3) & 0xfc;
|
|
((char *) o)[2] = (data << 3) & 0xf8;
|
|
}
|
|
break;
|
|
}
|
|
#endif /* SIMPLE_16 */
|
|
}
|
|
else
|
|
{
|
|
switch (image->depth)
|
|
{
|
|
case 15:
|
|
for (xx = 0; xx < width; xx += 2)
|
|
{
|
|
/* read/convert 2 pixels at a time */
|
|
#ifdef LITTLE
|
|
/* little endian, msb data */
|
|
/* swap endianness first */
|
|
data = (unsigned long) ((unsigned char *) s)[0] << 24
|
|
| (unsigned long) ((unsigned char *) s)[1] << 16
|
|
| (unsigned long) ((unsigned char *) s)[2] << 8
|
|
| (unsigned long) ((unsigned char *) s)[3];
|
|
s++;
|
|
/*7c 3e 1f */
|
|
*o++ = (data & 0x7c00) >> 7 | (data & 0x3e0) << 6;
|
|
*o++ = (data & 0x1f) << 3 | (data & 0x7c000000) >> 15;
|
|
*o++ =
|
|
((data & 0x3e00000) >> 18) | (data & 0x1f0000) >> 5;
|
|
#else
|
|
/* big endian, lsb data */
|
|
data = *s++;
|
|
*o++ = (data & 0x7c00) << 1 | (data & 0x3e0) >> 2;
|
|
*o++ =
|
|
(data & 0x1f) << 11 | (data & 0x7c000000) >> 23;
|
|
*o++ =
|
|
((data & 0x3e00000) >> 10) | (data & 0x1f0000) >>
|
|
13;
|
|
#endif
|
|
}
|
|
/* check for last remaining pixel */
|
|
if (width & 1)
|
|
{
|
|
register unsigned short data;
|
|
#ifdef LITTLE
|
|
data = *((short *) s);
|
|
data = ((data >> 8) & 0xff) | ((data & 0xff) << 8);
|
|
#else
|
|
data = *((short *) s);
|
|
#endif
|
|
((char *) o)[0] = (data >> 8) & 0xf8;
|
|
((char *) o)[1] = (data >> 3) & 0xfc;
|
|
((char *) o)[2] = (data << 3) & 0xf8;
|
|
}
|
|
break;
|
|
case 16:
|
|
for (xx = 0; xx < width; xx += 2)
|
|
{
|
|
/* read/convert 2 pixels at a time */
|
|
#ifdef LITTLE
|
|
/* little endian, msb data */
|
|
/* swap endianness first */
|
|
data = (unsigned long) ((unsigned char *) s)[0] << 24
|
|
| (unsigned long) ((unsigned char *) s)[1] << 16
|
|
| (unsigned long) ((unsigned char *) s)[2] << 8
|
|
| (unsigned long) ((unsigned char *) s)[3];
|
|
s++;
|
|
*o++ = (data & 0xf800) >> 8 | (data & 0x7e0) << 5;
|
|
*o++ = (data & 0x1f) << 3 | (data & 0xf8000000) >> 16;
|
|
*o++ =
|
|
((data & 0x7e00000) >> 19) | (data & 0x1f0000) >> 5;
|
|
#else
|
|
/* big endian, lsb data */
|
|
data = *s++;
|
|
*o++ = (data & 0xf800) | (data & 0x7e0) >> 3;
|
|
*o++ =
|
|
(data & 0x1f) << 11 | (data & 0xf8000000) >> 24;
|
|
*o++ =
|
|
((data & 0x7e00000) >> 11) | (data & 0x1f0000) >>
|
|
13;
|
|
#endif
|
|
}
|
|
/* check for last remaining pixel */
|
|
if (width & 1)
|
|
{
|
|
register unsigned short data;
|
|
#ifdef LITTLE
|
|
data = *((short *) s);
|
|
data = ((data >> 8) & 0xff) | ((data & 0xff) << 8);
|
|
#else
|
|
data = *((short *) s);
|
|
#endif
|
|
((char *) o)[0] = (data >> 8) & 0xf8;
|
|
((char *) o)[1] = (data >> 3) & 0xfc;
|
|
((char *) o)[2] = (data << 3) & 0xf8;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
srow += bpl;
|
|
orow += rowstride;
|
|
}
|
|
break;
|
|
}
|
|
/*#define HAIRY_32 this is slowest implementation */
|
|
#define SIMPLE_32 /* this is fastest implementation */
|
|
case 32:
|
|
{
|
|
#ifdef SIMPLE_32
|
|
unsigned char *s; /* read 1 pixels at once */
|
|
#else
|
|
unsigned long *s; /* read 1 pixels at once */
|
|
#endif
|
|
#ifdef HAIRY_32
|
|
register unsigned long data2;
|
|
unsigned short *o;
|
|
#else
|
|
unsigned char *o;
|
|
#endif
|
|
register unsigned long data;
|
|
unsigned char *srow = image->mem, *orow = pixels;
|
|
|
|
printf ("32 bits/pixel\n");
|
|
|
|
for (yy = 0; yy < height; yy++)
|
|
{
|
|
s = srow;
|
|
o = orow;
|
|
|
|
if (image->byte_order == GDK_LSB_FIRST)
|
|
{
|
|
#ifdef HAIRY_32
|
|
for (xx = 0; xx < width; xx += 2)
|
|
{
|
|
#else
|
|
for (xx = 0; xx < width; xx++)
|
|
{
|
|
#endif
|
|
/* read/convert 2 pixels at a time */
|
|
|
|
/* little endian, lsb data */
|
|
#ifdef SIMPLE_32
|
|
*o++ = s[2];
|
|
*o++ = s[1];
|
|
*o++ = s[0];
|
|
s += 4;
|
|
#else
|
|
|
|
#ifdef LITTLE
|
|
#ifdef HAIRY_32
|
|
data = *s++;
|
|
data2 = *s++;
|
|
#else
|
|
data = *s++;
|
|
#endif
|
|
#else
|
|
/* big endian, lsb data */
|
|
/* swap endianness first */
|
|
data = (unsigned long) ((unsigned char *) s)[3] << 24
|
|
| (unsigned long) ((unsigned char *) s)[2] << 16
|
|
| (unsigned long) ((unsigned char *) s)[1] << 8
|
|
| (unsigned long) ((unsigned char *) s)[0];
|
|
s++;
|
|
#endif
|
|
#ifdef HAIRY_32
|
|
*o++ = (data & 0xff0000) >> 16 | (data & 0xff00);
|
|
*o++ = (data & 0xff) | (data2 & 0xff0000) >> 8;
|
|
*o++ = ((data2 & 0xff00) >> 8) | (data2 & 0xff) << 8;
|
|
#else
|
|
/* FIXME: endianness conversion can be done here .. doh! */
|
|
*o++ = data & 0xff0000 >> 16;
|
|
*o++ = data & 0x00ff00 >> 8;
|
|
*o++ = data & 0x0000ff;
|
|
#endif
|
|
|
|
#endif /* SIMPLE_32 */
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for (xx = 0; xx < width; xx++)
|
|
{
|
|
/* read/convert 2 pixels at a time */
|
|
#ifdef LITTLE
|
|
/* little endian, msb data */
|
|
/* swap endianness first */
|
|
#if 1 /* which is faster?? */
|
|
data = (unsigned long) ((unsigned char *) s)[0] << 24
|
|
| (unsigned long) ((unsigned char *) s)[1] << 16
|
|
| (unsigned long) ((unsigned char *) s)[2] << 8
|
|
| (unsigned long) ((unsigned char *) s)[3];
|
|
s++;
|
|
#else /* this is probably slower */
|
|
data = *s++;
|
|
data = ((data >> 16) & 0xffff) | ((data & 0xffff) << 16);
|
|
data =
|
|
((data & 0xff00ff00) >> 8) | ((data & 0xff00ff) << 8);
|
|
#endif
|
|
#else
|
|
/* big endian, lsb data */
|
|
data = *s++;
|
|
#endif
|
|
/* FIXME: endianness conversion can be done here .. doh! */
|
|
*o++ = data & 0xff0000 >> 16;
|
|
*o++ = data & 0x00ff00 >> 8;
|
|
*o++ = data & 0x0000ff;
|
|
}
|
|
}
|
|
srow += bpl;
|
|
orow += rowstride;
|
|
}
|
|
break;
|
|
}
|
|
default:
|
|
g_warning ("gdk_pixbuf_from_drawable: Unsupported image format\n");
|
|
}
|
|
|
|
gdk_image_destroy (image);
|
|
|
|
art_pixbuf =
|
|
with_alpha ? art_pixbuf_new_rgba (buff, width, height,
|
|
rowstride) : art_pixbuf_new_rgb (buff,
|
|
width,
|
|
height,
|
|
rowstride);
|
|
|
|
return gdk_pixbuf_new_from_art_pixbuf (art_pixbuf);
|
|
}
|
|
|
|
/* Public functions */
|
|
|
|
GdkPixbuf *
|
|
gdk_pixbuf_rgb_from_drawable (GdkWindow * window, gint x, gint y, gint width,
|
|
gint height)
|
|
{
|
|
return gdk_pixbuf_from_drawable_core (window, x, y, width, height, 0);
|
|
}
|
|
|
|
GdkPixbuf *
|
|
gdk_pixbuf_rgba_from_drawable (GdkWindow * window, gint x, gint y, gint width,
|
|
gint height)
|
|
{
|
|
return gdk_pixbuf_from_drawable_core (window, x, y, width, height, 1);
|
|
}
|