#include "imager.h"
#include "imrender.h"
#include "imageri.h"
int
i_compose_mask(i_img *out, i_img *src, i_img *mask,
i_img_dim out_left, i_img_dim out_top,
i_img_dim src_left, i_img_dim src_top,
i_img_dim mask_left, i_img_dim mask_top,
i_img_dim width, i_img_dim height,
int combine,
double opacity) {
i_render r;
i_img_dim dy;
i_fill_combine_f combinef_8;
i_fill_combinef_f combinef_double;
int channel_zero = 0;
mm_log((1, "i_compose_mask(out %p, src %p, mask %p, out(" i_DFp "), "
"src(" i_DFp "), mask(" i_DFp "), size(" i_DFp "),"
" combine %d opacity %f\n", out, src,
mask, i_DFcp(out_left, out_top), i_DFcp(src_left, src_top),
i_DFcp(mask_left, mask_top), i_DFcp(width, height),
combine, opacity));
i_clear_error();
if (out_left >= out->xsize
|| out_top >= out->ysize
|| src_left >= src->xsize
|| src_top >= src->ysize
|| width <= 0
|| height <= 0
|| out_left + width <= 0
|| out_top + height <= 0
|| src_left + width <= 0
|| src_top + height <= 0
|| mask_left >= mask->xsize
|| mask_top >= mask->ysize
|| mask_left + width <= 0
|| mask_top + height <= 0)
return 0;
if (out_left < 0) {
width = out_left + width;
src_left -= out_left;
mask_left -= out_left;
out_left = 0;
}
if (out_left + width > out->xsize)
width = out->xsize - out_left;
if (out_top < 0) {
height = out_top + height;
mask_top -= out_top;
src_top -= out_top;
out_top = 0;
}
if (out_top + height > out->ysize)
height = out->ysize - out_top;
if (src_left < 0) {
width = src_left + width;
out_left -= src_left;
mask_left -= src_left;
src_left = 0;
}
if (src_left + width > src->xsize)
width = src->xsize - src_left;
if (src_top < 0) {
height = src_top + height;
out_top -= src_top;
mask_top -= src_top;
src_top = 0;
}
if (src_top + height > src->ysize)
height = src->ysize - src_top;
if (mask_left < 0) {
width = mask_left + width;
out_left -= mask_left;
src_left -= mask_left;
mask_left = 0;
}
if (mask_left + width > mask->xsize)
width = mask->xsize - mask_left;
if (mask_top < 0) {
height = mask_top + height;
src_top -= mask_top;
out_top -= mask_top;
mask_top = 0;
}
if (mask_top + height > mask->ysize)
height = mask->ysize - mask_top;
if (opacity > 1.0)
opacity = 1.0;
else if (opacity <= 0) {
i_push_error(0, "opacity must be positive");
return 0;
}
mm_log((1, "after adjustments: (out(" i_DFp "), src(" i_DFp "),"
" mask(" i_DFp "), size(" i_DFp ")\n",
i_DFcp(out_left, out_top), i_DFcp(src_left, src_top),
i_DFcp(mask_left, mask_top), i_DFcp(width, height)));
i_get_combine(combine, &combinef_8, &combinef_double);
i_render_init(&r, out, width);
#code out->bits <= 8 && src->bits<= 8 && mask->bits <= 8
IM_COLOR *src_line = mymalloc(sizeof(IM_COLOR) * width);
IM_SAMPLE_T *mask_line = mymalloc(sizeof(IM_SAMPLE_T) * width);
int adapt_channels = out->channels;
if (adapt_channels == 1 || adapt_channels == 3)
++adapt_channels;
for (dy = 0; dy < height; ++dy) {
IM_GLIN(src, src_left, src_left + width, src_top + dy, src_line);
IM_ADAPT_COLORS(adapt_channels, src->channels, src_line, width);
IM_GSAMP(mask, mask_left, mask_left + width, mask_top + dy,
mask_line, &channel_zero, 1);
if (opacity < 1.0) {
i_img_dim i;
IM_SAMPLE_T *maskp = mask_line;
for (i = 0; i < width; ++i) {
*maskp = IM_ROUND(*maskp * opacity);
++maskp;
}
}
IM_RENDER_LINE(&r, out_left, out_top+dy, width, mask_line, src_line,
IM_SUFFIX(combinef));
}
myfree(src_line);
myfree(mask_line);
#/code
i_render_done(&r);
return 1;
}
int
i_compose(i_img *out, i_img *src,
i_img_dim out_left, i_img_dim out_top,
i_img_dim src_left, i_img_dim src_top,
i_img_dim width, i_img_dim height,
int combine,
double opacity) {
i_render r;
i_img_dim dy;
i_fill_combine_f combinef_8;
i_fill_combinef_f combinef_double;
mm_log((1, "i_compose(out %p, src %p, out(" i_DFp "), src(" i_DFp "), "
"size(" i_DFp "), combine %d opacity %f\n", out, src,
i_DFcp(out_left, out_top), i_DFcp(src_left, src_top),
i_DFcp(width, height), combine, opacity));
i_clear_error();
if (out_left >= out->xsize
|| out_top >= out->ysize
|| src_left >= src->xsize
|| src_top >= src->ysize
|| width <= 0
|| height <= 0
|| out_left + width <= 0
|| out_top + height <= 0
|| src_left + width <= 0
|| src_top + height <= 0)
return 0;
if (out_left < 0) {
width = out_left + width;
src_left -= out_left;
out_left = 0;
}
if (out_left + width > out->xsize)
width = out->xsize - out_left;
if (out_top < 0) {
height = out_top + height;
src_top -= out_top;
out_top = 0;
}
if (out_top + height > out->ysize)
height = out->ysize - out_top;
if (src_left < 0) {
width = src_left + width;
out_left -= src_left;
src_left = 0;
}
if (src_left + width > src->xsize)
width = src->xsize - src_left;
if (src_top < 0) {
height = src_top + height;
out_top -= src_top;
src_top = 0;
}
if (src_top + height > src->ysize)
height = src->ysize - src_top;
if (opacity > 1.0)
opacity = 1.0;
else if (opacity <= 0) {
i_push_error(0, "opacity must be positive");
return 0;
}
i_get_combine(combine, &combinef_8, &combinef_double);
i_render_init(&r, out, width);
#code out->bits <= 8 && src->bits <= 8
IM_COLOR *src_line = mymalloc(sizeof(IM_COLOR) * width);
IM_SAMPLE_T *mask_line = NULL;
int adapt_channels = out->channels;
if (opacity != 1.0) {
i_img_dim i;
IM_SAMPLE_T mask_value = IM_ROUND(opacity * IM_SAMPLE_MAX);
mask_line = mymalloc(sizeof(IM_SAMPLE_T) * width);
for (i = 0; i < width; ++i)
mask_line[i] = mask_value;
}
if (adapt_channels == 1 || adapt_channels == 3)
++adapt_channels;
for (dy = 0; dy < height; ++dy) {
IM_GLIN(src, src_left, src_left + width, src_top + dy, src_line);
IM_ADAPT_COLORS(adapt_channels, src->channels, src_line, width);
IM_RENDER_LINE(&r, out_left, out_top+dy, width, mask_line, src_line,
IM_SUFFIX(combinef));
}
myfree(src_line);
if (mask_line)
myfree(mask_line);
#/code
i_render_done(&r);
return 1;
}