1 324891a5 2006-06-25 devnull #include <u.h>
2 324891a5 2006-06-25 devnull #include <libc.h>
3 324891a5 2006-06-25 devnull #include <draw.h>
4 324891a5 2006-06-25 devnull #include <memdraw.h>
6 324891a5 2006-06-25 devnull int drawdebug;
7 324891a5 2006-06-25 devnull static int tablesbuilt;
9 324891a5 2006-06-25 devnull /* perfect approximation to NTSC = .299r+.587g+.114b when 0 ≤ r,g,b < 256 */
10 324891a5 2006-06-25 devnull #define RGB2K(r,g,b) ((156763*(r)+307758*(g)+59769*(b))>>19)
13 4aad1a32 2009-04-30 rsc * For 16-bit values, x / 255 == (t = x+1, (t+(t>>8)) >> 8).
14 4aad1a32 2009-04-30 rsc * We add another 127 to round to the nearest value rather
15 4aad1a32 2009-04-30 rsc * than truncate.
17 4aad1a32 2009-04-30 rsc * CALCxy does x bytewise calculations on y input images (x=1,4; y=1,2).
18 4aad1a32 2009-04-30 rsc * CALC2x does two parallel 16-bit calculations on y input images (y=1,2).
20 4aad1a32 2009-04-30 rsc #define CALC11(a, v, tmp) \
21 4aad1a32 2009-04-30 rsc (tmp=(a)*(v)+128, (tmp+(tmp>>8))>>8)
23 4aad1a32 2009-04-30 rsc #define CALC12(a1, v1, a2, v2, tmp) \
24 4aad1a32 2009-04-30 rsc (tmp=(a1)*(v1)+(a2)*(v2)+128, (tmp+(tmp>>8))>>8)
26 4aad1a32 2009-04-30 rsc #define MASK 0xFF00FF
28 4aad1a32 2009-04-30 rsc #define CALC21(a, vvuu, tmp) \
29 4aad1a32 2009-04-30 rsc (tmp=(a)*(vvuu)+0x00800080, ((tmp+((tmp>>8)&MASK))>>8)&MASK)
31 4aad1a32 2009-04-30 rsc #define CALC41(a, rgba, tmp1, tmp2) \
32 4aad1a32 2009-04-30 rsc (CALC21(a, rgba & MASK, tmp1) | \
33 4aad1a32 2009-04-30 rsc (CALC21(a, (rgba>>8)&MASK, tmp2)<<8))
35 4aad1a32 2009-04-30 rsc #define CALC22(a1, vvuu1, a2, vvuu2, tmp) \
36 4aad1a32 2009-04-30 rsc (tmp=(a1)*(vvuu1)+(a2)*(vvuu2)+0x00800080, ((tmp+((tmp>>8)&MASK))>>8)&MASK)
38 4aad1a32 2009-04-30 rsc #define CALC42(a1, rgba1, a2, rgba2, tmp1, tmp2) \
39 4aad1a32 2009-04-30 rsc (CALC22(a1, rgba1 & MASK, a2, rgba2 & MASK, tmp1) | \
40 4aad1a32 2009-04-30 rsc (CALC22(a1, (rgba1>>8) & MASK, a2, (rgba2>>8) & MASK, tmp2)<<8))
42 324891a5 2006-06-25 devnull static void mktables(void);
43 324891a5 2006-06-25 devnull typedef int Subdraw(Memdrawparam*);
44 324891a5 2006-06-25 devnull static Subdraw chardraw, alphadraw, memoptdraw;
46 324891a5 2006-06-25 devnull static Memimage* memones;
47 324891a5 2006-06-25 devnull static Memimage* memzeros;
48 324891a5 2006-06-25 devnull Memimage *memwhite;
49 324891a5 2006-06-25 devnull Memimage *memblack;
50 324891a5 2006-06-25 devnull Memimage *memtransparent;
51 324891a5 2006-06-25 devnull Memimage *memopaque;
53 324891a5 2006-06-25 devnull int __ifmt(Fmt*);
56 324891a5 2006-06-25 devnull memimageinit(void)
58 324891a5 2006-06-25 devnull static int didinit = 0;
60 324891a5 2006-06-25 devnull if(didinit)
63 324891a5 2006-06-25 devnull didinit = 1;
65 324891a5 2006-06-25 devnull mktables();
66 324891a5 2006-06-25 devnull _memmkcmap();
68 fa325e9b 2020-01-10 cross fmtinstall('R', Rfmt);
69 324891a5 2006-06-25 devnull fmtinstall('P', Pfmt);
70 324891a5 2006-06-25 devnull fmtinstall('b', __ifmt);
72 324891a5 2006-06-25 devnull memones = allocmemimage(Rect(0,0,1,1), GREY1);
73 324891a5 2006-06-25 devnull memones->flags |= Frepl;
74 324891a5 2006-06-25 devnull memones->clipr = Rect(-0x3FFFFFF, -0x3FFFFFF, 0x3FFFFFF, 0x3FFFFFF);
75 324891a5 2006-06-25 devnull *byteaddr(memones, ZP) = ~0;
77 324891a5 2006-06-25 devnull memzeros = allocmemimage(Rect(0,0,1,1), GREY1);
78 324891a5 2006-06-25 devnull memzeros->flags |= Frepl;
79 324891a5 2006-06-25 devnull memzeros->clipr = Rect(-0x3FFFFFF, -0x3FFFFFF, 0x3FFFFFF, 0x3FFFFFF);
80 324891a5 2006-06-25 devnull *byteaddr(memzeros, ZP) = 0;
82 324891a5 2006-06-25 devnull if(memones == nil || memzeros == nil)
83 324891a5 2006-06-25 devnull assert(0 /*cannot initialize memimage library */); /* RSC BUG */
85 324891a5 2006-06-25 devnull memwhite = memones;
86 324891a5 2006-06-25 devnull memblack = memzeros;
87 324891a5 2006-06-25 devnull memopaque = memones;
88 324891a5 2006-06-25 devnull memtransparent = memzeros;
91 324891a5 2006-06-25 devnull u32int _imgtorgba(Memimage*, u32int);
92 324891a5 2006-06-25 devnull u32int _rgbatoimg(Memimage*, u32int);
93 324891a5 2006-06-25 devnull u32int _pixelbits(Memimage*, Point);
95 324891a5 2006-06-25 devnull #define DBG if(drawdebug)
96 324891a5 2006-06-25 devnull static Memdrawparam par;
98 324891a5 2006-06-25 devnull Memdrawparam*
99 324891a5 2006-06-25 devnull _memimagedrawsetup(Memimage *dst, Rectangle r, Memimage *src, Point p0, Memimage *mask, Point p1, int op)
101 324891a5 2006-06-25 devnull if(mask == nil)
102 324891a5 2006-06-25 devnull mask = memopaque;
104 324891a5 2006-06-25 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);
106 324891a5 2006-06-25 devnull if(drawclip(dst, &r, src, &p0, mask, &p1, &par.sr, &par.mr) == 0){
107 324891a5 2006-06-25 devnull /* if(drawdebug) */
108 324891a5 2006-06-25 devnull /* iprint("empty clipped rectangle\n"); */
109 324891a5 2006-06-25 devnull return nil;
112 324891a5 2006-06-25 devnull if(op < Clear || op > SoverD){
113 324891a5 2006-06-25 devnull /* if(drawdebug) */
114 324891a5 2006-06-25 devnull /* iprint("op out of range: %d\n", op); */
115 324891a5 2006-06-25 devnull return nil;
118 324891a5 2006-06-25 devnull par.op = op;
119 324891a5 2006-06-25 devnull par.dst = dst;
120 324891a5 2006-06-25 devnull par.r = r;
121 324891a5 2006-06-25 devnull par.src = src;
122 324891a5 2006-06-25 devnull /* par.sr set by drawclip */
123 324891a5 2006-06-25 devnull par.mask = mask;
124 324891a5 2006-06-25 devnull /* par.mr set by drawclip */
126 324891a5 2006-06-25 devnull par.state = 0;
127 324891a5 2006-06-25 devnull if(src->flags&Frepl){
128 324891a5 2006-06-25 devnull par.state |= Replsrc;
129 324891a5 2006-06-25 devnull if(Dx(src->r)==1 && Dy(src->r)==1){
130 324891a5 2006-06-25 devnull par.sval = pixelbits(src, src->r.min);
131 324891a5 2006-06-25 devnull par.state |= Simplesrc;
132 324891a5 2006-06-25 devnull par.srgba = _imgtorgba(src, par.sval);
133 324891a5 2006-06-25 devnull par.sdval = _rgbatoimg(dst, par.srgba);
134 324891a5 2006-06-25 devnull if((par.srgba&0xFF) == 0 && (op&DoutS)){
135 324891a5 2006-06-25 devnull /* if (drawdebug) iprint("fill with transparent source\n"); */
136 324891a5 2006-06-25 devnull return nil; /* no-op successfully handled */
138 324891a5 2006-06-25 devnull if((par.srgba&0xFF) == 0xFF)
139 324891a5 2006-06-25 devnull par.state |= Fullsrc;
143 324891a5 2006-06-25 devnull if(mask->flags & Frepl){
144 324891a5 2006-06-25 devnull par.state |= Replmask;
145 324891a5 2006-06-25 devnull if(Dx(mask->r)==1 && Dy(mask->r)==1){
146 324891a5 2006-06-25 devnull par.mval = pixelbits(mask, mask->r.min);
147 324891a5 2006-06-25 devnull if(par.mval == 0 && (op&DoutS)){
148 324891a5 2006-06-25 devnull /* if(drawdebug) iprint("fill with zero mask\n"); */
149 324891a5 2006-06-25 devnull return nil; /* no-op successfully handled */
151 324891a5 2006-06-25 devnull par.state |= Simplemask;
152 324891a5 2006-06-25 devnull if(par.mval == ~0)
153 324891a5 2006-06-25 devnull par.state |= Fullmask;
154 324891a5 2006-06-25 devnull par.mrgba = _imgtorgba(mask, par.mval);
158 324891a5 2006-06-25 devnull /* if(drawdebug) */
159 324891a5 2006-06-25 devnull /* iprint("dr %R sr %R mr %R...", r, par.sr, par.mr); */
160 324891a5 2006-06-25 devnull DBG print("draw dr %R sr %R mr %R %lux\n", r, par.sr, par.mr, par.state);
162 324891a5 2006-06-25 devnull return ∥
166 324891a5 2006-06-25 devnull _memimagedraw(Memdrawparam *par)
169 fa325e9b 2020-01-10 cross * Now that we've clipped the parameters down to be consistent, we
170 324891a5 2006-06-25 devnull * simply try sub-drawing routines in order until we find one that was able
171 324891a5 2006-06-25 devnull * to handle us. If the sub-drawing routine returns zero, it means it was
172 324891a5 2006-06-25 devnull * unable to satisfy the request, so we do not return.
176 324891a5 2006-06-25 devnull * Hardware support. Each video driver provides this function,
177 324891a5 2006-06-25 devnull * which checks to see if there is anything it can help with.
178 324891a5 2006-06-25 devnull * There could be an if around this checking to see if dst is in video memory.
180 324891a5 2006-06-25 devnull DBG print("test hwdraw\n");
181 324891a5 2006-06-25 devnull if(hwdraw(par)){
182 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("hw handled\n"); */
183 324891a5 2006-06-25 devnull DBG print("hwdraw handled\n");
187 324891a5 2006-06-25 devnull * Optimizations using memmove and memset.
189 324891a5 2006-06-25 devnull DBG print("test memoptdraw\n");
190 324891a5 2006-06-25 devnull if(memoptdraw(par)){
191 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("memopt handled\n"); */
192 324891a5 2006-06-25 devnull DBG print("memopt handled\n");
197 324891a5 2006-06-25 devnull * Character drawing.
198 324891a5 2006-06-25 devnull * Solid source color being painted through a boolean mask onto a high res image.
200 324891a5 2006-06-25 devnull DBG print("test chardraw\n");
201 324891a5 2006-06-25 devnull if(chardraw(par)){
202 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("chardraw handled\n"); */
203 324891a5 2006-06-25 devnull DBG print("chardraw handled\n");
208 324891a5 2006-06-25 devnull * General calculation-laden case that does alpha for each pixel.
210 324891a5 2006-06-25 devnull DBG print("do alphadraw\n");
211 324891a5 2006-06-25 devnull alphadraw(par);
212 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("alphadraw handled\n"); */
213 324891a5 2006-06-25 devnull DBG print("alphadraw handled\n");
215 324891a5 2006-06-25 devnull #undef DBG
218 fa325e9b 2020-01-10 cross * Clip the destination rectangle further based on the properties of the
219 324891a5 2006-06-25 devnull * source and mask rectangles. Once the destination rectangle is properly
220 324891a5 2006-06-25 devnull * clipped, adjust the source and mask rectangles to be the same size.
221 324891a5 2006-06-25 devnull * Then if source or mask is replicated, move its clipped rectangle
222 324891a5 2006-06-25 devnull * so that its minimum point falls within the repl rectangle.
224 324891a5 2006-06-25 devnull * Return zero if the final rectangle is null.
227 324891a5 2006-06-25 devnull drawclip(Memimage *dst, Rectangle *r, Memimage *src, Point *p0, Memimage *mask, Point *p1, Rectangle *sr, Rectangle *mr)
229 324891a5 2006-06-25 devnull Point rmin, delta;
230 324891a5 2006-06-25 devnull int splitcoords;
231 324891a5 2006-06-25 devnull Rectangle omr;
233 324891a5 2006-06-25 devnull if(r->min.x>=r->max.x || r->min.y>=r->max.y)
234 324891a5 2006-06-25 devnull return 0;
235 324891a5 2006-06-25 devnull splitcoords = (p0->x!=p1->x) || (p0->y!=p1->y);
236 324891a5 2006-06-25 devnull /* clip to destination */
237 324891a5 2006-06-25 devnull rmin = r->min;
238 324891a5 2006-06-25 devnull if(!rectclip(r, dst->r) || !rectclip(r, dst->clipr))
239 324891a5 2006-06-25 devnull return 0;
240 324891a5 2006-06-25 devnull /* move mask point */
241 324891a5 2006-06-25 devnull p1->x += r->min.x-rmin.x;
242 324891a5 2006-06-25 devnull p1->y += r->min.y-rmin.y;
243 324891a5 2006-06-25 devnull /* move source point */
244 324891a5 2006-06-25 devnull p0->x += r->min.x-rmin.x;
245 324891a5 2006-06-25 devnull p0->y += r->min.y-rmin.y;
246 324891a5 2006-06-25 devnull /* map destination rectangle into source */
247 324891a5 2006-06-25 devnull sr->min = *p0;
248 324891a5 2006-06-25 devnull sr->max.x = p0->x+Dx(*r);
249 324891a5 2006-06-25 devnull sr->max.y = p0->y+Dy(*r);
250 324891a5 2006-06-25 devnull /* sr is r in source coordinates; clip to source */
251 324891a5 2006-06-25 devnull if(!(src->flags&Frepl) && !rectclip(sr, src->r))
252 324891a5 2006-06-25 devnull return 0;
253 324891a5 2006-06-25 devnull if(!rectclip(sr, src->clipr))
254 324891a5 2006-06-25 devnull return 0;
255 324891a5 2006-06-25 devnull /* compute and clip rectangle in mask */
256 324891a5 2006-06-25 devnull if(splitcoords){
257 324891a5 2006-06-25 devnull /* move mask point with source */
258 324891a5 2006-06-25 devnull p1->x += sr->min.x-p0->x;
259 324891a5 2006-06-25 devnull p1->y += sr->min.y-p0->y;
260 324891a5 2006-06-25 devnull mr->min = *p1;
261 324891a5 2006-06-25 devnull mr->max.x = p1->x+Dx(*sr);
262 324891a5 2006-06-25 devnull mr->max.y = p1->y+Dy(*sr);
263 324891a5 2006-06-25 devnull omr = *mr;
264 324891a5 2006-06-25 devnull /* mr is now rectangle in mask; clip it */
265 324891a5 2006-06-25 devnull if(!(mask->flags&Frepl) && !rectclip(mr, mask->r))
266 324891a5 2006-06-25 devnull return 0;
267 324891a5 2006-06-25 devnull if(!rectclip(mr, mask->clipr))
268 324891a5 2006-06-25 devnull return 0;
269 324891a5 2006-06-25 devnull /* reflect any clips back to source */
270 324891a5 2006-06-25 devnull sr->min.x += mr->min.x-omr.min.x;
271 324891a5 2006-06-25 devnull sr->min.y += mr->min.y-omr.min.y;
272 324891a5 2006-06-25 devnull sr->max.x += mr->max.x-omr.max.x;
273 324891a5 2006-06-25 devnull sr->max.y += mr->max.y-omr.max.y;
274 324891a5 2006-06-25 devnull *p1 = mr->min;
276 324891a5 2006-06-25 devnull if(!(mask->flags&Frepl) && !rectclip(sr, mask->r))
277 324891a5 2006-06-25 devnull return 0;
278 324891a5 2006-06-25 devnull if(!rectclip(sr, mask->clipr))
279 324891a5 2006-06-25 devnull return 0;
280 324891a5 2006-06-25 devnull *p1 = sr->min;
283 324891a5 2006-06-25 devnull /* move source clipping back to destination */
284 324891a5 2006-06-25 devnull delta.x = r->min.x - p0->x;
285 324891a5 2006-06-25 devnull delta.y = r->min.y - p0->y;
286 324891a5 2006-06-25 devnull r->min.x = sr->min.x + delta.x;
287 324891a5 2006-06-25 devnull r->min.y = sr->min.y + delta.y;
288 324891a5 2006-06-25 devnull r->max.x = sr->max.x + delta.x;
289 324891a5 2006-06-25 devnull r->max.y = sr->max.y + delta.y;
291 324891a5 2006-06-25 devnull /* move source rectangle so sr->min is in src->r */
292 324891a5 2006-06-25 devnull if(src->flags&Frepl) {
293 324891a5 2006-06-25 devnull delta.x = drawreplxy(src->r.min.x, src->r.max.x, sr->min.x) - sr->min.x;
294 324891a5 2006-06-25 devnull delta.y = drawreplxy(src->r.min.y, src->r.max.y, sr->min.y) - sr->min.y;
295 324891a5 2006-06-25 devnull sr->min.x += delta.x;
296 324891a5 2006-06-25 devnull sr->min.y += delta.y;
297 324891a5 2006-06-25 devnull sr->max.x += delta.x;
298 324891a5 2006-06-25 devnull sr->max.y += delta.y;
300 324891a5 2006-06-25 devnull *p0 = sr->min;
302 324891a5 2006-06-25 devnull /* move mask point so it is in mask->r */
303 324891a5 2006-06-25 devnull *p1 = drawrepl(mask->r, *p1);
304 324891a5 2006-06-25 devnull mr->min = *p1;
305 324891a5 2006-06-25 devnull mr->max.x = p1->x+Dx(*sr);
306 324891a5 2006-06-25 devnull mr->max.y = p1->y+Dy(*sr);
308 324891a5 2006-06-25 devnull assert(Dx(*sr) == Dx(*mr) && Dx(*mr) == Dx(*r));
309 324891a5 2006-06-25 devnull assert(Dy(*sr) == Dy(*mr) && Dy(*mr) == Dy(*r));
310 324891a5 2006-06-25 devnull assert(ptinrect(*p0, src->r));
311 324891a5 2006-06-25 devnull assert(ptinrect(*p1, mask->r));
312 324891a5 2006-06-25 devnull assert(ptinrect(r->min, dst->r));
314 324891a5 2006-06-25 devnull return 1;
318 324891a5 2006-06-25 devnull * Conversion tables.
320 324891a5 2006-06-25 devnull static uchar replbit[1+8][256]; /* replbit[x][y] is the replication of the x-bit quantity y to 8-bit depth */
321 324891a5 2006-06-25 devnull static uchar conv18[256][8]; /* conv18[x][y] is the yth pixel in the depth-1 pixel x */
322 324891a5 2006-06-25 devnull static uchar conv28[256][4]; /* ... */
323 324891a5 2006-06-25 devnull static uchar conv48[256][2];
326 324891a5 2006-06-25 devnull * bitmap of how to replicate n bits to fill 8, for 1 ≤ n ≤ 8.
327 324891a5 2006-06-25 devnull * the X's are where to put the bottom (ones) bit of the n-bit pattern.
328 324891a5 2006-06-25 devnull * only the top 8 bits of the result are actually used.
329 324891a5 2006-06-25 devnull * (the lower 8 bits are needed to get bits in the right place
330 324891a5 2006-06-25 devnull * when n is not a divisor of 8.)
332 324891a5 2006-06-25 devnull * Should check to see if its easier to just refer to replmul than
333 324891a5 2006-06-25 devnull * use the precomputed values in replbit. On PCs it may well
334 324891a5 2006-06-25 devnull * be; on machines with slow multiply instructions it probably isn't.
336 324891a5 2006-06-25 devnull #define a ((((((((((((((((0
337 324891a5 2006-06-25 devnull #define X *2+1)
338 324891a5 2006-06-25 devnull #define _ *2)
339 324891a5 2006-06-25 devnull static int replmul[1+8] = {
341 324891a5 2006-06-25 devnull a X X X X X X X X X X X X X X X X,
342 324891a5 2006-06-25 devnull a _ X _ X _ X _ X _ X _ X _ X _ X,
343 324891a5 2006-06-25 devnull a _ _ X _ _ X _ _ X _ _ X _ _ X _,
344 324891a5 2006-06-25 devnull a _ _ _ X _ _ _ X _ _ _ X _ _ _ X,
345 324891a5 2006-06-25 devnull a _ _ _ _ X _ _ _ _ X _ _ _ _ X _,
346 fa325e9b 2020-01-10 cross a _ _ _ _ _ X _ _ _ _ _ X _ _ _ _,
347 324891a5 2006-06-25 devnull a _ _ _ _ _ _ X _ _ _ _ _ _ X _ _,
348 324891a5 2006-06-25 devnull a _ _ _ _ _ _ _ X _ _ _ _ _ _ _ X,
350 324891a5 2006-06-25 devnull #undef a
351 324891a5 2006-06-25 devnull #undef X
352 324891a5 2006-06-25 devnull #undef _
354 324891a5 2006-06-25 devnull static void
355 324891a5 2006-06-25 devnull mktables(void)
357 324891a5 2006-06-25 devnull int i, j, mask, sh, small;
359 324891a5 2006-06-25 devnull if(tablesbuilt)
362 324891a5 2006-06-25 devnull fmtinstall('R', Rfmt);
363 324891a5 2006-06-25 devnull fmtinstall('P', Pfmt);
364 324891a5 2006-06-25 devnull tablesbuilt = 1;
366 324891a5 2006-06-25 devnull /* bit replication up to 8 bits */
367 324891a5 2006-06-25 devnull for(i=0; i<256; i++){
368 324891a5 2006-06-25 devnull for(j=0; j<=8; j++){ /* j <= 8 [sic] */
369 324891a5 2006-06-25 devnull small = i & ((1<<j)-1);
370 324891a5 2006-06-25 devnull replbit[j][i] = (small*replmul[j])>>8;
374 324891a5 2006-06-25 devnull /* bit unpacking up to 8 bits, only powers of 2 */
375 324891a5 2006-06-25 devnull for(i=0; i<256; i++){
376 324891a5 2006-06-25 devnull for(j=0, sh=7, mask=1; j<8; j++, sh--)
377 324891a5 2006-06-25 devnull conv18[i][j] = replbit[1][(i>>sh)&mask];
379 324891a5 2006-06-25 devnull for(j=0, sh=6, mask=3; j<4; j++, sh-=2)
380 324891a5 2006-06-25 devnull conv28[i][j] = replbit[2][(i>>sh)&mask];
382 324891a5 2006-06-25 devnull for(j=0, sh=4, mask=15; j<2; j++, sh-=4)
383 324891a5 2006-06-25 devnull conv48[i][j] = replbit[4][(i>>sh)&mask];
387 324891a5 2006-06-25 devnull static uchar ones = 0xff;
390 324891a5 2006-06-25 devnull * General alpha drawing case. Can handle anything.
392 324891a5 2006-06-25 devnull typedef struct Buffer Buffer;
393 324891a5 2006-06-25 devnull struct Buffer {
394 324891a5 2006-06-25 devnull /* used by most routines */
395 324891a5 2006-06-25 devnull uchar *red;
396 324891a5 2006-06-25 devnull uchar *grn;
397 324891a5 2006-06-25 devnull uchar *blu;
398 324891a5 2006-06-25 devnull uchar *alpha;
399 324891a5 2006-06-25 devnull uchar *grey;
400 324891a5 2006-06-25 devnull u32int *rgba;
401 324891a5 2006-06-25 devnull int delta; /* number of bytes to add to pointer to get next pixel to the right */
403 324891a5 2006-06-25 devnull /* used by boolcalc* for mask data */
404 324891a5 2006-06-25 devnull uchar *m; /* ptr to mask data r.min byte; like p->bytermin */
405 324891a5 2006-06-25 devnull int mskip; /* no. of left bits to skip in *m */
406 324891a5 2006-06-25 devnull uchar *bm; /* ptr to mask data img->r.min byte; like p->bytey0s */
407 324891a5 2006-06-25 devnull int bmskip; /* no. of left bits to skip in *bm */
408 324891a5 2006-06-25 devnull uchar *em; /* ptr to mask data img->r.max.x byte; like p->bytey0e */
409 324891a5 2006-06-25 devnull int emskip; /* no. of right bits to skip in *em */
412 324891a5 2006-06-25 devnull typedef struct Param Param;
413 324891a5 2006-06-25 devnull typedef Buffer Readfn(Param*, uchar*, int);
414 324891a5 2006-06-25 devnull typedef void Writefn(Param*, uchar*, Buffer);
415 324891a5 2006-06-25 devnull typedef Buffer Calcfn(Buffer, Buffer, Buffer, int, int, int);
418 324891a5 2006-06-25 devnull MAXBCACHE = 16
421 324891a5 2006-06-25 devnull /* giant rathole to customize functions with */
422 324891a5 2006-06-25 devnull struct Param {
423 324891a5 2006-06-25 devnull Readfn *replcall;
424 fa325e9b 2020-01-10 cross Readfn *greymaskcall;
425 324891a5 2006-06-25 devnull Readfn *convreadcall;
426 324891a5 2006-06-25 devnull Writefn *convwritecall;
428 324891a5 2006-06-25 devnull Memimage *img;
429 324891a5 2006-06-25 devnull Rectangle r;
430 324891a5 2006-06-25 devnull int dx; /* of r */
431 324891a5 2006-06-25 devnull int needbuf;
432 324891a5 2006-06-25 devnull int convgrey;
433 324891a5 2006-06-25 devnull int alphaonly;
435 324891a5 2006-06-25 devnull uchar *bytey0s; /* byteaddr(Pt(img->r.min.x, img->r.min.y)) */
436 324891a5 2006-06-25 devnull uchar *bytermin; /* byteaddr(Pt(r.min.x, img->r.min.y)) */
437 324891a5 2006-06-25 devnull uchar *bytey0e; /* byteaddr(Pt(img->r.max.x, img->r.min.y)) */
438 324891a5 2006-06-25 devnull int bwidth;
440 324891a5 2006-06-25 devnull int replcache; /* if set, cache buffers */
441 324891a5 2006-06-25 devnull Buffer bcache[MAXBCACHE];
442 324891a5 2006-06-25 devnull u32int bfilled;
443 324891a5 2006-06-25 devnull uchar *bufbase;
444 324891a5 2006-06-25 devnull int bufoff;
445 324891a5 2006-06-25 devnull int bufdelta;
447 324891a5 2006-06-25 devnull int dir;
449 324891a5 2006-06-25 devnull int convbufoff;
450 324891a5 2006-06-25 devnull uchar *convbuf;
451 324891a5 2006-06-25 devnull Param *convdpar;
452 324891a5 2006-06-25 devnull int convdx;
455 324891a5 2006-06-25 devnull static uchar *drawbuf;
456 324891a5 2006-06-25 devnull static int ndrawbuf;
457 324891a5 2006-06-25 devnull static int mdrawbuf;
458 324891a5 2006-06-25 devnull static Param spar, mpar, dpar; /* easier on the stacks */
459 324891a5 2006-06-25 devnull static Readfn greymaskread, replread, readptr;
460 324891a5 2006-06-25 devnull static Writefn nullwrite;
461 324891a5 2006-06-25 devnull static Calcfn alphacalc0, alphacalc14, alphacalc2810, alphacalc3679, alphacalc5, alphacalc11, alphacalcS;
462 324891a5 2006-06-25 devnull static Calcfn boolcalc14, boolcalc236789, boolcalc1011;
464 324891a5 2006-06-25 devnull static Readfn* readfn(Memimage*);
465 324891a5 2006-06-25 devnull static Readfn* readalphafn(Memimage*);
466 324891a5 2006-06-25 devnull static Writefn* writefn(Memimage*);
468 324891a5 2006-06-25 devnull static Calcfn* boolcopyfn(Memimage*, Memimage*);
469 324891a5 2006-06-25 devnull static Readfn* convfn(Memimage*, Param*, Memimage*, Param*);
471 fa325e9b 2020-01-10 cross static Calcfn *alphacalc[Ncomp] =
473 324891a5 2006-06-25 devnull alphacalc0, /* Clear */
474 324891a5 2006-06-25 devnull alphacalc14, /* DoutS */
475 324891a5 2006-06-25 devnull alphacalc2810, /* SoutD */
476 324891a5 2006-06-25 devnull alphacalc3679, /* DxorS */
477 324891a5 2006-06-25 devnull alphacalc14, /* DinS */
478 324891a5 2006-06-25 devnull alphacalc5, /* D */
479 324891a5 2006-06-25 devnull alphacalc3679, /* DatopS */
480 324891a5 2006-06-25 devnull alphacalc3679, /* DoverS */
481 324891a5 2006-06-25 devnull alphacalc2810, /* SinD */
482 324891a5 2006-06-25 devnull alphacalc3679, /* SatopD */
483 324891a5 2006-06-25 devnull alphacalc2810, /* S */
484 324891a5 2006-06-25 devnull alphacalc11, /* SoverD */
487 324891a5 2006-06-25 devnull static Calcfn *boolcalc[Ncomp] =
489 324891a5 2006-06-25 devnull alphacalc0, /* Clear */
490 324891a5 2006-06-25 devnull boolcalc14, /* DoutS */
491 324891a5 2006-06-25 devnull boolcalc236789, /* SoutD */
492 324891a5 2006-06-25 devnull boolcalc236789, /* DxorS */
493 324891a5 2006-06-25 devnull boolcalc14, /* DinS */
494 324891a5 2006-06-25 devnull alphacalc5, /* D */
495 324891a5 2006-06-25 devnull boolcalc236789, /* DatopS */
496 324891a5 2006-06-25 devnull boolcalc236789, /* DoverS */
497 324891a5 2006-06-25 devnull boolcalc236789, /* SinD */
498 324891a5 2006-06-25 devnull boolcalc236789, /* SatopD */
499 324891a5 2006-06-25 devnull boolcalc1011, /* S */
500 324891a5 2006-06-25 devnull boolcalc1011, /* SoverD */
503 324891a5 2006-06-25 devnull static int
504 324891a5 2006-06-25 devnull allocdrawbuf(void)
506 324891a5 2006-06-25 devnull uchar *p;
508 324891a5 2006-06-25 devnull if(ndrawbuf > mdrawbuf){
509 324891a5 2006-06-25 devnull p = realloc(drawbuf, ndrawbuf);
510 324891a5 2006-06-25 devnull if(p == nil){
511 324891a5 2006-06-25 devnull werrstr("memimagedraw out of memory");
512 324891a5 2006-06-25 devnull return -1;
514 324891a5 2006-06-25 devnull drawbuf = p;
515 324891a5 2006-06-25 devnull mdrawbuf = ndrawbuf;
517 324891a5 2006-06-25 devnull return 0;
520 324891a5 2006-06-25 devnull static void
521 324891a5 2006-06-25 devnull getparam(Param *p, Memimage *img, Rectangle r, int convgrey, int needbuf)
523 324891a5 2006-06-25 devnull int nbuf;
525 324891a5 2006-06-25 devnull memset(p, 0, sizeof *p);
527 324891a5 2006-06-25 devnull p->img = img;
528 324891a5 2006-06-25 devnull p->r = r;
529 324891a5 2006-06-25 devnull p->dx = Dx(r);
530 324891a5 2006-06-25 devnull p->needbuf = needbuf;
531 324891a5 2006-06-25 devnull p->convgrey = convgrey;
533 324891a5 2006-06-25 devnull assert(img->r.min.x <= r.min.x && r.min.x < img->r.max.x);
535 324891a5 2006-06-25 devnull p->bytey0s = byteaddr(img, Pt(img->r.min.x, img->r.min.y));
536 324891a5 2006-06-25 devnull p->bytermin = byteaddr(img, Pt(r.min.x, img->r.min.y));
537 324891a5 2006-06-25 devnull p->bytey0e = byteaddr(img, Pt(img->r.max.x, img->r.min.y));
538 324891a5 2006-06-25 devnull p->bwidth = sizeof(u32int)*img->width;
540 324891a5 2006-06-25 devnull assert(p->bytey0s <= p->bytermin && p->bytermin <= p->bytey0e);
542 324891a5 2006-06-25 devnull if(p->r.min.x == p->img->r.min.x)
543 324891a5 2006-06-25 devnull assert(p->bytermin == p->bytey0s);
545 324891a5 2006-06-25 devnull nbuf = 1;
546 324891a5 2006-06-25 devnull if((img->flags&Frepl) && Dy(img->r) <= MAXBCACHE && Dy(img->r) < Dy(r)){
547 324891a5 2006-06-25 devnull p->replcache = 1;
548 324891a5 2006-06-25 devnull nbuf = Dy(img->r);
550 324891a5 2006-06-25 devnull p->bufdelta = 4*p->dx;
551 324891a5 2006-06-25 devnull p->bufoff = ndrawbuf;
552 324891a5 2006-06-25 devnull ndrawbuf += p->bufdelta*nbuf;
555 324891a5 2006-06-25 devnull static void
556 324891a5 2006-06-25 devnull clipy(Memimage *img, int *y)
560 324891a5 2006-06-25 devnull dy = Dy(img->r);
561 324891a5 2006-06-25 devnull if(*y == dy)
563 324891a5 2006-06-25 devnull else if(*y == -1)
564 324891a5 2006-06-25 devnull *y = dy-1;
565 324891a5 2006-06-25 devnull assert(0 <= *y && *y < dy);
568 324891a5 2006-06-25 devnull static void
569 324891a5 2006-06-25 devnull dumpbuf(char *s, Buffer b, int n)
572 324891a5 2006-06-25 devnull uchar *p;
574 324891a5 2006-06-25 devnull print("%s", s);
575 324891a5 2006-06-25 devnull for(i=0; i<n; i++){
576 324891a5 2006-06-25 devnull print(" ");
577 324891a5 2006-06-25 devnull if(p=b.grey){
578 324891a5 2006-06-25 devnull print(" k%.2uX", *p);
579 324891a5 2006-06-25 devnull b.grey += b.delta;
581 324891a5 2006-06-25 devnull if(p=b.red){
582 324891a5 2006-06-25 devnull print(" r%.2uX", *p);
583 324891a5 2006-06-25 devnull b.red += b.delta;
585 324891a5 2006-06-25 devnull if(p=b.grn){
586 324891a5 2006-06-25 devnull print(" g%.2uX", *p);
587 324891a5 2006-06-25 devnull b.grn += b.delta;
589 324891a5 2006-06-25 devnull if(p=b.blu){
590 324891a5 2006-06-25 devnull print(" b%.2uX", *p);
591 324891a5 2006-06-25 devnull b.blu += b.delta;
594 324891a5 2006-06-25 devnull if((p=b.alpha) != &ones){
595 324891a5 2006-06-25 devnull print(" α%.2uX", *p);
596 324891a5 2006-06-25 devnull b.alpha += b.delta;
599 324891a5 2006-06-25 devnull print("\n");
603 324891a5 2006-06-25 devnull * For each scan line, we expand the pixels from source, mask, and destination
604 324891a5 2006-06-25 devnull * into byte-aligned red, green, blue, alpha, and grey channels. If buffering is not
605 324891a5 2006-06-25 devnull * needed and the channels were already byte-aligned (grey8, rgb24, rgba32, rgb32),
606 324891a5 2006-06-25 devnull * the readers need not copy the data: they can simply return pointers to the data.
607 324891a5 2006-06-25 devnull * If the destination image is grey and the source is not, it is converted using the NTSC
608 324891a5 2006-06-25 devnull * formula.
610 fa325e9b 2020-01-10 cross * Once we have all the channels, we call either rgbcalc or greycalc, depending on
611 324891a5 2006-06-25 devnull * whether the destination image is color. This is allowed to overwrite the dst buffer (perhaps
612 324891a5 2006-06-25 devnull * the actual data, perhaps a copy) with its result. It should only overwrite the dst buffer
613 324891a5 2006-06-25 devnull * with the same format (i.e. red bytes with red bytes, etc.) A new buffer is returned from
614 324891a5 2006-06-25 devnull * the calculator, and that buffer is passed to a function to write it to the destination.
615 324891a5 2006-06-25 devnull * If the buffer is already pointing at the destination, the writing function is a no-op.
617 324891a5 2006-06-25 devnull #define DBG if(drawdebug)
618 324891a5 2006-06-25 devnull static int
619 324891a5 2006-06-25 devnull alphadraw(Memdrawparam *par)
621 324891a5 2006-06-25 devnull int isgrey, starty, endy, op;
622 324891a5 2006-06-25 devnull int needbuf, dsty, srcy, masky;
623 324891a5 2006-06-25 devnull int y, dir, dx, dy;
624 324891a5 2006-06-25 devnull Buffer bsrc, bdst, bmask;
625 324891a5 2006-06-25 devnull Readfn *rdsrc, *rdmask, *rddst;
626 324891a5 2006-06-25 devnull Calcfn *calc;
627 324891a5 2006-06-25 devnull Writefn *wrdst;
628 324891a5 2006-06-25 devnull Memimage *src, *mask, *dst;
629 324891a5 2006-06-25 devnull Rectangle r, sr, mr;
631 324891a5 2006-06-25 devnull if(drawdebug)
632 324891a5 2006-06-25 devnull print("alphadraw %R\n", par->r);
633 324891a5 2006-06-25 devnull r = par->r;
634 324891a5 2006-06-25 devnull dx = Dx(r);
635 324891a5 2006-06-25 devnull dy = Dy(r);
637 324891a5 2006-06-25 devnull ndrawbuf = 0;
639 324891a5 2006-06-25 devnull src = par->src;
640 fa325e9b 2020-01-10 cross mask = par->mask;
641 324891a5 2006-06-25 devnull dst = par->dst;
642 324891a5 2006-06-25 devnull sr = par->sr;
643 324891a5 2006-06-25 devnull mr = par->mr;
644 324891a5 2006-06-25 devnull op = par->op;
646 324891a5 2006-06-25 devnull isgrey = dst->flags&Fgrey;
649 fa325e9b 2020-01-10 cross * Buffering when src and dst are the same bitmap is sufficient but not
650 324891a5 2006-06-25 devnull * necessary. There are stronger conditions we could use. We could
651 324891a5 2006-06-25 devnull * check to see if the rectangles intersect, and if simply moving in the
652 324891a5 2006-06-25 devnull * correct y direction can avoid the need to buffer.
654 324891a5 2006-06-25 devnull needbuf = (src->data == dst->data);
656 324891a5 2006-06-25 devnull getparam(&spar, src, sr, isgrey, needbuf);
657 324891a5 2006-06-25 devnull getparam(&dpar, dst, r, isgrey, needbuf);
658 324891a5 2006-06-25 devnull getparam(&mpar, mask, mr, 0, needbuf);
660 324891a5 2006-06-25 devnull dir = (needbuf && byteaddr(dst, r.min) > byteaddr(src, sr.min)) ? -1 : 1;
661 324891a5 2006-06-25 devnull spar.dir = mpar.dir = dpar.dir = dir;
664 324891a5 2006-06-25 devnull * If the mask is purely boolean, we can convert from src to dst format
665 324891a5 2006-06-25 devnull * when we read src, and then just copy it to dst where the mask tells us to.
666 324891a5 2006-06-25 devnull * This requires a boolean (1-bit grey) mask and lack of a source alpha channel.
668 324891a5 2006-06-25 devnull * The computation is accomplished by assigning the function pointers as follows:
669 324891a5 2006-06-25 devnull * rdsrc - read and convert source into dst format in a buffer
670 324891a5 2006-06-25 devnull * rdmask - convert mask to bytes, set pointer to it
671 324891a5 2006-06-25 devnull * rddst - fill with pointer to real dst data, but do no reads
672 324891a5 2006-06-25 devnull * calc - copy src onto dst when mask says to.
673 324891a5 2006-06-25 devnull * wrdst - do nothing
674 324891a5 2006-06-25 devnull * This is slightly sleazy, since things aren't doing exactly what their names say,
675 324891a5 2006-06-25 devnull * but it avoids a fair amount of code duplication to make this a case here
676 324891a5 2006-06-25 devnull * rather than have a separate booldraw.
678 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("flag %lud mchan %lux=?%x dd %d\n", src->flags&Falpha, mask->chan, GREY1, dst->depth); */
679 324891a5 2006-06-25 devnull if(!(src->flags&Falpha) && mask->chan == GREY1 && dst->depth >= 8 && op == SoverD){
680 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("boolcopy..."); */
681 324891a5 2006-06-25 devnull rdsrc = convfn(dst, &dpar, src, &spar);
682 324891a5 2006-06-25 devnull rddst = readptr;
683 324891a5 2006-06-25 devnull rdmask = readfn(mask);
684 324891a5 2006-06-25 devnull calc = boolcopyfn(dst, mask);
685 324891a5 2006-06-25 devnull wrdst = nullwrite;
687 324891a5 2006-06-25 devnull /* usual alphadraw parameter fetching */
688 324891a5 2006-06-25 devnull rdsrc = readfn(src);
689 324891a5 2006-06-25 devnull rddst = readfn(dst);
690 324891a5 2006-06-25 devnull wrdst = writefn(dst);
691 324891a5 2006-06-25 devnull calc = alphacalc[op];
694 324891a5 2006-06-25 devnull * If there is no alpha channel, we'll ask for a grey channel
695 324891a5 2006-06-25 devnull * and pretend it is the alpha.
697 324891a5 2006-06-25 devnull if(mask->flags&Falpha){
698 324891a5 2006-06-25 devnull rdmask = readalphafn(mask);
699 324891a5 2006-06-25 devnull mpar.alphaonly = 1;
701 324891a5 2006-06-25 devnull mpar.greymaskcall = readfn(mask);
702 324891a5 2006-06-25 devnull mpar.convgrey = 1;
703 324891a5 2006-06-25 devnull rdmask = greymaskread;
706 324891a5 2006-06-25 devnull * Should really be above, but then boolcopyfns would have
707 324891a5 2006-06-25 devnull * to deal with bit alignment, and I haven't written that.
709 324891a5 2006-06-25 devnull * This is a common case for things like ellipse drawing.
710 324891a5 2006-06-25 devnull * When there's no alpha involved and the mask is boolean,
711 324891a5 2006-06-25 devnull * we can avoid all the division and multiplication.
713 324891a5 2006-06-25 devnull if(mask->chan == GREY1 && !(src->flags&Falpha))
714 324891a5 2006-06-25 devnull calc = boolcalc[op];
715 324891a5 2006-06-25 devnull else if(op == SoverD && !(src->flags&Falpha))
716 324891a5 2006-06-25 devnull calc = alphacalcS;
721 324891a5 2006-06-25 devnull * If the image has a small enough repl rectangle,
722 324891a5 2006-06-25 devnull * we can just read each line once and cache them.
724 324891a5 2006-06-25 devnull if(spar.replcache){
725 324891a5 2006-06-25 devnull spar.replcall = rdsrc;
726 324891a5 2006-06-25 devnull rdsrc = replread;
728 324891a5 2006-06-25 devnull if(mpar.replcache){
729 324891a5 2006-06-25 devnull mpar.replcall = rdmask;
730 324891a5 2006-06-25 devnull rdmask = replread;
733 324891a5 2006-06-25 devnull if(allocdrawbuf() < 0)
734 324891a5 2006-06-25 devnull return 0;
737 324891a5 2006-06-25 devnull * Before we were saving only offsets from drawbuf in the parameter
738 324891a5 2006-06-25 devnull * structures; now that drawbuf has been grown to accomodate us,
739 324891a5 2006-06-25 devnull * we can fill in the pointers.
741 324891a5 2006-06-25 devnull spar.bufbase = drawbuf+spar.bufoff;
742 324891a5 2006-06-25 devnull mpar.bufbase = drawbuf+mpar.bufoff;
743 324891a5 2006-06-25 devnull dpar.bufbase = drawbuf+dpar.bufoff;
744 324891a5 2006-06-25 devnull spar.convbuf = drawbuf+spar.convbufoff;
746 324891a5 2006-06-25 devnull if(dir == 1){
747 324891a5 2006-06-25 devnull starty = 0;
748 324891a5 2006-06-25 devnull endy = dy;
750 324891a5 2006-06-25 devnull starty = dy-1;
751 324891a5 2006-06-25 devnull endy = -1;
755 324891a5 2006-06-25 devnull * srcy, masky, and dsty are offsets from the top of their
756 324891a5 2006-06-25 devnull * respective Rectangles. they need to be contained within
757 324891a5 2006-06-25 devnull * the rectangles, so clipy can keep them there without division.
759 324891a5 2006-06-25 devnull srcy = (starty + sr.min.y - src->r.min.y)%Dy(src->r);
760 324891a5 2006-06-25 devnull masky = (starty + mr.min.y - mask->r.min.y)%Dy(mask->r);
761 324891a5 2006-06-25 devnull dsty = starty + r.min.y - dst->r.min.y;
763 324891a5 2006-06-25 devnull assert(0 <= srcy && srcy < Dy(src->r));
764 324891a5 2006-06-25 devnull assert(0 <= masky && masky < Dy(mask->r));
765 324891a5 2006-06-25 devnull assert(0 <= dsty && dsty < Dy(dst->r));
767 324891a5 2006-06-25 devnull if(drawdebug)
768 324891a5 2006-06-25 devnull print("alphadraw: rdsrc=%p rdmask=%p rddst=%p calc=%p wrdst=%p\n",
769 324891a5 2006-06-25 devnull rdsrc, rdmask, rddst, calc, wrdst);
770 324891a5 2006-06-25 devnull for(y=starty; y!=endy; y+=dir, srcy+=dir, masky+=dir, dsty+=dir){
771 324891a5 2006-06-25 devnull clipy(src, &srcy);
772 324891a5 2006-06-25 devnull clipy(dst, &dsty);
773 324891a5 2006-06-25 devnull clipy(mask, &masky);
775 324891a5 2006-06-25 devnull bsrc = rdsrc(&spar, spar.bufbase, srcy);
776 324891a5 2006-06-25 devnull DBG print("[");
777 324891a5 2006-06-25 devnull bmask = rdmask(&mpar, mpar.bufbase, masky);
778 324891a5 2006-06-25 devnull DBG print("]\n");
779 324891a5 2006-06-25 devnull bdst = rddst(&dpar, dpar.bufbase, dsty);
780 324891a5 2006-06-25 devnull DBG dumpbuf("src", bsrc, dx);
781 324891a5 2006-06-25 devnull DBG dumpbuf("mask", bmask, dx);
782 324891a5 2006-06-25 devnull DBG dumpbuf("dst", bdst, dx);
783 324891a5 2006-06-25 devnull bdst = calc(bdst, bsrc, bmask, dx, isgrey, op);
784 324891a5 2006-06-25 devnull DBG dumpbuf("bdst", bdst, dx);
785 324891a5 2006-06-25 devnull wrdst(&dpar, dpar.bytermin+dsty*dpar.bwidth, bdst);
788 324891a5 2006-06-25 devnull return 1;
790 324891a5 2006-06-25 devnull #undef DBG
792 324891a5 2006-06-25 devnull static Buffer
793 324891a5 2006-06-25 devnull alphacalc0(Buffer bdst, Buffer b1, Buffer b2, int dx, int grey, int op)
795 324891a5 2006-06-25 devnull USED(grey);
796 324891a5 2006-06-25 devnull USED(op);
797 324891a5 2006-06-25 devnull memset(bdst.rgba, 0, dx*bdst.delta);
798 324891a5 2006-06-25 devnull return bdst;
802 4aad1a32 2009-04-30 rsc * Do the channels in the buffers match enough
803 4aad1a32 2009-04-30 rsc * that we can do word-at-a-time operations
804 4aad1a32 2009-04-30 rsc * on the pixels?
807 4aad1a32 2009-04-30 rsc chanmatch(Buffer *bdst, Buffer *bsrc)
809 4aad1a32 2009-04-30 rsc uchar *drgb, *srgb;
812 4aad1a32 2009-04-30 rsc * first, r, g, b must be in the same place
813 4aad1a32 2009-04-30 rsc * in the rgba word.
815 4aad1a32 2009-04-30 rsc drgb = (uchar*)bdst->rgba;
816 4aad1a32 2009-04-30 rsc srgb = (uchar*)bsrc->rgba;
817 4aad1a32 2009-04-30 rsc if(bdst->red - drgb != bsrc->red - srgb
818 4aad1a32 2009-04-30 rsc || bdst->blu - drgb != bsrc->blu - srgb
819 4aad1a32 2009-04-30 rsc || bdst->grn - drgb != bsrc->grn - srgb)
823 4aad1a32 2009-04-30 rsc * that implies alpha is in the same place,
824 4aad1a32 2009-04-30 rsc * if it is there at all (it might be == &ones).
825 4aad1a32 2009-04-30 rsc * if the destination is &ones, we can scribble
826 4aad1a32 2009-04-30 rsc * over the rgba slot just fine.
828 4aad1a32 2009-04-30 rsc if(bdst->alpha == &ones)
832 4aad1a32 2009-04-30 rsc * if the destination is not ones but the src is,
833 4aad1a32 2009-04-30 rsc * then the simultaneous calculation will use
834 4aad1a32 2009-04-30 rsc * bogus bytes from the src's rgba. no good.
836 4aad1a32 2009-04-30 rsc if(bsrc->alpha == &ones)
840 4aad1a32 2009-04-30 rsc * otherwise, alphas are in the same place.
845 324891a5 2006-06-25 devnull static Buffer
846 324891a5 2006-06-25 devnull alphacalc14(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
848 324891a5 2006-06-25 devnull Buffer obdst;
849 324891a5 2006-06-25 devnull int fd, sadelta;
850 324891a5 2006-06-25 devnull int i, sa, ma, q;
851 4aad1a32 2009-04-30 rsc u32int t, t1;
853 324891a5 2006-06-25 devnull obdst = bdst;
854 324891a5 2006-06-25 devnull sadelta = bsrc.alpha == &ones ? 0 : bsrc.delta;
855 4aad1a32 2009-04-30 rsc q = bsrc.delta == 4 && bdst.delta == 4 && chanmatch(&bdst, &bsrc);
857 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
858 324891a5 2006-06-25 devnull sa = *bsrc.alpha;
859 324891a5 2006-06-25 devnull ma = *bmask.alpha;
860 4aad1a32 2009-04-30 rsc fd = CALC11(sa, ma, t);
861 324891a5 2006-06-25 devnull if(op == DoutS)
862 324891a5 2006-06-25 devnull fd = 255-fd;
864 324891a5 2006-06-25 devnull if(grey){
865 4aad1a32 2009-04-30 rsc *bdst.grey = CALC11(fd, *bdst.grey, t);
866 324891a5 2006-06-25 devnull bsrc.grey += bsrc.delta;
867 324891a5 2006-06-25 devnull bdst.grey += bdst.delta;
870 4aad1a32 2009-04-30 rsc *bdst.rgba = CALC41(fd, *bdst.rgba, t, t1);
871 324891a5 2006-06-25 devnull bsrc.rgba++;
872 324891a5 2006-06-25 devnull bdst.rgba++;
873 324891a5 2006-06-25 devnull bsrc.alpha += sadelta;
874 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
875 324891a5 2006-06-25 devnull continue;
877 4aad1a32 2009-04-30 rsc *bdst.red = CALC11(fd, *bdst.red, t);
878 4aad1a32 2009-04-30 rsc *bdst.grn = CALC11(fd, *bdst.grn, t);
879 4aad1a32 2009-04-30 rsc *bdst.blu = CALC11(fd, *bdst.blu, t);
880 324891a5 2006-06-25 devnull bsrc.red += bsrc.delta;
881 324891a5 2006-06-25 devnull bsrc.blu += bsrc.delta;
882 324891a5 2006-06-25 devnull bsrc.grn += bsrc.delta;
883 324891a5 2006-06-25 devnull bdst.red += bdst.delta;
884 324891a5 2006-06-25 devnull bdst.blu += bdst.delta;
885 324891a5 2006-06-25 devnull bdst.grn += bdst.delta;
887 324891a5 2006-06-25 devnull if(bdst.alpha != &ones){
888 4aad1a32 2009-04-30 rsc *bdst.alpha = CALC11(fd, *bdst.alpha, t);
889 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
891 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
892 324891a5 2006-06-25 devnull bsrc.alpha += sadelta;
894 324891a5 2006-06-25 devnull return obdst;
897 324891a5 2006-06-25 devnull static Buffer
898 324891a5 2006-06-25 devnull alphacalc2810(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
900 324891a5 2006-06-25 devnull Buffer obdst;
901 324891a5 2006-06-25 devnull int fs, sadelta;
902 324891a5 2006-06-25 devnull int i, ma, da, q;
903 4aad1a32 2009-04-30 rsc u32int t, t1;
905 324891a5 2006-06-25 devnull obdst = bdst;
906 324891a5 2006-06-25 devnull sadelta = bsrc.alpha == &ones ? 0 : bsrc.delta;
907 4aad1a32 2009-04-30 rsc q = bsrc.delta == 4 && bdst.delta == 4 && chanmatch(&bdst, &bsrc);
909 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
910 324891a5 2006-06-25 devnull ma = *bmask.alpha;
911 324891a5 2006-06-25 devnull da = *bdst.alpha;
912 324891a5 2006-06-25 devnull if(op == SoutD)
913 324891a5 2006-06-25 devnull da = 255-da;
914 324891a5 2006-06-25 devnull fs = ma;
915 324891a5 2006-06-25 devnull if(op != S)
916 4aad1a32 2009-04-30 rsc fs = CALC11(fs, da, t);
918 324891a5 2006-06-25 devnull if(grey){
919 4aad1a32 2009-04-30 rsc *bdst.grey = CALC11(fs, *bsrc.grey, t);
920 324891a5 2006-06-25 devnull bsrc.grey += bsrc.delta;
921 324891a5 2006-06-25 devnull bdst.grey += bdst.delta;
924 4aad1a32 2009-04-30 rsc *bdst.rgba = CALC41(fs, *bsrc.rgba, t, t1);
925 324891a5 2006-06-25 devnull bsrc.rgba++;
926 324891a5 2006-06-25 devnull bdst.rgba++;
927 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
928 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
929 324891a5 2006-06-25 devnull continue;
931 4aad1a32 2009-04-30 rsc *bdst.red = CALC11(fs, *bsrc.red, t);
932 4aad1a32 2009-04-30 rsc *bdst.grn = CALC11(fs, *bsrc.grn, t);
933 4aad1a32 2009-04-30 rsc *bdst.blu = CALC11(fs, *bsrc.blu, t);
934 324891a5 2006-06-25 devnull bsrc.red += bsrc.delta;
935 324891a5 2006-06-25 devnull bsrc.blu += bsrc.delta;
936 324891a5 2006-06-25 devnull bsrc.grn += bsrc.delta;
937 324891a5 2006-06-25 devnull bdst.red += bdst.delta;
938 324891a5 2006-06-25 devnull bdst.blu += bdst.delta;
939 324891a5 2006-06-25 devnull bdst.grn += bdst.delta;
941 324891a5 2006-06-25 devnull if(bdst.alpha != &ones){
942 4aad1a32 2009-04-30 rsc *bdst.alpha = CALC11(fs, *bsrc.alpha, t);
943 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
945 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
946 324891a5 2006-06-25 devnull bsrc.alpha += sadelta;
948 324891a5 2006-06-25 devnull return obdst;
951 324891a5 2006-06-25 devnull static Buffer
952 324891a5 2006-06-25 devnull alphacalc3679(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
954 324891a5 2006-06-25 devnull Buffer obdst;
955 324891a5 2006-06-25 devnull int fs, fd, sadelta;
956 324891a5 2006-06-25 devnull int i, sa, ma, da, q;
957 4aad1a32 2009-04-30 rsc u32int t, t1;
959 324891a5 2006-06-25 devnull obdst = bdst;
960 324891a5 2006-06-25 devnull sadelta = bsrc.alpha == &ones ? 0 : bsrc.delta;
961 4aad1a32 2009-04-30 rsc q = bsrc.delta == 4 && bdst.delta == 4 && chanmatch(&bdst, &bsrc);
963 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
964 324891a5 2006-06-25 devnull sa = *bsrc.alpha;
965 324891a5 2006-06-25 devnull ma = *bmask.alpha;
966 324891a5 2006-06-25 devnull da = *bdst.alpha;
967 324891a5 2006-06-25 devnull if(op == SatopD)
968 4aad1a32 2009-04-30 rsc fs = CALC11(ma, da, t);
970 4aad1a32 2009-04-30 rsc fs = CALC11(ma, 255-da, t);
971 324891a5 2006-06-25 devnull if(op == DoverS)
972 324891a5 2006-06-25 devnull fd = 255;
974 4aad1a32 2009-04-30 rsc fd = CALC11(sa, ma, t);
975 324891a5 2006-06-25 devnull if(op != DatopS)
976 324891a5 2006-06-25 devnull fd = 255-fd;
979 324891a5 2006-06-25 devnull if(grey){
980 4aad1a32 2009-04-30 rsc *bdst.grey = CALC12(fs, *bsrc.grey, fd, *bdst.grey, t);
981 324891a5 2006-06-25 devnull bsrc.grey += bsrc.delta;
982 324891a5 2006-06-25 devnull bdst.grey += bdst.delta;
985 4aad1a32 2009-04-30 rsc *bdst.rgba = CALC42(fs, *bsrc.rgba, fd, *bdst.rgba, t, t1);
986 324891a5 2006-06-25 devnull bsrc.rgba++;
987 324891a5 2006-06-25 devnull bdst.rgba++;
988 324891a5 2006-06-25 devnull bsrc.alpha += sadelta;
989 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
990 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
991 324891a5 2006-06-25 devnull continue;
993 4aad1a32 2009-04-30 rsc *bdst.red = CALC12(fs, *bsrc.red, fd, *bdst.red, t);
994 4aad1a32 2009-04-30 rsc *bdst.grn = CALC12(fs, *bsrc.grn, fd, *bdst.grn, t);
995 4aad1a32 2009-04-30 rsc *bdst.blu = CALC12(fs, *bsrc.blu, fd, *bdst.blu, t);
996 324891a5 2006-06-25 devnull bsrc.red += bsrc.delta;
997 324891a5 2006-06-25 devnull bsrc.blu += bsrc.delta;
998 324891a5 2006-06-25 devnull bsrc.grn += bsrc.delta;
999 324891a5 2006-06-25 devnull bdst.red += bdst.delta;
1000 324891a5 2006-06-25 devnull bdst.blu += bdst.delta;
1001 324891a5 2006-06-25 devnull bdst.grn += bdst.delta;
1003 324891a5 2006-06-25 devnull if(bdst.alpha != &ones){
1004 4aad1a32 2009-04-30 rsc *bdst.alpha = CALC12(fs, sa, fd, da, t);
1005 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
1007 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
1008 324891a5 2006-06-25 devnull bsrc.alpha += sadelta;
1010 324891a5 2006-06-25 devnull return obdst;
1013 324891a5 2006-06-25 devnull static Buffer
1014 324891a5 2006-06-25 devnull alphacalc5(Buffer bdst, Buffer b1, Buffer b2, int dx, int grey, int op)
1016 324891a5 2006-06-25 devnull USED(dx);
1017 324891a5 2006-06-25 devnull USED(grey);
1018 324891a5 2006-06-25 devnull USED(op);
1019 324891a5 2006-06-25 devnull return bdst;
1022 324891a5 2006-06-25 devnull static Buffer
1023 324891a5 2006-06-25 devnull alphacalc11(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
1025 324891a5 2006-06-25 devnull Buffer obdst;
1026 324891a5 2006-06-25 devnull int fd, sadelta;
1027 324891a5 2006-06-25 devnull int i, sa, ma, q;
1028 4aad1a32 2009-04-30 rsc u32int t, t1;
1030 324891a5 2006-06-25 devnull USED(op);
1031 324891a5 2006-06-25 devnull obdst = bdst;
1032 324891a5 2006-06-25 devnull sadelta = bsrc.alpha == &ones ? 0 : bsrc.delta;
1033 4aad1a32 2009-04-30 rsc q = bsrc.delta == 4 && bdst.delta == 4 && chanmatch(&bdst, &bsrc);
1035 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
1036 324891a5 2006-06-25 devnull sa = *bsrc.alpha;
1037 324891a5 2006-06-25 devnull ma = *bmask.alpha;
1038 4aad1a32 2009-04-30 rsc fd = 255-CALC11(sa, ma, t);
1040 324891a5 2006-06-25 devnull if(grey){
1041 4aad1a32 2009-04-30 rsc *bdst.grey = CALC12(ma, *bsrc.grey, fd, *bdst.grey, t);
1042 324891a5 2006-06-25 devnull bsrc.grey += bsrc.delta;
1043 324891a5 2006-06-25 devnull bdst.grey += bdst.delta;
1046 4aad1a32 2009-04-30 rsc *bdst.rgba = CALC42(ma, *bsrc.rgba, fd, *bdst.rgba, t, t1);
1047 324891a5 2006-06-25 devnull bsrc.rgba++;
1048 324891a5 2006-06-25 devnull bdst.rgba++;
1049 324891a5 2006-06-25 devnull bsrc.alpha += sadelta;
1050 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
1051 324891a5 2006-06-25 devnull continue;
1053 4aad1a32 2009-04-30 rsc *bdst.red = CALC12(ma, *bsrc.red, fd, *bdst.red, t);
1054 4aad1a32 2009-04-30 rsc *bdst.grn = CALC12(ma, *bsrc.grn, fd, *bdst.grn, t);
1055 4aad1a32 2009-04-30 rsc *bdst.blu = CALC12(ma, *bsrc.blu, fd, *bdst.blu, t);
1056 324891a5 2006-06-25 devnull bsrc.red += bsrc.delta;
1057 324891a5 2006-06-25 devnull bsrc.blu += bsrc.delta;
1058 324891a5 2006-06-25 devnull bsrc.grn += bsrc.delta;
1059 324891a5 2006-06-25 devnull bdst.red += bdst.delta;
1060 324891a5 2006-06-25 devnull bdst.blu += bdst.delta;
1061 324891a5 2006-06-25 devnull bdst.grn += bdst.delta;
1063 324891a5 2006-06-25 devnull if(bdst.alpha != &ones){
1064 4aad1a32 2009-04-30 rsc *bdst.alpha = CALC12(ma, sa, fd, *bdst.alpha, t);
1065 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
1067 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
1068 324891a5 2006-06-25 devnull bsrc.alpha += sadelta;
1070 324891a5 2006-06-25 devnull return obdst;
1074 324891a5 2006-06-25 devnull not used yet
1075 324891a5 2006-06-25 devnull source and mask alpha 1
1076 324891a5 2006-06-25 devnull static Buffer
1077 324891a5 2006-06-25 devnull alphacalcS0(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
1079 324891a5 2006-06-25 devnull Buffer obdst;
1082 324891a5 2006-06-25 devnull USED(op);
1083 324891a5 2006-06-25 devnull obdst = bdst;
1084 324891a5 2006-06-25 devnull if(bsrc.delta == bdst.delta){
1085 324891a5 2006-06-25 devnull memmove(bdst.rgba, bsrc.rgba, dx*bdst.delta);
1086 324891a5 2006-06-25 devnull return obdst;
1088 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
1089 324891a5 2006-06-25 devnull if(grey){
1090 324891a5 2006-06-25 devnull *bdst.grey = *bsrc.grey;
1091 324891a5 2006-06-25 devnull bsrc.grey += bsrc.delta;
1092 324891a5 2006-06-25 devnull bdst.grey += bdst.delta;
1094 324891a5 2006-06-25 devnull *bdst.red = *bsrc.red;
1095 324891a5 2006-06-25 devnull *bdst.grn = *bsrc.grn;
1096 324891a5 2006-06-25 devnull *bdst.blu = *bsrc.blu;
1097 324891a5 2006-06-25 devnull bsrc.red += bsrc.delta;
1098 324891a5 2006-06-25 devnull bsrc.blu += bsrc.delta;
1099 324891a5 2006-06-25 devnull bsrc.grn += bsrc.delta;
1100 324891a5 2006-06-25 devnull bdst.red += bdst.delta;
1101 324891a5 2006-06-25 devnull bdst.blu += bdst.delta;
1102 324891a5 2006-06-25 devnull bdst.grn += bdst.delta;
1104 324891a5 2006-06-25 devnull if(bdst.alpha != &ones){
1105 324891a5 2006-06-25 devnull *bdst.alpha = 255;
1106 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
1109 324891a5 2006-06-25 devnull return obdst;
1113 324891a5 2006-06-25 devnull /* source alpha 1 */
1114 324891a5 2006-06-25 devnull static Buffer
1115 324891a5 2006-06-25 devnull alphacalcS(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
1117 324891a5 2006-06-25 devnull Buffer obdst;
1118 324891a5 2006-06-25 devnull int fd;
1119 324891a5 2006-06-25 devnull int i, ma;
1122 324891a5 2006-06-25 devnull USED(op);
1123 324891a5 2006-06-25 devnull obdst = bdst;
1125 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
1126 324891a5 2006-06-25 devnull ma = *bmask.alpha;
1127 324891a5 2006-06-25 devnull fd = 255-ma;
1129 324891a5 2006-06-25 devnull if(grey){
1130 4aad1a32 2009-04-30 rsc *bdst.grey = CALC12(ma, *bsrc.grey, fd, *bdst.grey, t);
1131 324891a5 2006-06-25 devnull bsrc.grey += bsrc.delta;
1132 324891a5 2006-06-25 devnull bdst.grey += bdst.delta;
1134 4aad1a32 2009-04-30 rsc *bdst.red = CALC12(ma, *bsrc.red, fd, *bdst.red, t);
1135 4aad1a32 2009-04-30 rsc *bdst.grn = CALC12(ma, *bsrc.grn, fd, *bdst.grn, t);
1136 4aad1a32 2009-04-30 rsc *bdst.blu = CALC12(ma, *bsrc.blu, fd, *bdst.blu, t);
1137 324891a5 2006-06-25 devnull bsrc.red += bsrc.delta;
1138 324891a5 2006-06-25 devnull bsrc.blu += bsrc.delta;
1139 324891a5 2006-06-25 devnull bsrc.grn += bsrc.delta;
1140 324891a5 2006-06-25 devnull bdst.red += bdst.delta;
1141 324891a5 2006-06-25 devnull bdst.blu += bdst.delta;
1142 324891a5 2006-06-25 devnull bdst.grn += bdst.delta;
1144 324891a5 2006-06-25 devnull if(bdst.alpha != &ones){
1145 4aad1a32 2009-04-30 rsc *bdst.alpha = ma+CALC11(fd, *bdst.alpha, t);
1146 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
1148 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
1150 324891a5 2006-06-25 devnull return obdst;
1153 324891a5 2006-06-25 devnull static Buffer
1154 324891a5 2006-06-25 devnull boolcalc14(Buffer bdst, Buffer b1, Buffer bmask, int dx, int grey, int op)
1156 324891a5 2006-06-25 devnull Buffer obdst;
1157 324891a5 2006-06-25 devnull int i, ma, zero;
1159 324891a5 2006-06-25 devnull obdst = bdst;
1161 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
1162 324891a5 2006-06-25 devnull ma = *bmask.alpha;
1163 324891a5 2006-06-25 devnull zero = ma ? op == DoutS : op == DinS;
1165 324891a5 2006-06-25 devnull if(grey){
1166 324891a5 2006-06-25 devnull if(zero)
1167 324891a5 2006-06-25 devnull *bdst.grey = 0;
1168 324891a5 2006-06-25 devnull bdst.grey += bdst.delta;
1170 324891a5 2006-06-25 devnull if(zero)
1171 324891a5 2006-06-25 devnull *bdst.red = *bdst.grn = *bdst.blu = 0;
1172 324891a5 2006-06-25 devnull bdst.red += bdst.delta;
1173 324891a5 2006-06-25 devnull bdst.blu += bdst.delta;
1174 324891a5 2006-06-25 devnull bdst.grn += bdst.delta;
1176 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
1177 324891a5 2006-06-25 devnull if(bdst.alpha != &ones){
1178 324891a5 2006-06-25 devnull if(zero)
1179 324891a5 2006-06-25 devnull *bdst.alpha = 0;
1180 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
1183 324891a5 2006-06-25 devnull return obdst;
1186 324891a5 2006-06-25 devnull static Buffer
1187 324891a5 2006-06-25 devnull boolcalc236789(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
1189 324891a5 2006-06-25 devnull Buffer obdst;
1190 324891a5 2006-06-25 devnull int fs, fd;
1191 324891a5 2006-06-25 devnull int i, ma, da, zero;
1194 324891a5 2006-06-25 devnull obdst = bdst;
1195 324891a5 2006-06-25 devnull zero = !(op&1);
1197 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
1198 324891a5 2006-06-25 devnull ma = *bmask.alpha;
1199 324891a5 2006-06-25 devnull da = *bdst.alpha;
1200 324891a5 2006-06-25 devnull fs = da;
1201 324891a5 2006-06-25 devnull if(op&2)
1202 324891a5 2006-06-25 devnull fs = 255-da;
1203 324891a5 2006-06-25 devnull fd = 0;
1204 324891a5 2006-06-25 devnull if(op&4)
1205 324891a5 2006-06-25 devnull fd = 255;
1207 324891a5 2006-06-25 devnull if(grey){
1209 4aad1a32 2009-04-30 rsc *bdst.grey = CALC12(fs, *bsrc.grey, fd, *bdst.grey, t);
1210 324891a5 2006-06-25 devnull else if(zero)
1211 324891a5 2006-06-25 devnull *bdst.grey = 0;
1212 324891a5 2006-06-25 devnull bsrc.grey += bsrc.delta;
1213 324891a5 2006-06-25 devnull bdst.grey += bdst.delta;
1215 324891a5 2006-06-25 devnull if(ma){
1216 4aad1a32 2009-04-30 rsc *bdst.red = CALC12(fs, *bsrc.red, fd, *bdst.red, t);
1217 4aad1a32 2009-04-30 rsc *bdst.grn = CALC12(fs, *bsrc.grn, fd, *bdst.grn, t);
1218 4aad1a32 2009-04-30 rsc *bdst.blu = CALC12(fs, *bsrc.blu, fd, *bdst.blu, t);
1220 324891a5 2006-06-25 devnull else if(zero)
1221 324891a5 2006-06-25 devnull *bdst.red = *bdst.grn = *bdst.blu = 0;
1222 324891a5 2006-06-25 devnull bsrc.red += bsrc.delta;
1223 324891a5 2006-06-25 devnull bsrc.blu += bsrc.delta;
1224 324891a5 2006-06-25 devnull bsrc.grn += bsrc.delta;
1225 324891a5 2006-06-25 devnull bdst.red += bdst.delta;
1226 324891a5 2006-06-25 devnull bdst.blu += bdst.delta;
1227 324891a5 2006-06-25 devnull bdst.grn += bdst.delta;
1229 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
1230 324891a5 2006-06-25 devnull if(bdst.alpha != &ones){
1232 4aad1a32 2009-04-30 rsc *bdst.alpha = fs+CALC11(fd, da, t);
1233 324891a5 2006-06-25 devnull else if(zero)
1234 324891a5 2006-06-25 devnull *bdst.alpha = 0;
1235 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
1238 324891a5 2006-06-25 devnull return obdst;
1241 324891a5 2006-06-25 devnull static Buffer
1242 324891a5 2006-06-25 devnull boolcalc1011(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int grey, int op)
1244 324891a5 2006-06-25 devnull Buffer obdst;
1245 324891a5 2006-06-25 devnull int i, ma, zero;
1247 324891a5 2006-06-25 devnull obdst = bdst;
1248 324891a5 2006-06-25 devnull zero = !(op&1);
1250 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
1251 324891a5 2006-06-25 devnull ma = *bmask.alpha;
1253 324891a5 2006-06-25 devnull if(grey){
1255 324891a5 2006-06-25 devnull *bdst.grey = *bsrc.grey;
1256 324891a5 2006-06-25 devnull else if(zero)
1257 324891a5 2006-06-25 devnull *bdst.grey = 0;
1258 324891a5 2006-06-25 devnull bsrc.grey += bsrc.delta;
1259 324891a5 2006-06-25 devnull bdst.grey += bdst.delta;
1261 324891a5 2006-06-25 devnull if(ma){
1262 324891a5 2006-06-25 devnull *bdst.red = *bsrc.red;
1263 324891a5 2006-06-25 devnull *bdst.grn = *bsrc.grn;
1264 324891a5 2006-06-25 devnull *bdst.blu = *bsrc.blu;
1266 324891a5 2006-06-25 devnull else if(zero)
1267 324891a5 2006-06-25 devnull *bdst.red = *bdst.grn = *bdst.blu = 0;
1268 324891a5 2006-06-25 devnull bsrc.red += bsrc.delta;
1269 324891a5 2006-06-25 devnull bsrc.blu += bsrc.delta;
1270 324891a5 2006-06-25 devnull bsrc.grn += bsrc.delta;
1271 324891a5 2006-06-25 devnull bdst.red += bdst.delta;
1272 324891a5 2006-06-25 devnull bdst.blu += bdst.delta;
1273 324891a5 2006-06-25 devnull bdst.grn += bdst.delta;
1275 324891a5 2006-06-25 devnull bmask.alpha += bmask.delta;
1276 324891a5 2006-06-25 devnull if(bdst.alpha != &ones){
1278 324891a5 2006-06-25 devnull *bdst.alpha = 255;
1279 324891a5 2006-06-25 devnull else if(zero)
1280 324891a5 2006-06-25 devnull *bdst.alpha = 0;
1281 324891a5 2006-06-25 devnull bdst.alpha += bdst.delta;
1284 324891a5 2006-06-25 devnull return obdst;
1287 324891a5 2006-06-25 devnull * Replicated cached scan line read. Call the function listed in the Param,
1288 324891a5 2006-06-25 devnull * but cache the result so that for replicated images we only do the work once.
1290 324891a5 2006-06-25 devnull static Buffer
1291 324891a5 2006-06-25 devnull replread(Param *p, uchar *s, int y)
1293 324891a5 2006-06-25 devnull Buffer *b;
1295 324891a5 2006-06-25 devnull USED(s);
1296 324891a5 2006-06-25 devnull b = &p->bcache[y];
1297 324891a5 2006-06-25 devnull if((p->bfilled & (1<<y)) == 0){
1298 324891a5 2006-06-25 devnull p->bfilled |= 1<<y;
1299 324891a5 2006-06-25 devnull *b = p->replcall(p, p->bufbase+y*p->bufdelta, y);
1301 324891a5 2006-06-25 devnull return *b;
1305 324891a5 2006-06-25 devnull * Alpha reading function that simply relabels the grey pointer.
1307 324891a5 2006-06-25 devnull static Buffer
1308 324891a5 2006-06-25 devnull greymaskread(Param *p, uchar *buf, int y)
1310 324891a5 2006-06-25 devnull Buffer b;
1312 324891a5 2006-06-25 devnull b = p->greymaskcall(p, buf, y);
1313 324891a5 2006-06-25 devnull b.alpha = b.grey;
1314 324891a5 2006-06-25 devnull return b;
1317 324891a5 2006-06-25 devnull #define DBG if(0)
1318 324891a5 2006-06-25 devnull static Buffer
1319 324891a5 2006-06-25 devnull readnbit(Param *p, uchar *buf, int y)
1321 324891a5 2006-06-25 devnull Buffer b;
1322 324891a5 2006-06-25 devnull Memimage *img;
1323 324891a5 2006-06-25 devnull uchar *repl, *r, *w, *ow, bits;
1324 324891a5 2006-06-25 devnull int i, n, sh, depth, x, dx, npack, nbits;
1326 324891a5 2006-06-25 devnull memset(&b, 0, sizeof b);
1327 324891a5 2006-06-25 devnull b.rgba = (u32int*)buf;
1328 324891a5 2006-06-25 devnull b.grey = w = buf;
1329 324891a5 2006-06-25 devnull b.red = b.blu = b.grn = w;
1330 324891a5 2006-06-25 devnull b.alpha = &ones;
1331 324891a5 2006-06-25 devnull b.delta = 1;
1333 324891a5 2006-06-25 devnull dx = p->dx;
1334 324891a5 2006-06-25 devnull img = p->img;
1335 324891a5 2006-06-25 devnull depth = img->depth;
1336 324891a5 2006-06-25 devnull repl = &replbit[depth][0];
1337 324891a5 2006-06-25 devnull npack = 8/depth;
1338 324891a5 2006-06-25 devnull sh = 8-depth;
1340 324891a5 2006-06-25 devnull /* copy from p->r.min.x until end of repl rectangle */
1341 324891a5 2006-06-25 devnull x = p->r.min.x;
1342 324891a5 2006-06-25 devnull n = dx;
1343 324891a5 2006-06-25 devnull if(n > p->img->r.max.x - x)
1344 324891a5 2006-06-25 devnull n = p->img->r.max.x - x;
1346 324891a5 2006-06-25 devnull r = p->bytermin + y*p->bwidth;
1347 324891a5 2006-06-25 devnull DBG print("readnbit dx %d %p=%p+%d*%d, *r=%d fetch %d ", dx, r, p->bytermin, y, p->bwidth, *r, n);
1348 324891a5 2006-06-25 devnull bits = *r++;
1349 324891a5 2006-06-25 devnull nbits = 8;
1350 324891a5 2006-06-25 devnull if(i=x&(npack-1)){
1351 324891a5 2006-06-25 devnull DBG print("throwaway %d...", i);
1352 324891a5 2006-06-25 devnull bits <<= depth*i;
1353 324891a5 2006-06-25 devnull nbits -= depth*i;
1355 324891a5 2006-06-25 devnull for(i=0; i<n; i++){
1356 324891a5 2006-06-25 devnull if(nbits == 0){
1357 324891a5 2006-06-25 devnull DBG print("(%.2ux)...", *r);
1358 324891a5 2006-06-25 devnull bits = *r++;
1359 324891a5 2006-06-25 devnull nbits = 8;
1361 324891a5 2006-06-25 devnull *w++ = repl[bits>>sh];
1362 324891a5 2006-06-25 devnull DBG print("bit %x...", repl[bits>>sh]);
1363 324891a5 2006-06-25 devnull bits <<= depth;
1364 324891a5 2006-06-25 devnull nbits -= depth;
1366 324891a5 2006-06-25 devnull dx -= n;
1367 324891a5 2006-06-25 devnull if(dx == 0)
1368 324891a5 2006-06-25 devnull return b;
1370 324891a5 2006-06-25 devnull assert(x+i == p->img->r.max.x);
1372 324891a5 2006-06-25 devnull /* copy from beginning of repl rectangle until where we were before. */
1373 324891a5 2006-06-25 devnull x = p->img->r.min.x;
1374 324891a5 2006-06-25 devnull n = dx;
1375 324891a5 2006-06-25 devnull if(n > p->r.min.x - x)
1376 324891a5 2006-06-25 devnull n = p->r.min.x - x;
1378 324891a5 2006-06-25 devnull r = p->bytey0s + y*p->bwidth;
1379 324891a5 2006-06-25 devnull DBG print("x=%d r=%p...", x, r);
1380 324891a5 2006-06-25 devnull bits = *r++;
1381 324891a5 2006-06-25 devnull nbits = 8;
1382 324891a5 2006-06-25 devnull if(i=x&(npack-1)){
1383 324891a5 2006-06-25 devnull bits <<= depth*i;
1384 324891a5 2006-06-25 devnull nbits -= depth*i;
1386 324891a5 2006-06-25 devnull DBG print("nbits=%d...", nbits);
1387 324891a5 2006-06-25 devnull for(i=0; i<n; i++){
1388 324891a5 2006-06-25 devnull if(nbits == 0){
1389 324891a5 2006-06-25 devnull bits = *r++;
1390 324891a5 2006-06-25 devnull nbits = 8;
1392 324891a5 2006-06-25 devnull *w++ = repl[bits>>sh];
1393 324891a5 2006-06-25 devnull DBG print("bit %x...", repl[bits>>sh]);
1394 324891a5 2006-06-25 devnull bits <<= depth;
1395 324891a5 2006-06-25 devnull nbits -= depth;
1396 324891a5 2006-06-25 devnull DBG print("bits %x nbits %d...", bits, nbits);
1398 324891a5 2006-06-25 devnull dx -= n;
1399 324891a5 2006-06-25 devnull if(dx == 0)
1400 324891a5 2006-06-25 devnull return b;
1402 324891a5 2006-06-25 devnull assert(dx > 0);
1403 324891a5 2006-06-25 devnull /* now we have exactly one full scan line: just replicate the buffer itself until we are done */
1404 324891a5 2006-06-25 devnull ow = buf;
1405 324891a5 2006-06-25 devnull while(dx--)
1406 324891a5 2006-06-25 devnull *w++ = *ow++;
1408 324891a5 2006-06-25 devnull return b;
1410 324891a5 2006-06-25 devnull #undef DBG
1412 324891a5 2006-06-25 devnull #define DBG if(0)
1413 324891a5 2006-06-25 devnull static void
1414 324891a5 2006-06-25 devnull writenbit(Param *p, uchar *w, Buffer src)
1416 324891a5 2006-06-25 devnull uchar *r;
1417 324891a5 2006-06-25 devnull u32int bits;
1418 324891a5 2006-06-25 devnull int i, sh, depth, npack, nbits, x, ex;
1420 324891a5 2006-06-25 devnull assert(src.grey != nil && src.delta == 1);
1422 324891a5 2006-06-25 devnull x = p->r.min.x;
1423 324891a5 2006-06-25 devnull ex = x+p->dx;
1424 324891a5 2006-06-25 devnull depth = p->img->depth;
1425 324891a5 2006-06-25 devnull npack = 8/depth;
1427 324891a5 2006-06-25 devnull i=x&(npack-1);
1428 324891a5 2006-06-25 devnull bits = i ? (*w >> (8-depth*i)) : 0;
1429 324891a5 2006-06-25 devnull nbits = depth*i;
1430 324891a5 2006-06-25 devnull sh = 8-depth;
1431 324891a5 2006-06-25 devnull r = src.grey;
1433 324891a5 2006-06-25 devnull for(; x<ex; x++){
1434 324891a5 2006-06-25 devnull bits <<= depth;
1435 324891a5 2006-06-25 devnull DBG print(" %x", *r);
1436 324891a5 2006-06-25 devnull bits |= (*r++ >> sh);
1437 324891a5 2006-06-25 devnull nbits += depth;
1438 324891a5 2006-06-25 devnull if(nbits == 8){
1439 324891a5 2006-06-25 devnull *w++ = bits;
1440 324891a5 2006-06-25 devnull nbits = 0;
1444 324891a5 2006-06-25 devnull if(nbits){
1445 324891a5 2006-06-25 devnull sh = 8-nbits;
1446 324891a5 2006-06-25 devnull bits <<= sh;
1447 324891a5 2006-06-25 devnull bits |= *w & ((1<<sh)-1);
1448 324891a5 2006-06-25 devnull *w = bits;
1450 324891a5 2006-06-25 devnull DBG print("\n");
1451 324891a5 2006-06-25 devnull return;
1453 324891a5 2006-06-25 devnull #undef DBG
1455 324891a5 2006-06-25 devnull static Buffer
1456 324891a5 2006-06-25 devnull readcmap(Param *p, uchar *buf, int y)
1458 324891a5 2006-06-25 devnull Buffer b;
1459 324891a5 2006-06-25 devnull int a, convgrey, copyalpha, dx, i, m;
1460 324891a5 2006-06-25 devnull uchar *q, *cmap, *begin, *end, *r, *w;
1462 324891a5 2006-06-25 devnull memset(&b, 0, sizeof b);
1463 324891a5 2006-06-25 devnull begin = p->bytey0s + y*p->bwidth;
1464 324891a5 2006-06-25 devnull r = p->bytermin + y*p->bwidth;
1465 324891a5 2006-06-25 devnull end = p->bytey0e + y*p->bwidth;
1466 324891a5 2006-06-25 devnull cmap = p->img->cmap->cmap2rgb;
1467 324891a5 2006-06-25 devnull convgrey = p->convgrey;
1468 324891a5 2006-06-25 devnull copyalpha = (p->img->flags&Falpha) ? 1 : 0;
1470 324891a5 2006-06-25 devnull w = buf;
1471 324891a5 2006-06-25 devnull dx = p->dx;
1472 324891a5 2006-06-25 devnull if(copyalpha){
1473 324891a5 2006-06-25 devnull b.alpha = buf++;
1474 324891a5 2006-06-25 devnull a = p->img->shift[CAlpha]/8;
1475 324891a5 2006-06-25 devnull m = p->img->shift[CMap]/8;
1476 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
1477 324891a5 2006-06-25 devnull *w++ = r[a];
1478 324891a5 2006-06-25 devnull q = cmap+r[m]*3;
1479 324891a5 2006-06-25 devnull r += 2;
1480 324891a5 2006-06-25 devnull if(r == end)
1481 324891a5 2006-06-25 devnull r = begin;
1482 324891a5 2006-06-25 devnull if(convgrey){
1483 324891a5 2006-06-25 devnull *w++ = RGB2K(q[0], q[1], q[2]);
1485 324891a5 2006-06-25 devnull *w++ = q[2]; /* blue */
1486 324891a5 2006-06-25 devnull *w++ = q[1]; /* green */
1487 324891a5 2006-06-25 devnull *w++ = q[0]; /* red */
1491 324891a5 2006-06-25 devnull b.alpha = &ones;
1492 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
1493 324891a5 2006-06-25 devnull q = cmap+*r++*3;
1494 324891a5 2006-06-25 devnull if(r == end)
1495 324891a5 2006-06-25 devnull r = begin;
1496 324891a5 2006-06-25 devnull if(convgrey){
1497 324891a5 2006-06-25 devnull *w++ = RGB2K(q[0], q[1], q[2]);
1499 324891a5 2006-06-25 devnull *w++ = q[2]; /* blue */
1500 324891a5 2006-06-25 devnull *w++ = q[1]; /* green */
1501 324891a5 2006-06-25 devnull *w++ = q[0]; /* red */
1506 324891a5 2006-06-25 devnull b.rgba = (u32int*)(buf-copyalpha);
1508 324891a5 2006-06-25 devnull if(convgrey){
1509 324891a5 2006-06-25 devnull b.grey = buf;
1510 324891a5 2006-06-25 devnull b.red = b.blu = b.grn = buf;
1511 324891a5 2006-06-25 devnull b.delta = 1+copyalpha;
1513 324891a5 2006-06-25 devnull b.blu = buf;
1514 324891a5 2006-06-25 devnull b.grn = buf+1;
1515 324891a5 2006-06-25 devnull b.red = buf+2;
1516 324891a5 2006-06-25 devnull b.grey = nil;
1517 324891a5 2006-06-25 devnull b.delta = 3+copyalpha;
1519 324891a5 2006-06-25 devnull return b;
1522 324891a5 2006-06-25 devnull static void
1523 324891a5 2006-06-25 devnull writecmap(Param *p, uchar *w, Buffer src)
1525 324891a5 2006-06-25 devnull uchar *cmap, *red, *grn, *blu;
1526 324891a5 2006-06-25 devnull int i, dx, delta;
1528 324891a5 2006-06-25 devnull cmap = p->img->cmap->rgb2cmap;
1530 324891a5 2006-06-25 devnull delta = src.delta;
1531 324891a5 2006-06-25 devnull red= src.red;
1532 324891a5 2006-06-25 devnull grn = src.grn;
1533 324891a5 2006-06-25 devnull blu = src.blu;
1535 324891a5 2006-06-25 devnull dx = p->dx;
1536 324891a5 2006-06-25 devnull for(i=0; i<dx; i++, red+=delta, grn+=delta, blu+=delta)
1537 324891a5 2006-06-25 devnull *w++ = cmap[(*red>>4)*256+(*grn>>4)*16+(*blu>>4)];
1540 324891a5 2006-06-25 devnull #define DBG if(drawdebug)
1541 324891a5 2006-06-25 devnull static Buffer
1542 324891a5 2006-06-25 devnull readbyte(Param *p, uchar *buf, int y)
1544 324891a5 2006-06-25 devnull Buffer b;
1545 324891a5 2006-06-25 devnull Memimage *img;
1546 324891a5 2006-06-25 devnull int dx, isgrey, convgrey, alphaonly, copyalpha, i, nb;
1547 324891a5 2006-06-25 devnull uchar *begin, *end, *r, *w, *rrepl, *grepl, *brepl, *arepl, *krepl;
1548 324891a5 2006-06-25 devnull uchar ured, ugrn, ublu;
1549 324891a5 2006-06-25 devnull u32int u;
1551 324891a5 2006-06-25 devnull img = p->img;
1552 324891a5 2006-06-25 devnull begin = p->bytey0s + y*p->bwidth;
1553 324891a5 2006-06-25 devnull r = p->bytermin + y*p->bwidth;
1554 324891a5 2006-06-25 devnull end = p->bytey0e + y*p->bwidth;
1556 324891a5 2006-06-25 devnull w = buf;
1557 324891a5 2006-06-25 devnull dx = p->dx;
1558 324891a5 2006-06-25 devnull nb = img->depth/8;
1560 324891a5 2006-06-25 devnull convgrey = p->convgrey; /* convert rgb to grey */
1561 324891a5 2006-06-25 devnull isgrey = img->flags&Fgrey;
1562 324891a5 2006-06-25 devnull alphaonly = p->alphaonly;
1563 324891a5 2006-06-25 devnull copyalpha = (img->flags&Falpha) ? 1 : 0;
1565 324891a5 2006-06-25 devnull /* if we can, avoid processing everything */
1566 324891a5 2006-06-25 devnull if(!(img->flags&Frepl) && !convgrey && (img->flags&Fbytes)){
1567 324891a5 2006-06-25 devnull memset(&b, 0, sizeof b);
1568 324891a5 2006-06-25 devnull if(p->needbuf){
1569 324891a5 2006-06-25 devnull memmove(buf, r, dx*nb);
1570 324891a5 2006-06-25 devnull r = buf;
1572 324891a5 2006-06-25 devnull b.rgba = (u32int*)r;
1573 324891a5 2006-06-25 devnull if(copyalpha)
1574 324891a5 2006-06-25 devnull b.alpha = r+img->shift[CAlpha]/8;
1576 324891a5 2006-06-25 devnull b.alpha = &ones;
1577 324891a5 2006-06-25 devnull if(isgrey){
1578 324891a5 2006-06-25 devnull b.grey = r+img->shift[CGrey]/8;
1579 324891a5 2006-06-25 devnull b.red = b.grn = b.blu = b.grey;
1581 324891a5 2006-06-25 devnull b.red = r+img->shift[CRed]/8;
1582 324891a5 2006-06-25 devnull b.grn = r+img->shift[CGreen]/8;
1583 324891a5 2006-06-25 devnull b.blu = r+img->shift[CBlue]/8;
1585 324891a5 2006-06-25 devnull b.delta = nb;
1586 324891a5 2006-06-25 devnull return b;
1589 324891a5 2006-06-25 devnull rrepl = replbit[img->nbits[CRed]];
1590 324891a5 2006-06-25 devnull grepl = replbit[img->nbits[CGreen]];
1591 324891a5 2006-06-25 devnull brepl = replbit[img->nbits[CBlue]];
1592 324891a5 2006-06-25 devnull arepl = replbit[img->nbits[CAlpha]];
1593 324891a5 2006-06-25 devnull krepl = replbit[img->nbits[CGrey]];
1595 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
1596 324891a5 2006-06-25 devnull u = r[0] | (r[1]<<8) | (r[2]<<16) | (r[3]<<24);
1597 324891a5 2006-06-25 devnull if(copyalpha)
1598 324891a5 2006-06-25 devnull *w++ = arepl[(u>>img->shift[CAlpha]) & img->mask[CAlpha]];
1600 324891a5 2006-06-25 devnull if(isgrey)
1601 324891a5 2006-06-25 devnull *w++ = krepl[(u >> img->shift[CGrey]) & img->mask[CGrey]];
1602 324891a5 2006-06-25 devnull else if(!alphaonly){
1603 324891a5 2006-06-25 devnull ured = rrepl[(u >> img->shift[CRed]) & img->mask[CRed]];
1604 324891a5 2006-06-25 devnull ugrn = grepl[(u >> img->shift[CGreen]) & img->mask[CGreen]];
1605 324891a5 2006-06-25 devnull ublu = brepl[(u >> img->shift[CBlue]) & img->mask[CBlue]];
1606 324891a5 2006-06-25 devnull if(convgrey){
1607 324891a5 2006-06-25 devnull *w++ = RGB2K(ured, ugrn, ublu);
1609 324891a5 2006-06-25 devnull *w++ = brepl[(u >> img->shift[CBlue]) & img->mask[CBlue]];
1610 324891a5 2006-06-25 devnull *w++ = grepl[(u >> img->shift[CGreen]) & img->mask[CGreen]];
1611 324891a5 2006-06-25 devnull *w++ = rrepl[(u >> img->shift[CRed]) & img->mask[CRed]];
1614 324891a5 2006-06-25 devnull r += nb;
1615 324891a5 2006-06-25 devnull if(r == end)
1616 324891a5 2006-06-25 devnull r = begin;
1619 324891a5 2006-06-25 devnull b.alpha = copyalpha ? buf : &ones;
1620 324891a5 2006-06-25 devnull b.rgba = (u32int*)buf;
1621 324891a5 2006-06-25 devnull if(alphaonly){
1622 324891a5 2006-06-25 devnull b.red = b.grn = b.blu = b.grey = nil;
1623 324891a5 2006-06-25 devnull if(!copyalpha)
1624 324891a5 2006-06-25 devnull b.rgba = nil;
1625 324891a5 2006-06-25 devnull b.delta = 1;
1626 324891a5 2006-06-25 devnull }else if(isgrey || convgrey){
1627 324891a5 2006-06-25 devnull b.grey = buf+copyalpha;
1628 324891a5 2006-06-25 devnull b.red = b.grn = b.blu = buf+copyalpha;
1629 324891a5 2006-06-25 devnull b.delta = copyalpha+1;
1631 324891a5 2006-06-25 devnull b.blu = buf+copyalpha;
1632 324891a5 2006-06-25 devnull b.grn = buf+copyalpha+1;
1633 324891a5 2006-06-25 devnull b.grey = nil;
1634 324891a5 2006-06-25 devnull b.red = buf+copyalpha+2;
1635 324891a5 2006-06-25 devnull b.delta = copyalpha+3;
1637 324891a5 2006-06-25 devnull return b;
1639 324891a5 2006-06-25 devnull #undef DBG
1641 324891a5 2006-06-25 devnull #define DBG if(drawdebug)
1642 324891a5 2006-06-25 devnull static void
1643 324891a5 2006-06-25 devnull writebyte(Param *p, uchar *w, Buffer src)
1645 324891a5 2006-06-25 devnull Memimage *img;
1646 324891a5 2006-06-25 devnull int i, isalpha, isgrey, nb, delta, dx, adelta;
1647 324891a5 2006-06-25 devnull uchar ff, *red, *grn, *blu, *grey, *alpha;
1648 324891a5 2006-06-25 devnull u32int u, mask;
1650 324891a5 2006-06-25 devnull img = p->img;
1652 324891a5 2006-06-25 devnull red = src.red;
1653 324891a5 2006-06-25 devnull grn = src.grn;
1654 324891a5 2006-06-25 devnull blu = src.blu;
1655 324891a5 2006-06-25 devnull alpha = src.alpha;
1656 324891a5 2006-06-25 devnull delta = src.delta;
1657 324891a5 2006-06-25 devnull grey = src.grey;
1658 324891a5 2006-06-25 devnull dx = p->dx;
1660 324891a5 2006-06-25 devnull nb = img->depth/8;
1661 324891a5 2006-06-25 devnull mask = (nb==4) ? 0 : ~((1<<img->depth)-1);
1663 324891a5 2006-06-25 devnull isalpha = img->flags&Falpha;
1664 324891a5 2006-06-25 devnull isgrey = img->flags&Fgrey;
1665 324891a5 2006-06-25 devnull adelta = src.delta;
1667 324891a5 2006-06-25 devnull if(isalpha && (alpha == nil || alpha == &ones)){
1668 324891a5 2006-06-25 devnull ff = 0xFF;
1669 324891a5 2006-06-25 devnull alpha = &ff;
1670 324891a5 2006-06-25 devnull adelta = 0;
1673 324891a5 2006-06-25 devnull for(i=0; i<dx; i++){
1674 324891a5 2006-06-25 devnull u = w[0] | (w[1]<<8) | (w[2]<<16) | (w[3]<<24);
1675 324891a5 2006-06-25 devnull DBG print("u %.8lux...", u);
1676 324891a5 2006-06-25 devnull u &= mask;
1677 324891a5 2006-06-25 devnull DBG print("&mask %.8lux...", u);
1678 324891a5 2006-06-25 devnull if(isgrey){
1679 324891a5 2006-06-25 devnull u |= ((*grey >> (8-img->nbits[CGrey])) & img->mask[CGrey]) << img->shift[CGrey];
1680 324891a5 2006-06-25 devnull DBG print("|grey %.8lux...", u);
1681 324891a5 2006-06-25 devnull grey += delta;
1683 324891a5 2006-06-25 devnull u |= ((*red >> (8-img->nbits[CRed])) & img->mask[CRed]) << img->shift[CRed];
1684 324891a5 2006-06-25 devnull u |= ((*grn >> (8-img->nbits[CGreen])) & img->mask[CGreen]) << img->shift[CGreen];
1685 324891a5 2006-06-25 devnull u |= ((*blu >> (8-img->nbits[CBlue])) & img->mask[CBlue]) << img->shift[CBlue];
1686 324891a5 2006-06-25 devnull red += delta;
1687 324891a5 2006-06-25 devnull grn += delta;
1688 324891a5 2006-06-25 devnull blu += delta;
1689 324891a5 2006-06-25 devnull DBG print("|rgb %.8lux...", u);
1692 324891a5 2006-06-25 devnull if(isalpha){
1693 324891a5 2006-06-25 devnull u |= ((*alpha >> (8-img->nbits[CAlpha])) & img->mask[CAlpha]) << img->shift[CAlpha];
1694 324891a5 2006-06-25 devnull alpha += adelta;
1695 324891a5 2006-06-25 devnull DBG print("|alpha %.8lux...", u);
1698 324891a5 2006-06-25 devnull w[0] = u;
1699 324891a5 2006-06-25 devnull w[1] = u>>8;
1700 324891a5 2006-06-25 devnull w[2] = u>>16;
1701 324891a5 2006-06-25 devnull w[3] = u>>24;
1702 324891a5 2006-06-25 devnull DBG print("write back %.8lux...", u);
1703 324891a5 2006-06-25 devnull w += nb;
1706 324891a5 2006-06-25 devnull #undef DBG
1708 324891a5 2006-06-25 devnull static Readfn*
1709 324891a5 2006-06-25 devnull readfn(Memimage *img)
1711 324891a5 2006-06-25 devnull if(img->depth < 8)
1712 324891a5 2006-06-25 devnull return readnbit;
1713 324891a5 2006-06-25 devnull if(img->nbits[CMap] == 8)
1714 324891a5 2006-06-25 devnull return readcmap;
1715 324891a5 2006-06-25 devnull return readbyte;
1718 324891a5 2006-06-25 devnull static Readfn*
1719 324891a5 2006-06-25 devnull readalphafn(Memimage *m)
1721 324891a5 2006-06-25 devnull USED(m);
1722 324891a5 2006-06-25 devnull return readbyte;
1725 324891a5 2006-06-25 devnull static Writefn*
1726 324891a5 2006-06-25 devnull writefn(Memimage *img)
1728 324891a5 2006-06-25 devnull if(img->depth < 8)
1729 324891a5 2006-06-25 devnull return writenbit;
1730 324891a5 2006-06-25 devnull if(img->chan == CMAP8)
1731 324891a5 2006-06-25 devnull return writecmap;
1732 324891a5 2006-06-25 devnull return writebyte;
1735 324891a5 2006-06-25 devnull static void
1736 324891a5 2006-06-25 devnull nullwrite(Param *p, uchar *s, Buffer b)
1738 324891a5 2006-06-25 devnull USED(p);
1739 324891a5 2006-06-25 devnull USED(s);
1742 324891a5 2006-06-25 devnull static Buffer
1743 324891a5 2006-06-25 devnull readptr(Param *p, uchar *s, int y)
1745 324891a5 2006-06-25 devnull Buffer b;
1746 324891a5 2006-06-25 devnull uchar *q;
1748 324891a5 2006-06-25 devnull USED(s);
1749 324891a5 2006-06-25 devnull memset(&b, 0, sizeof b);
1750 324891a5 2006-06-25 devnull q = p->bytermin + y*p->bwidth;
1751 324891a5 2006-06-25 devnull b.red = q; /* ptr to data */
1752 324891a5 2006-06-25 devnull b.grn = b.blu = b.grey = b.alpha = nil;
1753 324891a5 2006-06-25 devnull b.rgba = (u32int*)q;
1754 324891a5 2006-06-25 devnull b.delta = p->img->depth/8;
1755 324891a5 2006-06-25 devnull return b;
1758 324891a5 2006-06-25 devnull static Buffer
1759 324891a5 2006-06-25 devnull boolmemmove(Buffer bdst, Buffer bsrc, Buffer b1, int dx, int i, int o)
1761 324891a5 2006-06-25 devnull USED(i);
1762 324891a5 2006-06-25 devnull USED(o);
1763 324891a5 2006-06-25 devnull memmove(bdst.red, bsrc.red, dx*bdst.delta);
1764 324891a5 2006-06-25 devnull return bdst;
1767 324891a5 2006-06-25 devnull static Buffer
1768 324891a5 2006-06-25 devnull boolcopy8(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int i, int o)
1770 324891a5 2006-06-25 devnull uchar *m, *r, *w, *ew;
1772 324891a5 2006-06-25 devnull USED(i);
1773 324891a5 2006-06-25 devnull USED(o);
1774 324891a5 2006-06-25 devnull m = bmask.grey;
1775 324891a5 2006-06-25 devnull w = bdst.red;
1776 324891a5 2006-06-25 devnull r = bsrc.red;
1777 324891a5 2006-06-25 devnull ew = w+dx;
1778 324891a5 2006-06-25 devnull for(; w < ew; w++,r++)
1779 324891a5 2006-06-25 devnull if(*m++)
1780 324891a5 2006-06-25 devnull *w = *r;
1781 324891a5 2006-06-25 devnull return bdst; /* not used */
1784 324891a5 2006-06-25 devnull static Buffer
1785 324891a5 2006-06-25 devnull boolcopy16(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int i, int o)
1787 324891a5 2006-06-25 devnull uchar *m;
1788 324891a5 2006-06-25 devnull ushort *r, *w, *ew;
1790 324891a5 2006-06-25 devnull USED(i);
1791 324891a5 2006-06-25 devnull USED(o);
1792 324891a5 2006-06-25 devnull m = bmask.grey;
1793 324891a5 2006-06-25 devnull w = (ushort*)bdst.red;
1794 324891a5 2006-06-25 devnull r = (ushort*)bsrc.red;
1795 324891a5 2006-06-25 devnull ew = w+dx;
1796 324891a5 2006-06-25 devnull for(; w < ew; w++,r++)
1797 324891a5 2006-06-25 devnull if(*m++)
1798 324891a5 2006-06-25 devnull *w = *r;
1799 324891a5 2006-06-25 devnull return bdst; /* not used */
1802 324891a5 2006-06-25 devnull static Buffer
1803 324891a5 2006-06-25 devnull boolcopy24(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int i, int o)
1805 324891a5 2006-06-25 devnull uchar *m;
1806 324891a5 2006-06-25 devnull uchar *r, *w, *ew;
1808 324891a5 2006-06-25 devnull USED(i);
1809 324891a5 2006-06-25 devnull USED(o);
1810 324891a5 2006-06-25 devnull m = bmask.grey;
1811 324891a5 2006-06-25 devnull w = bdst.red;
1812 324891a5 2006-06-25 devnull r = bsrc.red;
1813 324891a5 2006-06-25 devnull ew = w+dx*3;
1814 324891a5 2006-06-25 devnull while(w < ew){
1815 324891a5 2006-06-25 devnull if(*m++){
1816 324891a5 2006-06-25 devnull *w++ = *r++;
1817 324891a5 2006-06-25 devnull *w++ = *r++;
1818 324891a5 2006-06-25 devnull *w++ = *r++;
1820 324891a5 2006-06-25 devnull w += 3;
1821 324891a5 2006-06-25 devnull r += 3;
1824 324891a5 2006-06-25 devnull return bdst; /* not used */
1827 324891a5 2006-06-25 devnull static Buffer
1828 324891a5 2006-06-25 devnull boolcopy32(Buffer bdst, Buffer bsrc, Buffer bmask, int dx, int i, int o)
1830 324891a5 2006-06-25 devnull uchar *m;
1831 324891a5 2006-06-25 devnull u32int *r, *w, *ew;
1833 324891a5 2006-06-25 devnull USED(i);
1834 324891a5 2006-06-25 devnull USED(o);
1835 324891a5 2006-06-25 devnull m = bmask.grey;
1836 324891a5 2006-06-25 devnull w = (u32int*)bdst.red;
1837 324891a5 2006-06-25 devnull r = (u32int*)bsrc.red;
1838 324891a5 2006-06-25 devnull ew = w+dx;
1839 324891a5 2006-06-25 devnull for(; w < ew; w++,r++)
1840 324891a5 2006-06-25 devnull if(*m++)
1841 324891a5 2006-06-25 devnull *w = *r;
1842 324891a5 2006-06-25 devnull return bdst; /* not used */
1845 324891a5 2006-06-25 devnull static Buffer
1846 324891a5 2006-06-25 devnull genconv(Param *p, uchar *buf, int y)
1848 324891a5 2006-06-25 devnull Buffer b;
1849 324891a5 2006-06-25 devnull int nb;
1850 324891a5 2006-06-25 devnull uchar *r, *w, *ew;
1852 324891a5 2006-06-25 devnull /* read from source into RGB format in convbuf */
1853 324891a5 2006-06-25 devnull b = p->convreadcall(p, p->convbuf, y);
1855 324891a5 2006-06-25 devnull /* write RGB format into dst format in buf */
1856 324891a5 2006-06-25 devnull p->convwritecall(p->convdpar, buf, b);
1858 324891a5 2006-06-25 devnull if(p->convdx){
1859 324891a5 2006-06-25 devnull nb = p->convdpar->img->depth/8;
1860 324891a5 2006-06-25 devnull r = buf;
1861 324891a5 2006-06-25 devnull w = buf+nb*p->dx;
1862 324891a5 2006-06-25 devnull ew = buf+nb*p->convdx;
1863 324891a5 2006-06-25 devnull while(w<ew)
1864 324891a5 2006-06-25 devnull *w++ = *r++;
1867 324891a5 2006-06-25 devnull b.red = buf;
1868 324891a5 2006-06-25 devnull b.blu = b.grn = b.grey = b.alpha = nil;
1869 324891a5 2006-06-25 devnull b.rgba = (u32int*)buf;
1870 324891a5 2006-06-25 devnull b.delta = 0;
1872 324891a5 2006-06-25 devnull return b;
1875 324891a5 2006-06-25 devnull static Readfn*
1876 324891a5 2006-06-25 devnull convfn(Memimage *dst, Param *dpar, Memimage *src, Param *spar)
1878 324891a5 2006-06-25 devnull if(dst->chan == src->chan && !(src->flags&Frepl)){
1879 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("readptr..."); */
1880 324891a5 2006-06-25 devnull return readptr;
1883 324891a5 2006-06-25 devnull if(dst->chan==CMAP8 && (src->chan==GREY1||src->chan==GREY2||src->chan==GREY4)){
1884 324891a5 2006-06-25 devnull /* cheat because we know the replicated value is exactly the color map entry. */
1885 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("Readnbit..."); */
1886 324891a5 2006-06-25 devnull return readnbit;
1889 324891a5 2006-06-25 devnull spar->convreadcall = readfn(src);
1890 324891a5 2006-06-25 devnull spar->convwritecall = writefn(dst);
1891 324891a5 2006-06-25 devnull spar->convdpar = dpar;
1893 324891a5 2006-06-25 devnull /* allocate a conversion buffer */
1894 324891a5 2006-06-25 devnull spar->convbufoff = ndrawbuf;
1895 324891a5 2006-06-25 devnull ndrawbuf += spar->dx*4;
1897 324891a5 2006-06-25 devnull if(spar->dx > Dx(spar->img->r)){
1898 324891a5 2006-06-25 devnull spar->convdx = spar->dx;
1899 324891a5 2006-06-25 devnull spar->dx = Dx(spar->img->r);
1902 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("genconv..."); */
1903 324891a5 2006-06-25 devnull return genconv;
1907 324891a5 2006-06-25 devnull * Do NOT call this directly. pixelbits is a wrapper
1908 324891a5 2006-06-25 devnull * around this that fetches the bits from the X server
1909 324891a5 2006-06-25 devnull * when necessary.
1912 324891a5 2006-06-25 devnull _pixelbits(Memimage *i, Point pt)
1914 324891a5 2006-06-25 devnull uchar *p;
1915 324891a5 2006-06-25 devnull u32int val;
1916 324891a5 2006-06-25 devnull int off, bpp, npack;
1918 324891a5 2006-06-25 devnull val = 0;
1919 324891a5 2006-06-25 devnull p = byteaddr(i, pt);
1920 324891a5 2006-06-25 devnull switch(bpp=i->depth){
1921 324891a5 2006-06-25 devnull case 1:
1922 324891a5 2006-06-25 devnull case 2:
1923 324891a5 2006-06-25 devnull case 4:
1924 324891a5 2006-06-25 devnull npack = 8/bpp;
1925 324891a5 2006-06-25 devnull off = pt.x%npack;
1926 324891a5 2006-06-25 devnull val = p[0] >> bpp*(npack-1-off);
1927 324891a5 2006-06-25 devnull val &= (1<<bpp)-1;
1929 324891a5 2006-06-25 devnull case 8:
1930 324891a5 2006-06-25 devnull val = p[0];
1932 324891a5 2006-06-25 devnull case 16:
1933 324891a5 2006-06-25 devnull val = p[0]|(p[1]<<8);
1935 324891a5 2006-06-25 devnull case 24:
1936 324891a5 2006-06-25 devnull val = p[0]|(p[1]<<8)|(p[2]<<16);
1938 324891a5 2006-06-25 devnull case 32:
1939 324891a5 2006-06-25 devnull val = p[0]|(p[1]<<8)|(p[2]<<16)|(p[3]<<24);
1942 324891a5 2006-06-25 devnull while(bpp<32){
1943 324891a5 2006-06-25 devnull val |= val<<bpp;
1944 324891a5 2006-06-25 devnull bpp *= 2;
1946 324891a5 2006-06-25 devnull return val;
1949 324891a5 2006-06-25 devnull static Calcfn*
1950 324891a5 2006-06-25 devnull boolcopyfn(Memimage *img, Memimage *mask)
1952 324891a5 2006-06-25 devnull if(mask->flags&Frepl && Dx(mask->r)==1 && Dy(mask->r)==1 && pixelbits(mask, mask->r.min)==~0)
1953 324891a5 2006-06-25 devnull return boolmemmove;
1955 324891a5 2006-06-25 devnull switch(img->depth){
1956 324891a5 2006-06-25 devnull case 8:
1957 324891a5 2006-06-25 devnull return boolcopy8;
1958 324891a5 2006-06-25 devnull case 16:
1959 324891a5 2006-06-25 devnull return boolcopy16;
1960 324891a5 2006-06-25 devnull case 24:
1961 324891a5 2006-06-25 devnull return boolcopy24;
1962 324891a5 2006-06-25 devnull case 32:
1963 324891a5 2006-06-25 devnull return boolcopy32;
1964 324891a5 2006-06-25 devnull default:
1965 324891a5 2006-06-25 devnull assert(0 /* boolcopyfn */);
1967 324891a5 2006-06-25 devnull return 0;
1971 324891a5 2006-06-25 devnull * Optimized draw for filling and scrolling; uses memset and memmove.
1973 324891a5 2006-06-25 devnull static void
1974 324891a5 2006-06-25 devnull memsets(void *vp, ushort val, int n)
1976 324891a5 2006-06-25 devnull ushort *p, *ep;
1978 324891a5 2006-06-25 devnull p = vp;
1979 324891a5 2006-06-25 devnull ep = p+n;
1980 324891a5 2006-06-25 devnull while(p<ep)
1981 324891a5 2006-06-25 devnull *p++ = val;
1984 324891a5 2006-06-25 devnull static void
1985 324891a5 2006-06-25 devnull memsetl(void *vp, u32int val, int n)
1987 324891a5 2006-06-25 devnull u32int *p, *ep;
1989 324891a5 2006-06-25 devnull p = vp;
1990 324891a5 2006-06-25 devnull ep = p+n;
1991 324891a5 2006-06-25 devnull while(p<ep)
1992 324891a5 2006-06-25 devnull *p++ = val;
1995 324891a5 2006-06-25 devnull static void
1996 324891a5 2006-06-25 devnull memset24(void *vp, u32int val, int n)
1998 324891a5 2006-06-25 devnull uchar *p, *ep;
1999 324891a5 2006-06-25 devnull uchar a,b,c;
2001 324891a5 2006-06-25 devnull p = vp;
2002 324891a5 2006-06-25 devnull ep = p+3*n;
2003 324891a5 2006-06-25 devnull a = val;
2004 324891a5 2006-06-25 devnull b = val>>8;
2005 324891a5 2006-06-25 devnull c = val>>16;
2006 324891a5 2006-06-25 devnull while(p<ep){
2007 324891a5 2006-06-25 devnull *p++ = a;
2008 324891a5 2006-06-25 devnull *p++ = b;
2009 324891a5 2006-06-25 devnull *p++ = c;
2014 324891a5 2006-06-25 devnull _imgtorgba(Memimage *img, u32int val)
2016 324891a5 2006-06-25 devnull uchar r, g, b, a;
2017 324891a5 2006-06-25 devnull int nb, ov, v;
2018 324891a5 2006-06-25 devnull u32int chan;
2019 324891a5 2006-06-25 devnull uchar *p;
2021 324891a5 2006-06-25 devnull a = 0xFF;
2022 324891a5 2006-06-25 devnull r = g = b = 0xAA; /* garbage */
2023 324891a5 2006-06-25 devnull for(chan=img->chan; chan; chan>>=8){
2024 324891a5 2006-06-25 devnull nb = NBITS(chan);
2025 324891a5 2006-06-25 devnull ov = v = val&((1<<nb)-1);
2026 324891a5 2006-06-25 devnull val >>= nb;
2028 324891a5 2006-06-25 devnull while(nb < 8){
2029 324891a5 2006-06-25 devnull v |= v<<nb;
2030 324891a5 2006-06-25 devnull nb *= 2;
2032 324891a5 2006-06-25 devnull v >>= (nb-8);
2034 324891a5 2006-06-25 devnull switch(TYPE(chan)){
2035 324891a5 2006-06-25 devnull case CRed:
2038 324891a5 2006-06-25 devnull case CGreen:
2041 324891a5 2006-06-25 devnull case CBlue:
2044 324891a5 2006-06-25 devnull case CAlpha:
2047 324891a5 2006-06-25 devnull case CGrey:
2048 324891a5 2006-06-25 devnull r = g = b = v;
2050 324891a5 2006-06-25 devnull case CMap:
2051 324891a5 2006-06-25 devnull p = img->cmap->cmap2rgb+3*ov;
2052 324891a5 2006-06-25 devnull r = *p++;
2053 fa325e9b 2020-01-10 cross g = *p++;
2054 324891a5 2006-06-25 devnull b = *p;
2058 fa325e9b 2020-01-10 cross return (r<<24)|(g<<16)|(b<<8)|a;
2062 324891a5 2006-06-25 devnull _rgbatoimg(Memimage *img, u32int rgba)
2064 324891a5 2006-06-25 devnull u32int chan;
2065 324891a5 2006-06-25 devnull int d, nb;
2066 324891a5 2006-06-25 devnull u32int v;
2067 324891a5 2006-06-25 devnull uchar *p, r, g, b, a, m;
2070 324891a5 2006-06-25 devnull r = rgba>>24;
2071 324891a5 2006-06-25 devnull g = rgba>>16;
2072 324891a5 2006-06-25 devnull b = rgba>>8;
2073 324891a5 2006-06-25 devnull a = rgba;
2075 324891a5 2006-06-25 devnull for(chan=img->chan; chan; chan>>=8){
2076 324891a5 2006-06-25 devnull nb = NBITS(chan);
2077 324891a5 2006-06-25 devnull switch(TYPE(chan)){
2078 324891a5 2006-06-25 devnull case CRed:
2079 324891a5 2006-06-25 devnull v |= (r>>(8-nb))<<d;
2081 324891a5 2006-06-25 devnull case CGreen:
2082 324891a5 2006-06-25 devnull v |= (g>>(8-nb))<<d;
2084 324891a5 2006-06-25 devnull case CBlue:
2085 324891a5 2006-06-25 devnull v |= (b>>(8-nb))<<d;
2087 324891a5 2006-06-25 devnull case CAlpha:
2088 324891a5 2006-06-25 devnull v |= (a>>(8-nb))<<d;
2090 324891a5 2006-06-25 devnull case CMap:
2091 324891a5 2006-06-25 devnull p = img->cmap->rgb2cmap;
2092 324891a5 2006-06-25 devnull m = p[(r>>4)*256+(g>>4)*16+(b>>4)];
2093 324891a5 2006-06-25 devnull v |= (m>>(8-nb))<<d;
2095 324891a5 2006-06-25 devnull case CGrey:
2096 324891a5 2006-06-25 devnull m = RGB2K(r,g,b);
2097 324891a5 2006-06-25 devnull v |= (m>>(8-nb))<<d;
2100 324891a5 2006-06-25 devnull d += nb;
2102 324891a5 2006-06-25 devnull /* print("rgba2img %.8lux = %.*lux\n", rgba, 2*d/8, v); */
2103 324891a5 2006-06-25 devnull return v;
2106 324891a5 2006-06-25 devnull #define DBG if(0)
2107 324891a5 2006-06-25 devnull static int
2108 324891a5 2006-06-25 devnull memoptdraw(Memdrawparam *par)
2110 324891a5 2006-06-25 devnull int m, y, dy, dx, op;
2111 324891a5 2006-06-25 devnull u32int v;
2112 0c9c620f 2010-03-10 rsc u16int u16;
2113 324891a5 2006-06-25 devnull Memimage *src;
2114 324891a5 2006-06-25 devnull Memimage *dst;
2116 324891a5 2006-06-25 devnull dx = Dx(par->r);
2117 324891a5 2006-06-25 devnull dy = Dy(par->r);
2118 324891a5 2006-06-25 devnull src = par->src;
2119 324891a5 2006-06-25 devnull dst = par->dst;
2120 324891a5 2006-06-25 devnull op = par->op;
2122 324891a5 2006-06-25 devnull DBG print("state %lux mval %lux dd %d\n", par->state, par->mval, dst->depth);
2124 324891a5 2006-06-25 devnull * If we have an opaque mask and source is one opaque pixel we can convert to the
2125 324891a5 2006-06-25 devnull * destination format and just replicate with memset.
2127 324891a5 2006-06-25 devnull m = Simplesrc|Simplemask|Fullmask;
2128 324891a5 2006-06-25 devnull if((par->state&m)==m && (par->srgba&0xFF) == 0xFF && (op ==S || op == SoverD)){
2129 324891a5 2006-06-25 devnull uchar *dp, p[4];
2130 324891a5 2006-06-25 devnull int d, dwid, ppb, np, nb;
2131 324891a5 2006-06-25 devnull uchar lm, rm;
2133 324891a5 2006-06-25 devnull DBG print("memopt, dst %p, dst->data->bdata %p\n", dst, dst->data->bdata);
2134 324891a5 2006-06-25 devnull dwid = dst->width*sizeof(u32int);
2135 324891a5 2006-06-25 devnull dp = byteaddr(dst, par->r.min);
2136 324891a5 2006-06-25 devnull v = par->sdval;
2137 324891a5 2006-06-25 devnull DBG print("sdval %lud, depth %d\n", v, dst->depth);
2138 324891a5 2006-06-25 devnull switch(dst->depth){
2139 324891a5 2006-06-25 devnull case 1:
2140 324891a5 2006-06-25 devnull case 2:
2141 324891a5 2006-06-25 devnull case 4:
2142 324891a5 2006-06-25 devnull for(d=dst->depth; d<8; d*=2)
2143 324891a5 2006-06-25 devnull v |= (v<<d);
2144 324891a5 2006-06-25 devnull ppb = 8/dst->depth; /* pixels per byte */
2145 324891a5 2006-06-25 devnull m = ppb-1;
2146 324891a5 2006-06-25 devnull /* left edge */
2147 324891a5 2006-06-25 devnull np = par->r.min.x&m; /* no. pixels unused on left side of word */
2148 324891a5 2006-06-25 devnull dx -= (ppb-np);
2149 324891a5 2006-06-25 devnull nb = 8 - np * dst->depth; /* no. bits used on right side of word */
2150 324891a5 2006-06-25 devnull lm = (1<<nb)-1;
2151 fa325e9b 2020-01-10 cross DBG print("np %d x %d nb %d lm %ux ppb %d m %ux\n", np, par->r.min.x, nb, lm, ppb, m);
2153 324891a5 2006-06-25 devnull /* right edge */
2154 324891a5 2006-06-25 devnull np = par->r.max.x&m; /* no. pixels used on left side of word */
2155 324891a5 2006-06-25 devnull dx -= np;
2156 324891a5 2006-06-25 devnull nb = 8 - np * dst->depth; /* no. bits unused on right side of word */
2157 324891a5 2006-06-25 devnull rm = ~((1<<nb)-1);
2158 fa325e9b 2020-01-10 cross DBG print("np %d x %d nb %d rm %ux ppb %d m %ux\n", np, par->r.max.x, nb, rm, ppb, m);
2160 324891a5 2006-06-25 devnull DBG print("dx %d Dx %d\n", dx, Dx(par->r));
2161 324891a5 2006-06-25 devnull /* lm, rm are masks that are 1 where we should touch the bits */
2162 324891a5 2006-06-25 devnull if(dx < 0){ /* just one byte */
2163 324891a5 2006-06-25 devnull lm &= rm;
2164 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, dp+=dwid)
2165 324891a5 2006-06-25 devnull *dp ^= (v ^ *dp) & lm;
2166 324891a5 2006-06-25 devnull }else if(dx == 0){ /* no full bytes */
2168 324891a5 2006-06-25 devnull dwid--;
2170 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, dp+=dwid){
2171 324891a5 2006-06-25 devnull if(lm){
2172 324891a5 2006-06-25 devnull DBG print("dp %p v %lux lm %ux (v ^ *dp) & lm %lux\n", dp, v, lm, (v^*dp)&lm);
2173 324891a5 2006-06-25 devnull *dp ^= (v ^ *dp) & lm;
2176 324891a5 2006-06-25 devnull *dp ^= (v ^ *dp) & rm;
2178 324891a5 2006-06-25 devnull }else{ /* full bytes in middle */
2179 324891a5 2006-06-25 devnull dx /= ppb;
2181 324891a5 2006-06-25 devnull dwid--;
2182 324891a5 2006-06-25 devnull dwid -= dx;
2184 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, dp+=dwid){
2185 324891a5 2006-06-25 devnull if(lm){
2186 324891a5 2006-06-25 devnull *dp ^= (v ^ *dp) & lm;
2189 324891a5 2006-06-25 devnull memset(dp, v, dx);
2190 324891a5 2006-06-25 devnull dp += dx;
2191 324891a5 2006-06-25 devnull *dp ^= (v ^ *dp) & rm;
2194 324891a5 2006-06-25 devnull return 1;
2195 324891a5 2006-06-25 devnull case 8:
2196 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, dp+=dwid)
2197 324891a5 2006-06-25 devnull memset(dp, v, dx);
2198 324891a5 2006-06-25 devnull return 1;
2199 324891a5 2006-06-25 devnull case 16:
2200 324891a5 2006-06-25 devnull p[0] = v; /* make little endian */
2201 324891a5 2006-06-25 devnull p[1] = v>>8;
2202 0c9c620f 2010-03-10 rsc memmove(&u16, p, 2);
2204 324891a5 2006-06-25 devnull DBG print("dp=%p; dx=%d; for(y=0; y<%d; y++, dp+=%d)\nmemsets(dp, v, dx);\n",
2205 324891a5 2006-06-25 devnull dp, dx, dy, dwid);
2206 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, dp+=dwid)
2207 324891a5 2006-06-25 devnull memsets(dp, v, dx);
2208 324891a5 2006-06-25 devnull return 1;
2209 324891a5 2006-06-25 devnull case 24:
2210 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, dp+=dwid)
2211 324891a5 2006-06-25 devnull memset24(dp, v, dx);
2212 324891a5 2006-06-25 devnull return 1;
2213 324891a5 2006-06-25 devnull case 32:
2214 324891a5 2006-06-25 devnull p[0] = v; /* make little endian */
2215 324891a5 2006-06-25 devnull p[1] = v>>8;
2216 324891a5 2006-06-25 devnull p[2] = v>>16;
2217 324891a5 2006-06-25 devnull p[3] = v>>24;
2218 0c9c620f 2010-03-10 rsc memmove(&v, p, 4);
2219 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, dp+=dwid)
2220 324891a5 2006-06-25 devnull memsetl(dp, v, dx);
2221 324891a5 2006-06-25 devnull return 1;
2222 324891a5 2006-06-25 devnull default:
2223 324891a5 2006-06-25 devnull assert(0 /* bad dest depth in memoptdraw */);
2228 324891a5 2006-06-25 devnull * If no source alpha, an opaque mask, we can just copy the
2229 324891a5 2006-06-25 devnull * source onto the destination. If the channels are the same and
2230 324891a5 2006-06-25 devnull * the source is not replicated, memmove suffices.
2232 324891a5 2006-06-25 devnull m = Simplemask|Fullmask;
2233 fa325e9b 2020-01-10 cross if((par->state&(m|Replsrc))==m && src->depth >= 8
2234 324891a5 2006-06-25 devnull && src->chan == dst->chan && !(src->flags&Falpha) && (op == S || op == SoverD)){
2235 324891a5 2006-06-25 devnull uchar *sp, *dp;
2236 324891a5 2006-06-25 devnull long swid, dwid, nb;
2237 324891a5 2006-06-25 devnull int dir;
2239 324891a5 2006-06-25 devnull if(src->data == dst->data && byteaddr(dst, par->r.min) > byteaddr(src, par->sr.min))
2240 324891a5 2006-06-25 devnull dir = -1;
2242 324891a5 2006-06-25 devnull dir = 1;
2244 324891a5 2006-06-25 devnull swid = src->width*sizeof(u32int);
2245 324891a5 2006-06-25 devnull dwid = dst->width*sizeof(u32int);
2246 324891a5 2006-06-25 devnull sp = byteaddr(src, par->sr.min);
2247 324891a5 2006-06-25 devnull dp = byteaddr(dst, par->r.min);
2248 324891a5 2006-06-25 devnull if(dir == -1){
2249 324891a5 2006-06-25 devnull sp += (dy-1)*swid;
2250 324891a5 2006-06-25 devnull dp += (dy-1)*dwid;
2251 324891a5 2006-06-25 devnull swid = -swid;
2252 324891a5 2006-06-25 devnull dwid = -dwid;
2254 324891a5 2006-06-25 devnull nb = (dx*src->depth)/8;
2255 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, sp+=swid, dp+=dwid)
2256 324891a5 2006-06-25 devnull memmove(dp, sp, nb);
2257 324891a5 2006-06-25 devnull return 1;
2261 324891a5 2006-06-25 devnull * If we have a 1-bit mask, 1-bit source, and 1-bit destination, and
2262 324891a5 2006-06-25 devnull * they're all bit aligned, we can just use bit operators. This happens
2263 324891a5 2006-06-25 devnull * when we're manipulating boolean masks, e.g. in the arc code.
2265 fa325e9b 2020-01-10 cross if((par->state&(Simplemask|Simplesrc|Replmask|Replsrc))==0
2266 fa325e9b 2020-01-10 cross && dst->chan==GREY1 && src->chan==GREY1 && par->mask->chan==GREY1
2267 324891a5 2006-06-25 devnull && (par->r.min.x&7)==(par->sr.min.x&7) && (par->r.min.x&7)==(par->mr.min.x&7)){
2268 324891a5 2006-06-25 devnull uchar *sp, *dp, *mp;
2269 324891a5 2006-06-25 devnull uchar lm, rm;
2270 324891a5 2006-06-25 devnull long swid, dwid, mwid;
2271 324891a5 2006-06-25 devnull int i, x, dir;
2273 324891a5 2006-06-25 devnull sp = byteaddr(src, par->sr.min);
2274 324891a5 2006-06-25 devnull dp = byteaddr(dst, par->r.min);
2275 324891a5 2006-06-25 devnull mp = byteaddr(par->mask, par->mr.min);
2276 324891a5 2006-06-25 devnull swid = src->width*sizeof(u32int);
2277 324891a5 2006-06-25 devnull dwid = dst->width*sizeof(u32int);
2278 324891a5 2006-06-25 devnull mwid = par->mask->width*sizeof(u32int);
2280 324891a5 2006-06-25 devnull if(src->data == dst->data && byteaddr(dst, par->r.min) > byteaddr(src, par->sr.min)){
2281 324891a5 2006-06-25 devnull dir = -1;
2283 324891a5 2006-06-25 devnull dir = 1;
2285 324891a5 2006-06-25 devnull lm = 0xFF>>(par->r.min.x&7);
2286 324891a5 2006-06-25 devnull rm = 0xFF<<(8-(par->r.max.x&7));
2287 324891a5 2006-06-25 devnull dx -= (8-(par->r.min.x&7)) + (par->r.max.x&7);
2289 324891a5 2006-06-25 devnull if(dx < 0){ /* one byte wide */
2290 324891a5 2006-06-25 devnull lm &= rm;
2291 324891a5 2006-06-25 devnull if(dir == -1){
2292 324891a5 2006-06-25 devnull dp += dwid*(dy-1);
2293 324891a5 2006-06-25 devnull sp += swid*(dy-1);
2294 324891a5 2006-06-25 devnull mp += mwid*(dy-1);
2295 324891a5 2006-06-25 devnull dwid = -dwid;
2296 324891a5 2006-06-25 devnull swid = -swid;
2297 324891a5 2006-06-25 devnull mwid = -mwid;
2299 324891a5 2006-06-25 devnull for(y=0; y<dy; y++){
2300 324891a5 2006-06-25 devnull *dp ^= (*dp ^ *sp) & *mp & lm;
2301 324891a5 2006-06-25 devnull dp += dwid;
2302 324891a5 2006-06-25 devnull sp += swid;
2303 324891a5 2006-06-25 devnull mp += mwid;
2305 324891a5 2006-06-25 devnull return 1;
2308 324891a5 2006-06-25 devnull dx /= 8;
2309 324891a5 2006-06-25 devnull if(dir == 1){
2310 324891a5 2006-06-25 devnull i = (lm!=0)+dx+(rm!=0);
2311 324891a5 2006-06-25 devnull mwid -= i;
2312 324891a5 2006-06-25 devnull swid -= i;
2313 324891a5 2006-06-25 devnull dwid -= i;
2314 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, dp+=dwid, sp+=swid, mp+=mwid){
2315 324891a5 2006-06-25 devnull if(lm){
2316 324891a5 2006-06-25 devnull *dp ^= (*dp ^ *sp++) & *mp++ & lm;
2319 324891a5 2006-06-25 devnull for(x=0; x<dx; x++){
2320 324891a5 2006-06-25 devnull *dp ^= (*dp ^ *sp++) & *mp++;
2323 324891a5 2006-06-25 devnull if(rm){
2324 324891a5 2006-06-25 devnull *dp ^= (*dp ^ *sp++) & *mp++ & rm;
2328 324891a5 2006-06-25 devnull return 1;
2330 324891a5 2006-06-25 devnull /* dir == -1 */
2331 324891a5 2006-06-25 devnull i = (lm!=0)+dx+(rm!=0);
2332 324891a5 2006-06-25 devnull dp += dwid*(dy-1)+i-1;
2333 324891a5 2006-06-25 devnull sp += swid*(dy-1)+i-1;
2334 324891a5 2006-06-25 devnull mp += mwid*(dy-1)+i-1;
2335 324891a5 2006-06-25 devnull dwid = -dwid+i;
2336 324891a5 2006-06-25 devnull swid = -swid+i;
2337 324891a5 2006-06-25 devnull mwid = -mwid+i;
2338 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, dp+=dwid, sp+=swid, mp+=mwid){
2339 324891a5 2006-06-25 devnull if(rm){
2340 324891a5 2006-06-25 devnull *dp ^= (*dp ^ *sp--) & *mp-- & rm;
2343 324891a5 2006-06-25 devnull for(x=0; x<dx; x++){
2344 324891a5 2006-06-25 devnull *dp ^= (*dp ^ *sp--) & *mp--;
2347 324891a5 2006-06-25 devnull if(lm){
2348 324891a5 2006-06-25 devnull *dp ^= (*dp ^ *sp--) & *mp-- & lm;
2353 324891a5 2006-06-25 devnull return 1;
2355 fa325e9b 2020-01-10 cross return 0;
2357 324891a5 2006-06-25 devnull #undef DBG
2360 324891a5 2006-06-25 devnull * Boolean character drawing.
2361 324891a5 2006-06-25 devnull * Solid opaque color through a 1-bit greyscale mask.
2363 324891a5 2006-06-25 devnull #define DBG if(0)
2364 324891a5 2006-06-25 devnull static int
2365 324891a5 2006-06-25 devnull chardraw(Memdrawparam *par)
2367 324891a5 2006-06-25 devnull u32int bits;
2368 324891a5 2006-06-25 devnull int i, ddepth, dy, dx, x, bx, ex, y, npack, bsh, depth, op;
2369 324891a5 2006-06-25 devnull u32int v, maskwid, dstwid;
2370 324891a5 2006-06-25 devnull uchar *wp, *rp, *q, *wc;
2371 324891a5 2006-06-25 devnull ushort *ws;
2372 324891a5 2006-06-25 devnull u32int *wl;
2373 324891a5 2006-06-25 devnull uchar sp[4];
2374 324891a5 2006-06-25 devnull Rectangle r, mr;
2375 324891a5 2006-06-25 devnull Memimage *mask, *src, *dst;
2377 0c9c620f 2010-03-10 rsc // black box to hide pointer conversions from gcc.
2378 0c9c620f 2010-03-10 rsc // we'll see how long this works.
2380 0c9c620f 2010-03-10 rsc u16int *u16;
2381 0c9c620f 2010-03-10 rsc u32int *u32;
2382 0c9c620f 2010-03-10 rsc } gcc_black_box;
2384 324891a5 2006-06-25 devnull if(0) if(drawdebug) iprint("chardraw? mf %lux md %d sf %lux dxs %d dys %d dd %d ddat %p sdat %p\n",
2385 fa325e9b 2020-01-10 cross par->mask->flags, par->mask->depth, par->src->flags,
2386 324891a5 2006-06-25 devnull Dx(par->src->r), Dy(par->src->r), par->dst->depth, par->dst->data, par->src->data);
2388 324891a5 2006-06-25 devnull mask = par->mask;
2389 324891a5 2006-06-25 devnull src = par->src;
2390 324891a5 2006-06-25 devnull dst = par->dst;
2391 324891a5 2006-06-25 devnull r = par->r;
2392 324891a5 2006-06-25 devnull mr = par->mr;
2393 324891a5 2006-06-25 devnull op = par->op;
2395 324891a5 2006-06-25 devnull if((par->state&(Replsrc|Simplesrc|Fullsrc|Replmask)) != (Replsrc|Simplesrc|Fullsrc)
2396 324891a5 2006-06-25 devnull || mask->depth != 1 || dst->depth<8 || dst->data==src->data
2397 324891a5 2006-06-25 devnull || op != SoverD)
2398 324891a5 2006-06-25 devnull return 0;
2400 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("chardraw..."); */
2402 324891a5 2006-06-25 devnull depth = mask->depth;
2403 324891a5 2006-06-25 devnull maskwid = mask->width*sizeof(u32int);
2404 324891a5 2006-06-25 devnull rp = byteaddr(mask, mr.min);
2405 324891a5 2006-06-25 devnull npack = 8/depth;
2406 324891a5 2006-06-25 devnull bsh = (mr.min.x % npack) * depth;
2408 324891a5 2006-06-25 devnull wp = byteaddr(dst, r.min);
2409 324891a5 2006-06-25 devnull dstwid = dst->width*sizeof(u32int);
2410 324891a5 2006-06-25 devnull DBG print("bsh %d\n", bsh);
2411 324891a5 2006-06-25 devnull dy = Dy(r);
2412 324891a5 2006-06-25 devnull dx = Dx(r);
2414 324891a5 2006-06-25 devnull ddepth = dst->depth;
2417 324891a5 2006-06-25 devnull * for loop counts from bsh to bsh+dx
2419 324891a5 2006-06-25 devnull * we want the bottom bits to be the amount
2420 fa325e9b 2020-01-10 cross * to shift the pixels down, so for n≡0 (mod 8) we want
2421 324891a5 2006-06-25 devnull * bottom bits 7. for n≡1, 6, etc.
2422 324891a5 2006-06-25 devnull * the bits come from -n-1.
2425 324891a5 2006-06-25 devnull bx = -bsh-1;
2426 324891a5 2006-06-25 devnull ex = -bsh-1-dx;
2427 324891a5 2006-06-25 devnull SET(bits);
2428 324891a5 2006-06-25 devnull v = par->sdval;
2430 324891a5 2006-06-25 devnull /* make little endian */
2431 324891a5 2006-06-25 devnull sp[0] = v;
2432 324891a5 2006-06-25 devnull sp[1] = v>>8;
2433 324891a5 2006-06-25 devnull sp[2] = v>>16;
2434 324891a5 2006-06-25 devnull sp[3] = v>>24;
2436 324891a5 2006-06-25 devnull /*print("sp %x %x %x %x\n", sp[0], sp[1], sp[2], sp[3]); */
2437 324891a5 2006-06-25 devnull for(y=0; y<dy; y++, rp+=maskwid, wp+=dstwid){
2438 324891a5 2006-06-25 devnull q = rp;
2439 324891a5 2006-06-25 devnull if(bsh)
2440 324891a5 2006-06-25 devnull bits = *q++;
2441 324891a5 2006-06-25 devnull switch(ddepth){
2442 324891a5 2006-06-25 devnull case 8:
2443 324891a5 2006-06-25 devnull /*if(drawdebug) iprint("8loop..."); */
2444 324891a5 2006-06-25 devnull wc = wp;
2445 324891a5 2006-06-25 devnull for(x=bx; x>ex; x--, wc++){
2446 324891a5 2006-06-25 devnull i = x&7;
2447 324891a5 2006-06-25 devnull if(i == 8-1)
2448 324891a5 2006-06-25 devnull bits = *q++;
2449 324891a5 2006-06-25 devnull DBG print("bits %lux sh %d...", bits, i);
2450 324891a5 2006-06-25 devnull if((bits>>i)&1)
2451 324891a5 2006-06-25 devnull *wc = v;
2454 324891a5 2006-06-25 devnull case 16:
2455 0c9c620f 2010-03-10 rsc gcc_black_box.u8 = wp;
2456 0c9c620f 2010-03-10 rsc ws = gcc_black_box.u16;
2457 0c9c620f 2010-03-10 rsc gcc_black_box.u8 = sp;
2458 0c9c620f 2010-03-10 rsc v = *gcc_black_box.u16;
2459 324891a5 2006-06-25 devnull for(x=bx; x>ex; x--, ws++){
2460 324891a5 2006-06-25 devnull i = x&7;
2461 324891a5 2006-06-25 devnull if(i == 8-1)
2462 324891a5 2006-06-25 devnull bits = *q++;
2463 324891a5 2006-06-25 devnull DBG print("bits %lux sh %d...", bits, i);
2464 324891a5 2006-06-25 devnull if((bits>>i)&1)
2465 324891a5 2006-06-25 devnull *ws = v;
2468 324891a5 2006-06-25 devnull case 24:
2469 324891a5 2006-06-25 devnull wc = wp;
2470 324891a5 2006-06-25 devnull for(x=bx; x>ex; x--, wc+=3){
2471 324891a5 2006-06-25 devnull i = x&7;
2472 324891a5 2006-06-25 devnull if(i == 8-1)
2473 324891a5 2006-06-25 devnull bits = *q++;
2474 324891a5 2006-06-25 devnull DBG print("bits %lux sh %d...", bits, i);
2475 324891a5 2006-06-25 devnull if((bits>>i)&1){
2476 324891a5 2006-06-25 devnull wc[0] = sp[0];
2477 324891a5 2006-06-25 devnull wc[1] = sp[1];
2478 324891a5 2006-06-25 devnull wc[2] = sp[2];
2482 324891a5 2006-06-25 devnull case 32:
2483 0c9c620f 2010-03-10 rsc gcc_black_box.u8 = wp;
2484 0c9c620f 2010-03-10 rsc wl = gcc_black_box.u32;
2485 0c9c620f 2010-03-10 rsc gcc_black_box.u8 = sp;
2486 0c9c620f 2010-03-10 rsc v = *gcc_black_box.u32;
2487 324891a5 2006-06-25 devnull for(x=bx; x>ex; x--, wl++){
2488 324891a5 2006-06-25 devnull i = x&7;
2489 324891a5 2006-06-25 devnull if(i == 8-1)
2490 324891a5 2006-06-25 devnull bits = *q++;
2491 324891a5 2006-06-25 devnull DBG iprint("bits %lux sh %d...", bits, i);
2492 324891a5 2006-06-25 devnull if((bits>>i)&1)
2493 324891a5 2006-06-25 devnull *wl = v;
2499 fa325e9b 2020-01-10 cross DBG print("\n");
2500 fa325e9b 2020-01-10 cross return 1;
2502 324891a5 2006-06-25 devnull #undef DBG
2506 324891a5 2006-06-25 devnull * Fill entire byte with replicated (if necessary) copy of source pixel,
2507 324891a5 2006-06-25 devnull * assuming destination ldepth is >= source ldepth.
2509 324891a5 2006-06-25 devnull * This code is just plain wrong for >8bpp.
2512 324891a5 2006-06-25 devnull membyteval(Memimage *src)
2514 324891a5 2006-06-25 devnull int i, val, bpp;
2515 324891a5 2006-06-25 devnull uchar uc;
2517 324891a5 2006-06-25 devnull unloadmemimage(src, src->r, &uc, 1);
2518 324891a5 2006-06-25 devnull bpp = src->depth;
2519 324891a5 2006-06-25 devnull uc <<= (src->r.min.x&(7/src->depth))*src->depth;
2520 324891a5 2006-06-25 devnull uc &= ~(0xFF>>bpp);
2521 fa325e9b 2020-01-10 cross * pixel value is now in high part of byte. repeat throughout byte
2522 324891a5 2006-06-25 devnull val = uc;
2523 324891a5 2006-06-25 devnull for(i=bpp; i<8; i<<=1)
2524 324891a5 2006-06-25 devnull val |= val>>i;
2525 324891a5 2006-06-25 devnull return val;
2531 324891a5 2006-06-25 devnull _memfillcolor(Memimage *i, u32int val)
2533 324891a5 2006-06-25 devnull u32int bits;
2534 324891a5 2006-06-25 devnull int d, y;
2535 324891a5 2006-06-25 devnull uchar p[4];
2537 324891a5 2006-06-25 devnull if(val == DNofill)
2538 324891a5 2006-06-25 devnull return;
2540 324891a5 2006-06-25 devnull bits = _rgbatoimg(i, val);
2541 324891a5 2006-06-25 devnull switch(i->depth){
2542 324891a5 2006-06-25 devnull case 24: /* 24-bit images suck */
2543 324891a5 2006-06-25 devnull for(y=i->r.min.y; y<i->r.max.y; y++)
2544 324891a5 2006-06-25 devnull memset24(byteaddr(i, Pt(i->r.min.x, y)), bits, Dx(i->r));
2546 324891a5 2006-06-25 devnull default: /* 1, 2, 4, 8, 16, 32 */
2547 324891a5 2006-06-25 devnull for(d=i->depth; d<32; d*=2)
2548 324891a5 2006-06-25 devnull bits = (bits << d) | bits;
2549 324891a5 2006-06-25 devnull p[0] = bits; /* make little endian */
2550 324891a5 2006-06-25 devnull p[1] = bits>>8;
2551 324891a5 2006-06-25 devnull p[2] = bits>>16;
2552 324891a5 2006-06-25 devnull p[3] = bits>>24;
2553 0c9c620f 2010-03-10 rsc memmove(&bits, p, 4);
2554 324891a5 2006-06-25 devnull memsetl(wordaddr(i, i->r.min), bits, i->width*Dy(i->r));
