commit changes from draw branch
[imager.git] / 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 }