1 76193d7c 2003-09-30 devnull #include <u.h>
2 76193d7c 2003-09-30 devnull #include <libc.h>
3 76193d7c 2003-09-30 devnull #include <draw.h>
4 76193d7c 2003-09-30 devnull #include <memdraw.h>
6 76193d7c 2003-09-30 devnull #define poolalloc(a, b) malloc(b)
7 76193d7c 2003-09-30 devnull #define poolfree(a, b) free(b)
10 76193d7c 2003-09-30 devnull memimagemove(void *from, void *to)
12 76193d7c 2003-09-30 devnull Memdata *md;
14 76193d7c 2003-09-30 devnull md = *(Memdata**)to;
15 76193d7c 2003-09-30 devnull if(md->base != from){
16 76193d7c 2003-09-30 devnull print("compacted data not right: #%p\n", md->base);
19 76193d7c 2003-09-30 devnull md->base = to;
21 76193d7c 2003-09-30 devnull /* if allocmemimage changes this must change too */
22 76193d7c 2003-09-30 devnull md->bdata = (uchar*)&md->base[2];
25 76193d7c 2003-09-30 devnull Memimage*
26 76193d7c 2003-09-30 devnull allocmemimaged(Rectangle r, u32int chan, Memdata *md, void *X)
29 76193d7c 2003-09-30 devnull u32int l;
30 76193d7c 2003-09-30 devnull Memimage *i;
32 76193d7c 2003-09-30 devnull if(Dx(r) <= 0 || Dy(r) <= 0){
33 76193d7c 2003-09-30 devnull werrstr("bad rectangle %R", r);
34 76193d7c 2003-09-30 devnull return nil;
36 76193d7c 2003-09-30 devnull if((d = chantodepth(chan)) == 0) {
37 76193d7c 2003-09-30 devnull werrstr("bad channel descriptor %.8lux", chan);
38 76193d7c 2003-09-30 devnull return nil;
41 76193d7c 2003-09-30 devnull l = wordsperline(r, d);
43 76193d7c 2003-09-30 devnull i = mallocz(sizeof(Memimage), 1);
44 76193d7c 2003-09-30 devnull if(i == nil)
45 76193d7c 2003-09-30 devnull return nil;
47 76193d7c 2003-09-30 devnull i->X = X;
48 76193d7c 2003-09-30 devnull i->data = md;
49 76193d7c 2003-09-30 devnull i->zero = sizeof(u32int)*l*r.min.y;
51 76193d7c 2003-09-30 devnull if(r.min.x >= 0)
52 76193d7c 2003-09-30 devnull i->zero += (r.min.x*d)/8;
54 76193d7c 2003-09-30 devnull i->zero -= (-r.min.x*d+7)/8;
55 76193d7c 2003-09-30 devnull i->zero = -i->zero;
56 76193d7c 2003-09-30 devnull i->width = l;
57 76193d7c 2003-09-30 devnull i->r = r;
58 76193d7c 2003-09-30 devnull i->clipr = r;
59 76193d7c 2003-09-30 devnull i->flags = 0;
60 76193d7c 2003-09-30 devnull i->layer = nil;
61 76193d7c 2003-09-30 devnull i->cmap = memdefcmap;
62 76193d7c 2003-09-30 devnull if(memsetchan(i, chan) < 0){
64 76193d7c 2003-09-30 devnull return nil;
66 76193d7c 2003-09-30 devnull return i;
69 76193d7c 2003-09-30 devnull Memimage*
70 76193d7c 2003-09-30 devnull _allocmemimage(Rectangle r, u32int chan)
73 76193d7c 2003-09-30 devnull u32int l, nw;
74 76193d7c 2003-09-30 devnull Memdata *md;
75 76193d7c 2003-09-30 devnull Memimage *i;
77 76193d7c 2003-09-30 devnull if((d = chantodepth(chan)) == 0) {
78 76193d7c 2003-09-30 devnull werrstr("bad channel descriptor %.8lux", chan);
79 76193d7c 2003-09-30 devnull return nil;
82 76193d7c 2003-09-30 devnull l = wordsperline(r, d);
83 76193d7c 2003-09-30 devnull nw = l*Dy(r);
84 76193d7c 2003-09-30 devnull md = malloc(sizeof(Memdata));
85 76193d7c 2003-09-30 devnull if(md == nil)
86 76193d7c 2003-09-30 devnull return nil;
88 76193d7c 2003-09-30 devnull md->ref = 1;
89 76193d7c 2003-09-30 devnull md->base = poolalloc(imagmem, (2+nw)*sizeof(u32int));
90 76193d7c 2003-09-30 devnull if(md->base == nil){
91 76193d7c 2003-09-30 devnull free(md);
92 76193d7c 2003-09-30 devnull return nil;
95 76193d7c 2003-09-30 devnull md->base[0] = (u32int)md;
96 76193d7c 2003-09-30 devnull md->base[1] = getcallerpc(&r);
98 76193d7c 2003-09-30 devnull /* if this changes, memimagemove must change too */
99 76193d7c 2003-09-30 devnull md->bdata = (uchar*)&md->base[2];
101 76193d7c 2003-09-30 devnull md->allocd = 1;
103 76193d7c 2003-09-30 devnull i = allocmemimaged(r, chan, md, nil);
104 76193d7c 2003-09-30 devnull if(i == nil){
105 76193d7c 2003-09-30 devnull poolfree(imagmem, md->base);
106 76193d7c 2003-09-30 devnull free(md);
107 76193d7c 2003-09-30 devnull return nil;
109 76193d7c 2003-09-30 devnull md->imref = i;
110 76193d7c 2003-09-30 devnull return i;
114 76193d7c 2003-09-30 devnull _freememimage(Memimage *i)
116 76193d7c 2003-09-30 devnull if(i == nil)
118 76193d7c 2003-09-30 devnull if(i->data->ref-- == 1 && i->data->allocd){
119 76193d7c 2003-09-30 devnull if(i->data->base)
120 76193d7c 2003-09-30 devnull poolfree(imagmem, i->data->base);
121 76193d7c 2003-09-30 devnull free(i->data);
123 76193d7c 2003-09-30 devnull free(i);
127 76193d7c 2003-09-30 devnull * Wordaddr is deprecated.
130 76193d7c 2003-09-30 devnull wordaddr(Memimage *i, Point p)
132 76193d7c 2003-09-30 devnull return (u32int*) ((u32int)byteaddr(i, p) & ~(sizeof(u32int)-1));
136 76193d7c 2003-09-30 devnull byteaddr(Memimage *i, Point p)
138 76193d7c 2003-09-30 devnull uchar *a;
140 76193d7c 2003-09-30 devnull a = i->data->bdata+i->zero+sizeof(u32int)*p.y*i->width;
142 76193d7c 2003-09-30 devnull if(i->depth < 8){
144 76193d7c 2003-09-30 devnull * We need to always round down,
145 76193d7c 2003-09-30 devnull * but C rounds toward zero.
148 76193d7c 2003-09-30 devnull np = 8/i->depth;
149 76193d7c 2003-09-30 devnull if(p.x < 0)
150 76193d7c 2003-09-30 devnull return a+(p.x-np+1)/np;
152 76193d7c 2003-09-30 devnull return a+p.x/np;
155 76193d7c 2003-09-30 devnull return a+p.x*(i->depth/8);
159 76193d7c 2003-09-30 devnull memsetchan(Memimage *i, u32int chan)
162 76193d7c 2003-09-30 devnull int t, j, k;
163 76193d7c 2003-09-30 devnull u32int cc;
164 76193d7c 2003-09-30 devnull int bytes;
166 76193d7c 2003-09-30 devnull if((d = chantodepth(chan)) == 0) {
167 76193d7c 2003-09-30 devnull werrstr("bad channel descriptor");
168 76193d7c 2003-09-30 devnull return -1;
171 76193d7c 2003-09-30 devnull i->depth = d;
172 76193d7c 2003-09-30 devnull i->chan = chan;
173 76193d7c 2003-09-30 devnull i->flags &= ~(Fgrey|Falpha|Fcmap|Fbytes);
174 76193d7c 2003-09-30 devnull bytes = 1;
175 76193d7c 2003-09-30 devnull for(cc=chan, j=0, k=0; cc; j+=NBITS(cc), cc>>=8, k++){
176 76193d7c 2003-09-30 devnull t=TYPE(cc);
177 76193d7c 2003-09-30 devnull if(t < 0 || t >= NChan){
178 76193d7c 2003-09-30 devnull werrstr("bad channel string");
179 76193d7c 2003-09-30 devnull return -1;
181 76193d7c 2003-09-30 devnull if(t == CGrey)
182 76193d7c 2003-09-30 devnull i->flags |= Fgrey;
183 76193d7c 2003-09-30 devnull if(t == CAlpha)
184 76193d7c 2003-09-30 devnull i->flags |= Falpha;
185 76193d7c 2003-09-30 devnull if(t == CMap && i->cmap == nil){
186 76193d7c 2003-09-30 devnull i->cmap = memdefcmap;
187 76193d7c 2003-09-30 devnull i->flags |= Fcmap;
190 76193d7c 2003-09-30 devnull i->shift[t] = j;
191 76193d7c 2003-09-30 devnull i->mask[t] = (1<<NBITS(cc))-1;
192 76193d7c 2003-09-30 devnull i->nbits[t] = NBITS(cc);
193 76193d7c 2003-09-30 devnull if(NBITS(cc) != 8)
194 76193d7c 2003-09-30 devnull bytes = 0;
196 76193d7c 2003-09-30 devnull i->nchan = k;
197 76193d7c 2003-09-30 devnull if(bytes)
198 76193d7c 2003-09-30 devnull i->flags |= Fbytes;
199 76193d7c 2003-09-30 devnull return 0;