The R Project SVN – R – Diff – /branches/R-exp-R5/src/extra/graphapp/bitmaps.c

 /*
  *  Internal bitmap deletion function.
  */
 static void private_delbitmap(bitmap obj)
+{
-	if (obj->handle)
+    if (obj->handle)
-		DeleteObject((HBITMAP) obj->handle);
+	DeleteObject((HBITMAP) obj->handle);
+}
 /*
  *  Create/return the base bitmap object.
  */
 static object get_bitmap_base(void)
+{
-	static object bitmap_base = NULL;
+    static object bitmap_base = NULL;
-	if (! bitmap_base)
+    if (! bitmap_base)
-		bitmap_base = new_object(BaseObject, 0, NULL);
+	bitmap_base = new_object(BaseObject, 0, NULL);
-	return bitmap_base;
+    return bitmap_base;
+}
 /*
  *  Create a white bitmap.
  */
 bitmap newbitmap(int width, int height, int depth)
+{
-	BITMAP bm;
+    BITMAP bm;
-	HBITMAP hb, old;
+    HBITMAP hb, old;
-	HDC dc, screendc;
+    HDC dc, screendc;
-	bitmap obj;
+    bitmap obj;
-	screendc = GetDC(0); /* get screen dc */
+    screendc = GetDC(0); /* get screen dc */
-	if (depth == 1) /* monochrome bitmap required */
+    if (depth == 1) /* monochrome bitmap required */
-	{
+    {
-		hb = CreateBitmap(width, height, 1, 1, 0);
+	hb = CreateBitmap(width, height, 1, 1, 0);
-	}
+    }
-	else /* colour bitmap required */
+    else /* colour bitmap required */
-	{
+    {
-		hb = CreateCompatibleBitmap(screendc, width, height);
+	hb = CreateCompatibleBitmap(screendc, width, height);
-	}
+    }
-	if (! hb) {
+    if (! hb) {
-		ReleaseDC(0, screendc);
+	ReleaseDC(0, screendc);
-		return NULL;
+	return NULL;
-	}
+    }
-	dc = CreateCompatibleDC(screendc);
+    dc = CreateCompatibleDC(screendc);
-	old = SelectObject(dc, hb);
+    old = SelectObject(dc, hb);
-	PatBlt(dc, 0, 0, width, height, WHITENESS);
+    PatBlt(dc, 0, 0, width, height, WHITENESS);
-	SelectObject(dc, old);
+    SelectObject(dc, old);
-	DeleteDC(dc);
+    DeleteDC(dc);
-	ReleaseDC(0, screendc);
+    ReleaseDC(0, screendc);
-	GetObject(hb, sizeof(BITMAP), (LPSTR) &bm);
+    GetObject(hb, sizeof(BITMAP), (LPSTR) &bm);
-	obj = new_object(BitmapObject, hb, get_bitmap_base());
+    obj = new_object(BitmapObject, hb, get_bitmap_base());
-	if (! obj) {
+    if (! obj) {
-		DeleteObject(hb);
+	DeleteObject(hb);
-		return NULL;
+	return NULL;
-	}
+    }
-	obj->rect = rect(0,0,width,height);
+    obj->rect = rect(0,0,width,height);
-	obj->depth = (bm.bmPlanes * bm.bmBitsPixel);
+    obj->depth = (bm.bmPlanes * bm.bmBitsPixel);
-	obj->die = private_delbitmap;
+    obj->die = private_delbitmap;
-	return obj;
+    return obj;
+}
 /*
  *  Check an image to see if there are any transparent pixels.
  *  Return 1 as soon as a transparent pixel is found, 0 if none are.
  */
 PROTECTED
 int has_transparent_pixels(image img)
+{
-	long i, width, height, total;
+    long i, width, height, total;
-	rgb *palette;
+    rgb *palette;
-	byte *pixel8;
+    byte *pixel8;
-	rgb *pixel32;
+    rgb *pixel32;
-	rgb col;
+    rgb col;
-	if (! img)
-		return 0;
-	width = getwidth(img);
-	height = getheight(img);
-	total = width * height;
-	palette = getpalette(img);
-	pixel8 = getpixels(img);
-	pixel32 = (rgb *) pixel8;
-	if (getdepth(img) == 8) {
-		for (i=0; i < total; i++) {
-			col = pixel8[i];
-			col = palette[col];
-			if (getalpha(col) > 0x7F)
-				return 1;
-		}
-	}
-	else {
-		for (i=0; i < total; i++) {
-			col = pixel32[i];
-			if (getalpha(col) > 0x7F)
-				return 1;
-		}
-	}
+    if (! img)
 	return 0;
+    width = getwidth(img);
+    height = getheight(img);
+    total = width * height;
+    palette = getpalette(img);
+    pixel8 = getpixels(img);
+    pixel32 = (rgb *) pixel8;
+    if (getdepth(img) == 8) {
+	for (i=0; i < total; i++) {
+	    col = pixel8[i];
+	    col = palette[col];
+	    if (getalpha(col) > 0x7F)
+		return 1;
+	}
+    }
+    else {
+	for (i=0; i < total; i++) {
+	    col = pixel32[i];
+	    if (getalpha(col) > 0x7F)
+		return 1;
+	}
+    }
+    return 0;
+}
 /*
  *  Create a bitmap version of an image.
  */
 bitmap imagetobitmap(image img)
+{
-	HBITMAP hb;
+    HBITMAP hb;
-	HDC screendc;
+    HDC screendc;
-	bitmap obj;
+    bitmap obj;
-	int width, height, depth, palsize;
+    int width, height, depth, palsize;
-	unsigned long x, y, i, row_bytes;
+    unsigned long x, y, i, row_bytes;
-	byte *block, *data, *pixel8;
+    byte *block, *data, *pixel8;
-	rgb *palette, *pixel32;
+    rgb *palette, *pixel32;
-	rgb colour;
+    rgb colour;
-	unsigned long size;
+    unsigned long size;
-	BITMAPINFO * bmi;
+    BITMAPINFO * bmi;
-	if (! img)
+    if (! img)
-		return NULL;
+	return NULL;
-	/* remember some facts about the image */
-	width = getwidth(img);
-	height = getheight(img);
-	depth = (getdepth(img) == 8) ? 8 : 24;
-	palette = getpalette(img);
-	palsize = getpalettesize(img);
-	pixel8 = getpixels(img);
-	pixel32 = (rgb *) pixel8;
-	/* create DIB info in memory */
-	size = sizeof(BITMAPINFOHEADER) + 4;
-	if (depth == 8) {
-		row_bytes = ((width + 3) / 4) * 4;
-		size = size + (sizeof(RGBQUAD) * palsize);
-		size = size + (row_bytes * height);
-	} else {
-		row_bytes = (((width * 3) + 3) / 4) * 4;
-		size = size + (row_bytes * height);
-	}
+    /* remember some facts about the image */
+    width = getwidth(img);
+    height = getheight(img);
+    depth = (getdepth(img) == 8) ? 8 : 24;
+    palette = getpalette(img);
+    palsize = getpalettesize(img);
+    pixel8 = getpixels(img);
+    pixel32 = (rgb *) pixel8;
+    /* create DIB info in memory */
+    size = sizeof(BITMAPINFOHEADER) + 4;
+    if (depth == 8) {
+	row_bytes = ((width + 3) / 4) * 4;
+	size = size + (sizeof(RGBQUAD) * palsize);
+	size = size + (row_bytes * height);
+    } else {
+	row_bytes = (((width * 3) + 3) / 4) * 4;
+	size = size + (row_bytes * height);
+    }
-	/* create the block, align on LONG boundary
+    /* create the block, align on LONG boundary
-	block = array(size, byte);
+       block = array(size, byte);
-	i = ((long)block) % 4;
+       i = ((long)block) % 4;
-	bmi = (BITMAPINFO *) (block + (4 - i));
+       bmi = (BITMAPINFO *) (block + (4 - i));
-	malloc will have done the alignment, which needs to
+       malloc will have done the alignment, which needs to
-	be for pointers.
+       be for pointers.
-	*/
+    */
-	block = array(size, byte);
+    block = array(size, byte);
-	bmi = (BITMAPINFO *) block;
+    bmi = (BITMAPINFO *) block;
-	/* assign header info */
+    /* assign header info */
-	bmi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
+    bmi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
-	bmi->bmiHeader.biWidth = width;
+    bmi->bmiHeader.biWidth = width;
-	bmi->bmiHeader.biHeight = height;
+    bmi->bmiHeader.biHeight = height;
-	bmi->bmiHeader.biPlanes = 1;
+    bmi->bmiHeader.biPlanes = 1;
-	bmi->bmiHeader.biBitCount = depth;
+    bmi->bmiHeader.biBitCount = depth;
-	bmi->bmiHeader.biCompression = BI_RGB;
+    bmi->bmiHeader.biCompression = BI_RGB;
-	bmi->bmiHeader.biClrUsed = palsize;
+    bmi->bmiHeader.biClrUsed = palsize;
-	/* assign colour table */
+    /* assign colour table */
-	for (i=0; i < palsize; i++) {
+    for (i=0; i < palsize; i++) {
-		colour  = palette[i];
+	colour  = palette[i];
-		data = (byte *) (& bmi->bmiColors[i]);
+	data = (byte *) (& bmi->bmiColors[i]);
-		data[0] = getblue(colour);
+	data[0] = getblue(colour);
-		data[1] = getgreen(colour);
+	data[1] = getgreen(colour);
-		data[2] = getred(colour);
+	data[2] = getred(colour);
-		data[3] = 0;
+	data[3] = 0;
-	}
+    }
-	/* assign the bitmap data itself */
+    /* assign the bitmap data itself */
-	data = (byte *) (& bmi->bmiColors[palsize]);
+    data = (byte *) (& bmi->bmiColors[palsize]);
-	if (depth == 8)
+    if (depth == 8)
-	  for (y=0; y < height; y++) {
+	for (y=0; y < height; y++) {
 	    for (x=0; x < width; x++) {
 		i = ((height - y - 1) * row_bytes) + x;
 		data[i] = pixel8[y * width + x];
+	    }
-	  }
+	}
-	else
+    else
-	  for (y=0; y < height; y++) {
+	for (y=0; y < height; y++) {
 	    for (x=0; x < width; x++) {
 		colour = pixel32[y * width + x];
 		i = ((height - y - 1) * row_bytes) + (x * 3);
 		data[i] = getblue(colour);
 		data[i+1] = getgreen(colour);
 		data[i+2] = getred(colour);
+	    }
-	  }
+	}
-	/* create the bitmap from the DIB data */
+    /* create the bitmap from the DIB data */
-	screendc = GetDC(0);	/* get screen dc */
+    screendc = GetDC(0);	/* get screen dc */
-	hb = CreateDIBitmap(screendc, & bmi->bmiHeader, CBM_INIT,
+    hb = CreateDIBitmap(screendc, & bmi->bmiHeader, CBM_INIT,
 			data, bmi, DIB_RGB_COLORS);
-	ReleaseDC(0, screendc);	/* release screen dc */
+    ReleaseDC(0, screendc);	/* release screen dc */
-	/* tidy up */
+    /* tidy up */
-	discard(block);
+    discard(block);
-	/* create the bitmap */
+    /* create the bitmap */
-	obj = new_object(BitmapObject, hb, get_bitmap_base());
+    obj = new_object(BitmapObject, hb, get_bitmap_base());
-	if (! obj) {
+    if (! obj) {
-		DeleteObject(hb);
+	DeleteObject(hb);
-		return NULL;
+	return NULL;
-	}
+    }
-	obj->rect = rect(0,0,width,height);
+    obj->rect = rect(0,0,width,height);
-	obj->depth = depth;
+    obj->depth = depth;
-	obj->die = private_delbitmap;
+    obj->die = private_delbitmap;
-	return obj;
+    return obj;
+}
 #ifdef UNUSED
 /*
  *  The loadicon function returns a HBITMAP of an ICON from resources.
  */
 static bitmap loadicon(const char *name)
+{
-	HICON i;
+    HICON i;
-	HDC dc;
+    HDC dc;
-	HBITMAP old;
+    HBITMAP old;
-	bitmap obj;
+    bitmap obj;
-	if (this_instance == 0)
-		return NULL;
-	if ((i = LoadIcon(this_instance, name)) == 0)
-		return NULL;
-	if ((obj = newbitmap(32, 32, 0)) == NULL)
-		return NULL;
-	dc = CreateCompatibleDC(0);
-	old = SelectObject(dc, (HBITMAP)obj->handle);
-	DrawIcon(dc, 0, 0, i);
-	SelectObject(dc, old);
-	DeleteDC(dc);
-	DestroyIcon(i);
+    if (this_instance == 0)
+	return NULL;
+    if ((i = LoadIcon(this_instance, name)) == 0)
+	return NULL;
+    if ((obj = newbitmap(32, 32, 0)) == NULL)
+	return NULL;
+    dc = CreateCompatibleDC(0);
+    old = SelectObject(dc, (HBITMAP)obj->handle);
+    DrawIcon(dc, 0, 0, i);
+    SelectObject(dc, old);
+    DeleteDC(dc);
+    DestroyIcon(i);
-	return obj;
+    return obj;
+}
 /*
  *  The loadpict function returns BITMAP resources.
  */
 static bitmap loadpict(const char *name)
+{
-	BITMAP bm;
+    BITMAP bm;
-	HBITMAP hb;
+    HBITMAP hb;
-	bitmap obj;
+    bitmap obj;
-	if (this_instance == 0)
+    if (this_instance == 0)
-		return NULL;
+	return NULL;
-	hb = LoadBitmap(this_instance, name);
+    hb = LoadBitmap(this_instance, name);
-	GetObject(hb, sizeof(BITMAP), (LPSTR) &bm);
+    GetObject(hb, sizeof(BITMAP), (LPSTR) &bm);
-	obj = new_object(BitmapObject, hb, get_bitmap_base());
+    obj = new_object(BitmapObject, hb, get_bitmap_base());
-	if (obj) {
+    if (obj) {
-		obj->rect = rect(0, 0, bm.bmWidth, bm.bmHeight);
+	obj->rect = rect(0, 0, bm.bmWidth, bm.bmHeight);
-		obj->depth = (bm.bmPlanes * bm.bmBitsPixel);
+	obj->depth = (bm.bmPlanes * bm.bmBitsPixel);
-		obj->die = private_delbitmap;
+	obj->die = private_delbitmap;
-	}
+    }
-	return obj;
+    return obj;
+}
 /*
  *  The loadbitmap function finds and returns bitmaps from resources,
  *  or from an image file.
  */
 bitmap loadbitmap(const char *name)
+{
-	bitmap obj;
+    bitmap obj;
-	if ((obj = loadpict(name)) != NULL)
+    if ((obj = loadpict(name)) != NULL)
-		return obj;
+	return obj;
-	if ((obj = loadicon(name)) != NULL)
+    if ((obj = loadicon(name)) != NULL)
-		return obj;
+	return obj;
-	if ((obj = imagetobitmap(loadimage(name))) != NULL)
+    if ((obj = imagetobitmap(loadimage(name))) != NULL)
-		return obj;
+	return obj;
-	return NULL;
+    return NULL;
+}
 /*
  *  The following functions are obsolete from version 2.4.
  */
 void setbitmapdata(bitmap obj, unsigned char *data)
+{
-	rect r;
+    rect r;
-	int depth, size, row_bytes;
+    int depth, size, row_bytes;
-	int x, y;
+    int x, y;
-	unsigned char *newdata = NULL;
+    unsigned char *newdata = NULL;
-	r = obj->rect;
+    r = obj->rect;
-	depth = obj->depth;
+    depth = obj->depth;
-	/* Calculate source row bytes. */
+    /* Calculate source row bytes. */
-	row_bytes = ((depth * r.width) + 7) / 8;
+    row_bytes = ((depth * r.width) + 7) / 8;
-	/* Each row must be a multiple of 16 bits wide. */
+    /* Each row must be a multiple of 16 bits wide. */
-	if (row_bytes % 2) {
+    if (row_bytes % 2) {
-		/* Odd number of bytes, must assign into new array. */
+	/* Odd number of bytes, must assign into new array. */
-		size = (row_bytes+1) * r.height;
+	size = (row_bytes+1) * r.height;
-		newdata = array (size, byte);
+	newdata = array (size, byte);
-		if (! newdata)
+	if (! newdata)
-			return;
+	    return;
-		for (y=0; y<r.height; y++) {
+	for (y=0; y<r.height; y++) {
-			for (x=0; x<row_bytes; x++) {
+	    for (x=0; x<row_bytes; x++) {
-				newdata[y*(row_bytes+1)+x] =
+		newdata[y*(row_bytes+1)+x] =
-					data[y*row_bytes+x];
+		    data[y*row_bytes+x];
-			}
+	    }
-		}
-		SetBitmapBits((HBITMAP)obj->handle, size,
-				(LPSTR)newdata);
-		discard(newdata);
-	} else {
-		/* Correct format already! */
-		size = row_bytes * r.height;
-		SetBitmapBits((HBITMAP)obj->handle, size, (LPSTR)data);
+	}
+	SetBitmapBits((HBITMAP)obj->handle, size,
+		      (LPSTR)newdata);
+	discard(newdata);
+    } else {
+	/* Correct format already! */
+	size = row_bytes * r.height;
+	SetBitmapBits((HBITMAP)obj->handle, size, (LPSTR)data);
+    }
+}
 void getbitmapdata(bitmap obj, unsigned char *data)
+{
-	rect r;
+    rect r;
-	int depth, size, row_bytes;
+    int depth, size, row_bytes;
-	int x, y;
+    int x, y;
-	unsigned char *newdata = NULL;
+    unsigned char *newdata = NULL;
-	r = obj->rect;
+    r = obj->rect;
-	depth = obj->depth;
+    depth = obj->depth;
-	/* Calculate destination row bytes. */
+    /* Calculate destination row bytes. */
-	row_bytes = ((depth * r.width) + 7) / 8;
+    row_bytes = ((depth * r.width) + 7) / 8;
-	/* Each row must be a multiple of 16 bits wide. */
+    /* Each row must be a multiple of 16 bits wide. */
-	if (row_bytes % 2) {
+    if (row_bytes % 2) {
-		/* Odd number of bytes, must assign into new array. */
+	/* Odd number of bytes, must assign into new array. */
-		size = (row_bytes+1) * r.height;
+	size = (row_bytes+1) * r.height;
-		newdata = array (size, byte);
+	newdata = array (size, byte);
-		if (! newdata)
+	if (! newdata)
-			return;
+	    return;
-		GetBitmapBits((HBITMAP)obj->handle, size,
+	GetBitmapBits((HBITMAP)obj->handle, size,
-				(LPSTR)newdata);
+		      (LPSTR)newdata);
-		for (y=0; y<r.height; y++) {
+	for (y=0; y<r.height; y++) {
-			for (x=0; x<row_bytes; x++) {
+	    for (x=0; x<row_bytes; x++) {
-				data[y*row_bytes+x] =
+		data[y*row_bytes+x] =
-					newdata[y*(row_bytes+1)+x];
+		    newdata[y*(row_bytes+1)+x];
-			}
+	    }
-		}
-		discard(newdata);
-	} else {
-		/* Correct format already! */
-		size = row_bytes * r.height;
-		GetBitmapBits((HBITMAP)obj->handle, size, (LPSTR)data);
+	}
+	discard(newdata);
+    } else {
+	/* Correct format already! */
+	size = row_bytes * r.height;
+	GetBitmapBits((HBITMAP)obj->handle, size, (LPSTR)data);
+    }
+}
 bitmap createbitmap(int width, int height, int depth, unsigned char *data)
+{
-	bitmap obj;
+    bitmap obj;
-	if ((obj = newbitmap(width, height, depth)) == NULL)
+    if ((obj = newbitmap(width, height, depth)) == NULL)
-		return NULL;
+	return NULL;
-	if (data)
+    if (data)
-		setbitmapdata(obj, data);
+	setbitmapdata(obj, data);
-	return obj;
+    return obj;
+}
 #endif
 void getbitmapdata2(bitmap obj, unsigned char **data)
+{
-	rect r = obj->rect;
+    rect r = obj->rect;
-	int depth = 32, size, ret;
+    int depth = 32, size, ret;
-	BITMAPINFO bmi;
+    BITMAPINFO bmi;
-	bmi.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
+    bmi.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
-	bmi.bmiHeader.biWidth = r.width;
+    bmi.bmiHeader.biWidth = r.width;
-	bmi.bmiHeader.biHeight = -r.height;
+    bmi.bmiHeader.biHeight = -r.height;
-	bmi.bmiHeader.biPlanes = 1;
+    bmi.bmiHeader.biPlanes = 1;
-	bmi.bmiHeader.biBitCount = depth;
+    bmi.bmiHeader.biBitCount = depth;
-	bmi.bmiHeader.biCompression = BI_RGB;
+    bmi.bmiHeader.biCompression = BI_RGB;
-	bmi.bmiHeader.biClrUsed = 0;
+    bmi.bmiHeader.biClrUsed = 0;
-	size = 4 * r.width * r.height;
+    size = 4 * r.width * r.height;
-	*data = (unsigned char *) malloc(size);
+    *data = (unsigned char *) malloc(size);
-	if(*data) {
+    if(*data) {
-	    ret = GetDIBits(get_context(obj), (HBITMAP)obj->handle,
+	ret = GetDIBits(get_context(obj), (HBITMAP)obj->handle,
 , r.height, (LPSTR)*data, &bmi, DIB_RGB_COLORS);
-	    if(!ret) {
+	if(!ret) {
-		free(*data);
+	    free(*data);
-		*data = NULL;
+	    *data = NULL;
-	    }
+	}
+    }
+}

The R Project SVN R

(root)/branches/R-exp-R5/src/extra/graphapp/bitmaps.c @ 77458 – Rev 42641 → 45017