avoid dead code in i_t1_glyph_names().
[imager.git] / palimg.c
1 /*
2 =head1 NAME
3
4   palimg.c - implements paletted images for Imager.
5
6 =head1 SYNOPSIS
7
8 =head1 DESCRIPTION
9
10 Implements paletted images using the new image interface.
11
12 =over
13
14 =item IIM_base_8bit_pal
15
16 Basic 8-bit/sample paletted image
17
18 =cut
19 */
20
21 #define IMAGER_NO_CONTEXT
22
23 #include "imager.h"
24 #include "imageri.h"
25
26 #define PALEXT(im) ((i_img_pal_ext*)((im)->ext_data))
27 static int i_ppix_p(i_img *im, i_img_dim x, i_img_dim y, const i_color *val);
28 static int i_gpix_p(i_img *im, i_img_dim x, i_img_dim y, i_color *val);
29 static i_img_dim i_glin_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_color *vals);
30 static i_img_dim i_plin_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_color *vals);
31 static i_img_dim i_gsamp_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_sample_t *samps, int const *chans, int chan_count);
32 static i_img_dim i_gpal_p(i_img *pm, i_img_dim l, i_img_dim r, i_img_dim y, i_palidx *vals);
33 static i_img_dim i_ppal_p(i_img *pm, i_img_dim l, i_img_dim r, i_img_dim y, const i_palidx *vals);
34 static int i_addcolors_p(i_img *im, const i_color *color, int count);
35 static int i_getcolors_p(i_img *im, int i, i_color *color, int count);
36 static int i_colorcount_p(i_img *im);
37 static int i_maxcolors_p(i_img *im);
38 static int i_findcolor_p(i_img *im, const i_color *color, i_palidx *entry);
39 static int i_setcolors_p(i_img *im, int index, const i_color *color, int count);
40
41 static void i_destroy_p(i_img *im);
42 static i_img_dim 
43 i_psamp_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_sample_t *samps, const int *chans, int chan_count);
44 static i_img_dim 
45 i_psampf_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_fsample_t *samps, const int *chans, int chan_count);
46
47 static i_img IIM_base_8bit_pal =
48 {
49   0, /* channels set */
50   0, 0, 0, /* xsize, ysize, bytes */
51   ~0U, /* ch_mask */
52   i_8_bits, /* bits */
53   i_palette_type, /* type */
54   0, /* virtual */
55   NULL, /* idata */
56   { 0, 0, NULL }, /* tags */
57   NULL, /* ext_data */
58
59   i_ppix_p, /* i_f_ppix */
60   i_ppixf_fp, /* i_f_ppixf */
61   i_plin_p, /* i_f_plin */
62   i_plinf_fp, /* i_f_plinf */
63   i_gpix_p, /* i_f_gpix */
64   i_gpixf_fp, /* i_f_gpixf */
65   i_glin_p, /* i_f_glin */
66   i_glinf_fp, /* i_f_glinf */
67   i_gsamp_p, /* i_f_gsamp */
68   i_gsampf_fp, /* i_f_gsampf */
69
70   i_gpal_p, /* i_f_gpal */
71   i_ppal_p, /* i_f_ppal */
72   i_addcolors_p, /* i_f_addcolors */
73   i_getcolors_p, /* i_f_getcolors */
74   i_colorcount_p, /* i_f_colorcount */
75   i_maxcolors_p, /* i_f_maxcolors */
76   i_findcolor_p, /* i_f_findcolor */
77   i_setcolors_p, /* i_f_setcolors */
78
79   i_destroy_p, /* i_f_destroy */
80
81   i_gsamp_bits_fb,
82   NULL, /* i_f_psamp_bits */
83   
84   i_psamp_p,
85   i_psampf_p
86 };
87
88 /*
89 =item im_img_pal_new(ctx, C<x>, C<y>, C<channels>, C<maxpal>)
90 X<im_img_pal_new API>X<i_img_pal_new API>
91 =category Image creation/destruction
92 =synopsis i_img *img = im_img_pal_new(aIMCTX, width, height, channels, max_palette_size)
93 =synopsis i_img *img = i_img_pal_new(width, height, channels, max_palette_size)
94
95 Creates a new paletted image of the supplied dimensions.
96
97 C<maxpal> is the maximum palette size and should normally be 256.
98
99 Returns a new image or NULL on failure.
100
101 Also callable as C<i_img_pal_new(width, height, channels, max_palette_size)>.
102
103 =cut
104 */
105 i_img *
106 im_img_pal_new(pIMCTX, i_img_dim x, i_img_dim y, int channels, int maxpal) {
107   i_img *im;
108   i_img_pal_ext *palext;
109   size_t bytes, line_bytes;
110
111   i_clear_error();
112   if (maxpal < 1 || maxpal > 256) {
113     i_push_error(0, "Maximum of 256 palette entries");
114     return NULL;
115   }
116   if (x < 1 || y < 1) {
117     i_push_error(0, "Image sizes must be positive");
118     return NULL;
119   }
120   if (channels < 1 || channels > MAXCHANNELS) {
121     im_push_errorf(aIMCTX, 0, "Channels must be positive and <= %d", MAXCHANNELS);
122     return NULL;
123   }
124   bytes = sizeof(i_palidx) * x * y;
125   if (bytes / y / sizeof(i_palidx) != x) {
126     i_push_error(0, "integer overflow calculating image allocation");
127     return NULL;
128   }
129
130   /* basic assumption: we can always allocate a buffer representing a
131      line from the image, otherwise we're going to have trouble
132      working with the image */
133   line_bytes = sizeof(i_color) * x;
134   if (line_bytes / x != sizeof(i_color)) {
135     i_push_error(0, "integer overflow calculating scanline allocation");
136     return NULL;
137   }
138
139   im = i_img_alloc();
140   memcpy(im, &IIM_base_8bit_pal, sizeof(i_img));
141   palext = mymalloc(sizeof(i_img_pal_ext));
142   palext->pal = mymalloc(sizeof(i_color) * maxpal);
143   palext->count = 0;
144   palext->alloc = maxpal;
145   palext->last_found = -1;
146   im->ext_data = palext;
147   i_tags_new(&im->tags);
148   im->bytes = bytes;
149   im->idata = mymalloc(im->bytes);
150   im->channels = channels;
151   memset(im->idata, 0, im->bytes);
152   im->xsize = x;
153   im->ysize = y;
154
155   i_img_init(im);
156   
157   return im;
158 }
159
160 /*
161 =item i_img_rgb_convert(i_img *targ, i_img *src)
162
163 Converts paletted data in src to RGB data in targ
164
165 Internal function.
166
167 src must be a paletted image and targ must be an RGB image with the
168 same width, height and channels.
169
170 =cut
171 */
172 static void i_img_rgb_convert(i_img *targ, i_img *src) {
173   i_color *row = mymalloc(sizeof(i_color) * targ->xsize);
174   i_img_dim y;
175   for (y = 0; y < targ->ysize; ++y) {
176     i_glin(src, 0, src->xsize, y, row);
177     i_plin(targ, 0, src->xsize, y, row);
178   }
179   myfree(row);
180 }
181
182 /*
183 =item i_img_to_rgb_inplace(im)
184
185 Converts im from a paletted image to an RGB image.
186
187 The conversion is done in place.
188
189 The conversion cannot be done for virtual images.
190
191 =cut
192 */
193 int
194 i_img_to_rgb_inplace(i_img *im) {
195   i_img temp;
196   dIMCTXim(im);
197
198   if (im->virtual)
199     return 0;
200
201   if (im->type == i_direct_type)
202     return 1; /* trivial success */
203
204   i_img_empty_ch(&temp, im->xsize, im->ysize, im->channels);
205   i_img_rgb_convert(&temp, im);
206
207   /* nasty hack */
208   i_img_exorcise(im);
209   *im = temp;
210
211   /* i_img_empty_ch() calls i_img_init() which takes a ref */
212   im_context_refdec(aIMCTX, "img_destroy");
213
214   return 1;
215 }
216
217 /*
218 =item i_img_to_pal(i_img *im, i_quantize *quant)
219
220 Converts an RGB image to a paletted image
221
222 =cut
223 */
224 i_img *i_img_to_pal(i_img *src, i_quantize *quant) {
225   i_palidx *result;
226   i_img *im;
227   dIMCTXim(src);
228
229   i_clear_error();
230   
231   i_quant_makemap(quant, &src, 1);
232   result = i_quant_translate(quant, src);
233
234   if (result) {
235
236     im = i_img_pal_new(src->xsize, src->ysize, src->channels, quant->mc_size);
237
238     /* copy things over */
239     memcpy(im->idata, result, im->bytes);
240     PALEXT(im)->count = quant->mc_count;
241     memcpy(PALEXT(im)->pal, quant->mc_colors, sizeof(i_color) * quant->mc_count);
242     
243     myfree(result);
244
245     return im;
246   }
247   else {
248     return NULL;
249   }
250 }
251
252 /*
253 =item i_img_to_rgb(i_img *src)
254
255 =cut
256 */
257 i_img *
258 i_img_to_rgb(i_img *src) {
259   dIMCTXim(src);
260   i_img *im = i_img_empty_ch(NULL, src->xsize, src->ysize, src->channels);
261   i_img_rgb_convert(im, src);
262
263   return im;
264 }
265
266 /*
267 =item i_destroy_p(i_img *im)
268
269 Destroys data related to a paletted image.
270
271 =cut
272 */
273 static void i_destroy_p(i_img *im) {
274   if (im) {
275     i_img_pal_ext *palext = im->ext_data;
276     if (palext) {
277       if (palext->pal)
278         myfree(palext->pal);
279       myfree(palext);
280     }
281   }
282 }
283
284 /*
285 =item i_ppix_p(i_img *im, i_img_dim x, i_img_dim y, const i_color *val)
286
287 Write to a pixel in the image.
288
289 Warning: converts the image to a RGB image if the color isn't already
290 present in the image.
291
292 =cut
293 */
294 static int 
295 i_ppix_p(i_img *im, i_img_dim x, i_img_dim y, const i_color *val) {
296   const i_color *work_val = val;
297   i_color workc;
298   i_palidx which;
299   const unsigned all_mask = ( 1 << im->channels ) - 1;
300
301   if (x < 0 || x >= im->xsize || y < 0 || y >= im->ysize)
302     return -1;
303
304   if ((im->ch_mask & all_mask) != all_mask) {
305     unsigned mask = 1;
306     int ch;
307     i_gpix(im, x, y, &workc);
308     for (ch = 0; ch < im->channels; ++ch) {
309       if (im->ch_mask & mask)
310         workc.channel[ch] = val->channel[ch];
311       mask <<= 1;
312     }
313     work_val = &workc;
314   }
315
316   if (i_findcolor(im, work_val, &which)) {
317     ((i_palidx *)im->idata)[x + y * im->xsize] = which;
318     return 0;
319   }
320   else {
321     dIMCTXim(im);
322     im_log((aIMCTX, 1, "i_ppix: color(%d,%d,%d) not found, converting to rgb\n",
323             val->channel[0], val->channel[1], val->channel[2]));
324     if (i_img_to_rgb_inplace(im)) {
325       return i_ppix(im, x, y, val);
326     }
327     else
328       return -1;
329   }
330 }
331
332 /*
333 =item i_gpix_p(i_img *im, i_img_dim x, i_img_dim y, i_color *val)
334
335 Retrieve a pixel, converting from a palette index to a color.
336
337 =cut
338 */
339 static int i_gpix_p(i_img *im, i_img_dim x, i_img_dim y, i_color *val) {
340   i_palidx which;
341   if (x < 0 || x >= im->xsize || y < 0 || y >= im->ysize) {
342     return -1;
343   }
344   which = ((i_palidx *)im->idata)[x + y * im->xsize];
345   if (which > PALEXT(im)->count)
346     return -1;
347   *val = PALEXT(im)->pal[which];
348
349   return 0;
350 }
351
352 /*
353 =item i_glinp(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_color *vals)
354
355 Retrieve a row of pixels.
356
357 =cut
358 */
359 static i_img_dim i_glin_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_color *vals) {
360   if (y >= 0 && y < im->ysize && l < im->xsize && l >= 0) {
361     int palsize = PALEXT(im)->count;
362     i_color *pal = PALEXT(im)->pal;
363     i_palidx *data;
364     i_img_dim count, i;
365     if (r > im->xsize)
366       r = im->xsize;
367     data = ((i_palidx *)im->idata) + l + y * im->xsize;
368     count = r - l;
369     for (i = 0; i < count; ++i) {
370       i_palidx which = *data++;
371       if (which < palsize)
372         vals[i] = pal[which];
373     }
374     return count;
375   }
376   else {
377     return 0;
378   }
379 }
380
381 /*
382 =item i_plin_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_color *vals)
383
384 Write a line of color data to the image.
385
386 If any color value is not in the image when the image is converted to 
387 RGB.
388
389 =cut
390 */
391 static i_img_dim 
392 i_plin_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_color *vals) {
393   i_img_dim count, i;
394   i_palidx *data;
395   i_palidx which;
396   if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
397     if (r > im->xsize)
398       r = im->xsize;
399     data = ((i_palidx *)im->idata) + l + y * im->xsize;
400     count = r - l;
401     for (i = 0; i < count; ++i) {
402       if (i_findcolor(im, vals+i, &which)) {
403         ((i_palidx *)data)[i] = which;
404       }
405       else {
406         if (i_img_to_rgb_inplace(im)) {
407           return i+i_plin(im, l+i, r, y, vals+i);
408         }
409       }
410     }
411     return count;
412   }
413   else {
414     return 0;
415   }
416 }
417
418 /*
419 =item i_gsamp_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_sample_t *samps, int chans, int chan_count)
420
421 =cut
422 */
423 static i_img_dim i_gsamp_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_sample_t *samps, 
424               int const *chans, int chan_count) {
425   int ch;
426   if (y >= 0 && y < im->ysize && l < im->xsize && l >= 0) {
427     int palsize = PALEXT(im)->count;
428     i_color *pal = PALEXT(im)->pal;
429     i_palidx *data;
430     i_img_dim count, i, w;
431     if (r > im->xsize)
432       r = im->xsize;
433     data = ((i_palidx *)im->idata) + l + y * im->xsize;
434     count = 0;
435     w = r - l;
436     if (chans) {
437       for (ch = 0; ch < chan_count; ++ch) {
438         if (chans[ch] < 0 || chans[ch] >= im->channels) {
439           dIMCTXim(im);
440           im_push_errorf(aIMCTX, 0, "No channel %d in this image", chans[ch]);
441         }
442       }
443
444       for (i = 0; i < w; ++i) {
445         i_palidx which = *data++;
446         if (which < palsize) {
447           for (ch = 0; ch < chan_count; ++ch) {
448             *samps++ = pal[which].channel[chans[ch]];
449             ++count;
450           }
451         }
452       }
453     }
454     else {
455       if (chan_count <= 0 || chan_count > im->channels) {
456         dIMCTXim(im);
457         im_push_errorf(aIMCTX, 0, "chan_count %d out of range, must be >0, <= channels", 
458                       chan_count);
459         return 0;
460       }
461       for (i = 0; i < w; ++i) {
462         i_palidx which = *data++;
463         if (which < palsize) {
464           for (ch = 0; ch < chan_count; ++ch) {
465             *samps++ = pal[which].channel[ch];
466             ++count;
467           }
468         }
469       }
470     }
471     return count;
472   }
473   else {
474     return 0;
475   }
476 }
477
478 /*
479 =item i_gpal_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_palidx *vals)
480
481 =cut
482 */
483
484 static i_img_dim i_gpal_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_palidx *vals) {
485   if (y >= 0 && y < im->ysize && l < im->xsize && l >= 0) {
486     i_palidx *data;
487     i_img_dim i, w;
488     if (r > im->xsize)
489       r = im->xsize;
490     data = ((i_palidx *)im->idata) + l + y * im->xsize;
491     w = r - l;
492     for (i = 0; i < w; ++i) {
493       *vals++ = *data++;
494     }
495     return i;
496   }
497   else {
498     return 0;
499   }
500 }
501
502 /*
503 =item i_ppal_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_palidx *vals)
504
505 =cut
506 */
507
508 static i_img_dim i_ppal_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_palidx *vals) {
509   if (y >= 0 && y < im->ysize && l < im->xsize && l >= 0) {
510     i_palidx *data;
511     i_img_dim i, w;
512     if (r > im->xsize)
513       r = im->xsize;
514     data = ((i_palidx *)im->idata) + l + y * im->xsize;
515     w = r - l;
516     for (i = 0; i < w; ++i) {
517       *data++ = *vals++;
518     }
519     return i;
520   }
521   else {
522     return 0;
523   }
524 }
525
526 /*
527 =item i_addcolors_p(i_img *im, const i_color *color, int count)
528
529 =cut
530 */
531 static int i_addcolors_p(i_img *im, const i_color *color, int count) {
532   if (PALEXT(im)->count + count <= PALEXT(im)->alloc) {
533     int result = PALEXT(im)->count;
534     int index = result;
535
536     PALEXT(im)->count += count;
537     while (count) {
538       PALEXT(im)->pal[index++] = *color++;
539       --count;
540     }
541
542     return result;
543   }
544   else
545     return -1;
546 }
547
548 /*
549 =item i_getcolors_p(i_img *im, int i, i_color *color, int count)
550
551 =cut
552 */
553 static int i_getcolors_p(i_img *im, int i, i_color *color, int count) {
554   if (i >= 0 && i+count <= PALEXT(im)->count) {
555     while (count) {
556       *color++ = PALEXT(im)->pal[i++];
557       --count;
558     }
559     return 1;
560   }
561   else
562     return 0;
563 }
564
565 static int color_eq(i_img *im, const i_color *c1, const i_color *c2) {
566   int ch;
567   for (ch = 0; ch < im->channels; ++ch) {
568     if (c1->channel[ch] != c2->channel[ch])
569       return 0;
570   }
571   return 1;
572 }
573
574 /*
575 =item i_colorcount_p(i_img *im)
576
577 =cut
578 */
579 static int i_colorcount_p(i_img *im) {
580   return PALEXT(im)->count;
581 }
582
583 /*
584 =item i_maxcolors_p(i_img *im)
585
586 =cut
587 */
588 static int i_maxcolors_p(i_img *im) {
589   return PALEXT(im)->alloc;
590 }
591
592 /*
593 =item i_setcolors_p(i_img *im, int index, const i_color *colors, int count)
594
595 =cut
596 */
597 static int i_setcolors_p(i_img *im, int index, const i_color *colors, int count) {
598   if (index >= 0 && count >= 1 && index + count <= PALEXT(im)->count) {
599     while (count) {
600       PALEXT(im)->pal[index++] = *colors++;
601       --count;
602     }
603     return 1;
604   }
605
606   return 0;
607 }
608
609 /*
610 =item i_findcolor_p(i_img *im)
611
612 =cut
613 */
614 static int i_findcolor_p(i_img *im, const i_color *color, i_palidx *entry) {
615   if (PALEXT(im)->count) {
616     int i;
617     /* often the same color comes up several times in a row */
618     if (PALEXT(im)->last_found >= 0) {
619       if (color_eq(im, color, PALEXT(im)->pal + PALEXT(im)->last_found)) {
620         *entry = PALEXT(im)->last_found;
621         return 1;
622       }
623     }
624     for (i = 0; i < PALEXT(im)->count; ++i) {
625       if (color_eq(im, color, PALEXT(im)->pal + i)) {
626         PALEXT(im)->last_found = *entry = i;
627         return 1;
628       }
629     }
630   }
631   return 0;
632 }
633
634 /*
635 =item i_psamp_p(im, l, r, y, samps, chans, chan_count)
636
637 Implement psamp() for paletted images.
638
639 Since writing samples doesn't really work as a concept for paletted
640 images, this is slow.
641
642 Also, writing samples may convert the image to a direct image in the
643 process, so use i_ppix/i_gpix instead of directly calling the paletted
644 handlers.
645
646 =cut
647 */
648
649 static i_img_dim 
650 i_psamp_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y,
651           const i_sample_t *samps, const int *chans, int chan_count) {
652   if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
653     i_img_dim count = 0;
654     int ch;
655
656     if (r > im->xsize)
657       r = im->xsize;
658       
659     if (chans) {
660       /* make sure we have good channel numbers */
661       for (ch = 0; ch < chan_count; ++ch) {
662         if (chans[ch] < 0 || chans[ch] >= im->channels) {
663           dIMCTXim(im);
664           im_push_errorf(aIMCTX, 0, "No channel %d in this image", chans[ch]);
665           return -1;
666         }
667       }
668       while (l < r) {
669         i_color c;
670         
671         i_gpix(im, l, y, &c);
672         for (ch = 0; ch < chan_count; ++ch)
673           c.channel[chans[ch]] = *samps++;
674         i_ppix(im, l, y, &c);
675         count += chan_count;
676         ++l;
677       }
678     }
679     else {
680       if (chan_count <= 0 || chan_count > im->channels) {
681         dIMCTXim(im);
682         im_push_errorf(aIMCTX, 0, "chan_count %d out of range, must be >0, <= channels", 
683                       chan_count);
684         return -1;
685       }
686
687       while (l < r) {
688         i_color c;
689         
690         i_gpix(im, l, y, &c);
691         for (ch = 0; ch < chan_count; ++ch)
692           c.channel[ch] = *samps++;
693         i_ppix(im, l, y, &c);
694         count += chan_count;
695         ++l;
696       }
697     }
698
699     return count;
700   }
701   else {
702     dIMCTXim(im);
703     i_push_error(0, "Image position outside of image");
704     return -1;
705   }
706 }
707
708 /*
709 =item i_psampf_p(im, l, r, y, samps, chans, chan_count)
710
711 Implement psampf() for paletted images.
712
713 Since writing samples doesn't really work as a concept for paletted
714 images, this is slow.
715
716 Also, writing samples may convert the image to a direct image in the
717 process, so use i_ppixf/i_gpixf instead of directly calling the paletted
718 handlers.
719
720 =cut
721 */
722
723 static i_img_dim 
724 i_psampf_p(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y,
725           const i_fsample_t *samps, const int *chans, int chan_count) {
726   if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
727     i_img_dim count = 0;
728     int ch;
729
730     if (r > im->xsize)
731       r = im->xsize;
732       
733     if (chans) {
734       /* make sure we have good channel numbers */
735       for (ch = 0; ch < chan_count; ++ch) {
736         if (chans[ch] < 0 || chans[ch] >= im->channels) {
737           dIMCTXim(im);
738           im_push_errorf(aIMCTX, 0, "No channel %d in this image", chans[ch]);
739           return -1;
740         }
741       }
742       while (l < r) {
743         i_fcolor c;
744         
745         i_gpixf(im, l, y, &c);
746         for (ch = 0; ch < chan_count; ++ch)
747           c.channel[chans[ch]] = *samps++;
748         i_ppixf(im, l, y, &c);
749         count += chan_count;
750         ++l;
751       }
752     }
753     else {
754       if (chan_count <= 0 || chan_count > im->channels) {
755         dIMCTXim(im);
756         im_push_errorf(aIMCTX, 0, "chan_count %d out of range, must be >0, <= channels", 
757                       chan_count);
758         return -1;
759       }
760
761       while (l < r) {
762         i_fcolor c;
763         
764         i_gpixf(im, l, y, &c);
765         for (ch = 0; ch < chan_count; ++ch)
766           c.channel[ch] = *samps++;
767         i_ppixf(im, l, y, &c);
768         count += chan_count;
769         ++l;
770       }
771     }
772
773     return count;
774   }
775   else {
776     dIMCTXim(im);
777     i_push_error(0, "Image position outside of image");
778     return -1;
779   }
780 }
781
782 /*
783 =back
784
785 =head1 AUTHOR
786
787 Tony Cook <tony@develop-help.com>
788
789 =head1 SEE ALSO
790
791 Imager(3)
792
793 =cut
794 */