shared_source/c_tk_base_7_5_w_mods/ximage.c

/* $Header$ */

/* 
 * ximage.c --
 *
 *      X bitmap and image routines.
 *
 * Copyright (c) 1995 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: ximage.c,v 1.1.1.1 2001/06/13 05:15:44 dtashley Exp $
 */

#include "tkInt.h"


/*
 *----------------------------------------------------------------------
 *
 * XCreateBitmapFromData --
 *
 *      Construct a single plane pixmap from bitmap data.
 *
 *      NOTE: This procedure has the correct behavior on Windows and
 *      the Macintosh, but not on UNIX.  This is probably because the
 *      emulation for XPutImage on those platforms compensates for whatever
 *      is wrong here :-)
 *
 * Results:
 *      Returns a new Pixmap.
 *
 * Side effects:
 *      Allocates a new bitmap and drawable.
 *
 *----------------------------------------------------------------------
 */

Pixmap
XCreateBitmapFromData(display, d, data, width, height)
    Display* display;
    Drawable d;
    _Xconst char* data;
    unsigned int width;
    unsigned int height;
{
    XImage ximage;
    GC gc;
    Pixmap pix;

    pix = Tk_GetPixmap(display, d, width, height, 1);
    gc = XCreateGC(display, pix, 0, NULL);
    if (gc == NULL) {
        return None;
    }
    ximage.height = height;
    ximage.width = width;
    ximage.depth = 1;
    ximage.bits_per_pixel = 1;
    ximage.xoffset = 0;
    ximage.format = XYBitmap;
    ximage.data = (char *)data;
    ximage.byte_order = LSBFirst;
    ximage.bitmap_unit = 8;
    ximage.bitmap_bit_order = LSBFirst;
    ximage.bitmap_pad = 8;
    ximage.bytes_per_line = (width+7)/8;

    TkPutImage(NULL, 0, display, pix, gc, &ximage, 0, 0, 0, 0, width, height);
    XFreeGC(display, gc);
    return pix;
}

/* End of ximage.c */
1	dashley	69	/* $Header$ */
2	dashley	25
3			/*
4			* ximage.c --
5			*
6			* X bitmap and image routines.
7			*
8			* Copyright (c) 1995 Sun Microsystems, Inc.
9			*
10			* See the file "license.terms" for information on usage and redistribution
11			* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12			*
13			* RCS: @(#) $Id: ximage.c,v 1.1.1.1 2001/06/13 05:15:44 dtashley Exp $
14			*/
15
16			#include "tkInt.h"
17
18
19			/*
20			*----------------------------------------------------------------------
21			*
22			* XCreateBitmapFromData --
23			*
24			* Construct a single plane pixmap from bitmap data.
25			*
26			* NOTE: This procedure has the correct behavior on Windows and
27			* the Macintosh, but not on UNIX. This is probably because the
28			* emulation for XPutImage on those platforms compensates for whatever
29			* is wrong here :-)
30			*
31			* Results:
32			* Returns a new Pixmap.
33			*
34			* Side effects:
35			* Allocates a new bitmap and drawable.
36			*
37			*----------------------------------------------------------------------
38			*/
39
40			Pixmap
41			XCreateBitmapFromData(display, d, data, width, height)
42			Display* display;
43			Drawable d;
44			_Xconst char* data;
45			unsigned int width;
46			unsigned int height;
47			{
48			XImage ximage;
49			GC gc;
50			Pixmap pix;
51
52			pix = Tk_GetPixmap(display, d, width, height, 1);
53			gc = XCreateGC(display, pix, 0, NULL);
54			if (gc == NULL) {
55			return None;
56			}
57			ximage.height = height;
58			ximage.width = width;
59			ximage.depth = 1;
60			ximage.bits_per_pixel = 1;
61			ximage.xoffset = 0;
62			ximage.format = XYBitmap;
63			ximage.data = (char *)data;
64			ximage.byte_order = LSBFirst;
65			ximage.bitmap_unit = 8;
66			ximage.bitmap_bit_order = LSBFirst;
67			ximage.bitmap_pad = 8;
68			ximage.bytes_per_line = (width+7)/8;
69
70			TkPutImage(NULL, 0, display, pix, gc, &ximage, 0, 0, 0, 0, width, height);
71			XFreeGC(display, gc);
72			return pix;
73			}
74
75	dashley	69	/* End of ximage.c */