1 #define IMAGER_NO_CONTEXT
6 static int i_ppix_d(i_img *im, i_img_dim x, i_img_dim y, const i_color *val);
7 static int i_gpix_d(i_img *im, i_img_dim x, i_img_dim y, i_color *val);
8 static i_img_dim i_glin_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_color *vals);
9 static i_img_dim i_plin_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_color *vals);
10 static int i_ppixf_d(i_img *im, i_img_dim x, i_img_dim y, const i_fcolor *val);
11 static int i_gpixf_d(i_img *im, i_img_dim x, i_img_dim y, i_fcolor *val);
12 static i_img_dim i_glinf_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_fcolor *vals);
13 static i_img_dim i_plinf_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_fcolor *vals);
14 static i_img_dim i_gsamp_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_sample_t *samps, const int *chans, int chan_count);
15 static i_img_dim i_gsampf_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_fsample_t *samps, const int *chans, int chan_count);
16 static i_img_dim i_psamp_d(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);
17 static i_img_dim i_psampf_d(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);
20 =item IIM_base_8bit_direct (static)
22 A static i_img object used to initialize direct 8-bit per sample images.
26 static i_img IIM_base_8bit_direct =
29 0, 0, 0, /* xsize, ysize, bytes */
32 i_direct_type, /* type */
35 { 0, 0, NULL }, /* tags */
38 i_ppix_d, /* i_f_ppix */
39 i_ppixf_d, /* i_f_ppixf */
40 i_plin_d, /* i_f_plin */
41 i_plinf_d, /* i_f_plinf */
42 i_gpix_d, /* i_f_gpix */
43 i_gpixf_d, /* i_f_gpixf */
44 i_glin_d, /* i_f_glin */
45 i_glinf_d, /* i_f_glinf */
46 i_gsamp_d, /* i_f_gsamp */
47 i_gsampf_d, /* i_f_gsampf */
51 NULL, /* i_f_addcolors */
52 NULL, /* i_f_getcolors */
53 NULL, /* i_f_colorcount */
54 NULL, /* i_f_maxcolors */
55 NULL, /* i_f_findcolor */
56 NULL, /* i_f_setcolors */
58 NULL, /* i_f_destroy */
61 NULL, /* i_f_psamp_bits */
67 /*static void set_8bit_direct(i_img *im) {
68 im->i_f_ppix = i_ppix_d;
69 im->i_f_ppixf = i_ppixf_d;
70 im->i_f_plin = i_plin_d;
71 im->i_f_plinf = i_plinf_d;
72 im->i_f_gpix = i_gpix_d;
73 im->i_f_gpixf = i_gpixf_d;
74 im->i_f_glin = i_glin_d;
75 im->i_f_glinf = i_glinf_d;
78 im->i_f_addcolor = NULL;
79 im->i_f_getcolor = NULL;
80 im->i_f_colorcount = NULL;
81 im->i_f_findcolor = NULL;
85 =item i_img_8_new(x, y, ch)
87 =category Image creation/destruction
89 =synopsis i_img *img = i_img_8_new(width, height, channels);
91 Creates a new image object I<x> pixels wide, and I<y> pixels high with
99 im_img_8_new(pIMCTX, i_img_dim x,i_img_dim y,int ch) {
102 mm_log((1,"IIM_new(x %" i_DF ", y %" i_DF ", ch %d)\n",
103 i_DFc(x), i_DFc(y), ch));
105 im = im_img_empty_ch(aIMCTX, NULL,x,y,ch);
107 mm_log((1,"(%p) <- IIM_new\n",im));
115 Create new image reference - notice that this isn't an object yet and
116 this should be fixed asap.
126 mm_log((1,"i_img_struct()\n"));
130 *im = IIM_base_8bit_direct;
140 mm_log((1,"(%p) <- i_img_struct\n",im));
147 =item i_img_empty(im, x, y)
149 Re-new image reference (assumes 3 channels)
152 x - xsize of destination image
153 y - ysize of destination image
155 **FIXME** what happens if a live image is passed in here?
157 Should this just call i_img_empty_ch()?
163 im_img_empty(pIMCTX, i_img *im,i_img_dim x,i_img_dim y) {
164 mm_log((1,"i_img_empty(*im %p, x %" i_DF ", y %" i_DF ")\n",
165 im, i_DFc(x), i_DFc(y)));
166 return im_img_empty_ch(aIMCTX, im, x, y, 3);
170 =item i_img_empty_ch(im, x, y, ch)
172 Re-new image reference
175 x - xsize of destination image
176 y - ysize of destination image
177 ch - number of channels
183 im_img_empty_ch(pIMCTX, i_img *im,i_img_dim x,i_img_dim y,int ch) {
186 mm_log((1,"i_img_empty_ch(*im %p, x %" i_DF ", y %" i_DF ", ch %d)\n",
187 im, i_DFc(x), i_DFc(y), ch));
189 if (x < 1 || y < 1) {
190 im_push_error(aIMCTX, 0, "Image sizes must be positive");
193 if (ch < 1 || ch > MAXCHANNELS) {
194 im_push_errorf(aIMCTX, 0, "channels must be between 1 and %d", MAXCHANNELS);
197 /* check this multiplication doesn't overflow */
199 if (bytes / y / ch != x) {
200 im_push_errorf(aIMCTX, 0, "integer overflow calculating image allocation");
205 im = im_img_alloc(aIMCTX);
207 memcpy(im, &IIM_base_8bit_direct, sizeof(i_img));
208 i_tags_new(&im->tags);
212 im->ch_mask = MAXINT;
214 if ( (im->idata=mymalloc(im->bytes)) == NULL)
215 i_fatal(2,"malloc() error\n");
216 memset(im->idata,0,(size_t)im->bytes);
220 im_img_init(aIMCTX, im);
222 mm_log((1,"(%p) <- i_img_empty_ch\n",im));
227 =head2 8-bit per sample image internal functions
229 These are the functions installed in an 8-bit per sample image.
233 =item i_ppix_d(im, x, y, col)
237 This is the function kept in the i_f_ppix member of an i_img object.
238 It does a normal store of a pixel into the image with range checking.
240 Returns 0 if the pixel could be set, -1 otherwise.
246 i_ppix_d(i_img *im, i_img_dim x, i_img_dim y, const i_color *val) {
249 if ( x>-1 && x<im->xsize && y>-1 && y<im->ysize ) {
250 for(ch=0;ch<im->channels;ch++)
251 if (im->ch_mask&(1<<ch))
252 im->idata[(x+y*im->xsize)*im->channels+ch]=val->channel[ch];
255 return -1; /* error was clipped */
259 =item i_gpix_d(im, x, y, &col)
263 This is the function kept in the i_f_gpix member of an i_img object.
264 It does normal retrieval of a pixel from the image with range checking.
266 Returns 0 if the pixel could be set, -1 otherwise.
272 i_gpix_d(i_img *im, i_img_dim x, i_img_dim y, i_color *val) {
274 if (x>-1 && x<im->xsize && y>-1 && y<im->ysize) {
275 for(ch=0;ch<im->channels;ch++)
276 val->channel[ch]=im->idata[(x+y*im->xsize)*im->channels+ch];
279 for(ch=0;ch<im->channels;ch++) val->channel[ch] = 0;
280 return -1; /* error was cliped */
284 =item i_glin_d(im, l, r, y, vals)
286 Reads a line of data from the image, storing the pixels at vals.
288 The line runs from (l,y) inclusive to (r,y) non-inclusive
290 vals should point at space for (r-l) pixels.
292 l should never be less than zero (to avoid confusion about where to
293 put the pixels in vals).
295 Returns the number of pixels copied (eg. if r, l or y is out of range)
301 i_glin_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_color *vals) {
305 if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
308 data = im->idata + (l+y*im->xsize) * im->channels;
310 for (i = 0; i < count; ++i) {
311 for (ch = 0; ch < im->channels; ++ch)
312 vals[i].channel[ch] = *data++;
322 =item i_plin_d(im, l, r, y, vals)
324 Writes a line of data into the image, using the pixels at vals.
326 The line runs from (l,y) inclusive to (r,y) non-inclusive
328 vals should point at (r-l) pixels.
330 l should never be less than zero (to avoid confusion about where to
331 get the pixels in vals).
333 Returns the number of pixels copied (eg. if r, l or y is out of range)
339 i_plin_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_color *vals) {
343 if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
346 data = im->idata + (l+y*im->xsize) * im->channels;
348 for (i = 0; i < count; ++i) {
349 for (ch = 0; ch < im->channels; ++ch) {
350 if (im->ch_mask & (1 << ch))
351 *data = vals[i].channel[ch];
363 =item i_ppixf_d(im, x, y, val)
369 i_ppixf_d(i_img *im, i_img_dim x, i_img_dim y, const i_fcolor *val) {
372 if ( x>-1 && x<im->xsize && y>-1 && y<im->ysize ) {
373 for(ch=0;ch<im->channels;ch++)
374 if (im->ch_mask&(1<<ch)) {
375 im->idata[(x+y*im->xsize)*im->channels+ch] =
376 SampleFTo8(val->channel[ch]);
380 return -1; /* error was clipped */
384 =item i_gpixf_d(im, x, y, val)
390 i_gpixf_d(i_img *im, i_img_dim x, i_img_dim y, i_fcolor *val) {
392 if (x>-1 && x<im->xsize && y>-1 && y<im->ysize) {
393 for(ch=0;ch<im->channels;ch++) {
395 Sample8ToF(im->idata[(x+y*im->xsize)*im->channels+ch]);
399 return -1; /* error was cliped */
403 =item i_glinf_d(im, l, r, y, vals)
405 Reads a line of data from the image, storing the pixels at vals.
407 The line runs from (l,y) inclusive to (r,y) non-inclusive
409 vals should point at space for (r-l) pixels.
411 l should never be less than zero (to avoid confusion about where to
412 put the pixels in vals).
414 Returns the number of pixels copied (eg. if r, l or y is out of range)
420 i_glinf_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_fcolor *vals) {
424 if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
427 data = im->idata + (l+y*im->xsize) * im->channels;
429 for (i = 0; i < count; ++i) {
430 for (ch = 0; ch < im->channels; ++ch)
431 vals[i].channel[ch] = Sample8ToF(*data++);
441 =item i_plinf_d(im, l, r, y, vals)
443 Writes a line of data into the image, using the pixels at vals.
445 The line runs from (l,y) inclusive to (r,y) non-inclusive
447 vals should point at (r-l) pixels.
449 l should never be less than zero (to avoid confusion about where to
450 get the pixels in vals).
452 Returns the number of pixels copied (eg. if r, l or y is out of range)
458 i_plinf_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_fcolor *vals) {
462 if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
465 data = im->idata + (l+y*im->xsize) * im->channels;
467 for (i = 0; i < count; ++i) {
468 for (ch = 0; ch < im->channels; ++ch) {
469 if (im->ch_mask & (1 << ch))
470 *data = SampleFTo8(vals[i].channel[ch]);
482 =item i_gsamp_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_sample_t *samps, int *chans, int chan_count)
484 Reads sample values from im for the horizontal line (l, y) to (r-1,y)
485 for the channels specified by chans, an array of int with chan_count
488 Returns the number of samples read (which should be (r-l) * bits_set(chan_mask)
494 i_gsamp_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_sample_t *samps,
495 const int *chans, int chan_count) {
497 i_img_dim count, i, w;
500 if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
503 data = im->idata + (l+y*im->xsize) * im->channels;
508 /* make sure we have good channel numbers */
509 for (ch = 0; ch < chan_count; ++ch) {
510 if (chans[ch] < 0 || chans[ch] >= im->channels) {
511 i_push_errorf(0, "No channel %d in this image", chans[ch]);
515 for (i = 0; i < w; ++i) {
516 for (ch = 0; ch < chan_count; ++ch) {
517 *samps++ = data[chans[ch]];
520 data += im->channels;
524 if (chan_count <= 0 || chan_count > im->channels) {
525 i_push_errorf(0, "chan_count %d out of range, must be >0, <= channels",
529 for (i = 0; i < w; ++i) {
530 for (ch = 0; ch < chan_count; ++ch) {
534 data += im->channels;
546 =item i_gsampf_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_fsample_t *samps, int *chans, int chan_count)
548 Reads sample values from im for the horizontal line (l, y) to (r-1,y)
549 for the channels specified by chan_mask, where bit 0 is the first
552 Returns the number of samples read (which should be (r-l) * bits_set(chan_mask)
558 i_gsampf_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_fsample_t *samps,
559 const int *chans, int chan_count) {
561 i_img_dim count, i, w;
563 for (ch = 0; ch < chan_count; ++ch) {
564 if (chans[ch] < 0 || chans[ch] >= im->channels) {
565 i_push_errorf(0, "No channel %d in this image", chans[ch]);
568 if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
571 data = im->idata + (l+y*im->xsize) * im->channels;
576 /* make sure we have good channel numbers */
577 for (ch = 0; ch < chan_count; ++ch) {
578 if (chans[ch] < 0 || chans[ch] >= im->channels) {
579 i_push_errorf(0, "No channel %d in this image", chans[ch]);
583 for (i = 0; i < w; ++i) {
584 for (ch = 0; ch < chan_count; ++ch) {
585 *samps++ = Sample8ToF(data[chans[ch]]);
588 data += im->channels;
592 if (chan_count <= 0 || chan_count > im->channels) {
593 i_push_errorf(0, "chan_count %d out of range, must be >0, <= channels",
597 for (i = 0; i < w; ++i) {
598 for (ch = 0; ch < chan_count; ++ch) {
599 *samps++ = Sample8ToF(data[ch]);
602 data += im->channels;
613 =item i_psamp_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, i_sample_t *samps, int *chans, int chan_count)
615 Writes sample values to im for the horizontal line (l, y) to (r-1,y)
616 for the channels specified by chans, an array of int with chan_count
619 Returns the number of samples written (which should be (r-l) *
627 i_psamp_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y,
628 const i_sample_t *samps, const int *chans, int chan_count) {
630 i_img_dim count, i, w;
633 if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
636 data = im->idata + (l+y*im->xsize) * im->channels;
641 /* make sure we have good channel numbers */
642 /* and test if all channels specified are in the mask */
644 for (ch = 0; ch < chan_count; ++ch) {
645 if (chans[ch] < 0 || chans[ch] >= im->channels) {
646 i_push_errorf(0, "No channel %d in this image", chans[ch]);
649 if (!((1 << chans[ch]) & im->ch_mask))
653 for (i = 0; i < w; ++i) {
654 for (ch = 0; ch < chan_count; ++ch) {
655 data[chans[ch]] = *samps++;
658 data += im->channels;
662 for (i = 0; i < w; ++i) {
663 for (ch = 0; ch < chan_count; ++ch) {
664 if (im->ch_mask & (1 << (chans[ch])))
665 data[chans[ch]] = *samps;
669 data += im->channels;
674 if (chan_count <= 0 || chan_count > im->channels) {
675 i_push_errorf(0, "chan_count %d out of range, must be >0, <= channels",
679 for (i = 0; i < w; ++i) {
681 for (ch = 0; ch < chan_count; ++ch) {
682 if (im->ch_mask & mask)
688 data += im->channels;
696 i_push_error(0, "Image position outside of image");
702 =item i_psampf_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y, const i_fsample_t *samps, int *chans, int chan_count)
704 Writes sample values to im for the horizontal line (l, y) to (r-1,y)
705 for the channels specified by chans, an array of int with chan_count
708 Returns the number of samples written (which should be (r-l) *
716 i_psampf_d(i_img *im, i_img_dim l, i_img_dim r, i_img_dim y,
717 const i_fsample_t *samps, const int *chans, int chan_count) {
719 i_img_dim count, i, w;
722 if (y >=0 && y < im->ysize && l < im->xsize && l >= 0) {
725 data = im->idata + (l+y*im->xsize) * im->channels;
730 /* make sure we have good channel numbers */
731 /* and test if all channels specified are in the mask */
733 for (ch = 0; ch < chan_count; ++ch) {
734 if (chans[ch] < 0 || chans[ch] >= im->channels) {
735 i_push_errorf(0, "No channel %d in this image", chans[ch]);
738 if (!((1 << chans[ch]) & im->ch_mask))
742 for (i = 0; i < w; ++i) {
743 for (ch = 0; ch < chan_count; ++ch) {
744 data[chans[ch]] = SampleFTo8(*samps);
748 data += im->channels;
752 for (i = 0; i < w; ++i) {
753 for (ch = 0; ch < chan_count; ++ch) {
754 if (im->ch_mask & (1 << (chans[ch])))
755 data[chans[ch]] = SampleFTo8(*samps);
759 data += im->channels;
764 if (chan_count <= 0 || chan_count > im->channels) {
765 i_push_errorf(0, "chan_count %d out of range, must be >0, <= channels",
769 for (i = 0; i < w; ++i) {
771 for (ch = 0; ch < chan_count; ++ch) {
772 if (im->ch_mask & mask)
773 data[ch] = SampleFTo8(*samps);
778 data += im->channels;
786 i_push_error(0, "Image position outside of image");
796 Arnar M. Hrafnkelsson <addi@umich.edu>
798 Tony Cook <tony@develop-help.com>