static int
rubthru_targ_noalpha(i_img *im, i_img *src,
- int tx, int ty,
- int src_minx, int src_miny,
- int src_maxx, int src_maxy) {
- int x, y, ttx, tty;
- int chancount;
- int chans[3];
+ i_img_dim tx, i_img_dim ty,
+ i_img_dim src_minx, i_img_dim src_miny,
+ i_img_dim src_maxx, i_img_dim src_maxy) {
+ i_img_dim x, y, tty;
int alphachan;
int ch;
+ i_img_dim width = src_maxx - src_minx;
+ int want_channels;
i_clear_error();
- if (im->channels == 3 && src->channels == 4) {
- chancount = 3;
- chans[0] = 0; chans[1] = 1; chans[2] = 2;
+ if (im->channels == 3 && (src->channels == 4 || src->channels == 2)) {
+ want_channels = 4;
alphachan = 3;
}
- else if (im->channels == 3 && src->channels == 2) {
- chancount = 3;
- chans[0] = chans[1] = chans[2] = 0;
- alphachan = 1;
- }
- else if (im->channels == 1 && src->channels == 2) {
- chancount = 1;
- chans[0] = 0;
+ else if (im->channels == 1 && (src->channels == 4 || src->channels == 2)) {
+ want_channels = 2;
alphachan = 1;
}
else {
- i_push_error(0, "rubthru can only work where (dest, src) channels are (3,4), (4,4), (3,2), (4,2), (1,2) or (2,2)");
- return 0;
+ i_copyto(im, src, src_minx, src_miny, src_maxx, src_maxy, tx, ty);
+ return 1;
}
#code im->bits <= 8 && src->bits <= 8
IM_WORK_T alpha;
- IM_COLOR pv, orig, dest;
+ IM_COLOR *src_line, *dest_line;
+
+ src_line = mymalloc(sizeof(IM_COLOR) * width);
+ dest_line = mymalloc(sizeof(IM_COLOR) * width);
tty = ty;
for(y = src_miny; y < src_maxy; y++) {
- ttx = tx;
+ IM_COLOR *srcp = src_line;
+ IM_COLOR *destp = dest_line;
+ IM_GLIN(src, src_minx, src_maxx, y, src_line);
+ IM_GLIN(im, tx, tx + width, tty, dest_line);
+ if (src->channels != want_channels)
+ IM_ADAPT_COLORS(want_channels, src->channels, src_line, width);
+
for(x = src_minx; x < src_maxx; x++) {
- IM_GPIX(src, x, y, &pv);
- IM_GPIX(im, ttx, tty, &orig);
- alpha = pv.channel[alphachan];
- for (ch = 0; ch < chancount; ++ch) {
- dest.channel[ch] = (alpha * pv.channel[chans[ch]]
- + (IM_SAMPLE_MAX - alpha) * orig.channel[ch])/IM_SAMPLE_MAX;
+ alpha = srcp->channel[alphachan];
+ for (ch = 0; ch < im->channels; ++ch) {
+ IM_WORK_T samp = (alpha * srcp->channel[ch]
+ + (IM_SAMPLE_MAX - alpha) * destp->channel[ch])/IM_SAMPLE_MAX;
+ destp->channel[ch] = IM_LIMIT(samp);
}
- IM_PPIX(im, ttx, tty, &dest);
- ttx++;
+ ++srcp;
+ ++destp;
}
+ IM_PLIN(im, tx, tx + width, tty, dest_line);
tty++;
}
+ myfree(src_line);
+ myfree(dest_line);
#/code
+
return 1;
}
static int
-rubthru_targ_alpha(i_img *im, i_img *src, int tx, int ty,
- int src_minx, int src_miny,
- int src_maxx, int src_maxy) {
- int x, y, ttx, tty;
- int chancount;
- int chans[3];
+rubthru_targ_alpha(i_img *im, i_img *src, i_img_dim tx, i_img_dim ty,
+ i_img_dim src_minx, i_img_dim src_miny,
+ i_img_dim src_maxx, i_img_dim src_maxy) {
+ i_img_dim x, y, ttx, tty;
+ int want_channels;
int alphachan;
int ch;
int targ_alpha_chan;
+ i_img_dim width = src_maxx - src_minx;
- if (im->channels == 4 && src->channels == 4) {
- chancount = 3;
- chans[0] = 0; chans[1] = 1; chans[2] = 2;
+ if (im->channels == 4 && (src->channels == 4 || src->channels == 2)) {
alphachan = 3;
+ want_channels = 4;
}
- else if (im->channels == 4 && src->channels == 2) {
- chancount = 3;
- chans[0] = chans[1] = chans[2] = 0;
- alphachan = 1;
- }
- else if (im->channels == 2 && src->channels == 2) {
- chancount = 1;
- chans[0] = 0;
+ else if (im->channels == 2 && (src->channels == 4 || src->channels == 2)) {
alphachan = 1;
+ want_channels = 2;
}
else {
- i_push_error(0, "rubthru can only work where (dest, src) channels are (3,4), (4,4), (3,2), (4,2), (1,2) or (2,2)");
- return 0;
+ i_copyto(im, src, src_minx, src_miny, src_maxx, src_maxy, tx, ty);
+ return 1;
}
targ_alpha_chan = im->channels - 1;
#code im->bits <= 8 && src->bits <= 8
IM_WORK_T src_alpha, orig_alpha, dest_alpha, remains;
- IM_COLOR pv, orig, dest;
+ IM_COLOR *src_line, *dest_line;
+
+ src_line = mymalloc(sizeof(IM_COLOR) * width);
+ dest_line = mymalloc(sizeof(IM_COLOR) * width);
tty = ty;
for(y = src_miny; y < src_maxy; y++) {
- ttx = tx;
- for(x = src_minx; x < src_maxx; x++) {
- IM_GPIX(src, x, y, &pv);
- src_alpha = pv.channel[alphachan];
- if (src_alpha) {
- remains = IM_SAMPLE_MAX - src_alpha;
- IM_GPIX(im, ttx, tty, &orig);
- orig_alpha = orig.channel[targ_alpha_chan];
- dest_alpha = src_alpha + (remains * orig_alpha) / IM_SAMPLE_MAX;
-
- for (ch = 0; ch < chancount; ++ch) {
- dest.channel[ch] =
- ( src_alpha * pv.channel[chans[ch]]
- + remains * orig.channel[ch] * orig_alpha / IM_SAMPLE_MAX
- ) / dest_alpha;
- }
- /* dest's alpha */
- dest.channel[targ_alpha_chan] = dest_alpha;
- IM_PPIX(im, ttx, tty, &dest);
+ i_img_dim min_x, max_x;
+ IM_COLOR *srcp = src_line;
+ IM_COLOR *destp = dest_line;
+ IM_GLIN(src, src_minx, src_maxx, y, src_line);
+ if (src->channels != want_channels)
+ IM_ADAPT_COLORS(want_channels, src->channels, src_line, width);
+ min_x = src_minx;
+ max_x = src_maxx;
+
+ while (min_x < max_x && srcp->channel[alphachan] == 0) {
+ ++min_x;
+ ++srcp;
+ }
+ while (max_x > min_x && src_line[max_x-1 - src_minx].channel[alphachan] == 0) {
+ --max_x;
+ }
+
+ if (max_x > min_x) {
+ i_img_dim work_left = tx + min_x - src_minx;
+ i_img_dim work_width = max_x - min_x;
+ ttx = work_left;
+ IM_GLIN(im, work_left, work_left + work_width, tty, dest_line);
+
+ for(x = min_x; x < max_x; x++) {
+ src_alpha = srcp->channel[alphachan];
+ if (src_alpha) {
+ remains = IM_SAMPLE_MAX - src_alpha;
+ orig_alpha = destp->channel[targ_alpha_chan];
+ dest_alpha = src_alpha + (remains * orig_alpha) / IM_SAMPLE_MAX;
+
+ for (ch = 0; ch < im->channels-1; ++ch) {
+ IM_WORK_T samp =
+ ( src_alpha * srcp->channel[ch]
+ + remains * destp->channel[ch] * orig_alpha / IM_SAMPLE_MAX
+ ) / dest_alpha;
+ destp->channel[ch] = IM_LIMIT(samp);
+ }
+ /* dest's alpha */
+ destp->channel[targ_alpha_chan] = dest_alpha;
+ }
+ ++srcp;
+ ++destp;
+ ttx++;
}
- ttx++;
+ IM_PLIN(im, work_left, work_left + work_width, tty, dest_line);
}
tty++;
}
+ myfree(dest_line);
+ myfree(src_line);
#/code
return 1;
}
/*
-=item i_rubthru(im, src, tx, ty, src_minx, src_miny, src_maxx, src_maxy )
+=item i_rubthru(C<im>, C<src>, C<tx>, C<ty>, C<src_minx>, C<src_miny>, C<src_maxx>, C<src_maxy>)
=category Image
-Takes the sub image I<src[src_minx, src_maxx)[src_miny, src_maxy)> and
-overlays it at (I<tx>,I<ty>) on the image object.
+Takes the sub image C<src>[C<src_minx>, C<src_maxx>)[C<src_miny>, C<src_maxy>)> and
+overlays it at (C<tx>,C<ty>) on the image object.
-The alpha channel of each pixel in I<src> is used to control how much
-the existing colour in I<im> is replaced, if it is 255 then the colour
-is completely replaced, if it is 0 then the original colour is left
+The alpha channel of each pixel in C<src> is used to control how much
+the existing color in C<im> is replaced, if it is 255 then the color
+is completely replaced, if it is 0 then the original color is left
unmodified.
=cut
*/
int
-i_rubthru(i_img *im, i_img *src, int tx, int ty, int src_minx, int src_miny,
- int src_maxx, int src_maxy) {
+i_rubthru(i_img *im, i_img *src, i_img_dim tx, i_img_dim ty, i_img_dim src_minx, i_img_dim src_miny,
+ i_img_dim src_maxx, i_img_dim src_maxy) {
+ if (src_minx < 0) {
+ tx -= src_minx;
+ src_minx = 0;
+ }
+ if (src_miny < 0) {
+ ty -= src_miny;
+ src_miny = 0;
+ }
+ if (tx < 0) {
+ src_minx -= tx;
+ tx = 0;
+ }
+ if (ty < 0) {
+ src_miny -= ty;
+ ty = 0;
+ }
+ if (src_maxx > src->xsize) {
+ src_maxx = src->xsize;
+ }
+ if (src_maxy > src->ysize) {
+ src_maxy = src->ysize;
+ }
+ if (tx >= im->xsize || ty >= im->ysize
+ || src_minx >= src_maxx || src_miny >= src_maxy) {
+ i_clear_error();
+ /* just do nothing, attempting to rubthrough outside the target isn't
+ worth being an error */
+ return 1;
+ }
+
if (im->channels == 1 || im->channels == 3)
return rubthru_targ_noalpha(im, src, tx, ty, src_minx, src_miny,
src_maxx, src_maxy);