Blame src/CrPixFBit.c

Packit Service 2b1f13
/*
Packit Service 2b1f13
Packit Service 2b1f13
Copyright 1988, 1998  The Open Group
Packit Service 2b1f13
Packit Service 2b1f13
Permission to use, copy, modify, distribute, and sell this software and its
Packit Service 2b1f13
documentation for any purpose is hereby granted without fee, provided that
Packit Service 2b1f13
the above copyright notice appear in all copies and that both that
Packit Service 2b1f13
copyright notice and this permission notice appear in supporting
Packit Service 2b1f13
documentation.
Packit Service 2b1f13
Packit Service 2b1f13
The above copyright notice and this permission notice shall be included in
Packit Service 2b1f13
all copies or substantial portions of the Software.
Packit Service 2b1f13
Packit Service 2b1f13
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
Packit Service 2b1f13
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
Packit Service 2b1f13
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
Packit Service 2b1f13
OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
Packit Service 2b1f13
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
Packit Service 2b1f13
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
Packit Service 2b1f13
Packit Service 2b1f13
Except as contained in this notice, the name of The Open Group shall not be
Packit Service 2b1f13
used in advertising or otherwise to promote the sale, use or other dealings
Packit Service 2b1f13
in this Software without prior written authorization from The Open Group.
Packit Service 2b1f13
Packit Service 2b1f13
*/
Packit Service 2b1f13
Packit Service 2b1f13
/*
Packit Service 2b1f13
 * This file contains miscellaneous utility routines and is not part of the
Packit Service 2b1f13
 * Xlib standard.
Packit Service 2b1f13
 */
Packit Service 2b1f13
Packit Service 2b1f13
/*
Packit Service 2b1f13
 * Public entry points:
Packit Service 2b1f13
 *
Packit Service 2b1f13
 *     XmuCreatePixmapFromBitmap	make a pixmap from a bitmap
Packit Service 2b1f13
 */
Packit Service 2b1f13
Packit Service 2b1f13
#ifdef HAVE_CONFIG_H
Packit Service 2b1f13
#include <config.h>
Packit Service 2b1f13
#endif
Packit Service 2b1f13
#include <X11/Xos.h>
Packit Service 2b1f13
#include <X11/Xlib.h>
Packit Service 2b1f13
#include <X11/Xmu/Drawing.h>
Packit Service 2b1f13
Packit Service 2b1f13
Pixmap
Packit Service 2b1f13
XmuCreatePixmapFromBitmap(Display *dpy, Drawable d, Pixmap bitmap,
Packit Service 2b1f13
			  unsigned int width, unsigned int height,
Packit Service 2b1f13
			  unsigned int depth,
Packit Service 2b1f13
			  unsigned long fore, unsigned long back)
Packit Service 2b1f13
     /*
Packit Service 2b1f13
      * dpy		-	connection to X server
Packit Service 2b1f13
      * d		-	drawable indicating screen
Packit Service 2b1f13
      * bitmap		-	single plane pixmap
Packit Service 2b1f13
      * width, height	-	dimensions of bitmap and pixmap
Packit Service 2b1f13
      * depth		-	depth of pixmap to create
Packit Service 2b1f13
      * fore, back	-	colors to use
Packit Service 2b1f13
      */
Packit Service 2b1f13
{
Packit Service 2b1f13
    Pixmap pixmap;
Packit Service 2b1f13
Packit Service 2b1f13
    pixmap = XCreatePixmap (dpy, d, width, height, depth);
Packit Service 2b1f13
    if (pixmap != None) {
Packit Service 2b1f13
	GC gc;
Packit Service 2b1f13
	XGCValues xgcv;
Packit Service 2b1f13
Packit Service 2b1f13
	xgcv.foreground = fore;
Packit Service 2b1f13
	xgcv.background = back;
Packit Service 2b1f13
	xgcv.graphics_exposures = False;
Packit Service 2b1f13
Packit Service 2b1f13
	gc = XCreateGC (dpy, d,
Packit Service 2b1f13
			(GCForeground | GCBackground | GCGraphicsExposures),
Packit Service 2b1f13
			&xgcv);
Packit Service 2b1f13
	if (gc) {
Packit Service 2b1f13
	    XCopyPlane (dpy, bitmap, pixmap, gc, 0, 0, width, height, 0, 0, 1);
Packit Service 2b1f13
	    XFreeGC (dpy, gc);
Packit Service 2b1f13
	} else {
Packit Service 2b1f13
	    XFreePixmap (dpy, pixmap);
Packit Service 2b1f13
	    pixmap = None;
Packit Service 2b1f13
	}
Packit Service 2b1f13
    }
Packit Service 2b1f13
    return pixmap;
Packit Service 2b1f13
}