compose.im

   1 #include "imager.h"
   2 #include "imrender.h"
   3 #include "imageri.h"
   4
   5 int
   6 i_compose_mask(i_img *out, i_img *src, i_img *mask,
   7                i_img_dim out_left, i_img_dim out_top,
   8                i_img_dim src_left, i_img_dim src_top,
   9                i_img_dim mask_left, i_img_dim mask_top,
  10                i_img_dim width, i_img_dim height,
  11                int combine,
  12                double opacity) {
  13   i_render r;
  14   i_img_dim dy;
  15   i_fill_combine_f combinef_8;
  16   i_fill_combinef_f combinef_double;
  17   int channel_zero = 0;
  18
  19   mm_log((1, "i_compose_mask(out %p, src %p, mask %p, out(" i_DFp "), "
  20           "src(" i_DFp "), mask(" i_DFp "), size(" i_DFp "),"
  21           " combine %d opacity %f\n", out, src,
  22           mask, i_DFcp(out_left, out_top), i_DFcp(src_left, src_top),
  23           i_DFcp(mask_left, mask_top), i_DFcp(width, height),
  24           combine, opacity));
  25
  26   i_clear_error();
  27   if (out_left >= out->xsize
  28       || out_top >= out->ysize
  29       || src_left >= src->xsize
  30       || src_top >= src->ysize
  31       || width <= 0
  32       || height <= 0
  33       || out_left + width <= 0
  34       || out_top + height <= 0
  35       || src_left + width <= 0
  36       || src_top + height <= 0
  37       || mask_left >= mask->xsize
  38       || mask_top >= mask->ysize
  39       || mask_left + width <= 0
  40       || mask_top + height <= 0)
  41     return 0;
  42
  43   if (out_left < 0) {
  44     width = out_left + width;
  45     src_left -= out_left;
  46     mask_left -= out_left;
  47     out_left = 0;
  48   }
  49   if (out_left + width > out->xsize)
  50     width = out->xsize - out_left;
  51
  52   if (out_top < 0) {
  53     height = out_top + height;
  54     mask_top -= out_top;
  55     src_top -= out_top;
  56     out_top = 0;
  57   }
  58   if (out_top + height > out->ysize)
  59     height = out->ysize - out_top;
  60
  61   if (src_left < 0) {
  62     width = src_left + width;
  63     out_left -= src_left;
  64     mask_left -= src_left;
  65     src_left = 0;
  66   }
  67   if (src_left + width > src->xsize)
  68     width = src->xsize - src_left;
  69
  70   if (src_top < 0) {
  71     height = src_top + height;
  72     out_top -= src_top;
  73     mask_top -= src_top;
  74     src_top = 0;
  75   }
  76   if (src_top + height > src->ysize)
  77     height = src->ysize - src_top;
  78
  79   if (mask_left < 0) {
  80     width = mask_left + width;
  81     out_left -= mask_left;
  82     src_left -= mask_left;
  83     mask_left = 0;
  84   }
  85   if (mask_left + width > mask->xsize)
  86     width = mask->xsize - mask_left;
  87
  88   if (mask_top < 0) {
  89     height = mask_top + height;
  90     src_top -= mask_top;
  91     out_top -= mask_top;
  92     mask_top = 0;
  93   }
  94   if (mask_top + height > mask->ysize)
  95     height = mask->ysize - mask_top;
  96
  97   if (opacity > 1.0)
  98     opacity = 1.0;
  99   else if (opacity <= 0) {
 100     i_push_error(0, "opacity must be positive");
 101     return 0;
 102   }
 103
 104   mm_log((1, "after adjustments: (out(" i_DFp "), src(" i_DFp "),"
 105           " mask(" i_DFp "), size(" i_DFp ")\n",
 106           i_DFcp(out_left, out_top), i_DFcp(src_left, src_top),
 107           i_DFcp(mask_left, mask_top), i_DFcp(width, height)));
 108
 109   i_get_combine(combine, &combinef_8, &combinef_double);
 110
 111   i_render_init(&r, out, width);
 112 #code out->bits <= 8 && src->bits<= 8 && mask->bits <= 8
 113   IM_COLOR *src_line = mymalloc(sizeof(IM_COLOR) * width);
 114   IM_SAMPLE_T *mask_line = mymalloc(sizeof(IM_SAMPLE_T) * width);
 115   int adapt_channels = out->channels;
 116
 117   if (adapt_channels == 1 || adapt_channels == 3)
 118     ++adapt_channels;
 119
 120   for (dy = 0; dy < height; ++dy) {
 121     IM_GLIN(src, src_left, src_left + width, src_top + dy, src_line);
 122     IM_ADAPT_COLORS(adapt_channels, src->channels, src_line, width);
 123     IM_GSAMP(mask, mask_left, mask_left + width, mask_top + dy,
 124              mask_line, &channel_zero, 1);
 125     if (opacity < 1.0) {
 126       i_img_dim i;
 127       IM_SAMPLE_T *maskp = mask_line;
 128       for (i = 0; i < width; ++i) {
 129         *maskp = IM_ROUND(*maskp * opacity);
 130         ++maskp;
 131       }
 132     }
 133     IM_RENDER_LINE(&r, out_left, out_top+dy, width, mask_line, src_line,
 134                    IM_SUFFIX(combinef));
 135   }
 136   myfree(src_line);
 137   myfree(mask_line);
 138
 139 #/code
 140   i_render_done(&r);
 141
 142   return 1;
 143 }
 144
 145 int
 146 i_compose(i_img *out, i_img *src,
 147           i_img_dim out_left, i_img_dim out_top,
 148           i_img_dim src_left, i_img_dim src_top,
 149           i_img_dim width, i_img_dim height,
 150           int combine,
 151           double opacity) {
 152   i_render r;
 153   i_img_dim dy;
 154   i_fill_combine_f combinef_8;
 155   i_fill_combinef_f combinef_double;
 156
 157   mm_log((1, "i_compose(out %p, src %p, out(" i_DFp "), src(" i_DFp "), "
 158           "size(" i_DFp "), combine %d opacity %f\n", out, src,
 159           i_DFcp(out_left, out_top), i_DFcp(src_left, src_top),
 160           i_DFcp(width, height), combine, opacity));
 161
 162   i_clear_error();
 163   if (out_left >= out->xsize
 164       || out_top >= out->ysize
 165       || src_left >= src->xsize
 166       || src_top >= src->ysize
 167       || width <= 0
 168       || height <= 0
 169       || out_left + width <= 0
 170       || out_top + height <= 0
 171       || src_left + width <= 0
 172       || src_top + height <= 0)
 173     return 0;
 174
 175   if (out_left < 0) {
 176     width = out_left + width;
 177     src_left -= out_left;
 178     out_left = 0;
 179   }
 180   if (out_left + width > out->xsize)
 181     width = out->xsize - out_left;
 182
 183   if (out_top < 0) {
 184     height = out_top + height;
 185     src_top -= out_top;
 186     out_top = 0;
 187   }
 188   if (out_top + height > out->ysize)
 189     height = out->ysize - out_top;
 190
 191   if (src_left < 0) {
 192     width = src_left + width;
 193     out_left -= src_left;
 194     src_left = 0;
 195   }
 196   if (src_left + width > src->xsize)
 197     width = src->xsize - src_left;
 198
 199   if (src_top < 0) {
 200     height = src_top + height;
 201     out_top -= src_top;
 202     src_top = 0;
 203   }
 204   if (src_top + height > src->ysize)
 205     height = src->ysize - src_top;
 206
 207   if (opacity > 1.0)
 208     opacity = 1.0;
 209   else if (opacity <= 0) {
 210     i_push_error(0, "opacity must be positive");
 211     return 0;
 212   }
 213
 214   i_get_combine(combine, &combinef_8, &combinef_double);
 215
 216   i_render_init(&r, out, width);
 217 #code out->bits <= 8 && src->bits <= 8
 218   IM_COLOR *src_line = mymalloc(sizeof(IM_COLOR) * width);
 219   IM_SAMPLE_T *mask_line = NULL;
 220   int adapt_channels = out->channels;
 221
 222   if (opacity != 1.0) {
 223     i_img_dim i;
 224     IM_SAMPLE_T mask_value = IM_ROUND(opacity * IM_SAMPLE_MAX);
 225     mask_line = mymalloc(sizeof(IM_SAMPLE_T) * width);
 226
 227     for (i = 0; i < width; ++i)
 228       mask_line[i] = mask_value;
 229   }
 230
 231   if (adapt_channels == 1 || adapt_channels == 3)
 232     ++adapt_channels;
 233
 234   for (dy = 0; dy < height; ++dy) {
 235     IM_GLIN(src, src_left, src_left + width, src_top + dy, src_line);
 236     IM_ADAPT_COLORS(adapt_channels, src->channels, src_line, width);
 237     IM_RENDER_LINE(&r, out_left, out_top+dy, width, mask_line, src_line,
 238                    IM_SUFFIX(combinef));
 239   }
 240   myfree(src_line);
 241   if (mask_line)
 242     myfree(mask_line);
 243
 244 #/code
 245   i_render_done(&r);
 246
 247   return 1;
 248 }