rubthru.im

   1 #include "imager.h"
   2
   3 static int
   4 rubthru_targ_noalpha(i_img *im, i_img *src,
   5                      int tx, int ty,
   6                      int src_minx, int src_miny,
   7                      int src_maxx, int src_maxy) {
   8   int x, y, ttx, tty;
   9   int alphachan;
  10   int ch;
  11   int width = src_maxx - src_minx;
  12   int want_channels;
  13
  14   i_clear_error();
  15
  16   if (im->channels == 3 && (src->channels == 4 || src->channels == 2)) {
  17     want_channels = 4;
  18     alphachan = 3;
  19   }
  20   else if (im->channels == 1 && (src->channels == 4 || src->channels == 2)) {
  21     want_channels = 2;
  22     alphachan = 1;
  23   }
  24   else {
  25     i_copyto(im, src, src_minx, src_miny, src_maxx, src_maxy, tx, ty);
  26     return 1;
  27   }
  28
  29 #code im->bits <= 8 && src->bits <= 8
  30   IM_WORK_T alpha;
  31   IM_COLOR *src_line, *dest_line;
  32
  33   src_line = mymalloc(sizeof(IM_COLOR) * width);
  34   dest_line = mymalloc(sizeof(IM_COLOR) * width);
  35
  36   tty = ty;
  37   for(y = src_miny; y < src_maxy; y++) {
  38     IM_COLOR *srcp = src_line;
  39     IM_COLOR *destp = dest_line;
  40     ttx = tx;
  41     IM_GLIN(src, src_minx, src_maxx, y, src_line);
  42     IM_GLIN(im, tx, tx + width, tty, dest_line);
  43     if (src->channels != want_channels)
  44       IM_ADAPT_COLORS(want_channels, src->channels, src_line, width);
  45
  46     for(x = src_minx; x < src_maxx; x++) {
  47       alpha = srcp->channel[alphachan];
  48       for (ch = 0; ch < im->channels; ++ch) {
  49         IM_WORK_T samp = (alpha * srcp->channel[ch]
  50                             + (IM_SAMPLE_MAX - alpha) * destp->channel[ch])/IM_SAMPLE_MAX;
  51         destp->channel[ch] = IM_LIMIT(samp);
  52       }
  53       ++srcp;
  54       ++destp;
  55       ttx;
  56     }
  57     IM_PLIN(im, tx, tx + width, tty, dest_line);
  58     tty++;
  59   }
  60   myfree(src_line);
  61   myfree(dest_line);
  62 #/code
  63
  64   return 1;
  65 }
  66
  67 static int
  68 rubthru_targ_alpha(i_img *im, i_img *src, int tx, int ty,
  69                    int src_minx, int src_miny,
  70                    int src_maxx, int src_maxy) {
  71   int x, y, ttx, tty;
  72   int want_channels;
  73   int alphachan;
  74   int ch;
  75   int targ_alpha_chan;
  76   int width = src_maxx - src_minx;
  77
  78   if (im->channels == 4 && (src->channels == 4 || src->channels == 2)) {
  79     alphachan = 3;
  80     want_channels = 4;
  81   }
  82   else if (im->channels == 2 && (src->channels == 4 || src->channels == 2)) {
  83     alphachan = 1;
  84     want_channels = 2;
  85   }
  86   else {
  87     i_copyto(im, src, src_minx, src_miny, src_maxx, src_maxy, tx, ty);
  88     return 1;
  89   }
  90
  91   targ_alpha_chan = im->channels - 1;
  92
  93 #code im->bits <= 8 && src->bits <= 8
  94   IM_WORK_T src_alpha, orig_alpha, dest_alpha, remains;
  95   IM_COLOR *src_line, *dest_line;
  96
  97   src_line = mymalloc(sizeof(IM_COLOR) * width);
  98   dest_line = mymalloc(sizeof(IM_COLOR) * width);
  99
 100   tty = ty;
 101   for(y = src_miny; y < src_maxy; y++) {
 102     int min_x, max_x;
 103     IM_COLOR *srcp = src_line;
 104     IM_COLOR *destp = dest_line;
 105     IM_GLIN(src, src_minx, src_maxx, y, src_line);
 106     if (src->channels != want_channels)
 107       IM_ADAPT_COLORS(want_channels, src->channels, src_line, width);
 108     min_x = src_minx;
 109     max_x = src_maxx;
 110
 111     while (min_x < max_x && srcp->channel[alphachan] == 0) {
 112       ++min_x;
 113       ++srcp;
 114     }
 115     while (max_x > min_x && src_line[max_x-1].channel[alphachan] == 0) {
 116       --max_x;
 117     }
 118
 119     if (max_x > min_x) {
 120       int work_left = tx + min_x - src_minx;
 121       int work_width = max_x - min_x;
 122       ttx = work_left;
 123       IM_GLIN(im, work_left, work_left + work_width, tty, dest_line);
 124
 125       for(x = src_minx; x < src_maxx; x++) {
 126         src_alpha = srcp->channel[alphachan];
 127         if (src_alpha) {
 128           remains = IM_SAMPLE_MAX - src_alpha;
 129           orig_alpha = destp->channel[targ_alpha_chan];
 130           dest_alpha = src_alpha + (remains * orig_alpha) / IM_SAMPLE_MAX;
 131
 132           for (ch = 0; ch < im->channels-1; ++ch) {
 133             IM_WORK_T samp =
 134               ( src_alpha * srcp->channel[ch]
 135                 + remains * destp->channel[ch] * orig_alpha / IM_SAMPLE_MAX
 136                 ) / dest_alpha;
 137             destp->channel[ch] = IM_LIMIT(samp);
 138           }
 139           /* dest's alpha */
 140           destp->channel[targ_alpha_chan] = dest_alpha;
 141         }
 142         ++srcp;
 143         ++destp;
 144         ttx++;
 145       }
 146       IM_PLIN(im, work_left, work_left + work_width, tty, dest_line);
 147     }
 148     tty++;
 149   }
 150   myfree(dest_line);
 151   myfree(src_line);
 152 #/code
 153   return 1;
 154 }
 155
 156 /*
 157 =item i_rubthru(im, src, tx, ty, src_minx, src_miny, src_maxx, src_maxy )
 158
 159 =category Image
 160
 161 Takes the sub image I<src[src_minx, src_maxx)[src_miny, src_maxy)> and
 162 overlays it at (I<tx>,I<ty>) on the image object.
 163
 164 The alpha channel of each pixel in I<src> is used to control how much
 165 the existing colour in I<im> is replaced, if it is 255 then the colour
 166 is completely replaced, if it is 0 then the original colour is left
 167 unmodified.
 168
 169 =cut
 170 */
 171
 172 int
 173 i_rubthru(i_img *im, i_img *src, int tx, int ty, int src_minx, int src_miny,
 174           int src_maxx, int src_maxy) {
 175   if (src_minx < 0) {
 176     tx -= src_minx;
 177     src_minx = 0;
 178   }
 179   if (src_miny < 0) {
 180     ty -= src_miny;
 181     src_miny = 0;
 182   }
 183   if (tx < 0) {
 184     src_minx -= tx;
 185     tx = 0;
 186   }
 187   if (ty < 0) {
 188     src_miny -= ty;
 189     ty = 0;
 190   }
 191   if (src_maxx > src->xsize) {
 192     src_maxx = src->xsize;
 193   }
 194   if (src_maxy > src->ysize) {
 195     src_maxy = src->ysize;
 196   }
 197   if (tx >= im->xsize || ty >= im->ysize
 198       || src_minx >= src_maxx || src_miny >= src_maxy) {
 199     i_clear_error();
 200     i_push_error(0, "rubthrough: nothing to do");
 201     return 0;
 202   }
 203
 204   if (im->channels == 1 || im->channels == 3)
 205     return rubthru_targ_noalpha(im, src, tx, ty, src_minx, src_miny,
 206                                 src_maxx, src_maxy);
 207   else
 208     return rubthru_targ_alpha(im, src, tx, ty, src_minx, src_miny,
 209                               src_maxx, src_maxy);
 210 }