1 324891a5 2006-06-25 devnull #include <u.h>
2 324891a5 2006-06-25 devnull #include <libc.h>
3 324891a5 2006-06-25 devnull #include <draw.h>
4 324891a5 2006-06-25 devnull #include <memdraw.h>
6 324891a5 2006-06-25 devnull #define poolalloc(a, b) malloc(b)
7 324891a5 2006-06-25 devnull #define poolfree(a, b) free(b)
10 324891a5 2006-06-25 devnull memimagemove(void *from, void *to)
12 324891a5 2006-06-25 devnull Memdata *md;
14 324891a5 2006-06-25 devnull md = *(Memdata**)to;
15 324891a5 2006-06-25 devnull if(md->base != from){
16 324891a5 2006-06-25 devnull print("compacted data not right: #%p\n", md->base);
19 324891a5 2006-06-25 devnull md->base = to;
21 324891a5 2006-06-25 devnull /* if allocmemimage changes this must change too */
22 324891a5 2006-06-25 devnull md->bdata = (uchar*)md->base+sizeof(Memdata*)+sizeof(ulong);
25 324891a5 2006-06-25 devnull Memimage*
26 324891a5 2006-06-25 devnull allocmemimaged(Rectangle r, u32int chan, Memdata *md, void *X)
29 324891a5 2006-06-25 devnull u32int l;
30 324891a5 2006-06-25 devnull Memimage *i;
32 324891a5 2006-06-25 devnull if(Dx(r) <= 0 || Dy(r) <= 0){
33 324891a5 2006-06-25 devnull werrstr("bad rectangle %R", r);
34 324891a5 2006-06-25 devnull return nil;
36 324891a5 2006-06-25 devnull if((d = chantodepth(chan)) == 0) {
37 324891a5 2006-06-25 devnull werrstr("bad channel descriptor %.8lux", chan);
38 324891a5 2006-06-25 devnull return nil;
41 324891a5 2006-06-25 devnull l = wordsperline(r, d);
43 324891a5 2006-06-25 devnull i = mallocz(sizeof(Memimage), 1);
44 324891a5 2006-06-25 devnull if(i == nil)
45 324891a5 2006-06-25 devnull return nil;
47 324891a5 2006-06-25 devnull i->X = X;
48 324891a5 2006-06-25 devnull i->data = md;
49 324891a5 2006-06-25 devnull i->zero = sizeof(u32int)*l*r.min.y;
51 324891a5 2006-06-25 devnull if(r.min.x >= 0)
52 324891a5 2006-06-25 devnull i->zero += (r.min.x*d)/8;
54 324891a5 2006-06-25 devnull i->zero -= (-r.min.x*d+7)/8;
55 324891a5 2006-06-25 devnull i->zero = -i->zero;
56 324891a5 2006-06-25 devnull i->width = l;
57 324891a5 2006-06-25 devnull i->r = r;
58 324891a5 2006-06-25 devnull i->clipr = r;
59 324891a5 2006-06-25 devnull i->flags = 0;
60 324891a5 2006-06-25 devnull i->layer = nil;
61 324891a5 2006-06-25 devnull i->cmap = memdefcmap;
62 324891a5 2006-06-25 devnull if(memsetchan(i, chan) < 0){
64 324891a5 2006-06-25 devnull return nil;
66 324891a5 2006-06-25 devnull return i;
69 324891a5 2006-06-25 devnull Memimage*
70 324891a5 2006-06-25 devnull _allocmemimage(Rectangle r, u32int chan)
73 324891a5 2006-06-25 devnull u32int l, nw;
74 324891a5 2006-06-25 devnull uchar *p;
75 324891a5 2006-06-25 devnull Memdata *md;
76 324891a5 2006-06-25 devnull Memimage *i;
78 324891a5 2006-06-25 devnull if((d = chantodepth(chan)) == 0) {
79 324891a5 2006-06-25 devnull werrstr("bad channel descriptor %.8lux", chan);
80 324891a5 2006-06-25 devnull return nil;
83 324891a5 2006-06-25 devnull l = wordsperline(r, d);
84 324891a5 2006-06-25 devnull nw = l*Dy(r);
85 324891a5 2006-06-25 devnull md = malloc(sizeof(Memdata));
86 324891a5 2006-06-25 devnull if(md == nil)
87 324891a5 2006-06-25 devnull return nil;
89 324891a5 2006-06-25 devnull md->ref = 1;
90 324891a5 2006-06-25 devnull md->base = poolalloc(imagmem, sizeof(Memdata*)+(1+nw)*sizeof(ulong));
91 324891a5 2006-06-25 devnull if(md->base == nil){
92 324891a5 2006-06-25 devnull free(md);
93 324891a5 2006-06-25 devnull return nil;
96 324891a5 2006-06-25 devnull p = (uchar*)md->base;
97 324891a5 2006-06-25 devnull *(Memdata**)p = md;
98 324891a5 2006-06-25 devnull p += sizeof(Memdata*);
100 324891a5 2006-06-25 devnull *(ulong*)p = getcallerpc(&r);
101 324891a5 2006-06-25 devnull p += sizeof(ulong);
103 324891a5 2006-06-25 devnull /* if this changes, memimagemove must change too */
104 324891a5 2006-06-25 devnull md->bdata = p;
105 324891a5 2006-06-25 devnull md->allocd = 1;
107 324891a5 2006-06-25 devnull i = allocmemimaged(r, chan, md, nil);
108 324891a5 2006-06-25 devnull if(i == nil){
109 324891a5 2006-06-25 devnull poolfree(imagmem, md->base);
110 324891a5 2006-06-25 devnull free(md);
111 324891a5 2006-06-25 devnull return nil;
113 324891a5 2006-06-25 devnull md->imref = i;
114 324891a5 2006-06-25 devnull return i;
118 324891a5 2006-06-25 devnull _freememimage(Memimage *i)
120 324891a5 2006-06-25 devnull if(i == nil)
122 324891a5 2006-06-25 devnull if(i->data->ref-- == 1 && i->data->allocd){
123 324891a5 2006-06-25 devnull if(i->data->base)
124 324891a5 2006-06-25 devnull poolfree(imagmem, i->data->base);
125 324891a5 2006-06-25 devnull free(i->data);
127 324891a5 2006-06-25 devnull free(i);
131 324891a5 2006-06-25 devnull * Wordaddr is deprecated.
134 324891a5 2006-06-25 devnull wordaddr(Memimage *i, Point p)
136 324891a5 2006-06-25 devnull return (u32int*) ((ulong)byteaddr(i, p) & ~(sizeof(u32int)-1));
140 324891a5 2006-06-25 devnull byteaddr(Memimage *i, Point p)
142 324891a5 2006-06-25 devnull uchar *a;
144 33cdf632 2012-10-21 rsc /* careful to sign-extend negative p.y for 64-bits */
145 33cdf632 2012-10-21 rsc a = i->data->bdata+i->zero+(int)(sizeof(u32int)*p.y*i->width);
147 324891a5 2006-06-25 devnull if(i->depth < 8){
149 324891a5 2006-06-25 devnull * We need to always round down,
150 324891a5 2006-06-25 devnull * but C rounds toward zero.
153 324891a5 2006-06-25 devnull np = 8/i->depth;
154 324891a5 2006-06-25 devnull if(p.x < 0)
155 324891a5 2006-06-25 devnull return a+(p.x-np+1)/np;
157 324891a5 2006-06-25 devnull return a+p.x/np;
160 324891a5 2006-06-25 devnull return a+p.x*(i->depth/8);
164 324891a5 2006-06-25 devnull memsetchan(Memimage *i, u32int chan)
167 324891a5 2006-06-25 devnull int t, j, k;
168 324891a5 2006-06-25 devnull u32int cc;
169 324891a5 2006-06-25 devnull int bytes;
171 324891a5 2006-06-25 devnull if((d = chantodepth(chan)) == 0) {
172 324891a5 2006-06-25 devnull werrstr("bad channel descriptor");
173 324891a5 2006-06-25 devnull return -1;
176 324891a5 2006-06-25 devnull i->depth = d;
177 324891a5 2006-06-25 devnull i->chan = chan;
178 324891a5 2006-06-25 devnull i->flags &= ~(Fgrey|Falpha|Fcmap|Fbytes);
179 324891a5 2006-06-25 devnull bytes = 1;
180 324891a5 2006-06-25 devnull for(cc=chan, j=0, k=0; cc; j+=NBITS(cc), cc>>=8, k++){
181 324891a5 2006-06-25 devnull t=TYPE(cc);
182 324891a5 2006-06-25 devnull if(t < 0 || t >= NChan){
183 324891a5 2006-06-25 devnull werrstr("bad channel string");
184 324891a5 2006-06-25 devnull return -1;
186 324891a5 2006-06-25 devnull if(t == CGrey)
187 324891a5 2006-06-25 devnull i->flags |= Fgrey;
188 324891a5 2006-06-25 devnull if(t == CAlpha)
189 324891a5 2006-06-25 devnull i->flags |= Falpha;
190 324891a5 2006-06-25 devnull if(t == CMap && i->cmap == nil){
191 324891a5 2006-06-25 devnull i->cmap = memdefcmap;
192 324891a5 2006-06-25 devnull i->flags |= Fcmap;
195 324891a5 2006-06-25 devnull i->shift[t] = j;
196 324891a5 2006-06-25 devnull i->mask[t] = (1<<NBITS(cc))-1;
197 324891a5 2006-06-25 devnull i->nbits[t] = NBITS(cc);
198 324891a5 2006-06-25 devnull if(NBITS(cc) != 8)
199 324891a5 2006-06-25 devnull bytes = 0;
201 324891a5 2006-06-25 devnull i->nchan = k;
202 324891a5 2006-06-25 devnull if(bytes)
203 324891a5 2006-06-25 devnull i->flags |= Fbytes;
204 324891a5 2006-06-25 devnull return 0;