1 #include "x11-inc.h"
2 
3 #include <u.h>
4 #include <libc.h>
5 #include <draw.h>
6 #include <memdraw.h>
7 #include "x11-memdraw.h"
8 
9 /*
10  * Allocate a Memimage with an optional pixmap backing on the X server.
11  */
12 Memimage*
13 xallocmemimage(Rectangle r, u32int chan, int pixmap)
14 {
15 	int d, offset;
16 	Memimage *m;
17 	Xmem *xm;
18 	XImage *xi;
19 
20 	m = _allocmemimage(r, chan);
21 	if(chan != GREY1 && chan != _x.chan)
22 		return m;
23 
24 	/*
25 	 * For bootstrapping, don't bother storing 1x1 images
26 	 * on the X server.  Memimageinit needs to allocate these
27 	 * and we memimageinit before we do the rest of the X stuff.
28 	 * Of course, 1x1 images on the server are useless anyway.
29 	 */
30 	if(Dx(r)==1 && Dy(r)==1)
31 		return m;
32 
33 	xm = mallocz(sizeof(Xmem), 1);
34 	if(xm == nil){
35 		freememimage(m);
36 		return nil;
37 	}
38 
39 	/*
40 	 * Allocate backing store.  What we call a 32-bit image
41 	 * the X server calls a 24-bit image.
42 	 */
43 	d = m->depth;
44 	if(pixmap != PMundef)
45 		xm->pixmap = pixmap;
46 	else
47 		xm->pixmap = XCreatePixmap(_x.display, _x.drawable,
48 			Dx(r), Dy(r), d==32 ? 24 : d);
49 
50 	/*
51 	 * We want to align pixels on word boundaries.
52 	 */
53 	if(d == 24)
54 		offset = r.min.x&3;
55 	else
56 		offset = r.min.x&(31/m->depth);
57 	r.min.x -= offset;
58 	assert(wordsperline(r, m->depth) <= m->width);
59 
60 	/*
61 	 * Wrap our data in an XImage structure.
62 	 */
63 	xi = XCreateImage(_x.display, _x.vis, d==32 ? 24 : d,
64 		ZPixmap, 0, (char*)m->data->bdata, Dx(r), Dy(r),
65 		32, m->width*sizeof(u32int));
66 	if(xi == nil){
67 		freememimage(m);
68 		if(xm->pixmap != pixmap)
69 			XFreePixmap(_x.display, xm->pixmap);
70 		return nil;
71 	}
72 
73 	xm->xi = xi;
74 	xm->r = r;
75 
76 	/*
77 	 * Set the XImage parameters so that it looks exactly like
78 	 * a Memimage -- we're using the same data.
79 	 */
80 	if(m->depth < 8 || m->depth == 24)
81 		xi->bitmap_unit = 8;
82 	else
83 		xi->bitmap_unit = m->depth;
84 	xi->byte_order = LSBFirst;
85 	xi->bitmap_bit_order = MSBFirst;
86 	xi->bitmap_pad = 32;
87 	XInitImage(xi);
88 	XFlush(_x.display);
89 
90 	m->X = xm;
91 	return m;
92 }
93 
94 Memimage*
95 allocmemimage(Rectangle r, u32int chan)
96 {
97 	return xallocmemimage(r, chan, PMundef);
98 }
99 
100 void
101 freememimage(Memimage *m)
102 {
103 	Xmem *xm;
104 
105 	if(m == nil)
106 		return;
107 
108 	xm = m->X;
109 	if(xm && m->data->ref == 1){
110 		if(xm->xi){
111 			xm->xi->data = nil;
112 			XFree(xm->xi);
113 		}
114 		XFreePixmap(_x.display, xm->pixmap);
115 		free(xm);
116 		m->X = nil;
117 	}
118 	_freememimage(m);
119 }
120