earlybrowserreborn - Rev 1

Subversion Repositories:
Rev:
/* Copyright 1990,91 GROUPE BULL -- See licence conditions in file COPYRIGHT */
/*****************************************************************************\
* XpmWrFFrP.c:                                                                *
*                                                                             *
*  XPM library                                                                *
*  Write a pixmap and possibly its mask to an XPM file                        *
*                                                                             *
*  Developed by Arnaud Le Hors                                                *
\*****************************************************************************/


#include "xpmP.h"
#ifdef VMS
#include "sys$library:string.h"
#else
#ifdef SYSV
#include <string.h>
#else
#include <strings.h>
#endif
#endif

int
XpmWriteFileFromPixmap(display, filename, pixmap, shapemask, attributes)
    Display *display;
    char *filename;
    Pixmap pixmap;
    Pixmap shapemask;
    XpmAttributes *attributes;
{
    XImage *image = NULL;
    XImage *shapeimage = NULL;
    unsigned int width = 0;
    unsigned int height = 0;
    int ErrorStatus;
    unsigned int dum;
    int dummy;
    Window win;

    /*
     * get geometry
     */

    if (attributes && attributes->valuemask & XpmSize) {
        width = attributes->width;
        height = attributes->height;
    } else {
        if (pixmap)
            XGetGeometry(display, pixmap, &win, &dummy, &dummy,
                         &width, &height, &dum, &dum);
        else if (shapemask)
            XGetGeometry(display, shapemask, &win, &dummy, &dummy,
                         &width, &height, &dum, &dum);
    }

    /*
     * get the images
     */

    if (pixmap)
        image = XGetImage(display, pixmap, 0, 0, width, height,
                          AllPlanes, ZPixmap);
    if (shapemask)
        shapeimage = XGetImage(display, shapemask, 0, 0, width, height,
                               AllPlanes, ZPixmap);

    /*
     * write them out
     */

    ErrorStatus = XpmWriteFileFromImage(display, filename, image, shapeimage,
                                        attributes);
    if (image)
        XDestroyImage(image);
    if (shapeimage)
        XDestroyImage(shapeimage);

    return (ErrorStatus);
}