]> git.imager.perl.org - imager.git/blob - map.c
add some extra error reporting to I/O layer tests
[imager.git] / map.c
1 /*
2 =head1 NAME
3
4   map.c - inplace image mapping and related functionality
5
6 =head1 SYNOPSIS
7
8   i_map(srcimage, coeffs, outchans, inchans)
9
10 =head1 DESCRIPTION
11
12 Converts images from one format to another, typically in this case for
13 converting from RGBA to greyscale and back.
14
15 =over
16
17 =cut
18 */
19
20 #include "imager.h"
21
22
23 /*
24 =item i_map(im, mapcount, maps, chmasks)
25
26 maps im inplace into another image.
27
28   Each map is a unsigned char array of 256 entries, its corresponding
29   channel mask is the same numbered entry in the chmasks array.
30   If two maps apply to the same channel then the second one is used.
31   If no map applies to a channel then that channel is not altered.
32   mapcount is the number of maps.
33
34 =cut
35 */
36
37 void
38 i_map(i_img *im, unsigned char (*maps)[256], unsigned int mask) {
39   i_color *vals;
40   i_img_dim x, y;
41   int i, ch;
42   int minset = -1, maxset = 0;
43
44   mm_log((1,"i_map(im %p, maps %p, chmask %u)\n", im, maps, mask));
45
46   if (!mask) return; /* nothing to do here */
47
48   for(i=0; i<im->channels; i++)
49     if (mask & (1<<i)) {
50       if (minset == -1) minset = i;
51       maxset = i;
52     }
53
54   mm_log((1, "minset=%d maxset=%d\n", minset, maxset));
55
56   vals = mymalloc(sizeof(i_color) * im->xsize);
57
58   for (y = 0; y < im->ysize; ++y) {
59     i_glin(im, 0, im->xsize, y, vals);
60     for (x = 0; x < im->xsize; ++x) {
61       for(ch = minset; ch<=maxset; ch++) {
62         if (!maps[ch]) continue;
63         vals[x].channel[ch] = maps[ch][vals[x].channel[ch]];
64       }
65     }
66     i_plin(im, 0, im->xsize, y, vals);
67   }
68   myfree(vals);
69 }
70
71 /*
72 =back
73
74 =head1 SEE ALSO
75
76 Imager(3)
77
78 =head1 AUTHOR
79
80 Arnar M. Hrafnkelsson <addi@umich.edu>
81
82 =cut
83 */