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 int drawdebug;
7 76193d7c 2003-09-30 devnull static int tablesbuilt;
9 76193d7c 2003-09-30 devnull /* perfect approximation to NTSC = .299r+.587g+.114b when 0 ≤ r,g,b < 256 */
10 76193d7c 2003-09-30 devnull #define RGB2K(r,g,b) ((156763*(r)+307758*(g)+59769*(b))>>19)
13 76193d7c 2003-09-30 devnull * for 0 ≤ x ≤ 255*255, (x*0x0101+0x100)>>16 is a perfect approximation.
14 76193d7c 2003-09-30 devnull * for 0 ≤ x < (1<<16), x/255 = ((x+1)*0x0101)>>16 is a perfect approximation.
15 76193d7c 2003-09-30 devnull * the last one is perfect for all up to 1<<16, avoids a multiply, but requires a rathole.
17 76193d7c 2003-09-30 devnull /* #define DIV255(x) (((x)*257+256)>>16) */
18 76193d7c 2003-09-30 devnull #define DIV255(x) ((((x)+1)*257)>>16)
19 76193d7c 2003-09-30 devnull /* #define DIV255(x) (tmp=(x)+1, (tmp+(tmp>>8))>>8) */
21 76193d7c 2003-09-30 devnull #define MUL(x, y, t) (t = (x)*(y)+128, (t+(t>>8))>>8)
22 76193d7c 2003-09-30 devnull #define MASK13 0xFF00FF00
23 76193d7c 2003-09-30 devnull #define MASK02 0x00FF00FF
24 76193d7c 2003-09-30 devnull #define MUL13(a, x, t) (t = (a)*(((x)&MASK13)>>8)+128, ((t+((t>>8)&MASK02))>>8)&MASK02)
25 76193d7c 2003-09-30 devnull #define MUL02(a, x, t) (t = (a)*(((x)&MASK02)>>0)+128, ((t+((t>>8)&MASK02))>>8)&MASK02)
26 76193d7c 2003-09-30 devnull #define MUL0123(a, x, s, t) ((MUL13(a, x, s)<<8)|MUL02(a, x, t))
28 76193d7c 2003-09-30 devnull #define MUL2(u, v, x, y) (t = (u)*(v)+(x)*(y)+256, (t+(t>>8))>>8)
30 76193d7c 2003-09-30 devnull static void mktables(void);
31 76193d7c 2003-09-30 devnull typedef int Subdraw(Memdrawparam*);
32 76193d7c 2003-09-30 devnull static Subdraw chardraw, alphadraw, memoptdraw;
34 76193d7c 2003-09-30 devnull static Memimage* memones;
35 76193d7c 2003-09-30 devnull static Memimage* memzeros;
36 76193d7c 2003-09-30 devnull Memimage *memwhite;
37 76193d7c 2003-09-30 devnull Memimage *memblack;
38 76193d7c 2003-09-30 devnull Memimage *memtransparent;
39 76193d7c 2003-09-30 devnull Memimage *memopaque;
41 76193d7c 2003-09-30 devnull int __ifmt(Fmt*);
44 76193d7c 2003-09-30 devnull memimageinit(void)
46 76193d7c 2003-09-30 devnull static int didinit = 0;
48 76193d7c 2003-09-30 devnull if(didinit)
51 76193d7c 2003-09-30 devnull didinit = 1;
53 76193d7c 2003-09-30 devnull mktables();
54 76193d7c 2003-09-30 devnull _memmkcmap();
56 76193d7c 2003-09-30 devnull fmtinstall('R', Rfmt);
57 76193d7c 2003-09-30 devnull fmtinstall('P', Pfmt);
58 76193d7c 2003-09-30 devnull fmtinstall('b', __ifmt);
60 76193d7c 2003-09-30 devnull memones = allocmemimage(Rect(0,0,1,1), GREY1);
61 76193d7c 2003-09-30 devnull memones->flags |= Frepl;
62 76193d7c 2003-09-30 devnull memones->clipr = Rect(-0x3FFFFFF, -0x3FFFFFF, 0x3FFFFFF, 0x3FFFFFF);
63 76193d7c 2003-09-30 devnull *byteaddr(memones, ZP) = ~0;
65 76193d7c 2003-09-30 devnull memzeros = allocmemimage(Rect(0,0,1,1), GREY1);
66 76193d7c 2003-09-30 devnull memzeros->flags |= Frepl;
67 76193d7c 2003-09-30 devnull memzeros->clipr = Rect(-0x3FFFFFF, -0x3FFFFFF, 0x3FFFFFF, 0x3FFFFFF);
68 76193d7c 2003-09-30 devnull *byteaddr(memzeros, ZP) = 0;
70 76193d7c 2003-09-30 devnull if(memones == nil || memzeros == nil)
71 76193d7c 2003-09-30 devnull assert(0 /*cannot initialize memimage library */); /* RSC BUG */
73 76193d7c 2003-09-30 devnull memwhite = memones;
74 76193d7c 2003-09-30 devnull memblack = memzeros;
75 76193d7c 2003-09-30 devnull memopaque = memones;
76 76193d7c 2003-09-30 devnull memtransparent = memzeros;
79 76193d7c 2003-09-30 devnull u32int _imgtorgba(Memimage*, u32int);
80 76193d7c 2003-09-30 devnull u32int _rgbatoimg(Memimage*, u32int);
81 76193d7c 2003-09-30 devnull u32int _pixelbits(Memimage*, Point);
83 76193d7c 2003-09-30 devnull #define DBG if(0)
84 76193d7c 2003-09-30 devnull static Memdrawparam par;
86 76193d7c 2003-09-30 devnull Memdrawparam*
87 76193d7c 2003-09-30 devnull _memimagedrawsetup(Memimage *dst, Rectangle r, Memimage *src, Point p0, Memimage *mask, Point p1, int op)
89 76193d7c 2003-09-30 devnull if(mask == nil)
90 76193d7c 2003-09-30 devnull mask = memopaque;
92 76193d7c 2003-09-30 devnull DBG print("memimagedraw %p/%luX %R @ %p %p/%luX %P %p/%luX %P... ", dst, dst->chan, r, dst->data->bdata, src, src->chan, p0, mask, mask->chan, p1);
94 76193d7c 2003-09-30 devnull if(drawclip(dst, &r, src, &p0, mask, &p1, &par.sr, &par.mr) == 0){
95 76193d7c 2003-09-30 devnull // if(drawdebug)
96 76193d7c 2003-09-30 devnull // iprint("empty clipped rectangle\n");
97 76193d7c 2003-09-30 devnull return nil;
100 76193d7c 2003-09-30 devnull if(op < Clear || op > SoverD){
101 76193d7c 2003-09-30 devnull // if(drawdebug)
102 76193d7c 2003-09-30 devnull // iprint("op out of range: %d\n", op);
103 76193d7c 2003-09-30 devnull return nil;
106 76193d7c 2003-09-30 devnull par.op = op;
107 76193d7c 2003-09-30 devnull par.dst = dst;
108 76193d7c 2003-09-30 devnull par.r = r;
109 76193d7c 2003-09-30 devnull par.src = src;
110 76193d7c 2003-09-30 devnull /* par.sr set by drawclip */
111 76193d7c 2003-09-30 devnull par.mask = mask;
112 76193d7c 2003-09-30 devnull /* par.mr set by drawclip */
114 76193d7c 2003-09-30 devnull par.state = 0;
115 76193d7c 2003-09-30 devnull if(src->flags&Frepl){
116 76193d7c 2003-09-30 devnull par.state |= Replsrc;
117 76193d7c 2003-09-30 devnull if(Dx(src->r)==1 && Dy(src->r)==1){
118 76193d7c 2003-09-30 devnull par.sval = pixelbits(src, src->r.min);
119 76193d7c 2003-09-30 devnull par.state |= Simplesrc;
120 76193d7c 2003-09-30 devnull par.srgba = _imgtorgba(src, par.sval);
121 76193d7c 2003-09-30 devnull par.sdval = _rgbatoimg(dst, par.srgba);
122 76193d7c 2003-09-30 devnull if((par.srgba&0xFF) == 0 && (op&DoutS)){
123 76193d7c 2003-09-30 devnull // if (drawdebug) iprint("fill with transparent source\n");
124 76193d7c 2003-09-30 devnull return nil; /* no-op successfully handled */
129 76193d7c 2003-09-30 devnull if(mask->flags & Frepl){
130 76193d7c 2003-09-30 devnull par.state |= Replmask;
131 76193d7c 2003-09-30 devnull if(Dx(mask->r)==1 && Dy(mask->r)==1){
132 76193d7c 2003-09-30 devnull par.mval = pixelbits(mask, mask->r.min);
133 76193d7c 2003-09-30 devnull if(par.mval == 0 && (op&DoutS)){
134 76193d7c 2003-09-30 devnull // if(drawdebug) iprint("fill with zero mask\n");
135 76193d7c 2003-09-30 devnull return nil; /* no-op successfully handled */
137 76193d7c 2003-09-30 devnull par.state |= Simplemask;
138 76193d7c 2003-09-30 devnull if(par.mval == ~0)
139 76193d7c 2003-09-30 devnull par.state |= Fullmask;
140 76193d7c 2003-09-30 devnull par.mrgba = _imgtorgba(mask, par.mval);
144 76193d7c 2003-09-30 devnull // if(drawdebug)
145 76193d7c 2003-09-30 devnull // iprint("dr %R sr %R mr %R...", r, par.sr, par.mr);
146 76193d7c 2003-09-30 devnull DBG print("draw dr %R sr %R mr %R %lux\n", r, par.sr, par.mr, par.state);
148 76193d7c 2003-09-30 devnull return ∥
152 76193d7c 2003-09-30 devnull _memimagedraw(Memdrawparam *par)
155 76193d7c 2003-09-30 devnull * Now that we've clipped the parameters down to be consistent, we
156 76193d7c 2003-09-30 devnull * simply try sub-drawing routines in order until we find one that was able
157 76193d7c 2003-09-30 devnull * to handle us. If the sub-drawing routine returns zero, it means it was
158 76193d7c 2003-09-30 devnull * unable to satisfy the request, so we do not return.
162 76193d7c 2003-09-30 devnull * Hardware support. Each video driver provides this function,
163 76193d7c 2003-09-30 devnull * which checks to see if there is anything it can help with.
164 76193d7c 2003-09-30 devnull * There could be an if around this checking to see if dst is in video memory.
166 76193d7c 2003-09-30 devnull DBG print("test hwdraw\n");
167 76193d7c 2003-09-30 devnull if(hwdraw(par)){
168 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("hw handled\n");
169 76193d7c 2003-09-30 devnull DBG print("hwdraw handled\n");
173 76193d7c 2003-09-30 devnull * Optimizations using memmove and memset.
175 76193d7c 2003-09-30 devnull DBG print("test memoptdraw\n");
176 76193d7c 2003-09-30 devnull if(memoptdraw(par)){
177 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("memopt handled\n");
178 76193d7c 2003-09-30 devnull DBG print("memopt handled\n");
183 76193d7c 2003-09-30 devnull * Character drawing.
184 76193d7c 2003-09-30 devnull * Solid source color being painted through a boolean mask onto a high res image.
186 76193d7c 2003-09-30 devnull DBG print("test chardraw\n");
187 76193d7c 2003-09-30 devnull if(chardraw(par)){
188 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("chardraw handled\n");
189 76193d7c 2003-09-30 devnull DBG print("chardraw handled\n");
194 76193d7c 2003-09-30 devnull * General calculation-laden case that does alpha for each pixel.
196 76193d7c 2003-09-30 devnull DBG print("do alphadraw\n");
197 76193d7c 2003-09-30 devnull alphadraw(par);
198 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("alphadraw handled\n");
199 76193d7c 2003-09-30 devnull DBG print("alphadraw handled\n");
201 76193d7c 2003-09-30 devnull #undef DBG
204 76193d7c 2003-09-30 devnull * Clip the destination rectangle further based on the properties of the
205 76193d7c 2003-09-30 devnull * source and mask rectangles. Once the destination rectangle is properly
206 76193d7c 2003-09-30 devnull * clipped, adjust the source and mask rectangles to be the same size.
207 76193d7c 2003-09-30 devnull * Then if source or mask is replicated, move its clipped rectangle
208 76193d7c 2003-09-30 devnull * so that its minimum point falls within the repl rectangle.
210 76193d7c 2003-09-30 devnull * Return zero if the final rectangle is null.
213 76193d7c 2003-09-30 devnull drawclip(Memimage *dst, Rectangle *r, Memimage *src, Point *p0, Memimage *mask, Point *p1, Rectangle *sr, Rectangle *mr)
215 76193d7c 2003-09-30 devnull Point rmin, delta;
216 76193d7c 2003-09-30 devnull int splitcoords;
217 76193d7c 2003-09-30 devnull Rectangle omr;
219 76193d7c 2003-09-30 devnull if(r->min.x>=r->max.x || r->min.y>=r->max.y)
220 76193d7c 2003-09-30 devnull return 0;
221 76193d7c 2003-09-30 devnull splitcoords = (p0->x!=p1->x) || (p0->y!=p1->y);
222 76193d7c 2003-09-30 devnull /* clip to destination */
223 76193d7c 2003-09-30 devnull rmin = r->min;
224 76193d7c 2003-09-30 devnull if(!rectclip(r, dst->r) || !rectclip(r, dst->clipr))
225 76193d7c 2003-09-30 devnull return 0;
226 76193d7c 2003-09-30 devnull /* move mask point */
227 76193d7c 2003-09-30 devnull p1->x += r->min.x-rmin.x;
228 76193d7c 2003-09-30 devnull p1->y += r->min.y-rmin.y;
229 76193d7c 2003-09-30 devnull /* move source point */
230 76193d7c 2003-09-30 devnull p0->x += r->min.x-rmin.x;
231 76193d7c 2003-09-30 devnull p0->y += r->min.y-rmin.y;
232 76193d7c 2003-09-30 devnull /* map destination rectangle into source */
233 76193d7c 2003-09-30 devnull sr->min = *p0;
234 76193d7c 2003-09-30 devnull sr->max.x = p0->x+Dx(*r);
235 76193d7c 2003-09-30 devnull sr->max.y = p0->y+Dy(*r);
236 76193d7c 2003-09-30 devnull /* sr is r in source coordinates; clip to source */
237 76193d7c 2003-09-30 devnull if(!(src->flags&Frepl) && !rectclip(sr, src->r))
238 76193d7c 2003-09-30 devnull return 0;
239 76193d7c 2003-09-30 devnull if(!rectclip(sr, src->clipr))
240 76193d7c 2003-09-30 devnull return 0;
241 76193d7c 2003-09-30 devnull /* compute and clip rectangle in mask */
242 76193d7c 2003-09-30 devnull if(splitcoords){
243 76193d7c 2003-09-30 devnull /* move mask point with source */
244 76193d7c 2003-09-30 devnull p1->x += sr->min.x-p0->x;
245 76193d7c 2003-09-30 devnull p1->y += sr->min.y-p0->y;
246 76193d7c 2003-09-30 devnull mr->min = *p1;
247 76193d7c 2003-09-30 devnull mr->max.x = p1->x+Dx(*sr);
248 76193d7c 2003-09-30 devnull mr->max.y = p1->y+Dy(*sr);
249 76193d7c 2003-09-30 devnull omr = *mr;
250 76193d7c 2003-09-30 devnull /* mr is now rectangle in mask; clip it */
251 76193d7c 2003-09-30 devnull if(!(mask->flags&Frepl) && !rectclip(mr, mask->r))
252 76193d7c 2003-09-30 devnull return 0;
253 76193d7c 2003-09-30 devnull if(!rectclip(mr, mask->clipr))
254 76193d7c 2003-09-30 devnull return 0;
255 76193d7c 2003-09-30 devnull /* reflect any clips back to source */
256 76193d7c 2003-09-30 devnull sr->min.x += mr->min.x-omr.min.x;
257 76193d7c 2003-09-30 devnull sr->min.y += mr->min.y-omr.min.y;
258 76193d7c 2003-09-30 devnull sr->max.x += mr->max.x-omr.max.x;
259 76193d7c 2003-09-30 devnull sr->max.y += mr->max.y-omr.max.y;
260 76193d7c 2003-09-30 devnull *p1 = mr->min;
262 76193d7c 2003-09-30 devnull if(!(mask->flags&Frepl) && !rectclip(sr, mask->r))
263 76193d7c 2003-09-30 devnull return 0;
264 76193d7c 2003-09-30 devnull if(!rectclip(sr, mask->clipr))
265 76193d7c 2003-09-30 devnull return 0;
266 76193d7c 2003-09-30 devnull *p1 = sr->min;
269 76193d7c 2003-09-30 devnull /* move source clipping back to destination */
270 76193d7c 2003-09-30 devnull delta.x = r->min.x - p0->x;
271 76193d7c 2003-09-30 devnull delta.y = r->min.y - p0->y;
272 76193d7c 2003-09-30 devnull r->min.x = sr->min.x + delta.x;
273 76193d7c 2003-09-30 devnull r->min.y = sr->min.y + delta.y;
274 76193d7c 2003-09-30 devnull r->max.x = sr->max.x + delta.x;
275 76193d7c 2003-09-30 devnull r->max.y = sr->max.y + delta.y;
277 76193d7c 2003-09-30 devnull /* move source rectangle so sr->min is in src->r */
278 76193d7c 2003-09-30 devnull if(src->flags&Frepl) {
279 76193d7c 2003-09-30 devnull delta.x = drawreplxy(src->r.min.x, src->r.max.x, sr->min.x) - sr->min.x;
280 76193d7c 2003-09-30 devnull delta.y = drawreplxy(src->r.min.y, src->r.max.y, sr->min.y) - sr->min.y;
281 76193d7c 2003-09-30 devnull sr->min.x += delta.x;
282 76193d7c 2003-09-30 devnull sr->min.y += delta.y;
283 76193d7c 2003-09-30 devnull sr->max.x += delta.x;
284 76193d7c 2003-09-30 devnull sr->max.y += delta.y;
286 76193d7c 2003-09-30 devnull *p0 = sr->min;
288 76193d7c 2003-09-30 devnull /* move mask point so it is in mask->r */
289 76193d7c 2003-09-30 devnull *p1 = drawrepl(mask->r, *p1);
290 76193d7c 2003-09-30 devnull mr->min = *p1;
291 76193d7c 2003-09-30 devnull mr->max.x = p1->x+Dx(*sr);
292 76193d7c 2003-09-30 devnull mr->max.y = p1->y+Dy(*sr);
294 76193d7c 2003-09-30 devnull assert(Dx(*sr) == Dx(*mr) && Dx(*mr) == Dx(*r));
295 76193d7c 2003-09-30 devnull assert(Dy(*sr) == Dy(*mr) && Dy(*mr) == Dy(*r));
296 76193d7c 2003-09-30 devnull assert(ptinrect(*p0, src->r));
297 76193d7c 2003-09-30 devnull assert(ptinrect(*p1, mask->r));
298 76193d7c 2003-09-30 devnull assert(ptinrect(r->min, dst->r));
300 76193d7c 2003-09-30 devnull return 1;
304 76193d7c 2003-09-30 devnull * Conversion tables.
306 76193d7c 2003-09-30 devnull static uchar replbit[1+8][256]; /* replbit[x][y] is the replication of the x-bit quantity y to 8-bit depth */
307 76193d7c 2003-09-30 devnull static uchar conv18[256][8]; /* conv18[x][y] is the yth pixel in the depth-1 pixel x */
308 76193d7c 2003-09-30 devnull static uchar conv28[256][4]; /* ... */
309 76193d7c 2003-09-30 devnull static uchar conv48[256][2];
312 76193d7c 2003-09-30 devnull * bitmap of how to replicate n bits to fill 8, for 1 ≤ n ≤ 8.
313 76193d7c 2003-09-30 devnull * the X's are where to put the bottom (ones) bit of the n-bit pattern.
314 76193d7c 2003-09-30 devnull * only the top 8 bits of the result are actually used.
315 76193d7c 2003-09-30 devnull * (the lower 8 bits are needed to get bits in the right place
316 76193d7c 2003-09-30 devnull * when n is not a divisor of 8.)
318 76193d7c 2003-09-30 devnull * Should check to see if its easier to just refer to replmul than
319 76193d7c 2003-09-30 devnull * use the precomputed values in replbit. On PCs it may well
320 76193d7c 2003-09-30 devnull * be; on machines with slow multiply instructions it probably isn't.
322 76193d7c 2003-09-30 devnull #define a ((((((((((((((((0
323 76193d7c 2003-09-30 devnull #define X *2+1)
324 76193d7c 2003-09-30 devnull #define _ *2)
325 76193d7c 2003-09-30 devnull static int replmul[1+8] = {
327 76193d7c 2003-09-30 devnull a X X X X X X X X X X X X X X X X,
328 76193d7c 2003-09-30 devnull a _ X _ X _ X _ X _ X _ X _ X _ X,
329 76193d7c 2003-09-30 devnull a _ _ X _ _ X _ _ X _ _ X _ _ X _,
330 76193d7c 2003-09-30 devnull a _ _ _ X _ _ _ X _ _ _ X _ _ _ X,
331 76193d7c 2003-09-30 devnull a _ _ _ _ X _ _ _ _ X _ _ _ _ X _,
332 76193d7c 2003-09-30 devnull a _ _ _ _ _ X _ _ _ _ _ X _ _ _ _,
333 76193d7c 2003-09-30 devnull a _ _ _ _ _ _ X _ _ _ _ _ _ X _ _,
334 76193d7c 2003-09-30 devnull a _ _ _ _ _ _ _ X _ _ _ _ _ _ _ X,
336 76193d7c 2003-09-30 devnull #undef a
337 76193d7c 2003-09-30 devnull #undef X
338 76193d7c 2003-09-30 devnull #undef _
340 76193d7c 2003-09-30 devnull static void
341 76193d7c 2003-09-30 devnull mktables(void)
343 76193d7c 2003-09-30 devnull int i, j, mask, sh, small;
345 76193d7c 2003-09-30 devnull if(tablesbuilt)
348 76193d7c 2003-09-30 devnull fmtinstall('R', Rfmt);
349 76193d7c 2003-09-30 devnull fmtinstall('P', Pfmt);
350 76193d7c 2003-09-30 devnull tablesbuilt = 1;
352 76193d7c 2003-09-30 devnull /* bit replication up to 8 bits */
353 76193d7c 2003-09-30 devnull for(i=0; i<256; i++){
354 76193d7c 2003-09-30 devnull for(j=0; j<=8; j++){ /* j <= 8 [sic] */
355 76193d7c 2003-09-30 devnull small = i & ((1<<j)-1);
356 76193d7c 2003-09-30 devnull replbit[j][i] = (small*replmul[j])>>8;
360 76193d7c 2003-09-30 devnull /* bit unpacking up to 8 bits, only powers of 2 */
361 76193d7c 2003-09-30 devnull for(i=0; i<256; i++){
362 76193d7c 2003-09-30 devnull for(j=0, sh=7, mask=1; j<8; j++, sh--)
363 76193d7c 2003-09-30 devnull conv18[i][j] = replbit[1][(i>>sh)&mask];
365 76193d7c 2003-09-30 devnull for(j=0, sh=6, mask=3; j<4; j++, sh-=2)
366 76193d7c 2003-09-30 devnull conv28[i][j] = replbit[2][(i>>sh)&mask];
368 76193d7c 2003-09-30 devnull for(j=0, sh=4, mask=15; j<2; j++, sh-=4)
369 76193d7c 2003-09-30 devnull conv48[i][j] = replbit[4][(i>>sh)&mask];
373 76193d7c 2003-09-30 devnull static uchar ones = 0xff;
376 76193d7c 2003-09-30 devnull * General alpha drawing case. Can handle anything.
378 76193d7c 2003-09-30 devnull typedef struct Buffer Buffer;
379 76193d7c 2003-09-30 devnull struct Buffer {
380 76193d7c 2003-09-30 devnull /* used by most routines */
381 76193d7c 2003-09-30 devnull uchar *red;
382 76193d7c 2003-09-30 devnull uchar *grn;
383 76193d7c 2003-09-30 devnull uchar *blu;
384 76193d7c 2003-09-30 devnull uchar *alpha;
385 76193d7c 2003-09-30 devnull uchar *grey;
386 76193d7c 2003-09-30 devnull u32int *rgba;
387 76193d7c 2003-09-30 devnull int delta; /* number of bytes to add to pointer to get next pixel to the right */
389 76193d7c 2003-09-30 devnull /* used by boolcalc* for mask data */
390 76193d7c 2003-09-30 devnull uchar *m; /* ptr to mask data r.min byte; like p->bytermin */
391 76193d7c 2003-09-30 devnull int mskip; /* no. of left bits to skip in *m */
392 76193d7c 2003-09-30 devnull uchar *bm; /* ptr to mask data img->r.min byte; like p->bytey0s */
393 76193d7c 2003-09-30 devnull int bmskip; /* no. of left bits to skip in *bm */
394 76193d7c 2003-09-30 devnull uchar *em; /* ptr to mask data img->r.max.x byte; like p->bytey0e */
395 76193d7c 2003-09-30 devnull int emskip; /* no. of right bits to skip in *em */
398 76193d7c 2003-09-30 devnull typedef struct Param Param;
399 76193d7c 2003-09-30 devnull typedef Buffer Readfn(Param*, uchar*, int);
400 76193d7c 2003-09-30 devnull typedef void Writefn(Param*, uchar*, Buffer);
401 76193d7c 2003-09-30 devnull typedef Buffer Calcfn(Buffer, Buffer, Buffer, int, int, int);
404 76193d7c 2003-09-30 devnull MAXBCACHE = 16
407 76193d7c 2003-09-30 devnull /* giant rathole to customize functions with */
408 76193d7c 2003-09-30 devnull struct Param {
409 76193d7c 2003-09-30 devnull Readfn *replcall;
410 76193d7c 2003-09-30 devnull Readfn *greymaskcall;
411 76193d7c 2003-09-30 devnull Readfn *convreadcall;
412 76193d7c 2003-09-30 devnull Writefn *convwritecall;
414 76193d7c 2003-09-30 devnull Memimage *img;
415 76193d7c 2003-09-30 devnull Rectangle r;
416 76193d7c 2003-09-30 devnull int dx; /* of r */
417 76193d7c 2003-09-30 devnull int needbuf;
418 76193d7c 2003-09-30 devnull int convgrey;
419 76193d7c 2003-09-30 devnull int alphaonly;
421 76193d7c 2003-09-30 devnull uchar *bytey0s; /* byteaddr(Pt(img->r.min.x, img->r.min.y)) */
422 76193d7c 2003-09-30 devnull uchar *bytermin; /* byteaddr(Pt(r.min.x, img->r.min.y)) */
423 76193d7c 2003-09-30 devnull uchar *bytey0e; /* byteaddr(Pt(img->r.max.x, img->r.min.y)) */
424 76193d7c 2003-09-30 devnull int bwidth;
426 76193d7c 2003-09-30 devnull int replcache; /* if set, cache buffers */
427 76193d7c 2003-09-30 devnull Buffer bcache[MAXBCACHE];
428 76193d7c 2003-09-30 devnull u32int bfilled;
429 76193d7c 2003-09-30 devnull uchar *bufbase;
430 76193d7c 2003-09-30 devnull int bufoff;
431 76193d7c 2003-09-30 devnull int bufdelta;
433 76193d7c 2003-09-30 devnull int dir;
435 76193d7c 2003-09-30 devnull int convbufoff;
436 76193d7c 2003-09-30 devnull uchar *convbuf;
437 76193d7c 2003-09-30 devnull Param *convdpar;
438 76193d7c 2003-09-30 devnull int convdx;
441 76193d7c 2003-09-30 devnull static uchar *drawbuf;
442 76193d7c 2003-09-30 devnull static int ndrawbuf;
443 76193d7c 2003-09-30 devnull static int mdrawbuf;
444 76193d7c 2003-09-30 devnull static Param spar, mpar, dpar; /* easier on the stacks */
445 76193d7c 2003-09-30 devnull static Readfn greymaskread, replread, readptr;
446 76193d7c 2003-09-30 devnull static Writefn nullwrite;
447 76193d7c 2003-09-30 devnull static Calcfn alphacalc0, alphacalc14, alphacalc2810, alphacalc3679, alphacalc5, alphacalc11, alphacalcS;
448 76193d7c 2003-09-30 devnull static Calcfn boolcalc14, boolcalc236789, boolcalc1011;
450 76193d7c 2003-09-30 devnull static Readfn* readfn(Memimage*);
451 76193d7c 2003-09-30 devnull static Readfn* readalphafn(Memimage*);
452 76193d7c 2003-09-30 devnull static Writefn* writefn(Memimage*);
454 76193d7c 2003-09-30 devnull static Calcfn* boolcopyfn(Memimage*, Memimage*);
455 76193d7c 2003-09-30 devnull static Readfn* convfn(Memimage*, Param*, Memimage*, Param*);
457 76193d7c 2003-09-30 devnull static Calcfn *alphacalc[Ncomp] =
459 76193d7c 2003-09-30 devnull alphacalc0, /* Clear */
460 76193d7c 2003-09-30 devnull alphacalc14, /* DoutS */
461 76193d7c 2003-09-30 devnull alphacalc2810, /* SoutD */
462 76193d7c 2003-09-30 devnull alphacalc3679, /* DxorS */
463 76193d7c 2003-09-30 devnull alphacalc14, /* DinS */
464 76193d7c 2003-09-30 devnull alphacalc5, /* D */
465 76193d7c 2003-09-30 devnull alphacalc3679, /* DatopS */
466 76193d7c 2003-09-30 devnull alphacalc3679, /* DoverS */
467 76193d7c 2003-09-30 devnull alphacalc2810, /* SinD */
468 76193d7c 2003-09-30 devnull alphacalc3679, /* SatopD */
469 76193d7c 2003-09-30 devnull alphacalc2810, /* S */
470 76193d7c 2003-09-30 devnull alphacalc11, /* SoverD */
473 76193d7c 2003-09-30 devnull static Calcfn *boolcalc[Ncomp] =
475 76193d7c 2003-09-30 devnull alphacalc0, /* Clear */
476 76193d7c 2003-09-30 devnull boolcalc14, /* DoutS */
477 76193d7c 2003-09-30 devnull boolcalc236789, /* SoutD */
478 76193d7c 2003-09-30 devnull boolcalc236789, /* DxorS */
479 76193d7c 2003-09-30 devnull boolcalc14, /* DinS */
480 76193d7c 2003-09-30 devnull alphacalc5, /* D */
481 76193d7c 2003-09-30 devnull boolcalc236789, /* DatopS */
482 76193d7c 2003-09-30 devnull boolcalc236789, /* DoverS */
483 76193d7c 2003-09-30 devnull boolcalc236789, /* SinD */
484 76193d7c 2003-09-30 devnull boolcalc236789, /* SatopD */
485 76193d7c 2003-09-30 devnull boolcalc1011, /* S */
486 76193d7c 2003-09-30 devnull boolcalc1011, /* SoverD */
489 76193d7c 2003-09-30 devnull static int
490 76193d7c 2003-09-30 devnull allocdrawbuf(void)
492 76193d7c 2003-09-30 devnull uchar *p;
494 76193d7c 2003-09-30 devnull if(ndrawbuf > mdrawbuf){
495 76193d7c 2003-09-30 devnull p = realloc(drawbuf, ndrawbuf);
496 76193d7c 2003-09-30 devnull if(p == nil){
497 76193d7c 2003-09-30 devnull werrstr("memimagedraw out of memory");
498 76193d7c 2003-09-30 devnull return -1;
500 76193d7c 2003-09-30 devnull drawbuf = p;
501 76193d7c 2003-09-30 devnull mdrawbuf = ndrawbuf;
503 76193d7c 2003-09-30 devnull return 0;
506 76193d7c 2003-09-30 devnull static Param
507 76193d7c 2003-09-30 devnull getparam(Memimage *img, Rectangle r, int convgrey, int needbuf)
509 76193d7c 2003-09-30 devnull Param p;
510 76193d7c 2003-09-30 devnull int nbuf;
512 76193d7c 2003-09-30 devnull memset(&p, 0, sizeof p);
514 76193d7c 2003-09-30 devnull p.img = img;
515 76193d7c 2003-09-30 devnull p.r = r;
516 76193d7c 2003-09-30 devnull p.dx = Dx(r);
517 76193d7c 2003-09-30 devnull p.needbuf = needbuf;
518 76193d7c 2003-09-30 devnull p.convgrey = convgrey;
520 76193d7c 2003-09-30 devnull assert(img->r.min.x <= r.min.x && r.min.x < img->r.max.x);
522 76193d7c 2003-09-30 devnull p.bytey0s = byteaddr(img, Pt(img->r.min.x, img->r.min.y));
523 76193d7c 2003-09-30 devnull p.bytermin = byteaddr(img, Pt(r.min.x, img->r.min.y));
524 76193d7c 2003-09-30 devnull p.bytey0e = byteaddr(img, Pt(img->r.max.x, img->r.min.y));
525 76193d7c 2003-09-30 devnull p.bwidth = sizeof(u32int)*img->width;
527 76193d7c 2003-09-30 devnull assert(p.bytey0s <= p.bytermin && p.bytermin <= p.bytey0e);
529 76193d7c 2003-09-30 devnull if(p.r.min.x == p.img->r.min.x)
530 76193d7c 2003-09-30 devnull assert(p.bytermin == p.bytey0s);
532 76193d7c 2003-09-30 devnull nbuf = 1;
533 76193d7c 2003-09-30 devnull if((img->flags&Frepl) && Dy(img->r) <= MAXBCACHE && Dy(img->r) < Dy(r)){
534 76193d7c 2003-09-30 devnull p.replcache = 1;
535 76193d7c 2003-09-30 devnull nbuf = Dy(img->r);
537 76193d7c 2003-09-30 devnull p.bufdelta = 4*p.dx;
538 76193d7c 2003-09-30 devnull p.bufoff = ndrawbuf;
539 76193d7c 2003-09-30 devnull ndrawbuf += p.bufdelta*nbuf;
541 76193d7c 2003-09-30 devnull return p;
544 76193d7c 2003-09-30 devnull static void
545 76193d7c 2003-09-30 devnull clipy(Memimage *img, int *y)
549 76193d7c 2003-09-30 devnull dy = Dy(img->r);
550 76193d7c 2003-09-30 devnull if(*y == dy)
552 76193d7c 2003-09-30 devnull else if(*y == -1)
553 76193d7c 2003-09-30 devnull *y = dy-1;
554 76193d7c 2003-09-30 devnull assert(0 <= *y && *y < dy);
557 76193d7c 2003-09-30 devnull static void
558 76193d7c 2003-09-30 devnull dumpbuf(char *s, Buffer b, int n)
561 76193d7c 2003-09-30 devnull uchar *p;
563 76193d7c 2003-09-30 devnull print("%s", s);
564 76193d7c 2003-09-30 devnull for(i=0; i<n; i++){
565 76193d7c 2003-09-30 devnull print(" ");
566 76193d7c 2003-09-30 devnull if(p=b.grey){
567 76193d7c 2003-09-30 devnull print(" k%.2uX", *p);
568 76193d7c 2003-09-30 devnull b.grey += b.delta;
570 76193d7c 2003-09-30 devnull if(p=b.red){
571 76193d7c 2003-09-30 devnull print(" r%.2uX", *p);
572 76193d7c 2003-09-30 devnull b.red += b.delta;
574 76193d7c 2003-09-30 devnull if(p=b.grn){
575 76193d7c 2003-09-30 devnull print(" g%.2uX", *p);
576 76193d7c 2003-09-30 devnull b.grn += b.delta;
578 76193d7c 2003-09-30 devnull if(p=b.blu){
579 76193d7c 2003-09-30 devnull print(" b%.2uX", *p);
580 76193d7c 2003-09-30 devnull b.blu += b.delta;
583 76193d7c 2003-09-30 devnull if((p=b.alpha) != &ones){
584 76193d7c 2003-09-30 devnull print(" α%.2uX", *p);
585 76193d7c 2003-09-30 devnull b.alpha += b.delta;
588 76193d7c 2003-09-30 devnull print("\n");
592 76193d7c 2003-09-30 devnull * For each scan line, we expand the pixels from source, mask, and destination
593 76193d7c 2003-09-30 devnull * into byte-aligned red, green, blue, alpha, and grey channels. If buffering is not
594 76193d7c 2003-09-30 devnull * needed and the channels were already byte-aligned (grey8, rgb24, rgba32, rgb32),
595 76193d7c 2003-09-30 devnull * the readers need not copy the data: they can simply return pointers to the data.
596 76193d7c 2003-09-30 devnull * If the destination image is grey and the source is not, it is converted using the NTSC
597 76193d7c 2003-09-30 devnull * formula.
599 76193d7c 2003-09-30 devnull * Once we have all the channels, we call either rgbcalc or greycalc, depending on
600 76193d7c 2003-09-30 devnull * whether the destination image is color. This is allowed to overwrite the dst buffer (perhaps
601 76193d7c 2003-09-30 devnull * the actual data, perhaps a copy) with its result. It should only overwrite the dst buffer
602 76193d7c 2003-09-30 devnull * with the same format (i.e. red bytes with red bytes, etc.) A new buffer is returned from
603 76193d7c 2003-09-30 devnull * the calculator, and that buffer is passed to a function to write it to the destination.
604 76193d7c 2003-09-30 devnull * If the buffer is already pointing at the destination, the writing function is a no-op.
606 76193d7c 2003-09-30 devnull #define DBG if(0)
607 76193d7c 2003-09-30 devnull static int
608 76193d7c 2003-09-30 devnull alphadraw(Memdrawparam *par)
610 76193d7c 2003-09-30 devnull int isgrey, starty, endy, op;
611 76193d7c 2003-09-30 devnull int needbuf, dsty, srcy, masky;
612 76193d7c 2003-09-30 devnull int y, dir, dx, dy;
613 76193d7c 2003-09-30 devnull Buffer bsrc, bdst, bmask;
614 76193d7c 2003-09-30 devnull Readfn *rdsrc, *rdmask, *rddst;
615 76193d7c 2003-09-30 devnull Calcfn *calc;
616 76193d7c 2003-09-30 devnull Writefn *wrdst;
617 76193d7c 2003-09-30 devnull Memimage *src, *mask, *dst;
618 76193d7c 2003-09-30 devnull Rectangle r, sr, mr;
620 76193d7c 2003-09-30 devnull r = par->r;
621 76193d7c 2003-09-30 devnull dx = Dx(r);
622 76193d7c 2003-09-30 devnull dy = Dy(r);
624 76193d7c 2003-09-30 devnull ndrawbuf = 0;
626 76193d7c 2003-09-30 devnull src = par->src;
627 76193d7c 2003-09-30 devnull mask = par->mask;
628 76193d7c 2003-09-30 devnull dst = par->dst;
629 76193d7c 2003-09-30 devnull sr = par->sr;
630 76193d7c 2003-09-30 devnull mr = par->mr;
631 76193d7c 2003-09-30 devnull op = par->op;
633 76193d7c 2003-09-30 devnull isgrey = dst->flags&Fgrey;
636 76193d7c 2003-09-30 devnull * Buffering when src and dst are the same bitmap is sufficient but not
637 76193d7c 2003-09-30 devnull * necessary. There are stronger conditions we could use. We could
638 76193d7c 2003-09-30 devnull * check to see if the rectangles intersect, and if simply moving in the
639 76193d7c 2003-09-30 devnull * correct y direction can avoid the need to buffer.
641 76193d7c 2003-09-30 devnull needbuf = (src->data == dst->data);
643 76193d7c 2003-09-30 devnull spar = getparam(src, sr, isgrey, needbuf);
644 76193d7c 2003-09-30 devnull dpar = getparam(dst, r, isgrey, needbuf);
645 76193d7c 2003-09-30 devnull mpar = getparam(mask, mr, 0, needbuf);
647 76193d7c 2003-09-30 devnull dir = (needbuf && byteaddr(dst, r.min) > byteaddr(src, sr.min)) ? -1 : 1;
648 76193d7c 2003-09-30 devnull spar.dir = mpar.dir = dpar.dir = dir;
651 76193d7c 2003-09-30 devnull * If the mask is purely boolean, we can convert from src to dst format
652 76193d7c 2003-09-30 devnull * when we read src, and then just copy it to dst where the mask tells us to.
653 76193d7c 2003-09-30 devnull * This requires a boolean (1-bit grey) mask and lack of a source alpha channel.
655 76193d7c 2003-09-30 devnull * The computation is accomplished by assigning the function pointers as follows:
656 76193d7c 2003-09-30 devnull * rdsrc - read and convert source into dst format in a buffer
657 76193d7c 2003-09-30 devnull * rdmask - convert mask to bytes, set pointer to it
658 76193d7c 2003-09-30 devnull * rddst - fill with pointer to real dst data, but do no reads
659 76193d7c 2003-09-30 devnull * calc - copy src onto dst when mask says to.
660 76193d7c 2003-09-30 devnull * wrdst - do nothing
661 76193d7c 2003-09-30 devnull * This is slightly sleazy, since things aren't doing exactly what their names say,
662 76193d7c 2003-09-30 devnull * but it avoids a fair amount of code duplication to make this a case here
663 76193d7c 2003-09-30 devnull * rather than have a separate booldraw.
665 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("flag %lud mchan %lux=?%x dd %d\n", src->flags&Falpha, mask->chan, GREY1, dst->depth);
666 76193d7c 2003-09-30 devnull if(!(src->flags&Falpha) && mask->chan == GREY1 && dst->depth >= 8 && op == SoverD){
667 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("boolcopy...");
668 76193d7c 2003-09-30 devnull rdsrc = convfn(dst, &dpar, src, &spar);
669 76193d7c 2003-09-30 devnull rddst = readptr;
670 76193d7c 2003-09-30 devnull rdmask = readfn(mask);
671 76193d7c 2003-09-30 devnull calc = boolcopyfn(dst, mask);
672 76193d7c 2003-09-30 devnull wrdst = nullwrite;
674 76193d7c 2003-09-30 devnull /* usual alphadraw parameter fetching */
675 76193d7c 2003-09-30 devnull rdsrc = readfn(src);
676 76193d7c 2003-09-30 devnull rddst = readfn(dst);
677 76193d7c 2003-09-30 devnull wrdst = writefn(dst);
678 76193d7c 2003-09-30 devnull calc = alphacalc[op];
681 76193d7c 2003-09-30 devnull * If there is no alpha channel, we'll ask for a grey channel
682 76193d7c 2003-09-30 devnull * and pretend it is the alpha.
684 76193d7c 2003-09-30 devnull if(mask->flags&Falpha){
685 76193d7c 2003-09-30 devnull rdmask = readalphafn(mask);
686 76193d7c 2003-09-30 devnull mpar.alphaonly = 1;
688 76193d7c 2003-09-30 devnull mpar.greymaskcall = readfn(mask);
689 76193d7c 2003-09-30 devnull mpar.convgrey = 1;
690 76193d7c 2003-09-30 devnull rdmask = greymaskread;
693 76193d7c 2003-09-30 devnull * Should really be above, but then boolcopyfns would have
694 76193d7c 2003-09-30 devnull * to deal with bit alignment, and I haven't written that.
696 76193d7c 2003-09-30 devnull * This is a common case for things like ellipse drawing.
697 76193d7c 2003-09-30 devnull * When there's no alpha involved and the mask is boolean,
698 76193d7c 2003-09-30 devnull * we can avoid all the division and multiplication.
700 76193d7c 2003-09-30 devnull if(mask->chan == GREY1 && !(src->flags&Falpha))
701 76193d7c 2003-09-30 devnull calc = boolcalc[op];
702 76193d7c 2003-09-30 devnull else if(op == SoverD && !(src->flags&Falpha))
703 76193d7c 2003-09-30 devnull calc = alphacalcS;
708 76193d7c 2003-09-30 devnull * If the image has a small enough repl rectangle,
709 76193d7c 2003-09-30 devnull * we can just read each line once and cache them.
711 76193d7c 2003-09-30 devnull if(spar.replcache){
712 76193d7c 2003-09-30 devnull spar.replcall = rdsrc;
713 76193d7c 2003-09-30 devnull rdsrc = replread;
715 76193d7c 2003-09-30 devnull if(mpar.replcache){
716 76193d7c 2003-09-30 devnull mpar.replcall = rdmask;
717 76193d7c 2003-09-30 devnull rdmask = replread;
720 76193d7c 2003-09-30 devnull if(allocdrawbuf() < 0)
721 76193d7c 2003-09-30 devnull return 0;
724 76193d7c 2003-09-30 devnull * Before we were saving only offsets from drawbuf in the parameter
725 76193d7c 2003-09-30 devnull * structures; now that drawbuf has been grown to accomodate us,
726 76193d7c 2003-09-30 devnull * we can fill in the pointers.
728 76193d7c 2003-09-30 devnull spar.bufbase = drawbuf+spar.bufoff;
729 76193d7c 2003-09-30 devnull mpar.bufbase = drawbuf+mpar.bufoff;
730 76193d7c 2003-09-30 devnull dpar.bufbase = drawbuf+dpar.bufoff;
731 76193d7c 2003-09-30 devnull spar.convbuf = drawbuf+spar.convbufoff;
733 76193d7c 2003-09-30 devnull if(dir == 1){
734 76193d7c 2003-09-30 devnull starty = 0;
735 76193d7c 2003-09-30 devnull endy = dy;
737 76193d7c 2003-09-30 devnull starty = dy-1;
738 76193d7c 2003-09-30 devnull endy = -1;
742 76193d7c 2003-09-30 devnull * srcy, masky, and dsty are offsets from the top of their
743 76193d7c 2003-09-30 devnull * respective Rectangles. they need to be contained within
744 76193d7c 2003-09-30 devnull * the rectangles, so clipy can keep them there without division.
746 76193d7c 2003-09-30 devnull srcy = (starty + sr.min.y - src->r.min.y)%Dy(src->r);
747 76193d7c 2003-09-30 devnull masky = (starty + mr.min.y - mask->r.min.y)%Dy(mask->r);
748 76193d7c 2003-09-30 devnull dsty = starty + r.min.y - dst->r.min.y;
750 76193d7c 2003-09-30 devnull assert(0 <= srcy && srcy < Dy(src->r));
751 76193d7c 2003-09-30 devnull assert(0 <= masky && masky < Dy(mask->r));
752 76193d7c 2003-09-30 devnull assert(0 <= dsty && dsty < Dy(dst->r));
754 76193d7c 2003-09-30 devnull for(y=starty; y!=endy; y+=dir, srcy+=dir, masky+=dir, dsty+=dir){
755 76193d7c 2003-09-30 devnull clipy(src, &srcy);
756 76193d7c 2003-09-30 devnull clipy(dst, &dsty);
757 76193d7c 2003-09-30 devnull clipy(mask, &masky);
759 76193d7c 2003-09-30 devnull bsrc = rdsrc(&spar, spar.bufbase, srcy);
760 76193d7c 2003-09-30 devnull DBG print("[");
761 76193d7c 2003-09-30 devnull bmask = rdmask(&mpar, mpar.bufbase, masky);
762 76193d7c 2003-09-30 devnull DBG print("]\n");
763 76193d7c 2003-09-30 devnull bdst = rddst(&dpar, dpar.bufbase, dsty);
764 76193d7c 2003-09-30 devnull DBG dumpbuf("src", bsrc, dx);
765 76193d7c 2003-09-30 devnull DBG dumpbuf("mask", bmask, dx);
766 76193d7c 2003-09-30 devnull DBG dumpbuf("dst", bdst, dx);
767 76193d7c 2003-09-30 devnull bdst = calc(bdst, bsrc, bmask, dx, isgrey, op);
768 76193d7c 2003-09-30 devnull wrdst(&dpar, dpar.bytermin+dsty*dpar.bwidth, bdst);
771 76193d7c 2003-09-30 devnull return 1;
773 76193d7c 2003-09-30 devnull #undef DBG
775 76193d7c 2003-09-30 devnull static Buffer
776 76193d7c 2003-09-30 devnull alphacalc0(Buffer bdst, Buffer b1, Buffer b2, int dx, int grey, int op)
778 76193d7c 2003-09-30 devnull USED(grey);
779 76193d7c 2003-09-30 devnull USED(op);
780 76193d7c 2003-09-30 devnull memset(bdst.rgba, 0, dx*bdst.delta);
781 76193d7c 2003-09-30 devnull return bdst;
784 76193d7c 2003-09-30 devnull static Buffer
785 76193d7c 2003-09-30 devnull alphacalc14(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
787 76193d7c 2003-09-30 devnull Buffer obdst;
788 76193d7c 2003-09-30 devnull int fd, sadelta;
789 76193d7c 2003-09-30 devnull int i, sa, ma, q;
790 76193d7c 2003-09-30 devnull u32int s, t;
792 76193d7c 2003-09-30 devnull obdst = bdst;
793 76193d7c 2003-09-30 devnull sadelta = bsrc.alpha == &ones ? 0 : bsrc.delta;
794 76193d7c 2003-09-30 devnull q = bsrc.delta == 4 && bdst.delta == 4;
796 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
797 76193d7c 2003-09-30 devnull sa = *bsrc.alpha;
798 76193d7c 2003-09-30 devnull ma = *bmask.alpha;
799 76193d7c 2003-09-30 devnull fd = MUL(sa, ma, t);
800 76193d7c 2003-09-30 devnull if(op == DoutS)
801 76193d7c 2003-09-30 devnull fd = 255-fd;
803 76193d7c 2003-09-30 devnull if(grey){
804 76193d7c 2003-09-30 devnull *bdst.grey = MUL(fd, *bdst.grey, t);
805 76193d7c 2003-09-30 devnull bsrc.grey += bsrc.delta;
806 76193d7c 2003-09-30 devnull bdst.grey += bdst.delta;
809 76193d7c 2003-09-30 devnull *bdst.rgba = MUL0123(fd, *bdst.rgba, s, t);
810 76193d7c 2003-09-30 devnull bsrc.rgba++;
811 76193d7c 2003-09-30 devnull bdst.rgba++;
812 76193d7c 2003-09-30 devnull bsrc.alpha += sadelta;
813 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
814 76193d7c 2003-09-30 devnull continue;
816 76193d7c 2003-09-30 devnull *bdst.red = MUL(fd, *bdst.red, t);
817 76193d7c 2003-09-30 devnull *bdst.grn = MUL(fd, *bdst.grn, t);
818 76193d7c 2003-09-30 devnull *bdst.blu = MUL(fd, *bdst.blu, t);
819 76193d7c 2003-09-30 devnull bsrc.red += bsrc.delta;
820 76193d7c 2003-09-30 devnull bsrc.blu += bsrc.delta;
821 76193d7c 2003-09-30 devnull bsrc.grn += bsrc.delta;
822 76193d7c 2003-09-30 devnull bdst.red += bdst.delta;
823 76193d7c 2003-09-30 devnull bdst.blu += bdst.delta;
824 76193d7c 2003-09-30 devnull bdst.grn += bdst.delta;
826 76193d7c 2003-09-30 devnull if(bdst.alpha != &ones){
827 76193d7c 2003-09-30 devnull *bdst.alpha = MUL(fd, *bdst.alpha, t);
828 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
830 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
831 76193d7c 2003-09-30 devnull bsrc.alpha += sadelta;
833 76193d7c 2003-09-30 devnull return obdst;
836 76193d7c 2003-09-30 devnull static Buffer
837 76193d7c 2003-09-30 devnull alphacalc2810(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
839 76193d7c 2003-09-30 devnull Buffer obdst;
840 76193d7c 2003-09-30 devnull int fs, sadelta;
841 76193d7c 2003-09-30 devnull int i, ma, da, q;
842 76193d7c 2003-09-30 devnull u32int s, t;
844 76193d7c 2003-09-30 devnull obdst = bdst;
845 76193d7c 2003-09-30 devnull sadelta = bsrc.alpha == &ones ? 0 : bsrc.delta;
846 76193d7c 2003-09-30 devnull q = bsrc.delta == 4 && bdst.delta == 4;
848 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
849 76193d7c 2003-09-30 devnull ma = *bmask.alpha;
850 76193d7c 2003-09-30 devnull da = *bdst.alpha;
851 76193d7c 2003-09-30 devnull if(op == SoutD)
852 76193d7c 2003-09-30 devnull da = 255-da;
853 76193d7c 2003-09-30 devnull fs = ma;
854 76193d7c 2003-09-30 devnull if(op != S)
855 76193d7c 2003-09-30 devnull fs = MUL(fs, da, t);
857 76193d7c 2003-09-30 devnull if(grey){
858 76193d7c 2003-09-30 devnull *bdst.grey = MUL(fs, *bsrc.grey, t);
859 76193d7c 2003-09-30 devnull bsrc.grey += bsrc.delta;
860 76193d7c 2003-09-30 devnull bdst.grey += bdst.delta;
863 76193d7c 2003-09-30 devnull *bdst.rgba = MUL0123(fs, *bsrc.rgba, s, t);
864 76193d7c 2003-09-30 devnull bsrc.rgba++;
865 76193d7c 2003-09-30 devnull bdst.rgba++;
866 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
867 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
868 76193d7c 2003-09-30 devnull continue;
870 76193d7c 2003-09-30 devnull *bdst.red = MUL(fs, *bsrc.red, t);
871 76193d7c 2003-09-30 devnull *bdst.grn = MUL(fs, *bsrc.grn, t);
872 76193d7c 2003-09-30 devnull *bdst.blu = MUL(fs, *bsrc.blu, t);
873 76193d7c 2003-09-30 devnull bsrc.red += bsrc.delta;
874 76193d7c 2003-09-30 devnull bsrc.blu += bsrc.delta;
875 76193d7c 2003-09-30 devnull bsrc.grn += bsrc.delta;
876 76193d7c 2003-09-30 devnull bdst.red += bdst.delta;
877 76193d7c 2003-09-30 devnull bdst.blu += bdst.delta;
878 76193d7c 2003-09-30 devnull bdst.grn += bdst.delta;
880 76193d7c 2003-09-30 devnull if(bdst.alpha != &ones){
881 76193d7c 2003-09-30 devnull *bdst.alpha = MUL(fs, *bsrc.alpha, t);
882 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
884 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
885 76193d7c 2003-09-30 devnull bsrc.alpha += sadelta;
887 76193d7c 2003-09-30 devnull return obdst;
890 76193d7c 2003-09-30 devnull static Buffer
891 76193d7c 2003-09-30 devnull alphacalc3679(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
893 76193d7c 2003-09-30 devnull Buffer obdst;
894 76193d7c 2003-09-30 devnull int fs, fd, sadelta;
895 76193d7c 2003-09-30 devnull int i, sa, ma, da, q;
896 76193d7c 2003-09-30 devnull u32int s, t, u, v;
898 76193d7c 2003-09-30 devnull obdst = bdst;
899 76193d7c 2003-09-30 devnull sadelta = bsrc.alpha == &ones ? 0 : bsrc.delta;
900 76193d7c 2003-09-30 devnull q = bsrc.delta == 4 && bdst.delta == 4;
902 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
903 76193d7c 2003-09-30 devnull sa = *bsrc.alpha;
904 76193d7c 2003-09-30 devnull ma = *bmask.alpha;
905 76193d7c 2003-09-30 devnull da = *bdst.alpha;
906 76193d7c 2003-09-30 devnull if(op == SatopD)
907 76193d7c 2003-09-30 devnull fs = MUL(ma, da, t);
909 76193d7c 2003-09-30 devnull fs = MUL(ma, 255-da, t);
910 76193d7c 2003-09-30 devnull if(op == DoverS)
911 76193d7c 2003-09-30 devnull fd = 255;
913 76193d7c 2003-09-30 devnull fd = MUL(sa, ma, t);
914 76193d7c 2003-09-30 devnull if(op != DatopS)
915 76193d7c 2003-09-30 devnull fd = 255-fd;
918 76193d7c 2003-09-30 devnull if(grey){
919 76193d7c 2003-09-30 devnull *bdst.grey = MUL(fs, *bsrc.grey, s)+MUL(fd, *bdst.grey, t);
920 76193d7c 2003-09-30 devnull bsrc.grey += bsrc.delta;
921 76193d7c 2003-09-30 devnull bdst.grey += bdst.delta;
924 76193d7c 2003-09-30 devnull *bdst.rgba = MUL0123(fs, *bsrc.rgba, s, t)+MUL0123(fd, *bdst.rgba, u, v);
925 76193d7c 2003-09-30 devnull bsrc.rgba++;
926 76193d7c 2003-09-30 devnull bdst.rgba++;
927 76193d7c 2003-09-30 devnull bsrc.alpha += sadelta;
928 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
929 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
930 76193d7c 2003-09-30 devnull continue;
932 76193d7c 2003-09-30 devnull *bdst.red = MUL(fs, *bsrc.red, s)+MUL(fd, *bdst.red, t);
933 76193d7c 2003-09-30 devnull *bdst.grn = MUL(fs, *bsrc.grn, s)+MUL(fd, *bdst.grn, t);
934 76193d7c 2003-09-30 devnull *bdst.blu = MUL(fs, *bsrc.blu, s)+MUL(fd, *bdst.blu, t);
935 76193d7c 2003-09-30 devnull bsrc.red += bsrc.delta;
936 76193d7c 2003-09-30 devnull bsrc.blu += bsrc.delta;
937 76193d7c 2003-09-30 devnull bsrc.grn += bsrc.delta;
938 76193d7c 2003-09-30 devnull bdst.red += bdst.delta;
939 76193d7c 2003-09-30 devnull bdst.blu += bdst.delta;
940 76193d7c 2003-09-30 devnull bdst.grn += bdst.delta;
942 76193d7c 2003-09-30 devnull if(bdst.alpha != &ones){
943 76193d7c 2003-09-30 devnull *bdst.alpha = MUL(fs, sa, s)+MUL(fd, da, t);
944 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
946 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
947 76193d7c 2003-09-30 devnull bsrc.alpha += sadelta;
949 76193d7c 2003-09-30 devnull return obdst;
952 76193d7c 2003-09-30 devnull static Buffer
953 76193d7c 2003-09-30 devnull alphacalc5(Buffer bdst, Buffer b1, Buffer b2, int dx, int grey, int op)
955 76193d7c 2003-09-30 devnull USED(dx);
956 76193d7c 2003-09-30 devnull USED(grey);
957 76193d7c 2003-09-30 devnull USED(op);
958 76193d7c 2003-09-30 devnull return bdst;
961 76193d7c 2003-09-30 devnull static Buffer
962 76193d7c 2003-09-30 devnull alphacalc11(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
964 76193d7c 2003-09-30 devnull Buffer obdst;
965 76193d7c 2003-09-30 devnull int fd, sadelta;
966 76193d7c 2003-09-30 devnull int i, sa, ma, q;
967 76193d7c 2003-09-30 devnull u32int s, t, u, v;
969 76193d7c 2003-09-30 devnull USED(op);
970 76193d7c 2003-09-30 devnull obdst = bdst;
971 76193d7c 2003-09-30 devnull sadelta = bsrc.alpha == &ones ? 0 : bsrc.delta;
972 76193d7c 2003-09-30 devnull q = bsrc.delta == 4 && bdst.delta == 4;
974 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
975 76193d7c 2003-09-30 devnull sa = *bsrc.alpha;
976 76193d7c 2003-09-30 devnull ma = *bmask.alpha;
977 76193d7c 2003-09-30 devnull fd = 255-MUL(sa, ma, t);
979 76193d7c 2003-09-30 devnull if(grey){
980 76193d7c 2003-09-30 devnull *bdst.grey = MUL(ma, *bsrc.grey, s)+MUL(fd, *bdst.grey, t);
981 76193d7c 2003-09-30 devnull bsrc.grey += bsrc.delta;
982 76193d7c 2003-09-30 devnull bdst.grey += bdst.delta;
985 76193d7c 2003-09-30 devnull *bdst.rgba = MUL0123(ma, *bsrc.rgba, s, t)+MUL0123(fd, *bdst.rgba, u, v);
986 76193d7c 2003-09-30 devnull bsrc.rgba++;
987 76193d7c 2003-09-30 devnull bdst.rgba++;
988 76193d7c 2003-09-30 devnull bsrc.alpha += sadelta;
989 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
990 76193d7c 2003-09-30 devnull continue;
992 76193d7c 2003-09-30 devnull *bdst.red = MUL(ma, *bsrc.red, s)+MUL(fd, *bdst.red, t);
993 76193d7c 2003-09-30 devnull *bdst.grn = MUL(ma, *bsrc.grn, s)+MUL(fd, *bdst.grn, t);
994 76193d7c 2003-09-30 devnull *bdst.blu = MUL(ma, *bsrc.blu, s)+MUL(fd, *bdst.blu, t);
995 76193d7c 2003-09-30 devnull bsrc.red += bsrc.delta;
996 76193d7c 2003-09-30 devnull bsrc.blu += bsrc.delta;
997 76193d7c 2003-09-30 devnull bsrc.grn += bsrc.delta;
998 76193d7c 2003-09-30 devnull bdst.red += bdst.delta;
999 76193d7c 2003-09-30 devnull bdst.blu += bdst.delta;
1000 76193d7c 2003-09-30 devnull bdst.grn += bdst.delta;
1002 76193d7c 2003-09-30 devnull if(bdst.alpha != &ones){
1003 76193d7c 2003-09-30 devnull *bdst.alpha = MUL(ma, sa, s)+MUL(fd, *bdst.alpha, t);
1004 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
1006 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
1007 76193d7c 2003-09-30 devnull bsrc.alpha += sadelta;
1009 76193d7c 2003-09-30 devnull return obdst;
1013 76193d7c 2003-09-30 devnull not used yet
1014 76193d7c 2003-09-30 devnull source and mask alpha 1
1015 76193d7c 2003-09-30 devnull static Buffer
1016 76193d7c 2003-09-30 devnull alphacalcS0(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
1018 76193d7c 2003-09-30 devnull Buffer obdst;
1021 76193d7c 2003-09-30 devnull USED(op);
1022 76193d7c 2003-09-30 devnull obdst = bdst;
1023 76193d7c 2003-09-30 devnull if(bsrc.delta == bdst.delta){
1024 76193d7c 2003-09-30 devnull memmove(bdst.rgba, bsrc.rgba, dx*bdst.delta);
1025 76193d7c 2003-09-30 devnull return obdst;
1027 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
1028 76193d7c 2003-09-30 devnull if(grey){
1029 76193d7c 2003-09-30 devnull *bdst.grey = *bsrc.grey;
1030 76193d7c 2003-09-30 devnull bsrc.grey += bsrc.delta;
1031 76193d7c 2003-09-30 devnull bdst.grey += bdst.delta;
1033 76193d7c 2003-09-30 devnull *bdst.red = *bsrc.red;
1034 76193d7c 2003-09-30 devnull *bdst.grn = *bsrc.grn;
1035 76193d7c 2003-09-30 devnull *bdst.blu = *bsrc.blu;
1036 76193d7c 2003-09-30 devnull bsrc.red += bsrc.delta;
1037 76193d7c 2003-09-30 devnull bsrc.blu += bsrc.delta;
1038 76193d7c 2003-09-30 devnull bsrc.grn += bsrc.delta;
1039 76193d7c 2003-09-30 devnull bdst.red += bdst.delta;
1040 76193d7c 2003-09-30 devnull bdst.blu += bdst.delta;
1041 76193d7c 2003-09-30 devnull bdst.grn += bdst.delta;
1043 76193d7c 2003-09-30 devnull if(bdst.alpha != &ones){
1044 76193d7c 2003-09-30 devnull *bdst.alpha = 255;
1045 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
1048 76193d7c 2003-09-30 devnull return obdst;
1052 76193d7c 2003-09-30 devnull /* source alpha 1 */
1053 76193d7c 2003-09-30 devnull static Buffer
1054 76193d7c 2003-09-30 devnull alphacalcS(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
1056 76193d7c 2003-09-30 devnull Buffer obdst;
1057 76193d7c 2003-09-30 devnull int fd;
1058 76193d7c 2003-09-30 devnull int i, ma;
1059 76193d7c 2003-09-30 devnull u32int s, t;
1061 76193d7c 2003-09-30 devnull USED(op);
1062 76193d7c 2003-09-30 devnull obdst = bdst;
1064 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
1065 76193d7c 2003-09-30 devnull ma = *bmask.alpha;
1066 76193d7c 2003-09-30 devnull fd = 255-ma;
1068 76193d7c 2003-09-30 devnull if(grey){
1069 76193d7c 2003-09-30 devnull *bdst.grey = MUL(ma, *bsrc.grey, s)+MUL(fd, *bdst.grey, t);
1070 76193d7c 2003-09-30 devnull bsrc.grey += bsrc.delta;
1071 76193d7c 2003-09-30 devnull bdst.grey += bdst.delta;
1073 76193d7c 2003-09-30 devnull *bdst.red = MUL(ma, *bsrc.red, s)+MUL(fd, *bdst.red, t);
1074 76193d7c 2003-09-30 devnull *bdst.grn = MUL(ma, *bsrc.grn, s)+MUL(fd, *bdst.grn, t);
1075 76193d7c 2003-09-30 devnull *bdst.blu = MUL(ma, *bsrc.blu, s)+MUL(fd, *bdst.blu, t);
1076 76193d7c 2003-09-30 devnull bsrc.red += bsrc.delta;
1077 76193d7c 2003-09-30 devnull bsrc.blu += bsrc.delta;
1078 76193d7c 2003-09-30 devnull bsrc.grn += bsrc.delta;
1079 76193d7c 2003-09-30 devnull bdst.red += bdst.delta;
1080 76193d7c 2003-09-30 devnull bdst.blu += bdst.delta;
1081 76193d7c 2003-09-30 devnull bdst.grn += bdst.delta;
1083 76193d7c 2003-09-30 devnull if(bdst.alpha != &ones){
1084 76193d7c 2003-09-30 devnull *bdst.alpha = ma+MUL(fd, *bdst.alpha, t);
1085 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
1087 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
1089 76193d7c 2003-09-30 devnull return obdst;
1092 76193d7c 2003-09-30 devnull static Buffer
1093 76193d7c 2003-09-30 devnull boolcalc14(Buffer bdst, Buffer b1, Buffer bmask, int dx, int grey, int op)
1095 76193d7c 2003-09-30 devnull Buffer obdst;
1096 76193d7c 2003-09-30 devnull int i, ma, zero;
1098 76193d7c 2003-09-30 devnull obdst = bdst;
1100 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
1101 76193d7c 2003-09-30 devnull ma = *bmask.alpha;
1102 76193d7c 2003-09-30 devnull zero = ma ? op == DoutS : op == DinS;
1104 76193d7c 2003-09-30 devnull if(grey){
1105 76193d7c 2003-09-30 devnull if(zero)
1106 76193d7c 2003-09-30 devnull *bdst.grey = 0;
1107 76193d7c 2003-09-30 devnull bdst.grey += bdst.delta;
1109 76193d7c 2003-09-30 devnull if(zero)
1110 76193d7c 2003-09-30 devnull *bdst.red = *bdst.grn = *bdst.blu = 0;
1111 76193d7c 2003-09-30 devnull bdst.red += bdst.delta;
1112 76193d7c 2003-09-30 devnull bdst.blu += bdst.delta;
1113 76193d7c 2003-09-30 devnull bdst.grn += bdst.delta;
1115 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
1116 76193d7c 2003-09-30 devnull if(bdst.alpha != &ones){
1117 76193d7c 2003-09-30 devnull if(zero)
1118 76193d7c 2003-09-30 devnull *bdst.alpha = 0;
1119 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
1122 76193d7c 2003-09-30 devnull return obdst;
1125 76193d7c 2003-09-30 devnull static Buffer
1126 76193d7c 2003-09-30 devnull boolcalc236789(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
1128 76193d7c 2003-09-30 devnull Buffer obdst;
1129 76193d7c 2003-09-30 devnull int fs, fd;
1130 76193d7c 2003-09-30 devnull int i, ma, da, zero;
1131 76193d7c 2003-09-30 devnull u32int s, t;
1133 76193d7c 2003-09-30 devnull obdst = bdst;
1134 76193d7c 2003-09-30 devnull zero = !(op&1);
1136 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
1137 76193d7c 2003-09-30 devnull ma = *bmask.alpha;
1138 76193d7c 2003-09-30 devnull da = *bdst.alpha;
1139 76193d7c 2003-09-30 devnull fs = da;
1140 76193d7c 2003-09-30 devnull if(op&2)
1141 76193d7c 2003-09-30 devnull fs = 255-da;
1142 76193d7c 2003-09-30 devnull fd = 0;
1143 76193d7c 2003-09-30 devnull if(op&4)
1144 76193d7c 2003-09-30 devnull fd = 255;
1146 76193d7c 2003-09-30 devnull if(grey){
1148 76193d7c 2003-09-30 devnull *bdst.grey = MUL(fs, *bsrc.grey, s)+MUL(fd, *bdst.grey, t);
1149 76193d7c 2003-09-30 devnull else if(zero)
1150 76193d7c 2003-09-30 devnull *bdst.grey = 0;
1151 76193d7c 2003-09-30 devnull bsrc.grey += bsrc.delta;
1152 76193d7c 2003-09-30 devnull bdst.grey += bdst.delta;
1154 76193d7c 2003-09-30 devnull if(ma){
1155 76193d7c 2003-09-30 devnull *bdst.red = MUL(fs, *bsrc.red, s)+MUL(fd, *bdst.red, t);
1156 76193d7c 2003-09-30 devnull *bdst.grn = MUL(fs, *bsrc.grn, s)+MUL(fd, *bdst.grn, t);
1157 76193d7c 2003-09-30 devnull *bdst.blu = MUL(fs, *bsrc.blu, s)+MUL(fd, *bdst.blu, t);
1159 76193d7c 2003-09-30 devnull else if(zero)
1160 76193d7c 2003-09-30 devnull *bdst.red = *bdst.grn = *bdst.blu = 0;
1161 76193d7c 2003-09-30 devnull bsrc.red += bsrc.delta;
1162 76193d7c 2003-09-30 devnull bsrc.blu += bsrc.delta;
1163 76193d7c 2003-09-30 devnull bsrc.grn += bsrc.delta;
1164 76193d7c 2003-09-30 devnull bdst.red += bdst.delta;
1165 76193d7c 2003-09-30 devnull bdst.blu += bdst.delta;
1166 76193d7c 2003-09-30 devnull bdst.grn += bdst.delta;
1168 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
1169 76193d7c 2003-09-30 devnull if(bdst.alpha != &ones){
1171 76193d7c 2003-09-30 devnull *bdst.alpha = fs+MUL(fd, da, t);
1172 76193d7c 2003-09-30 devnull else if(zero)
1173 76193d7c 2003-09-30 devnull *bdst.alpha = 0;
1174 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
1177 76193d7c 2003-09-30 devnull return obdst;
1180 76193d7c 2003-09-30 devnull static Buffer
1181 76193d7c 2003-09-30 devnull boolcalc1011(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
1183 76193d7c 2003-09-30 devnull Buffer obdst;
1184 76193d7c 2003-09-30 devnull int i, ma, zero;
1186 76193d7c 2003-09-30 devnull obdst = bdst;
1187 76193d7c 2003-09-30 devnull zero = !(op&1);
1189 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
1190 76193d7c 2003-09-30 devnull ma = *bmask.alpha;
1192 76193d7c 2003-09-30 devnull if(grey){
1194 76193d7c 2003-09-30 devnull *bdst.grey = *bsrc.grey;
1195 76193d7c 2003-09-30 devnull else if(zero)
1196 76193d7c 2003-09-30 devnull *bdst.grey = 0;
1197 76193d7c 2003-09-30 devnull bsrc.grey += bsrc.delta;
1198 76193d7c 2003-09-30 devnull bdst.grey += bdst.delta;
1200 76193d7c 2003-09-30 devnull if(ma){
1201 76193d7c 2003-09-30 devnull *bdst.red = *bsrc.red;
1202 76193d7c 2003-09-30 devnull *bdst.grn = *bsrc.grn;
1203 76193d7c 2003-09-30 devnull *bdst.blu = *bsrc.blu;
1205 76193d7c 2003-09-30 devnull else if(zero)
1206 76193d7c 2003-09-30 devnull *bdst.red = *bdst.grn = *bdst.blu = 0;
1207 76193d7c 2003-09-30 devnull bsrc.red += bsrc.delta;
1208 76193d7c 2003-09-30 devnull bsrc.blu += bsrc.delta;
1209 76193d7c 2003-09-30 devnull bsrc.grn += bsrc.delta;
1210 76193d7c 2003-09-30 devnull bdst.red += bdst.delta;
1211 76193d7c 2003-09-30 devnull bdst.blu += bdst.delta;
1212 76193d7c 2003-09-30 devnull bdst.grn += bdst.delta;
1214 76193d7c 2003-09-30 devnull bmask.alpha += bmask.delta;
1215 76193d7c 2003-09-30 devnull if(bdst.alpha != &ones){
1217 76193d7c 2003-09-30 devnull *bdst.alpha = 255;
1218 76193d7c 2003-09-30 devnull else if(zero)
1219 76193d7c 2003-09-30 devnull *bdst.alpha = 0;
1220 76193d7c 2003-09-30 devnull bdst.alpha += bdst.delta;
1223 76193d7c 2003-09-30 devnull return obdst;
1226 76193d7c 2003-09-30 devnull * Replicated cached scan line read. Call the function listed in the Param,
1227 76193d7c 2003-09-30 devnull * but cache the result so that for replicated images we only do the work once.
1229 76193d7c 2003-09-30 devnull static Buffer
1230 76193d7c 2003-09-30 devnull replread(Param *p, uchar *s, int y)
1232 76193d7c 2003-09-30 devnull Buffer *b;
1234 76193d7c 2003-09-30 devnull USED(s);
1235 76193d7c 2003-09-30 devnull b = &p->bcache[y];
1236 76193d7c 2003-09-30 devnull if((p->bfilled & (1<<y)) == 0){
1237 76193d7c 2003-09-30 devnull p->bfilled |= 1<<y;
1238 76193d7c 2003-09-30 devnull *b = p->replcall(p, p->bufbase+y*p->bufdelta, y);
1240 76193d7c 2003-09-30 devnull return *b;
1244 76193d7c 2003-09-30 devnull * Alpha reading function that simply relabels the grey pointer.
1246 76193d7c 2003-09-30 devnull static Buffer
1247 76193d7c 2003-09-30 devnull greymaskread(Param *p, uchar *buf, int y)
1249 76193d7c 2003-09-30 devnull Buffer b;
1251 76193d7c 2003-09-30 devnull b = p->greymaskcall(p, buf, y);
1252 76193d7c 2003-09-30 devnull b.alpha = b.grey;
1253 76193d7c 2003-09-30 devnull return b;
1256 76193d7c 2003-09-30 devnull #define DBG if(0)
1257 76193d7c 2003-09-30 devnull static Buffer
1258 76193d7c 2003-09-30 devnull readnbit(Param *p, uchar *buf, int y)
1260 76193d7c 2003-09-30 devnull Buffer b;
1261 76193d7c 2003-09-30 devnull Memimage *img;
1262 76193d7c 2003-09-30 devnull uchar *repl, *r, *w, *ow, bits;
1263 76193d7c 2003-09-30 devnull int i, n, sh, depth, x, dx, npack, nbits;
1265 76193d7c 2003-09-30 devnull b.rgba = (u32int*)buf;
1266 76193d7c 2003-09-30 devnull b.grey = w = buf;
1267 76193d7c 2003-09-30 devnull b.red = b.blu = b.grn = w;
1268 76193d7c 2003-09-30 devnull b.alpha = &ones;
1269 76193d7c 2003-09-30 devnull b.delta = 1;
1271 76193d7c 2003-09-30 devnull dx = p->dx;
1272 76193d7c 2003-09-30 devnull img = p->img;
1273 76193d7c 2003-09-30 devnull depth = img->depth;
1274 76193d7c 2003-09-30 devnull repl = &replbit[depth][0];
1275 76193d7c 2003-09-30 devnull npack = 8/depth;
1276 76193d7c 2003-09-30 devnull sh = 8-depth;
1278 76193d7c 2003-09-30 devnull /* copy from p->r.min.x until end of repl rectangle */
1279 76193d7c 2003-09-30 devnull x = p->r.min.x;
1280 76193d7c 2003-09-30 devnull n = dx;
1281 76193d7c 2003-09-30 devnull if(n > p->img->r.max.x - x)
1282 76193d7c 2003-09-30 devnull n = p->img->r.max.x - x;
1284 76193d7c 2003-09-30 devnull r = p->bytermin + y*p->bwidth;
1285 76193d7c 2003-09-30 devnull DBG print("readnbit dx %d %p=%p+%d*%d, *r=%d fetch %d ", dx, r, p->bytermin, y, p->bwidth, *r, n);
1286 76193d7c 2003-09-30 devnull bits = *r++;
1287 76193d7c 2003-09-30 devnull nbits = 8;
1288 76193d7c 2003-09-30 devnull if(i=x&(npack-1)){
1289 76193d7c 2003-09-30 devnull DBG print("throwaway %d...", i);
1290 76193d7c 2003-09-30 devnull bits <<= depth*i;
1291 76193d7c 2003-09-30 devnull nbits -= depth*i;
1293 76193d7c 2003-09-30 devnull for(i=0; i<n; i++){
1294 76193d7c 2003-09-30 devnull if(nbits == 0){
1295 76193d7c 2003-09-30 devnull DBG print("(%.2ux)...", *r);
1296 76193d7c 2003-09-30 devnull bits = *r++;
1297 76193d7c 2003-09-30 devnull nbits = 8;
1299 76193d7c 2003-09-30 devnull *w++ = repl[bits>>sh];
1300 76193d7c 2003-09-30 devnull DBG print("bit %x...", repl[bits>>sh]);
1301 76193d7c 2003-09-30 devnull bits <<= depth;
1302 76193d7c 2003-09-30 devnull nbits -= depth;
1304 76193d7c 2003-09-30 devnull dx -= n;
1305 76193d7c 2003-09-30 devnull if(dx == 0)
1306 76193d7c 2003-09-30 devnull return b;
1308 76193d7c 2003-09-30 devnull assert(x+i == p->img->r.max.x);
1310 76193d7c 2003-09-30 devnull /* copy from beginning of repl rectangle until where we were before. */
1311 76193d7c 2003-09-30 devnull x = p->img->r.min.x;
1312 76193d7c 2003-09-30 devnull n = dx;
1313 76193d7c 2003-09-30 devnull if(n > p->r.min.x - x)
1314 76193d7c 2003-09-30 devnull n = p->r.min.x - x;
1316 76193d7c 2003-09-30 devnull r = p->bytey0s + y*p->bwidth;
1317 76193d7c 2003-09-30 devnull DBG print("x=%d r=%p...", x, r);
1318 76193d7c 2003-09-30 devnull bits = *r++;
1319 76193d7c 2003-09-30 devnull nbits = 8;
1320 76193d7c 2003-09-30 devnull if(i=x&(npack-1)){
1321 76193d7c 2003-09-30 devnull bits <<= depth*i;
1322 76193d7c 2003-09-30 devnull nbits -= depth*i;
1324 76193d7c 2003-09-30 devnull DBG print("nbits=%d...", nbits);
1325 76193d7c 2003-09-30 devnull for(i=0; i<n; i++){
1326 76193d7c 2003-09-30 devnull if(nbits == 0){
1327 76193d7c 2003-09-30 devnull bits = *r++;
1328 76193d7c 2003-09-30 devnull nbits = 8;
1330 76193d7c 2003-09-30 devnull *w++ = repl[bits>>sh];
1331 76193d7c 2003-09-30 devnull DBG print("bit %x...", repl[bits>>sh]);
1332 76193d7c 2003-09-30 devnull bits <<= depth;
1333 76193d7c 2003-09-30 devnull nbits -= depth;
1334 76193d7c 2003-09-30 devnull DBG print("bits %x nbits %d...", bits, nbits);
1336 76193d7c 2003-09-30 devnull dx -= n;
1337 76193d7c 2003-09-30 devnull if(dx == 0)
1338 76193d7c 2003-09-30 devnull return b;
1340 76193d7c 2003-09-30 devnull assert(dx > 0);
1341 76193d7c 2003-09-30 devnull /* now we have exactly one full scan line: just replicate the buffer itself until we are done */
1342 76193d7c 2003-09-30 devnull ow = buf;
1343 76193d7c 2003-09-30 devnull while(dx--)
1344 76193d7c 2003-09-30 devnull *w++ = *ow++;
1346 76193d7c 2003-09-30 devnull return b;
1348 76193d7c 2003-09-30 devnull #undef DBG
1350 76193d7c 2003-09-30 devnull #define DBG if(0)
1351 76193d7c 2003-09-30 devnull static void
1352 76193d7c 2003-09-30 devnull writenbit(Param *p, uchar *w, Buffer src)
1354 76193d7c 2003-09-30 devnull uchar *r;
1355 76193d7c 2003-09-30 devnull u32int bits;
1356 76193d7c 2003-09-30 devnull int i, sh, depth, npack, nbits, x, ex;
1358 76193d7c 2003-09-30 devnull assert(src.grey != nil && src.delta == 1);
1360 76193d7c 2003-09-30 devnull x = p->r.min.x;
1361 76193d7c 2003-09-30 devnull ex = x+p->dx;
1362 76193d7c 2003-09-30 devnull depth = p->img->depth;
1363 76193d7c 2003-09-30 devnull npack = 8/depth;
1365 76193d7c 2003-09-30 devnull i=x&(npack-1);
1366 76193d7c 2003-09-30 devnull bits = i ? (*w >> (8-depth*i)) : 0;
1367 76193d7c 2003-09-30 devnull nbits = depth*i;
1368 76193d7c 2003-09-30 devnull sh = 8-depth;
1369 76193d7c 2003-09-30 devnull r = src.grey;
1371 76193d7c 2003-09-30 devnull for(; x<ex; x++){
1372 76193d7c 2003-09-30 devnull bits <<= depth;
1373 76193d7c 2003-09-30 devnull DBG print(" %x", *r);
1374 76193d7c 2003-09-30 devnull bits |= (*r++ >> sh);
1375 76193d7c 2003-09-30 devnull nbits += depth;
1376 76193d7c 2003-09-30 devnull if(nbits == 8){
1377 76193d7c 2003-09-30 devnull *w++ = bits;
1378 76193d7c 2003-09-30 devnull nbits = 0;
1382 76193d7c 2003-09-30 devnull if(nbits){
1383 76193d7c 2003-09-30 devnull sh = 8-nbits;
1384 76193d7c 2003-09-30 devnull bits <<= sh;
1385 76193d7c 2003-09-30 devnull bits |= *w & ((1<<sh)-1);
1386 76193d7c 2003-09-30 devnull *w = bits;
1388 76193d7c 2003-09-30 devnull DBG print("\n");
1389 76193d7c 2003-09-30 devnull return;
1391 76193d7c 2003-09-30 devnull #undef DBG
1393 76193d7c 2003-09-30 devnull static Buffer
1394 76193d7c 2003-09-30 devnull readcmap(Param *p, uchar *buf, int y)
1396 76193d7c 2003-09-30 devnull Buffer b;
1397 76193d7c 2003-09-30 devnull int a, convgrey, copyalpha, dx, i, m;
1398 76193d7c 2003-09-30 devnull uchar *q, *cmap, *begin, *end, *r, *w;
1400 76193d7c 2003-09-30 devnull begin = p->bytey0s + y*p->bwidth;
1401 76193d7c 2003-09-30 devnull r = p->bytermin + y*p->bwidth;
1402 76193d7c 2003-09-30 devnull end = p->bytey0e + y*p->bwidth;
1403 76193d7c 2003-09-30 devnull cmap = p->img->cmap->cmap2rgb;
1404 76193d7c 2003-09-30 devnull convgrey = p->convgrey;
1405 76193d7c 2003-09-30 devnull copyalpha = (p->img->flags&Falpha) ? 1 : 0;
1407 76193d7c 2003-09-30 devnull w = buf;
1408 76193d7c 2003-09-30 devnull dx = p->dx;
1409 76193d7c 2003-09-30 devnull if(copyalpha){
1410 76193d7c 2003-09-30 devnull b.alpha = buf++;
1411 76193d7c 2003-09-30 devnull a = p->img->shift[CAlpha]/8;
1412 76193d7c 2003-09-30 devnull m = p->img->shift[CMap]/8;
1413 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
1414 76193d7c 2003-09-30 devnull *w++ = r[a];
1415 76193d7c 2003-09-30 devnull q = cmap+r[m]*3;
1416 76193d7c 2003-09-30 devnull r += 2;
1417 76193d7c 2003-09-30 devnull if(r == end)
1418 76193d7c 2003-09-30 devnull r = begin;
1419 76193d7c 2003-09-30 devnull if(convgrey){
1420 76193d7c 2003-09-30 devnull *w++ = RGB2K(q[0], q[1], q[2]);
1422 76193d7c 2003-09-30 devnull *w++ = q[2]; /* blue */
1423 76193d7c 2003-09-30 devnull *w++ = q[1]; /* green */
1424 76193d7c 2003-09-30 devnull *w++ = q[0]; /* red */
1428 76193d7c 2003-09-30 devnull b.alpha = &ones;
1429 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
1430 76193d7c 2003-09-30 devnull q = cmap+*r++*3;
1431 76193d7c 2003-09-30 devnull if(r == end)
1432 76193d7c 2003-09-30 devnull r = begin;
1433 76193d7c 2003-09-30 devnull if(convgrey){
1434 76193d7c 2003-09-30 devnull *w++ = RGB2K(q[0], q[1], q[2]);
1436 76193d7c 2003-09-30 devnull *w++ = q[2]; /* blue */
1437 76193d7c 2003-09-30 devnull *w++ = q[1]; /* green */
1438 76193d7c 2003-09-30 devnull *w++ = q[0]; /* red */
1443 76193d7c 2003-09-30 devnull b.rgba = (u32int*)(buf-copyalpha);
1445 76193d7c 2003-09-30 devnull if(convgrey){
1446 76193d7c 2003-09-30 devnull b.grey = buf;
1447 76193d7c 2003-09-30 devnull b.red = b.blu = b.grn = buf;
1448 76193d7c 2003-09-30 devnull b.delta = 1+copyalpha;
1450 76193d7c 2003-09-30 devnull b.blu = buf;
1451 76193d7c 2003-09-30 devnull b.grn = buf+1;
1452 76193d7c 2003-09-30 devnull b.red = buf+2;
1453 76193d7c 2003-09-30 devnull b.grey = nil;
1454 76193d7c 2003-09-30 devnull b.delta = 3+copyalpha;
1456 76193d7c 2003-09-30 devnull return b;
1459 76193d7c 2003-09-30 devnull static void
1460 76193d7c 2003-09-30 devnull writecmap(Param *p, uchar *w, Buffer src)
1462 76193d7c 2003-09-30 devnull uchar *cmap, *red, *grn, *blu;
1463 76193d7c 2003-09-30 devnull int i, dx, delta;
1465 76193d7c 2003-09-30 devnull cmap = p->img->cmap->rgb2cmap;
1467 76193d7c 2003-09-30 devnull delta = src.delta;
1468 76193d7c 2003-09-30 devnull red= src.red;
1469 76193d7c 2003-09-30 devnull grn = src.grn;
1470 76193d7c 2003-09-30 devnull blu = src.blu;
1472 76193d7c 2003-09-30 devnull dx = p->dx;
1473 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++, red+=delta, grn+=delta, blu+=delta)
1474 76193d7c 2003-09-30 devnull *w++ = cmap[(*red>>4)*256+(*grn>>4)*16+(*blu>>4)];
1477 76193d7c 2003-09-30 devnull #define DBG if(0)
1478 76193d7c 2003-09-30 devnull static Buffer
1479 76193d7c 2003-09-30 devnull readbyte(Param *p, uchar *buf, int y)
1481 76193d7c 2003-09-30 devnull Buffer b;
1482 76193d7c 2003-09-30 devnull Memimage *img;
1483 76193d7c 2003-09-30 devnull int dx, isgrey, convgrey, alphaonly, copyalpha, i, nb;
1484 76193d7c 2003-09-30 devnull uchar *begin, *end, *r, *w, *rrepl, *grepl, *brepl, *arepl, *krepl;
1485 76193d7c 2003-09-30 devnull uchar ured, ugrn, ublu;
1486 76193d7c 2003-09-30 devnull u32int u;
1488 76193d7c 2003-09-30 devnull img = p->img;
1489 76193d7c 2003-09-30 devnull begin = p->bytey0s + y*p->bwidth;
1490 76193d7c 2003-09-30 devnull r = p->bytermin + y*p->bwidth;
1491 76193d7c 2003-09-30 devnull end = p->bytey0e + y*p->bwidth;
1493 76193d7c 2003-09-30 devnull w = buf;
1494 76193d7c 2003-09-30 devnull dx = p->dx;
1495 76193d7c 2003-09-30 devnull nb = img->depth/8;
1497 76193d7c 2003-09-30 devnull convgrey = p->convgrey; /* convert rgb to grey */
1498 76193d7c 2003-09-30 devnull isgrey = img->flags&Fgrey;
1499 76193d7c 2003-09-30 devnull alphaonly = p->alphaonly;
1500 76193d7c 2003-09-30 devnull copyalpha = (img->flags&Falpha) ? 1 : 0;
1502 76193d7c 2003-09-30 devnull DBG print("copyalpha %d alphaonly %d convgrey %d isgrey %d\n", copyalpha, alphaonly, convgrey, isgrey);
1503 76193d7c 2003-09-30 devnull /* if we can, avoid processing everything */
1504 76193d7c 2003-09-30 devnull if(!(img->flags&Frepl) && !convgrey && (img->flags&Fbytes)){
1505 76193d7c 2003-09-30 devnull memset(&b, 0, sizeof b);
1506 76193d7c 2003-09-30 devnull if(p->needbuf){
1507 76193d7c 2003-09-30 devnull memmove(buf, r, dx*nb);
1508 76193d7c 2003-09-30 devnull r = buf;
1510 76193d7c 2003-09-30 devnull b.rgba = (u32int*)r;
1511 76193d7c 2003-09-30 devnull if(copyalpha)
1512 76193d7c 2003-09-30 devnull b.alpha = r+img->shift[CAlpha]/8;
1514 76193d7c 2003-09-30 devnull b.alpha = &ones;
1515 76193d7c 2003-09-30 devnull if(isgrey){
1516 76193d7c 2003-09-30 devnull b.grey = r+img->shift[CGrey]/8;
1517 76193d7c 2003-09-30 devnull b.red = b.grn = b.blu = b.grey;
1519 76193d7c 2003-09-30 devnull b.red = r+img->shift[CRed]/8;
1520 76193d7c 2003-09-30 devnull b.grn = r+img->shift[CGreen]/8;
1521 76193d7c 2003-09-30 devnull b.blu = r+img->shift[CBlue]/8;
1523 76193d7c 2003-09-30 devnull b.delta = nb;
1524 76193d7c 2003-09-30 devnull return b;
1527 76193d7c 2003-09-30 devnull DBG print("2\n");
1528 76193d7c 2003-09-30 devnull rrepl = replbit[img->nbits[CRed]];
1529 76193d7c 2003-09-30 devnull grepl = replbit[img->nbits[CGreen]];
1530 76193d7c 2003-09-30 devnull brepl = replbit[img->nbits[CBlue]];
1531 76193d7c 2003-09-30 devnull arepl = replbit[img->nbits[CAlpha]];
1532 76193d7c 2003-09-30 devnull krepl = replbit[img->nbits[CGrey]];
1534 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
1535 76193d7c 2003-09-30 devnull u = r[0] | (r[1]<<8) | (r[2]<<16) | (r[3]<<24);
1536 76193d7c 2003-09-30 devnull if(copyalpha) {
1537 76193d7c 2003-09-30 devnull *w++ = arepl[(u>>img->shift[CAlpha]) & img->mask[CAlpha]];
1538 76193d7c 2003-09-30 devnull DBG print("a %x\n", w[-1]);
1541 76193d7c 2003-09-30 devnull if(isgrey)
1542 76193d7c 2003-09-30 devnull *w++ = krepl[(u >> img->shift[CGrey]) & img->mask[CGrey]];
1543 76193d7c 2003-09-30 devnull else if(!alphaonly){
1544 76193d7c 2003-09-30 devnull ured = rrepl[(u >> img->shift[CRed]) & img->mask[CRed]];
1545 76193d7c 2003-09-30 devnull ugrn = grepl[(u >> img->shift[CGreen]) & img->mask[CGreen]];
1546 76193d7c 2003-09-30 devnull ublu = brepl[(u >> img->shift[CBlue]) & img->mask[CBlue]];
1547 76193d7c 2003-09-30 devnull if(convgrey){
1548 76193d7c 2003-09-30 devnull DBG print("g %x %x %x\n", ured, ugrn, ublu);
1549 76193d7c 2003-09-30 devnull *w++ = RGB2K(ured, ugrn, ublu);
1550 76193d7c 2003-09-30 devnull DBG print("%x\n", w[-1]);
1552 76193d7c 2003-09-30 devnull *w++ = brepl[(u >> img->shift[CBlue]) & img->mask[CBlue]];
1553 76193d7c 2003-09-30 devnull *w++ = grepl[(u >> img->shift[CGreen]) & img->mask[CGreen]];
1554 76193d7c 2003-09-30 devnull *w++ = rrepl[(u >> img->shift[CRed]) & img->mask[CRed]];
1557 76193d7c 2003-09-30 devnull r += nb;
1558 76193d7c 2003-09-30 devnull if(r == end)
1559 76193d7c 2003-09-30 devnull r = begin;
1562 76193d7c 2003-09-30 devnull b.alpha = copyalpha ? buf : &ones;
1563 76193d7c 2003-09-30 devnull b.rgba = (u32int*)buf;
1564 76193d7c 2003-09-30 devnull if(alphaonly){
1565 76193d7c 2003-09-30 devnull b.red = b.grn = b.blu = b.grey = nil;
1566 76193d7c 2003-09-30 devnull if(!copyalpha)
1567 76193d7c 2003-09-30 devnull b.rgba = nil;
1568 76193d7c 2003-09-30 devnull b.delta = 1;
1569 76193d7c 2003-09-30 devnull }else if(isgrey || convgrey){
1570 76193d7c 2003-09-30 devnull b.grey = buf+copyalpha;
1571 76193d7c 2003-09-30 devnull b.red = b.grn = b.blu = buf+copyalpha;
1572 76193d7c 2003-09-30 devnull b.delta = copyalpha+1;
1573 76193d7c 2003-09-30 devnull DBG print("alpha %x grey %x\n", b.alpha ? *b.alpha : 0xFF, *b.grey);
1575 76193d7c 2003-09-30 devnull b.blu = buf+copyalpha;
1576 76193d7c 2003-09-30 devnull b.grn = buf+copyalpha+1;
1577 76193d7c 2003-09-30 devnull b.grey = nil;
1578 76193d7c 2003-09-30 devnull b.red = buf+copyalpha+2;
1579 76193d7c 2003-09-30 devnull b.delta = copyalpha+3;
1581 76193d7c 2003-09-30 devnull return b;
1583 76193d7c 2003-09-30 devnull #undef DBG
1585 76193d7c 2003-09-30 devnull #define DBG if(0)
1586 76193d7c 2003-09-30 devnull static void
1587 76193d7c 2003-09-30 devnull writebyte(Param *p, uchar *w, Buffer src)
1589 76193d7c 2003-09-30 devnull Memimage *img;
1590 76193d7c 2003-09-30 devnull int i, isalpha, isgrey, nb, delta, dx, adelta;
1591 76193d7c 2003-09-30 devnull uchar ff, *red, *grn, *blu, *grey, *alpha;
1592 76193d7c 2003-09-30 devnull u32int u, mask;
1594 76193d7c 2003-09-30 devnull img = p->img;
1596 76193d7c 2003-09-30 devnull red = src.red;
1597 76193d7c 2003-09-30 devnull grn = src.grn;
1598 76193d7c 2003-09-30 devnull blu = src.blu;
1599 76193d7c 2003-09-30 devnull alpha = src.alpha;
1600 76193d7c 2003-09-30 devnull delta = src.delta;
1601 76193d7c 2003-09-30 devnull grey = src.grey;
1602 76193d7c 2003-09-30 devnull dx = p->dx;
1604 76193d7c 2003-09-30 devnull nb = img->depth/8;
1605 76193d7c 2003-09-30 devnull mask = (nb==4) ? 0 : ~((1<<img->depth)-1);
1607 76193d7c 2003-09-30 devnull isalpha = img->flags&Falpha;
1608 76193d7c 2003-09-30 devnull isgrey = img->flags&Fgrey;
1609 76193d7c 2003-09-30 devnull adelta = src.delta;
1611 76193d7c 2003-09-30 devnull if(isalpha && (alpha == nil || alpha == &ones)){
1612 76193d7c 2003-09-30 devnull ff = 0xFF;
1613 76193d7c 2003-09-30 devnull alpha = &ff;
1614 76193d7c 2003-09-30 devnull adelta = 0;
1617 76193d7c 2003-09-30 devnull for(i=0; i<dx; i++){
1618 76193d7c 2003-09-30 devnull u = w[0] | (w[1]<<8) | (w[2]<<16) | (w[3]<<24);
1619 76193d7c 2003-09-30 devnull DBG print("u %.8lux...", u);
1620 76193d7c 2003-09-30 devnull u &= mask;
1621 76193d7c 2003-09-30 devnull DBG print("&mask %.8lux...", u);
1622 76193d7c 2003-09-30 devnull if(isgrey){
1623 76193d7c 2003-09-30 devnull u |= ((*grey >> (8-img->nbits[CGrey])) & img->mask[CGrey]) << img->shift[CGrey];
1624 76193d7c 2003-09-30 devnull DBG print("|grey %.8lux...", u);
1625 76193d7c 2003-09-30 devnull grey += delta;
1627 76193d7c 2003-09-30 devnull u |= ((*red >> (8-img->nbits[CRed])) & img->mask[CRed]) << img->shift[CRed];
1628 76193d7c 2003-09-30 devnull u |= ((*grn >> (8-img->nbits[CGreen])) & img->mask[CGreen]) << img->shift[CGreen];
1629 76193d7c 2003-09-30 devnull u |= ((*blu >> (8-img->nbits[CBlue])) & img->mask[CBlue]) << img->shift[CBlue];
1630 76193d7c 2003-09-30 devnull red += delta;
1631 76193d7c 2003-09-30 devnull grn += delta;
1632 76193d7c 2003-09-30 devnull blu += delta;
1633 76193d7c 2003-09-30 devnull DBG print("|rgb %.8lux...", u);
1636 76193d7c 2003-09-30 devnull if(isalpha){
1637 76193d7c 2003-09-30 devnull u |= ((*alpha >> (8-img->nbits[CAlpha])) & img->mask[CAlpha]) << img->shift[CAlpha];
1638 76193d7c 2003-09-30 devnull alpha += adelta;
1639 76193d7c 2003-09-30 devnull DBG print("|alpha %.8lux...", u);
1642 76193d7c 2003-09-30 devnull w[0] = u;
1643 76193d7c 2003-09-30 devnull w[1] = u>>8;
1644 76193d7c 2003-09-30 devnull w[2] = u>>16;
1645 76193d7c 2003-09-30 devnull w[3] = u>>24;
1646 76193d7c 2003-09-30 devnull w += nb;
1649 76193d7c 2003-09-30 devnull #undef DBG
1651 76193d7c 2003-09-30 devnull static Readfn*
1652 76193d7c 2003-09-30 devnull readfn(Memimage *img)
1654 76193d7c 2003-09-30 devnull if(img->depth < 8)
1655 76193d7c 2003-09-30 devnull return readnbit;
1656 76193d7c 2003-09-30 devnull if(img->nbits[CMap] == 8)
1657 76193d7c 2003-09-30 devnull return readcmap;
1658 76193d7c 2003-09-30 devnull return readbyte;
1661 76193d7c 2003-09-30 devnull static Readfn*
1662 76193d7c 2003-09-30 devnull readalphafn(Memimage *m)
1664 76193d7c 2003-09-30 devnull USED(m);
1665 76193d7c 2003-09-30 devnull return readbyte;
1668 76193d7c 2003-09-30 devnull static Writefn*
1669 76193d7c 2003-09-30 devnull writefn(Memimage *img)
1671 76193d7c 2003-09-30 devnull if(img->depth < 8)
1672 76193d7c 2003-09-30 devnull return writenbit;
1673 76193d7c 2003-09-30 devnull if(img->chan == CMAP8)
1674 76193d7c 2003-09-30 devnull return writecmap;
1675 76193d7c 2003-09-30 devnull return writebyte;
1678 76193d7c 2003-09-30 devnull static void
1679 76193d7c 2003-09-30 devnull nullwrite(Param *p, uchar *s, Buffer b)
1681 76193d7c 2003-09-30 devnull USED(p);
1682 76193d7c 2003-09-30 devnull USED(s);
1685 76193d7c 2003-09-30 devnull static Buffer
1686 76193d7c 2003-09-30 devnull readptr(Param *p, uchar *s, int y)
1688 76193d7c 2003-09-30 devnull Buffer b;
1689 76193d7c 2003-09-30 devnull uchar *q;
1691 76193d7c 2003-09-30 devnull USED(s);
1692 76193d7c 2003-09-30 devnull q = p->bytermin + y*p->bwidth;
1693 76193d7c 2003-09-30 devnull b.red = q; /* ptr to data */
1694 76193d7c 2003-09-30 devnull b.grn = b.blu = b.grey = b.alpha = nil;
1695 76193d7c 2003-09-30 devnull b.rgba = (u32int*)q;
1696 76193d7c 2003-09-30 devnull b.delta = p->img->depth/8;
1697 76193d7c 2003-09-30 devnull return b;
1700 76193d7c 2003-09-30 devnull static Buffer
1701 76193d7c 2003-09-30 devnull boolmemmove(Buffer bdst, Buffer bsrc, Buffer b1, int dx, int i, int o)
1703 76193d7c 2003-09-30 devnull USED(i);
1704 76193d7c 2003-09-30 devnull USED(o);
1705 76193d7c 2003-09-30 devnull memmove(bdst.red, bsrc.red, dx*bdst.delta);
1706 76193d7c 2003-09-30 devnull return bdst;
1709 76193d7c 2003-09-30 devnull static Buffer
1710 76193d7c 2003-09-30 devnull boolcopy8(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int i, int o)
1712 76193d7c 2003-09-30 devnull uchar *m, *r, *w, *ew;
1714 76193d7c 2003-09-30 devnull USED(i);
1715 76193d7c 2003-09-30 devnull USED(o);
1716 76193d7c 2003-09-30 devnull m = bmask.grey;
1717 76193d7c 2003-09-30 devnull w = bdst.red;
1718 76193d7c 2003-09-30 devnull r = bsrc.red;
1719 76193d7c 2003-09-30 devnull ew = w+dx;
1720 76193d7c 2003-09-30 devnull for(; w < ew; w++,r++)
1721 76193d7c 2003-09-30 devnull if(*m++)
1722 76193d7c 2003-09-30 devnull *w = *r;
1723 76193d7c 2003-09-30 devnull return bdst; /* not used */
1726 76193d7c 2003-09-30 devnull static Buffer
1727 76193d7c 2003-09-30 devnull boolcopy16(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int i, int o)
1729 76193d7c 2003-09-30 devnull uchar *m;
1730 76193d7c 2003-09-30 devnull ushort *r, *w, *ew;
1732 76193d7c 2003-09-30 devnull USED(i);
1733 76193d7c 2003-09-30 devnull USED(o);
1734 76193d7c 2003-09-30 devnull m = bmask.grey;
1735 76193d7c 2003-09-30 devnull w = (ushort*)bdst.red;
1736 76193d7c 2003-09-30 devnull r = (ushort*)bsrc.red;
1737 76193d7c 2003-09-30 devnull ew = w+dx;
1738 76193d7c 2003-09-30 devnull for(; w < ew; w++,r++)
1739 76193d7c 2003-09-30 devnull if(*m++)
1740 76193d7c 2003-09-30 devnull *w = *r;
1741 76193d7c 2003-09-30 devnull return bdst; /* not used */
1744 76193d7c 2003-09-30 devnull static Buffer
1745 76193d7c 2003-09-30 devnull boolcopy24(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int i, int o)
1747 76193d7c 2003-09-30 devnull uchar *m;
1748 76193d7c 2003-09-30 devnull uchar *r, *w, *ew;
1750 76193d7c 2003-09-30 devnull USED(i);
1751 76193d7c 2003-09-30 devnull USED(o);
1752 76193d7c 2003-09-30 devnull m = bmask.grey;
1753 76193d7c 2003-09-30 devnull w = bdst.red;
1754 76193d7c 2003-09-30 devnull r = bsrc.red;
1755 76193d7c 2003-09-30 devnull ew = w+dx*3;
1756 76193d7c 2003-09-30 devnull while(w < ew){
1757 76193d7c 2003-09-30 devnull if(*m++){
1758 76193d7c 2003-09-30 devnull *w++ = *r++;
1759 76193d7c 2003-09-30 devnull *w++ = *r++;
1760 76193d7c 2003-09-30 devnull *w++ = *r++;
1762 76193d7c 2003-09-30 devnull w += 3;
1763 76193d7c 2003-09-30 devnull r += 3;
1766 76193d7c 2003-09-30 devnull return bdst; /* not used */
1769 76193d7c 2003-09-30 devnull static Buffer
1770 76193d7c 2003-09-30 devnull boolcopy32(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int i, int o)
1772 76193d7c 2003-09-30 devnull uchar *m;
1773 76193d7c 2003-09-30 devnull u32int *r, *w, *ew;
1775 76193d7c 2003-09-30 devnull USED(i);
1776 76193d7c 2003-09-30 devnull USED(o);
1777 76193d7c 2003-09-30 devnull m = bmask.grey;
1778 76193d7c 2003-09-30 devnull w = (u32int*)bdst.red;
1779 76193d7c 2003-09-30 devnull r = (u32int*)bsrc.red;
1780 76193d7c 2003-09-30 devnull ew = w+dx;
1781 76193d7c 2003-09-30 devnull for(; w < ew; w++,r++)
1782 76193d7c 2003-09-30 devnull if(*m++)
1783 76193d7c 2003-09-30 devnull *w = *r;
1784 76193d7c 2003-09-30 devnull return bdst; /* not used */
1787 76193d7c 2003-09-30 devnull static Buffer
1788 76193d7c 2003-09-30 devnull genconv(Param *p, uchar *buf, int y)
1790 76193d7c 2003-09-30 devnull Buffer b;
1791 76193d7c 2003-09-30 devnull int nb;
1792 76193d7c 2003-09-30 devnull uchar *r, *w, *ew;
1794 76193d7c 2003-09-30 devnull /* read from source into RGB format in convbuf */
1795 76193d7c 2003-09-30 devnull b = p->convreadcall(p, p->convbuf, y);
1797 76193d7c 2003-09-30 devnull /* write RGB format into dst format in buf */
1798 76193d7c 2003-09-30 devnull p->convwritecall(p->convdpar, buf, b);
1800 76193d7c 2003-09-30 devnull if(p->convdx){
1801 76193d7c 2003-09-30 devnull nb = p->convdpar->img->depth/8;
1802 76193d7c 2003-09-30 devnull r = buf;
1803 76193d7c 2003-09-30 devnull w = buf+nb*p->dx;
1804 76193d7c 2003-09-30 devnull ew = buf+nb*p->convdx;
1805 76193d7c 2003-09-30 devnull while(w<ew)
1806 76193d7c 2003-09-30 devnull *w++ = *r++;
1809 76193d7c 2003-09-30 devnull b.red = buf;
1810 76193d7c 2003-09-30 devnull b.blu = b.grn = b.grey = b.alpha = nil;
1811 76193d7c 2003-09-30 devnull b.rgba = (u32int*)buf;
1812 76193d7c 2003-09-30 devnull b.delta = 0;
1814 76193d7c 2003-09-30 devnull return b;
1817 76193d7c 2003-09-30 devnull static Readfn*
1818 76193d7c 2003-09-30 devnull convfn(Memimage *dst, Param *dpar, Memimage *src, Param *spar)
1820 76193d7c 2003-09-30 devnull if(dst->chan == src->chan && !(src->flags&Frepl)){
1821 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("readptr...");
1822 76193d7c 2003-09-30 devnull return readptr;
1825 76193d7c 2003-09-30 devnull if(dst->chan==CMAP8 && (src->chan==GREY1||src->chan==GREY2||src->chan==GREY4)){
1826 76193d7c 2003-09-30 devnull /* cheat because we know the replicated value is exactly the color map entry. */
1827 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("Readnbit...");
1828 76193d7c 2003-09-30 devnull return readnbit;
1831 76193d7c 2003-09-30 devnull spar->convreadcall = readfn(src);
1832 76193d7c 2003-09-30 devnull spar->convwritecall = writefn(dst);
1833 76193d7c 2003-09-30 devnull spar->convdpar = dpar;
1835 76193d7c 2003-09-30 devnull /* allocate a conversion buffer */
1836 76193d7c 2003-09-30 devnull spar->convbufoff = ndrawbuf;
1837 76193d7c 2003-09-30 devnull ndrawbuf += spar->dx*4;
1839 76193d7c 2003-09-30 devnull if(spar->dx > Dx(spar->img->r)){
1840 76193d7c 2003-09-30 devnull spar->convdx = spar->dx;
1841 76193d7c 2003-09-30 devnull spar->dx = Dx(spar->img->r);
1844 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("genconv...");
1845 76193d7c 2003-09-30 devnull return genconv;
1849 76193d7c 2003-09-30 devnull * Do NOT call this directly. pixelbits is a wrapper
1850 76193d7c 2003-09-30 devnull * around this that fetches the bits from the X server
1851 76193d7c 2003-09-30 devnull * when necessary.
1854 76193d7c 2003-09-30 devnull _pixelbits(Memimage *i, Point pt)
1856 76193d7c 2003-09-30 devnull uchar *p;
1857 76193d7c 2003-09-30 devnull u32int val;
1858 76193d7c 2003-09-30 devnull int off, bpp, npack;
1860 76193d7c 2003-09-30 devnull val = 0;
1861 76193d7c 2003-09-30 devnull p = byteaddr(i, pt);
1862 76193d7c 2003-09-30 devnull switch(bpp=i->depth){
1863 76193d7c 2003-09-30 devnull case 1:
1864 76193d7c 2003-09-30 devnull case 2:
1865 76193d7c 2003-09-30 devnull case 4:
1866 76193d7c 2003-09-30 devnull npack = 8/bpp;
1867 76193d7c 2003-09-30 devnull off = pt.x%npack;
1868 76193d7c 2003-09-30 devnull val = p[0] >> bpp*(npack-1-off);
1869 76193d7c 2003-09-30 devnull val &= (1<<bpp)-1;
1871 76193d7c 2003-09-30 devnull case 8:
1872 76193d7c 2003-09-30 devnull val = p[0];
1874 76193d7c 2003-09-30 devnull case 16:
1875 76193d7c 2003-09-30 devnull val = p[0]|(p[1]<<8);
1877 76193d7c 2003-09-30 devnull case 24:
1878 76193d7c 2003-09-30 devnull val = p[0]|(p[1]<<8)|(p[2]<<16);
1880 76193d7c 2003-09-30 devnull case 32:
1881 76193d7c 2003-09-30 devnull val = p[0]|(p[1]<<8)|(p[2]<<16)|(p[3]<<24);
1884 76193d7c 2003-09-30 devnull while(bpp<32){
1885 76193d7c 2003-09-30 devnull val |= val<<bpp;
1886 76193d7c 2003-09-30 devnull bpp *= 2;
1888 76193d7c 2003-09-30 devnull return val;
1891 76193d7c 2003-09-30 devnull static Calcfn*
1892 76193d7c 2003-09-30 devnull boolcopyfn(Memimage *img, Memimage *mask)
1894 76193d7c 2003-09-30 devnull if(mask->flags&Frepl && Dx(mask->r)==1 && Dy(mask->r)==1 && pixelbits(mask, mask->r.min)==~0)
1895 76193d7c 2003-09-30 devnull return boolmemmove;
1897 76193d7c 2003-09-30 devnull switch(img->depth){
1898 76193d7c 2003-09-30 devnull case 8:
1899 76193d7c 2003-09-30 devnull return boolcopy8;
1900 76193d7c 2003-09-30 devnull case 16:
1901 76193d7c 2003-09-30 devnull return boolcopy16;
1902 76193d7c 2003-09-30 devnull case 24:
1903 76193d7c 2003-09-30 devnull return boolcopy24;
1904 76193d7c 2003-09-30 devnull case 32:
1905 76193d7c 2003-09-30 devnull return boolcopy32;
1906 76193d7c 2003-09-30 devnull default:
1907 76193d7c 2003-09-30 devnull assert(0 /* boolcopyfn */);
1909 be22ae2d 2004-03-26 devnull return 0;
1913 76193d7c 2003-09-30 devnull * Optimized draw for filling and scrolling; uses memset and memmove.
1915 76193d7c 2003-09-30 devnull static void
1916 76193d7c 2003-09-30 devnull memsets(void *vp, ushort val, int n)
1918 76193d7c 2003-09-30 devnull ushort *p, *ep;
1920 76193d7c 2003-09-30 devnull p = vp;
1921 76193d7c 2003-09-30 devnull ep = p+n;
1922 76193d7c 2003-09-30 devnull while(p<ep)
1923 76193d7c 2003-09-30 devnull *p++ = val;
1926 76193d7c 2003-09-30 devnull static void
1927 76193d7c 2003-09-30 devnull memsetl(void *vp, u32int val, int n)
1929 76193d7c 2003-09-30 devnull u32int *p, *ep;
1931 76193d7c 2003-09-30 devnull p = vp;
1932 76193d7c 2003-09-30 devnull ep = p+n;
1933 76193d7c 2003-09-30 devnull while(p<ep)
1934 76193d7c 2003-09-30 devnull *p++ = val;
1937 76193d7c 2003-09-30 devnull static void
1938 76193d7c 2003-09-30 devnull memset24(void *vp, u32int val, int n)
1940 76193d7c 2003-09-30 devnull uchar *p, *ep;
1941 76193d7c 2003-09-30 devnull uchar a,b,c;
1943 76193d7c 2003-09-30 devnull p = vp;
1944 76193d7c 2003-09-30 devnull ep = p+3*n;
1945 76193d7c 2003-09-30 devnull a = val;
1946 76193d7c 2003-09-30 devnull b = val>>8;
1947 76193d7c 2003-09-30 devnull c = val>>16;
1948 76193d7c 2003-09-30 devnull while(p<ep){
1949 76193d7c 2003-09-30 devnull *p++ = a;
1950 76193d7c 2003-09-30 devnull *p++ = b;
1951 76193d7c 2003-09-30 devnull *p++ = c;
1956 76193d7c 2003-09-30 devnull _imgtorgba(Memimage *img, u32int val)
1958 76193d7c 2003-09-30 devnull uchar r, g, b, a;
1959 76193d7c 2003-09-30 devnull int nb, ov, v;
1960 76193d7c 2003-09-30 devnull u32int chan;
1961 76193d7c 2003-09-30 devnull uchar *p;
1963 76193d7c 2003-09-30 devnull a = 0xFF;
1964 76193d7c 2003-09-30 devnull r = g = b = 0xAA; /* garbage */
1965 76193d7c 2003-09-30 devnull for(chan=img->chan; chan; chan>>=8){
1966 76193d7c 2003-09-30 devnull nb = NBITS(chan);
1967 76193d7c 2003-09-30 devnull ov = v = val&((1<<nb)-1);
1968 76193d7c 2003-09-30 devnull val >>= nb;
1970 76193d7c 2003-09-30 devnull while(nb < 8){
1971 76193d7c 2003-09-30 devnull v |= v<<nb;
1972 76193d7c 2003-09-30 devnull nb *= 2;
1974 76193d7c 2003-09-30 devnull v >>= (nb-8);
1976 76193d7c 2003-09-30 devnull switch(TYPE(chan)){
1977 76193d7c 2003-09-30 devnull case CRed:
1980 76193d7c 2003-09-30 devnull case CGreen:
1983 76193d7c 2003-09-30 devnull case CBlue:
1986 76193d7c 2003-09-30 devnull case CAlpha:
1989 76193d7c 2003-09-30 devnull case CGrey:
1990 76193d7c 2003-09-30 devnull r = g = b = v;
1992 76193d7c 2003-09-30 devnull case CMap:
1993 76193d7c 2003-09-30 devnull p = img->cmap->cmap2rgb+3*ov;
1994 76193d7c 2003-09-30 devnull r = *p++;
1995 76193d7c 2003-09-30 devnull g = *p++;
1996 76193d7c 2003-09-30 devnull b = *p;
2000 76193d7c 2003-09-30 devnull return (r<<24)|(g<<16)|(b<<8)|a;
2004 76193d7c 2003-09-30 devnull _rgbatoimg(Memimage *img, u32int rgba)
2006 76193d7c 2003-09-30 devnull u32int chan;
2007 76193d7c 2003-09-30 devnull int d, nb;
2008 76193d7c 2003-09-30 devnull u32int v;
2009 76193d7c 2003-09-30 devnull uchar *p, r, g, b, a, m;
2012 76193d7c 2003-09-30 devnull r = rgba>>24;
2013 76193d7c 2003-09-30 devnull g = rgba>>16;
2014 76193d7c 2003-09-30 devnull b = rgba>>8;
2015 76193d7c 2003-09-30 devnull a = rgba;
2017 76193d7c 2003-09-30 devnull for(chan=img->chan; chan; chan>>=8){
2018 76193d7c 2003-09-30 devnull nb = NBITS(chan);
2019 76193d7c 2003-09-30 devnull switch(TYPE(chan)){
2020 76193d7c 2003-09-30 devnull case CRed:
2021 76193d7c 2003-09-30 devnull v |= (r>>(8-nb))<<d;
2023 76193d7c 2003-09-30 devnull case CGreen:
2024 76193d7c 2003-09-30 devnull v |= (g>>(8-nb))<<d;
2026 76193d7c 2003-09-30 devnull case CBlue:
2027 76193d7c 2003-09-30 devnull v |= (b>>(8-nb))<<d;
2029 76193d7c 2003-09-30 devnull case CAlpha:
2030 76193d7c 2003-09-30 devnull v |= (a>>(8-nb))<<d;
2032 76193d7c 2003-09-30 devnull case CMap:
2033 76193d7c 2003-09-30 devnull p = img->cmap->rgb2cmap;
2034 76193d7c 2003-09-30 devnull m = p[(r>>4)*256+(g>>4)*16+(b>>4)];
2035 76193d7c 2003-09-30 devnull v |= (m>>(8-nb))<<d;
2037 76193d7c 2003-09-30 devnull case CGrey:
2038 76193d7c 2003-09-30 devnull m = RGB2K(r,g,b);
2039 76193d7c 2003-09-30 devnull v |= (m>>(8-nb))<<d;
2042 76193d7c 2003-09-30 devnull d += nb;
2044 76193d7c 2003-09-30 devnull // print("rgba2img %.8lux = %.*lux\n", rgba, 2*d/8, v);
2045 76193d7c 2003-09-30 devnull return v;
2048 76193d7c 2003-09-30 devnull #define DBG if(0)
2049 76193d7c 2003-09-30 devnull static int
2050 76193d7c 2003-09-30 devnull memoptdraw(Memdrawparam *par)
2052 76193d7c 2003-09-30 devnull int m, y, dy, dx, op;
2053 76193d7c 2003-09-30 devnull u32int v;
2054 76193d7c 2003-09-30 devnull Memimage *src;
2055 76193d7c 2003-09-30 devnull Memimage *dst;
2057 76193d7c 2003-09-30 devnull dx = Dx(par->r);
2058 76193d7c 2003-09-30 devnull dy = Dy(par->r);
2059 76193d7c 2003-09-30 devnull src = par->src;
2060 76193d7c 2003-09-30 devnull dst = par->dst;
2061 76193d7c 2003-09-30 devnull op = par->op;
2063 76193d7c 2003-09-30 devnull DBG print("state %lux mval %lux dd %d\n", par->state, par->mval, dst->depth);
2065 76193d7c 2003-09-30 devnull * If we have an opaque mask and source is one opaque pixel we can convert to the
2066 76193d7c 2003-09-30 devnull * destination format and just replicate with memset.
2068 76193d7c 2003-09-30 devnull m = Simplesrc|Simplemask|Fullmask;
2069 76193d7c 2003-09-30 devnull if((par->state&m)==m && (par->srgba&0xFF) == 0xFF && (op ==S || op == SoverD)){
2070 76193d7c 2003-09-30 devnull uchar *dp, p[4];
2071 76193d7c 2003-09-30 devnull int d, dwid, ppb, np, nb;
2072 76193d7c 2003-09-30 devnull uchar lm, rm;
2074 76193d7c 2003-09-30 devnull DBG print("memopt, dst %p, dst->data->bdata %p\n", dst, dst->data->bdata);
2075 76193d7c 2003-09-30 devnull dwid = dst->width*sizeof(u32int);
2076 76193d7c 2003-09-30 devnull dp = byteaddr(dst, par->r.min);
2077 76193d7c 2003-09-30 devnull v = par->sdval;
2078 76193d7c 2003-09-30 devnull DBG print("sdval %lud, depth %d\n", v, dst->depth);
2079 76193d7c 2003-09-30 devnull switch(dst->depth){
2080 76193d7c 2003-09-30 devnull case 1:
2081 76193d7c 2003-09-30 devnull case 2:
2082 76193d7c 2003-09-30 devnull case 4:
2083 76193d7c 2003-09-30 devnull for(d=dst->depth; d<8; d*=2)
2084 76193d7c 2003-09-30 devnull v |= (v<<d);
2085 76193d7c 2003-09-30 devnull ppb = 8/dst->depth; /* pixels per byte */
2086 76193d7c 2003-09-30 devnull m = ppb-1;
2087 76193d7c 2003-09-30 devnull /* left edge */
2088 76193d7c 2003-09-30 devnull np = par->r.min.x&m; /* no. pixels unused on left side of word */
2089 76193d7c 2003-09-30 devnull dx -= (ppb-np);
2090 76193d7c 2003-09-30 devnull nb = 8 - np * dst->depth; /* no. bits used on right side of word */
2091 76193d7c 2003-09-30 devnull lm = (1<<nb)-1;
2092 76193d7c 2003-09-30 devnull DBG print("np %d x %d nb %d lm %ux ppb %d m %ux\n", np, par->r.min.x, nb, lm, ppb, m);
2094 76193d7c 2003-09-30 devnull /* right edge */
2095 76193d7c 2003-09-30 devnull np = par->r.max.x&m; /* no. pixels used on left side of word */
2096 76193d7c 2003-09-30 devnull dx -= np;
2097 76193d7c 2003-09-30 devnull nb = 8 - np * dst->depth; /* no. bits unused on right side of word */
2098 76193d7c 2003-09-30 devnull rm = ~((1<<nb)-1);
2099 76193d7c 2003-09-30 devnull DBG print("np %d x %d nb %d rm %ux ppb %d m %ux\n", np, par->r.max.x, nb, rm, ppb, m);
2101 76193d7c 2003-09-30 devnull DBG print("dx %d Dx %d\n", dx, Dx(par->r));
2102 76193d7c 2003-09-30 devnull /* lm, rm are masks that are 1 where we should touch the bits */
2103 76193d7c 2003-09-30 devnull if(dx < 0){ /* just one byte */
2104 76193d7c 2003-09-30 devnull lm &= rm;
2105 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, dp+=dwid)
2106 76193d7c 2003-09-30 devnull *dp ^= (v ^ *dp) & lm;
2107 76193d7c 2003-09-30 devnull }else if(dx == 0){ /* no full bytes */
2109 76193d7c 2003-09-30 devnull dwid--;
2111 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, dp+=dwid){
2112 76193d7c 2003-09-30 devnull if(lm){
2113 76193d7c 2003-09-30 devnull DBG print("dp %p v %lux lm %ux (v ^ *dp) & lm %lux\n", dp, v, lm, (v^*dp)&lm);
2114 76193d7c 2003-09-30 devnull *dp ^= (v ^ *dp) & lm;
2117 76193d7c 2003-09-30 devnull *dp ^= (v ^ *dp) & rm;
2119 76193d7c 2003-09-30 devnull }else{ /* full bytes in middle */
2120 76193d7c 2003-09-30 devnull dx /= ppb;
2122 76193d7c 2003-09-30 devnull dwid--;
2123 76193d7c 2003-09-30 devnull dwid -= dx;
2125 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, dp+=dwid){
2126 76193d7c 2003-09-30 devnull if(lm){
2127 76193d7c 2003-09-30 devnull *dp ^= (v ^ *dp) & lm;
2130 76193d7c 2003-09-30 devnull memset(dp, v, dx);
2131 76193d7c 2003-09-30 devnull dp += dx;
2132 76193d7c 2003-09-30 devnull *dp ^= (v ^ *dp) & rm;
2135 76193d7c 2003-09-30 devnull return 1;
2136 76193d7c 2003-09-30 devnull case 8:
2137 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, dp+=dwid)
2138 76193d7c 2003-09-30 devnull memset(dp, v, dx);
2139 76193d7c 2003-09-30 devnull return 1;
2140 76193d7c 2003-09-30 devnull case 16:
2141 76193d7c 2003-09-30 devnull p[0] = v; /* make little endian */
2142 76193d7c 2003-09-30 devnull p[1] = v>>8;
2143 76193d7c 2003-09-30 devnull v = *(ushort*)p;
2144 76193d7c 2003-09-30 devnull DBG print("dp=%p; dx=%d; for(y=0; y<%d; y++, dp+=%d)\nmemsets(dp, v, dx);\n",
2145 76193d7c 2003-09-30 devnull dp, dx, dy, dwid);
2146 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, dp+=dwid)
2147 76193d7c 2003-09-30 devnull memsets(dp, v, dx);
2148 76193d7c 2003-09-30 devnull return 1;
2149 76193d7c 2003-09-30 devnull case 24:
2150 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, dp+=dwid)
2151 76193d7c 2003-09-30 devnull memset24(dp, v, dx);
2152 76193d7c 2003-09-30 devnull return 1;
2153 76193d7c 2003-09-30 devnull case 32:
2154 76193d7c 2003-09-30 devnull p[0] = v; /* make little endian */
2155 76193d7c 2003-09-30 devnull p[1] = v>>8;
2156 76193d7c 2003-09-30 devnull p[2] = v>>16;
2157 76193d7c 2003-09-30 devnull p[3] = v>>24;
2158 76193d7c 2003-09-30 devnull v = *(u32int*)p;
2159 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, dp+=dwid)
2160 76193d7c 2003-09-30 devnull memsetl(dp, v, dx);
2161 76193d7c 2003-09-30 devnull return 1;
2162 76193d7c 2003-09-30 devnull default:
2163 76193d7c 2003-09-30 devnull assert(0 /* bad dest depth in memoptdraw */);
2168 76193d7c 2003-09-30 devnull * If no source alpha, an opaque mask, we can just copy the
2169 76193d7c 2003-09-30 devnull * source onto the destination. If the channels are the same and
2170 76193d7c 2003-09-30 devnull * the source is not replicated, memmove suffices.
2172 76193d7c 2003-09-30 devnull m = Simplemask|Fullmask;
2173 76193d7c 2003-09-30 devnull if((par->state&(m|Replsrc))==m && src->depth >= 8
2174 76193d7c 2003-09-30 devnull && src->chan == dst->chan && !(src->flags&Falpha) && (op == S || op == SoverD)){
2175 76193d7c 2003-09-30 devnull uchar *sp, *dp;
2176 76193d7c 2003-09-30 devnull long swid, dwid, nb;
2177 76193d7c 2003-09-30 devnull int dir;
2179 76193d7c 2003-09-30 devnull if(src->data == dst->data && byteaddr(dst, par->r.min) > byteaddr(src, par->sr.min))
2180 76193d7c 2003-09-30 devnull dir = -1;
2182 76193d7c 2003-09-30 devnull dir = 1;
2184 76193d7c 2003-09-30 devnull swid = src->width*sizeof(u32int);
2185 76193d7c 2003-09-30 devnull dwid = dst->width*sizeof(u32int);
2186 76193d7c 2003-09-30 devnull sp = byteaddr(src, par->sr.min);
2187 76193d7c 2003-09-30 devnull dp = byteaddr(dst, par->r.min);
2188 76193d7c 2003-09-30 devnull if(dir == -1){
2189 76193d7c 2003-09-30 devnull sp += (dy-1)*swid;
2190 76193d7c 2003-09-30 devnull dp += (dy-1)*dwid;
2191 76193d7c 2003-09-30 devnull swid = -swid;
2192 76193d7c 2003-09-30 devnull dwid = -dwid;
2194 76193d7c 2003-09-30 devnull nb = (dx*src->depth)/8;
2195 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, sp+=swid, dp+=dwid)
2196 76193d7c 2003-09-30 devnull memmove(dp, sp, nb);
2197 76193d7c 2003-09-30 devnull return 1;
2201 76193d7c 2003-09-30 devnull * If we have a 1-bit mask, 1-bit source, and 1-bit destination, and
2202 76193d7c 2003-09-30 devnull * they're all bit aligned, we can just use bit operators. This happens
2203 76193d7c 2003-09-30 devnull * when we're manipulating boolean masks, e.g. in the arc code.
2205 76193d7c 2003-09-30 devnull if((par->state&(Simplemask|Simplesrc|Replmask|Replsrc))==0
2206 76193d7c 2003-09-30 devnull && dst->chan==GREY1 && src->chan==GREY1 && par->mask->chan==GREY1
2207 76193d7c 2003-09-30 devnull && (par->r.min.x&7)==(par->sr.min.x&7) && (par->r.min.x&7)==(par->mr.min.x&7)){
2208 76193d7c 2003-09-30 devnull uchar *sp, *dp, *mp;
2209 76193d7c 2003-09-30 devnull uchar lm, rm;
2210 76193d7c 2003-09-30 devnull long swid, dwid, mwid;
2211 76193d7c 2003-09-30 devnull int i, x, dir;
2213 76193d7c 2003-09-30 devnull sp = byteaddr(src, par->sr.min);
2214 76193d7c 2003-09-30 devnull dp = byteaddr(dst, par->r.min);
2215 76193d7c 2003-09-30 devnull mp = byteaddr(par->mask, par->mr.min);
2216 76193d7c 2003-09-30 devnull swid = src->width*sizeof(u32int);
2217 76193d7c 2003-09-30 devnull dwid = dst->width*sizeof(u32int);
2218 76193d7c 2003-09-30 devnull mwid = par->mask->width*sizeof(u32int);
2220 76193d7c 2003-09-30 devnull if(src->data == dst->data && byteaddr(dst, par->r.min) > byteaddr(src, par->sr.min)){
2221 76193d7c 2003-09-30 devnull dir = -1;
2223 76193d7c 2003-09-30 devnull dir = 1;
2225 76193d7c 2003-09-30 devnull lm = 0xFF>>(par->r.min.x&7);
2226 76193d7c 2003-09-30 devnull rm = 0xFF<<(8-(par->r.max.x&7));
2227 76193d7c 2003-09-30 devnull dx -= (8-(par->r.min.x&7)) + (par->r.max.x&7);
2229 76193d7c 2003-09-30 devnull if(dx < 0){ /* one byte wide */
2230 76193d7c 2003-09-30 devnull lm &= rm;
2231 76193d7c 2003-09-30 devnull if(dir == -1){
2232 76193d7c 2003-09-30 devnull dp += dwid*(dy-1);
2233 76193d7c 2003-09-30 devnull sp += swid*(dy-1);
2234 76193d7c 2003-09-30 devnull mp += mwid*(dy-1);
2235 76193d7c 2003-09-30 devnull dwid = -dwid;
2236 76193d7c 2003-09-30 devnull swid = -swid;
2237 76193d7c 2003-09-30 devnull mwid = -mwid;
2239 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++){
2240 76193d7c 2003-09-30 devnull *dp ^= (*dp ^ *sp) & *mp & lm;
2241 76193d7c 2003-09-30 devnull dp += dwid;
2242 76193d7c 2003-09-30 devnull sp += swid;
2243 76193d7c 2003-09-30 devnull mp += mwid;
2245 76193d7c 2003-09-30 devnull return 1;
2248 76193d7c 2003-09-30 devnull dx /= 8;
2249 76193d7c 2003-09-30 devnull if(dir == 1){
2250 76193d7c 2003-09-30 devnull i = (lm!=0)+dx+(rm!=0);
2251 76193d7c 2003-09-30 devnull mwid -= i;
2252 76193d7c 2003-09-30 devnull swid -= i;
2253 76193d7c 2003-09-30 devnull dwid -= i;
2254 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, dp+=dwid, sp+=swid, mp+=mwid){
2255 76193d7c 2003-09-30 devnull if(lm){
2256 76193d7c 2003-09-30 devnull *dp ^= (*dp ^ *sp++) & *mp++ & lm;
2259 76193d7c 2003-09-30 devnull for(x=0; x<dx; x++){
2260 76193d7c 2003-09-30 devnull *dp ^= (*dp ^ *sp++) & *mp++;
2263 76193d7c 2003-09-30 devnull if(rm){
2264 76193d7c 2003-09-30 devnull *dp ^= (*dp ^ *sp++) & *mp++ & rm;
2268 76193d7c 2003-09-30 devnull return 1;
2270 76193d7c 2003-09-30 devnull /* dir == -1 */
2271 76193d7c 2003-09-30 devnull i = (lm!=0)+dx+(rm!=0);
2272 76193d7c 2003-09-30 devnull dp += dwid*(dy-1)+i-1;
2273 76193d7c 2003-09-30 devnull sp += swid*(dy-1)+i-1;
2274 76193d7c 2003-09-30 devnull mp += mwid*(dy-1)+i-1;
2275 76193d7c 2003-09-30 devnull dwid = -dwid+i;
2276 76193d7c 2003-09-30 devnull swid = -swid+i;
2277 76193d7c 2003-09-30 devnull mwid = -mwid+i;
2278 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, dp+=dwid, sp+=swid, mp+=mwid){
2279 76193d7c 2003-09-30 devnull if(rm){
2280 76193d7c 2003-09-30 devnull *dp ^= (*dp ^ *sp--) & *mp-- & rm;
2283 76193d7c 2003-09-30 devnull for(x=0; x<dx; x++){
2284 76193d7c 2003-09-30 devnull *dp ^= (*dp ^ *sp--) & *mp--;
2287 76193d7c 2003-09-30 devnull if(lm){
2288 76193d7c 2003-09-30 devnull *dp ^= (*dp ^ *sp--) & *mp-- & lm;
2293 76193d7c 2003-09-30 devnull return 1;
2295 76193d7c 2003-09-30 devnull return 0;
2297 76193d7c 2003-09-30 devnull #undef DBG
2300 76193d7c 2003-09-30 devnull * Boolean character drawing.
2301 76193d7c 2003-09-30 devnull * Solid opaque color through a 1-bit greyscale mask.
2303 76193d7c 2003-09-30 devnull #define DBG if(0)
2304 76193d7c 2003-09-30 devnull static int
2305 76193d7c 2003-09-30 devnull chardraw(Memdrawparam *par)
2307 76193d7c 2003-09-30 devnull u32int bits;
2308 76193d7c 2003-09-30 devnull int i, ddepth, dy, dx, x, bx, ex, y, npack, bsh, depth, op;
2309 76193d7c 2003-09-30 devnull u32int v, maskwid, dstwid;
2310 76193d7c 2003-09-30 devnull uchar *wp, *rp, *q, *wc;
2311 76193d7c 2003-09-30 devnull ushort *ws;
2312 76193d7c 2003-09-30 devnull u32int *wl;
2313 76193d7c 2003-09-30 devnull uchar sp[4];
2314 76193d7c 2003-09-30 devnull Rectangle r, mr;
2315 76193d7c 2003-09-30 devnull Memimage *mask, *src, *dst;
2317 76193d7c 2003-09-30 devnull if(0) if(drawdebug) iprint("chardraw? mf %lux md %d sf %lux dxs %d dys %d dd %d ddat %p sdat %p\n",
2318 76193d7c 2003-09-30 devnull par->mask->flags, par->mask->depth, par->src->flags,
2319 76193d7c 2003-09-30 devnull Dx(par->src->r), Dy(par->src->r), par->dst->depth, par->dst->data, par->src->data);
2321 76193d7c 2003-09-30 devnull mask = par->mask;
2322 76193d7c 2003-09-30 devnull src = par->src;
2323 76193d7c 2003-09-30 devnull dst = par->dst;
2324 76193d7c 2003-09-30 devnull r = par->r;
2325 76193d7c 2003-09-30 devnull mr = par->mr;
2326 76193d7c 2003-09-30 devnull op = par->op;
2328 76193d7c 2003-09-30 devnull if((par->state&(Replsrc|Simplesrc|Replmask)) != (Replsrc|Simplesrc)
2329 76193d7c 2003-09-30 devnull || mask->depth != 1 || src->flags&Falpha || dst->depth<8 || dst->data==src->data
2330 76193d7c 2003-09-30 devnull || op != SoverD)
2331 76193d7c 2003-09-30 devnull return 0;
2333 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("chardraw...");
2335 76193d7c 2003-09-30 devnull depth = mask->depth;
2336 76193d7c 2003-09-30 devnull maskwid = mask->width*sizeof(u32int);
2337 76193d7c 2003-09-30 devnull rp = byteaddr(mask, mr.min);
2338 76193d7c 2003-09-30 devnull npack = 8/depth;
2339 76193d7c 2003-09-30 devnull bsh = (mr.min.x % npack) * depth;
2341 76193d7c 2003-09-30 devnull wp = byteaddr(dst, r.min);
2342 76193d7c 2003-09-30 devnull dstwid = dst->width*sizeof(u32int);
2343 76193d7c 2003-09-30 devnull DBG print("bsh %d\n", bsh);
2344 76193d7c 2003-09-30 devnull dy = Dy(r);
2345 76193d7c 2003-09-30 devnull dx = Dx(r);
2347 76193d7c 2003-09-30 devnull ddepth = dst->depth;
2350 76193d7c 2003-09-30 devnull * for loop counts from bsh to bsh+dx
2352 76193d7c 2003-09-30 devnull * we want the bottom bits to be the amount
2353 76193d7c 2003-09-30 devnull * to shift the pixels down, so for n≡0 (mod 8) we want
2354 76193d7c 2003-09-30 devnull * bottom bits 7. for n≡1, 6, etc.
2355 76193d7c 2003-09-30 devnull * the bits come from -n-1.
2358 76193d7c 2003-09-30 devnull bx = -bsh-1;
2359 76193d7c 2003-09-30 devnull ex = -bsh-1-dx;
2360 76193d7c 2003-09-30 devnull SET(bits);
2361 76193d7c 2003-09-30 devnull v = par->sdval;
2363 76193d7c 2003-09-30 devnull /* make little endian */
2364 76193d7c 2003-09-30 devnull sp[0] = v;
2365 76193d7c 2003-09-30 devnull sp[1] = v>>8;
2366 76193d7c 2003-09-30 devnull sp[2] = v>>16;
2367 76193d7c 2003-09-30 devnull sp[3] = v>>24;
2369 76193d7c 2003-09-30 devnull //print("sp %x %x %x %x\n", sp[0], sp[1], sp[2], sp[3]);
2370 76193d7c 2003-09-30 devnull for(y=0; y<dy; y++, rp+=maskwid, wp+=dstwid){
2371 76193d7c 2003-09-30 devnull q = rp;
2372 76193d7c 2003-09-30 devnull if(bsh)
2373 76193d7c 2003-09-30 devnull bits = *q++;
2374 76193d7c 2003-09-30 devnull switch(ddepth){
2375 76193d7c 2003-09-30 devnull case 8:
2376 76193d7c 2003-09-30 devnull //if(drawdebug) iprint("8loop...");
2377 76193d7c 2003-09-30 devnull wc = wp;
2378 76193d7c 2003-09-30 devnull for(x=bx; x>ex; x--, wc++){
2379 76193d7c 2003-09-30 devnull i = x&7;
2380 76193d7c 2003-09-30 devnull if(i == 8-1)
2381 76193d7c 2003-09-30 devnull bits = *q++;
2382 76193d7c 2003-09-30 devnull DBG print("bits %lux sh %d...", bits, i);
2383 76193d7c 2003-09-30 devnull if((bits>>i)&1)
2384 76193d7c 2003-09-30 devnull *wc = v;
2387 76193d7c 2003-09-30 devnull case 16:
2388 76193d7c 2003-09-30 devnull ws = (ushort*)wp;
2389 76193d7c 2003-09-30 devnull v = *(ushort*)sp;
2390 76193d7c 2003-09-30 devnull for(x=bx; x>ex; x--, ws++){
2391 76193d7c 2003-09-30 devnull i = x&7;
2392 76193d7c 2003-09-30 devnull if(i == 8-1)
2393 76193d7c 2003-09-30 devnull bits = *q++;
2394 76193d7c 2003-09-30 devnull DBG print("bits %lux sh %d...", bits, i);
2395 76193d7c 2003-09-30 devnull if((bits>>i)&1)
2396 76193d7c 2003-09-30 devnull *ws = v;
2399 76193d7c 2003-09-30 devnull case 24:
2400 76193d7c 2003-09-30 devnull wc = wp;
2401 76193d7c 2003-09-30 devnull for(x=bx; x>ex; x--, wc+=3){
2402 76193d7c 2003-09-30 devnull i = x&7;
2403 76193d7c 2003-09-30 devnull if(i == 8-1)
2404 76193d7c 2003-09-30 devnull bits = *q++;
2405 76193d7c 2003-09-30 devnull DBG print("bits %lux sh %d...", bits, i);
2406 76193d7c 2003-09-30 devnull if((bits>>i)&1){
2407 76193d7c 2003-09-30 devnull wc[0] = sp[0];
2408 76193d7c 2003-09-30 devnull wc[1] = sp[1];
2409 76193d7c 2003-09-30 devnull wc[2] = sp[2];
2413 76193d7c 2003-09-30 devnull case 32:
2414 76193d7c 2003-09-30 devnull wl = (u32int*)wp;
2415 76193d7c 2003-09-30 devnull v = *(u32int*)sp;
2416 76193d7c 2003-09-30 devnull for(x=bx; x>ex; x--, wl++){
2417 76193d7c 2003-09-30 devnull i = x&7;
2418 76193d7c 2003-09-30 devnull if(i == 8-1)
2419 76193d7c 2003-09-30 devnull bits = *q++;
2420 76193d7c 2003-09-30 devnull DBG iprint("bits %lux sh %d...", bits, i);
2421 76193d7c 2003-09-30 devnull if((bits>>i)&1)
2422 76193d7c 2003-09-30 devnull *wl = v;
2428 76193d7c 2003-09-30 devnull DBG print("\n");
2429 76193d7c 2003-09-30 devnull return 1;
2431 76193d7c 2003-09-30 devnull #undef DBG
2435 76193d7c 2003-09-30 devnull * Fill entire byte with replicated (if necessary) copy of source pixel,
2436 76193d7c 2003-09-30 devnull * assuming destination ldepth is >= source ldepth.
2438 76193d7c 2003-09-30 devnull * This code is just plain wrong for >8bpp.
2441 76193d7c 2003-09-30 devnull membyteval(Memimage *src)
2443 76193d7c 2003-09-30 devnull int i, val, bpp;
2444 76193d7c 2003-09-30 devnull uchar uc;
2446 76193d7c 2003-09-30 devnull unloadmemimage(src, src->r, &uc, 1);
2447 76193d7c 2003-09-30 devnull bpp = src->depth;
2448 76193d7c 2003-09-30 devnull uc <<= (src->r.min.x&(7/src->depth))*src->depth;
2449 76193d7c 2003-09-30 devnull uc &= ~(0xFF>>bpp);
2450 76193d7c 2003-09-30 devnull * pixel value is now in high part of byte. repeat throughout byte
2451 76193d7c 2003-09-30 devnull val = uc;
2452 76193d7c 2003-09-30 devnull for(i=bpp; i<8; i<<=1)
2453 76193d7c 2003-09-30 devnull val |= val>>i;
2454 76193d7c 2003-09-30 devnull return val;
2460 76193d7c 2003-09-30 devnull _memfillcolor(Memimage *i, u32int val)
2462 76193d7c 2003-09-30 devnull u32int bits;
2463 76193d7c 2003-09-30 devnull int d, y;
2464 76193d7c 2003-09-30 devnull uchar p[4];
2466 76193d7c 2003-09-30 devnull if(val == DNofill)
2467 76193d7c 2003-09-30 devnull return;
2469 76193d7c 2003-09-30 devnull bits = _rgbatoimg(i, val);
2470 76193d7c 2003-09-30 devnull switch(i->depth){
2471 76193d7c 2003-09-30 devnull case 24: /* 24-bit images suck */
2472 76193d7c 2003-09-30 devnull for(y=i->r.min.y; y<i->r.max.y; y++)
2473 76193d7c 2003-09-30 devnull memset24(byteaddr(i, Pt(i->r.min.x, y)), bits, Dx(i->r));
2475 76193d7c 2003-09-30 devnull default: /* 1, 2, 4, 8, 16, 32 */
2476 76193d7c 2003-09-30 devnull for(d=i->depth; d<32; d*=2)
2477 76193d7c 2003-09-30 devnull bits = (bits << d) | bits;
2478 76193d7c 2003-09-30 devnull p[0] = bits; /* make little endian */
2479 76193d7c 2003-09-30 devnull p[1] = bits>>8;
2480 76193d7c 2003-09-30 devnull p[2] = bits>>16;
2481 76193d7c 2003-09-30 devnull p[3] = bits>>24;
2482 76193d7c 2003-09-30 devnull bits = *(u32int*)p;
2483 76193d7c 2003-09-30 devnull memsetl(wordaddr(i, i->r.min), bits, i->width*Dy(i->r));
