]> git.imager.perl.org - imager.git/blame - Imager.xs
projects / imager.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
update Changes
[imager.git] / Imager.xs
CommitLineData
b13a3ddb 1#define PERL_NO_GET_CONTEXT
02d1d628
AMH		 2#ifdef __cplusplus
3extern "C" {
4#endif
5#include "EXTERN.h"
6#include "perl.h"
7#include "XSUB.h"
7a6cd05b
TC		 8#define NEED_newRV_noinc
9#define NEED_sv_2pv_nolen
f35d1231 10#define NEED_sv_2pvbyte
02d1d628
AMH		 11#include "ppport.h"
12#ifdef __cplusplus
92bda632 13}
02d1d628
AMH		 14#endif
15
a8652edf
TC		 16#define i_int_hlines_testing() 1
17
92bda632 18#include "imager.h"
02d1d628
AMH		 19#include "feat.h"
20#include "dynaload.h"
21#include "regmach.h"
92bda632 22#include "imextdef.h"
ec6d8908 23#include "imextpltypes.h"
52d990d6 24#include "imperlio.h"
4498c8bd 25#include <float.h>
a8652edf 26
92bda632
TC		 27#if i_int_hlines_testing()
28#include "imageri.h"
02d1d628
AMH		 29#endif
30
92bda632 31#include "imperl.h"
faa9b3e7 32
0d80f37e
TC		 33#define ARRAY_COUNT(array) (sizeof(array)/sizeof(*array))
34
31a13473
TC		 35/*
36
37Context object management
38
39*/
40
41typedef im_context_t Imager__Context;
42
43#define im_context_DESTROY(ctx) im_context_refdec((ctx), "DESTROY")
44
45#ifdef PERL_IMPLICIT_CONTEXT
46
47#define MY_CXT_KEY "Imager::_context" XS_VERSION
48
49typedef struct {
50 im_context_t ctx;
51} my_cxt_t;
52
53START_MY_CXT
54
31a13473
TC		 55static void
56start_context(pTHX) {
57 dMY_CXT;
58 MY_CXT.ctx = im_context_new();
59 sv_setref_pv(get_sv("Imager::_context", GV_ADD), "Imager::Context", MY_CXT.ctx);
31a13473
TC		 60}
61
62static im_context_t
63perl_get_context(void) {
64 dTHX;
65 dMY_CXT;
66
2e23caff 67 return MY_CXT.ctx;
31a13473
TC		 68}
69
70#else
71
72static im_context_t perl_context;
73
74static void
75start_context(pTHX) {
76 perl_context = im_context_new();
2e23caff
TC		 77
78 /* just so it gets destroyed */
79 sv_setref_pv(get_sv("Imager::_context", GV_ADD), "Imager::Context", perl_context);
31a13473 80}
cf8c77ae
TC		 81
82static im_context_t
83perl_get_context(void) {
31a13473 84 return perl_context;
cf8c77ae
TC		 85}
86
31a13473
TC		 87#endif
88
6a9807e8
TC		 89/* used to represent channel lists parameters */
90typedef struct i_channel_list_tag {
91 int *channels;
92 int count;
93} i_channel_list;
94
48b9a7bf
TC		 95typedef struct {
96 size_t count;
97 const i_sample_t *samples;
98} i_sample_list;
99
100typedef struct {
101 size_t count;
102 const i_fsample_t *samples;
103} i_fsample_list;
104
0d80f37e
TC		 105typedef struct {
106 size_t count;
107 const i_polygon_t *polygons;
108} i_polygon_list;
109
ebe9b189
TC		 110/*
111
112Allocate memory that will be discarded when mortals are discarded.
113
114*/
115
116static void *
117malloc_temp(pTHX_ size_t size) {
3230a191
TC		 118 void *result;
119 Newx(result, size, char);
120 SAVEFREEPV(result);
ebe9b189 121
3230a191 122 return result;
ebe9b189
TC		 123}
124
0aaa8b4d
TC		 125static void *
126calloc_temp(pTHX_ size_t size) {
3230a191
TC		 127 void *result;
128 Newxz(result, size, char);
129 SAVEFREEPV(result);
0aaa8b4d
TC		 130
131 return result;
132}
133
19e9591b 134/* for use with the T_AVARRAY typemap */
0aaa8b4d
TC		 135#define doublePtr(size) ((double *)calloc_temp(aTHX_ sizeof(double) * (size)))
136#define SvDouble(sv, pname) (SvNV(sv))
137
138#define intPtr(size) ((int *)calloc_temp(aTHX_ sizeof(int) * (size)))
139#define SvInt(sv, pname) (SvIV(sv))
140
141#define i_img_dimPtr(size) ((i_img_dim *)calloc_temp(aTHX_ sizeof(i_img_dim) * (size)))
142#define SvI_img_dim(sv, pname) (SvIV(sv))
19e9591b 143
4615ad8d 144#define i_colorPtr(size) ((i_color *)calloc_temp(aTHX_ sizeof(i_color) * (size)))
0aaa8b4d
TC		 145
146#define SvI_color(sv, pname) S_sv_to_i_color(aTHX_ sv, pname)
147
148static i_color
149S_sv_to_i_color(pTHX_ SV *sv, const char *pname) {
150 if (!sv_derived_from(sv, "Imager::Color")) {
b6565be6 151 croak("%s: not a color object", pname);
0aaa8b4d
TC		 152 }
153 return *INT2PTR(i_color *, SvIV((SV *)SvRV(sv)));
154}
19e9591b 155
b33c08f8
TC		 156/* These functions are all shared - then comes platform dependant code */
157static int getstr(void *hv_t,char *key,char **store) {
b13a3ddb 158 dTHX;
b33c08f8
TC		 159 SV** svpp;
160 HV* hv=(HV*)hv_t;
161
8d14daab 162 mm_log((1,"getstr(hv_t %p, key %s, store %p)\n",hv_t,key,store));
b33c08f8
TC		 163
164 if ( !hv_exists(hv,key,strlen(key)) ) return 0;
165
166 svpp=hv_fetch(hv, key, strlen(key), 0);
167 *store=SvPV(*svpp, PL_na );
168
169 return 1;
170}
171
172static int getint(void *hv_t,char *key,int *store) {
b13a3ddb 173 dTHX;
b33c08f8
TC		 174 SV** svpp;
175 HV* hv=(HV*)hv_t;
176
8d14daab 177 mm_log((1,"getint(hv_t %p, key %s, store %p)\n",hv_t,key,store));
b33c08f8
TC		 178
179 if ( !hv_exists(hv,key,strlen(key)) ) return 0;
180
181 svpp=hv_fetch(hv, key, strlen(key), 0);
182 *store=(int)SvIV(*svpp);
183 return 1;
184}
185
186static int getdouble(void *hv_t,char* key,double *store) {
b13a3ddb 187 dTHX;
b33c08f8
TC		 188 SV** svpp;
189 HV* hv=(HV*)hv_t;
190
8d14daab 191 mm_log((1,"getdouble(hv_t %p, key %s, store %p)\n",hv_t,key,store));
b33c08f8
TC		 192
193 if ( !hv_exists(hv,key,strlen(key)) ) return 0;
194 svpp=hv_fetch(hv, key, strlen(key), 0);
8d14daab 195 *store=(double)SvNV(*svpp);
b33c08f8
TC		 196 return 1;
197}
198
199static int getvoid(void *hv_t,char* key,void **store) {
b13a3ddb 200 dTHX;
b33c08f8
TC		 201 SV** svpp;
202 HV* hv=(HV*)hv_t;
203
8d14daab 204 mm_log((1,"getvoid(hv_t %p, key %s, store %p)\n",hv_t,key,store));
b33c08f8
TC		 205
206 if ( !hv_exists(hv,key,strlen(key)) ) return 0;
207
208 svpp=hv_fetch(hv, key, strlen(key), 0);
209 *store = INT2PTR(void*, SvIV(*svpp));
210
211 return 1;
212}
213
214static int getobj(void *hv_t,char *key,char *type,void **store) {
b13a3ddb 215 dTHX;
b33c08f8
TC		 216 SV** svpp;
217 HV* hv=(HV*)hv_t;
218
8d14daab 219 mm_log((1,"getobj(hv_t %p, key %s,type %s, store %p)\n",hv_t,key,type,store));
b33c08f8
TC		 220
221 if ( !hv_exists(hv,key,strlen(key)) ) return 0;
222
223 svpp=hv_fetch(hv, key, strlen(key), 0);
224
225 if (sv_derived_from(*svpp,type)) {
226 IV tmp = SvIV((SV*)SvRV(*svpp));
227 *store = INT2PTR(void*, tmp);
228 } else {
229 mm_log((1,"getobj: key exists in hash but is not of correct type"));
230 return 0;
231 }
232
233 return 1;
234}
235
236UTIL_table_t i_UTIL_table={getstr,getint,getdouble,getvoid,getobj};
4dfa5522 237
a87997b2
TC		 238static void
239free_buffer(void *p) {
240 myfree(p);
4dfa5522
AMH		 241}
242
7f882a01 243
b33c08f8 244static void
bf1573f9 245i_log_entry(char *string, int level) {
b7506a07 246 mm_log((level, "%s", string));
7f882a01
AMH		 247}
248
5e9a7fbd
TC		 249static SV *
250make_i_color_sv(pTHX_ const i_color *c) {
251 SV *sv;
252 i_color *col = mymalloc(sizeof(i_color));
253 *col = *c;
254 sv = sv_newmortal();
255 sv_setref_pv(sv, "Imager::Color", (void *)col);
256
257 return sv;
258}
7f882a01 259
10461f9a
TC		 260#define CBDATA_BUFSIZE 8192
261
262struct cbdata {
263 /* the SVs we use to call back to Perl */
264 SV *writecb;
265 SV *readcb;
266 SV *seekcb;
267 SV *closecb;
10461f9a
TC		 268};
269
6d5c85a2
TC		 270static ssize_t
271call_reader(struct cbdata *cbd, void *buf, size_t size,
272 size_t maxread) {
b13a3ddb 273 dTHX;
10461f9a
TC		 274 int count;
275 int result;
276 SV *data;
277 dSP;
278
9d5ff8a6
TC		 279 if (!SvOK(cbd->readcb)) {
280 mm_log((1, "read callback called but no readcb supplied\n"));
281 i_push_error(0, "read callback called but no readcb supplied");
10461f9a 282 return -1;
9d5ff8a6 283 }
10461f9a
TC		 284
285 ENTER;
286 SAVETMPS;
287 EXTEND(SP, 2);
288 PUSHMARK(SP);
289 PUSHs(sv_2mortal(newSViv(size)));
290 PUSHs(sv_2mortal(newSViv(maxread)));
291 PUTBACK;
292
293 count = perl_call_sv(cbd->readcb, G_SCALAR);
294
295 SPAGAIN;
296
297 if (count != 1)
298 croak("Result of perl_call_sv(..., G_SCALAR) != 1");
299
300 data = POPs;
301
302 if (SvOK(data)) {
303 STRLEN len;
6d5c85a2 304 char *ptr = SvPVbyte(data, len);
10461f9a 305 if (len > maxread)
6d5c85a2
TC		 306 croak("Too much data returned in reader callback (wanted %d, got %d, expected %d)",
307 (int)size, (int)len, (int)maxread);
10461f9a
TC		 308
309 memcpy(buf, ptr, len);
310 result = len;
311 }
312 else {
313 result = -1;
314 }
315
316 PUTBACK;
317 FREETMPS;
318 LEAVE;
319
320 return result;
321}
322
6d5c85a2
TC		 323static off_t
324io_seeker(void *p, off_t offset, int whence) {
b13a3ddb 325 dTHX;
10461f9a
TC		 326 struct cbdata *cbd = p;
327 int count;
328 off_t result;
329 dSP;
330
9d5ff8a6
TC		 331 if (!SvOK(cbd->seekcb)) {
332 mm_log((1, "seek callback called but no seekcb supplied\n"));
333 i_push_error(0, "seek callback called but no seekcb supplied");
10461f9a 334 return -1;
9d5ff8a6 335 }
10461f9a 336
10461f9a
TC		 337 ENTER;
338 SAVETMPS;
339 EXTEND(SP, 2);
340 PUSHMARK(SP);
341 PUSHs(sv_2mortal(newSViv(offset)));
342 PUSHs(sv_2mortal(newSViv(whence)));
343 PUTBACK;
344
345 count = perl_call_sv(cbd->seekcb, G_SCALAR);
346
347 SPAGAIN;
348
349 if (count != 1)
350 croak("Result of perl_call_sv(..., G_SCALAR) != 1");
351
352 result = POPi;
353
354 PUTBACK;
355 FREETMPS;
356 LEAVE;
357
358 return result;
359}
360
6d5c85a2
TC		 361static ssize_t
362io_writer(void *p, void const *data, size_t size) {
b13a3ddb 363 dTHX;
10461f9a 364 struct cbdata *cbd = p;
6d5c85a2
TC		 365 I32 count;
366 SV *sv;
367 dSP;
368 bool success;
10461f9a 369
9d5ff8a6
TC		 370 if (!SvOK(cbd->writecb)) {
371 mm_log((1, "write callback called but no writecb supplied\n"));
372 i_push_error(0, "write callback called but no writecb supplied");
6d5c85a2 373 return -1;
9d5ff8a6 374 }
6d5c85a2
TC		 375
376 ENTER;
377 SAVETMPS;
378 EXTEND(SP, 1);
379 PUSHMARK(SP);
380 PUSHs(sv_2mortal(newSVpv((char *)data, size)));
381 PUTBACK;
382
383 count = perl_call_sv(cbd->writecb, G_SCALAR);
384
385 SPAGAIN;
386 if (count != 1)
387 croak("Result of perl_call_sv(..., G_SCALAR) != 1");
388
389 sv = POPs;
390 success = SvTRUE(sv);
391
392
393 PUTBACK;
394 FREETMPS;
395 LEAVE;
396
397 return success ? size : -1;
10461f9a
TC		 398}
399
1f6c1c10
TC		 400static ssize_t
401io_reader(void *p, void *data, size_t size) {
10461f9a 402 struct cbdata *cbd = p;
10461f9a 403
6d5c85a2 404 return call_reader(cbd, data, size, size);
10461f9a
TC		 405}
406
2b405c9e 407static int io_closer(void *p) {
b13a3ddb 408 dTHX;
10461f9a 409 struct cbdata *cbd = p;
6d5c85a2 410 int success = 1;
10461f9a
TC		 411
412 if (SvOK(cbd->closecb)) {
413 dSP;
6d5c85a2 414 I32 count;
10461f9a
TC		 415
416 ENTER;
417 SAVETMPS;
418 PUSHMARK(SP);
419 PUTBACK;
420
6d5c85a2 421 count = perl_call_sv(cbd->closecb, G_SCALAR);
10461f9a
TC		 422
423 SPAGAIN;
6d5c85a2 424
98747309
TC		 425 if (count) {
426 SV *sv = POPs;
427 success = SvTRUE(sv);
428 }
429 else
430 success = 0;
6d5c85a2 431
10461f9a
TC		 432 PUTBACK;
433 FREETMPS;
434 LEAVE;
435 }
2b405c9e 436
6d5c85a2 437 return success ? 0 : -1;
10461f9a
TC		 438}
439
440static void io_destroyer(void *p) {
b13a3ddb 441 dTHX;
10461f9a
TC		 442 struct cbdata *cbd = p;
443
444 SvREFCNT_dec(cbd->writecb);
445 SvREFCNT_dec(cbd->readcb);
446 SvREFCNT_dec(cbd->seekcb);
447 SvREFCNT_dec(cbd->closecb);
a4168bea 448 myfree(cbd);
10461f9a
TC		 449}
450
a87997b2
TC		 451static bool
452im_SvREFSCALAR(SV *sv) {
453 svtype type = SvTYPE(sv);
ea87cee9
TC		 454
455 switch (type) {
456 case SVt_PV:
457 case SVt_PVIV:
458 case SVt_PVNV:
459 case SVt_PVMG:
460 case SVt_IV:
461 case SVt_NV:
462 case SVt_PVLV:
463#if PERL_VERSION > 10
464 case SVt_REGEXP:
465#endif
466 return 1;
467
468 default:
469 return 0;
470 }
471}
472
473static const char *
474describe_sv(SV *sv) {
475 if (SvOK(sv)) {
476 if (SvROK(sv)) {
477 svtype type = SvTYPE(SvRV(sv));
478 switch (type) {
479 case SVt_PVCV: return "CV";
480 case SVt_PVGV: return "GV";
481 case SVt_PVLV: return "LV";
482 default: return "some reference";
483 }
484 }
485 else {
486 return "non-reference scalar";
487 }
488 }
489 else {
490 return "undef";
491 }
a87997b2
TC		 492}
493
6d5c85a2
TC		 494static i_io_glue_t *
495do_io_new_buffer(pTHX_ SV *data_sv) {
496 const char *data;
a87997b2 497 char *data_copy;
6d5c85a2 498 STRLEN length;
a87997b2
TC		 499 SV *sv;
500
501 SvGETMAGIC(data_sv);
502 if (SvROK(data_sv)) {
ea87cee9 503 if (im_SvREFSCALAR(SvRV(data_sv))) {
a87997b2
TC		 504 sv = SvRV(data_sv);
505 }
506 else {
ea87cee9 507 i_push_errorf(0, "data is not a scalar or a reference to scalar");
a87997b2
TC		 508 return NULL;
509 }
510 }
511 else {
512 sv = data_sv;
513 }
6d5c85a2 514
a87997b2
TC		 515 /* previously this would keep the SV around, but this is unsafe in
516 many ways, so always copy the bytes */
517 data = SvPVbyte(sv, length);
518 data_copy = mymalloc(length);
519 memcpy(data_copy, data, length);
520 return io_new_buffer(data_copy, length, free_buffer, data_copy);
6d5c85a2
TC		 521}
522
523static i_io_glue_t *
524do_io_new_cb(pTHX_ SV *writecb, SV *readcb, SV *seekcb, SV *closecb) {
525 struct cbdata *cbd;
526
527 cbd = mymalloc(sizeof(struct cbdata));
528 cbd->writecb = newSVsv(writecb);
529 cbd->readcb = newSVsv(readcb);
530 cbd->seekcb = newSVsv(seekcb);
531 cbd->closecb = newSVsv(closecb);
532
9d5ff8a6
TC		 533 mm_log((1, "do_io_new_cb(writecb %p (%s), readcb %p (%s), seekcb %p (%s), closecb %p (%s))\n", writecb, describe_sv(writecb), readcb, describe_sv(readcb), seekcb, describe_sv(seekcb), closecb, describe_sv(closecb)));
534
6d5c85a2
TC		 535 return io_new_cb(cbd, io_reader, io_writer, io_seeker, io_closer,
536 io_destroyer);
537}
538
02d1d628 539struct value_name {
a3b721bb 540 const char *name;
02d1d628
AMH		 541 int value;
542};
a3b721bb
TC		 543static int
544lookup_name(const struct value_name *names, int count, char *name, int def_value, int push_errors, const char *id, int *failed)
02d1d628
AMH		 545{
546 int i;
a3b721bb
TC		 547
548 if (push_errors)
549 *failed = 0;
550
02d1d628
AMH		 551 for (i = 0; i < count; ++i)
552 if (strEQ(names[i].name, name))
553 return names[i].value;
554
a3b721bb
TC		 555 if (push_errors) {
556 i_push_errorf(0, "unknown value '%s' for %s", name, id);
557 *failed = 1;
558 }
559
02d1d628
AMH		 560 return def_value;
561}
a3b721bb 562
02d1d628
AMH		 563static struct value_name transp_names[] =
564{
565 { "none", tr_none },
566 { "threshold", tr_threshold },
567 { "errdiff", tr_errdiff },
568 { "ordered", tr_ordered, },
569};
570
571static struct value_name make_color_names[] =
572{
573 { "none", mc_none, },
574 { "webmap", mc_web_map, },
575 { "addi", mc_addi, },
97c4effc 576 { "mediancut", mc_median_cut, },
9c106321
TC		 577 { "mono", mc_mono, },
578 { "monochrome", mc_mono, },
5e9a7fbd
TC		 579 { "gray", mc_gray, },
580 { "gray4", mc_gray4, },
581 { "gray16", mc_gray16, },
02d1d628
AMH		 582};
583
584static struct value_name translate_names[] =
585{
02d1d628 586 { "giflib", pt_giflib, },
02d1d628
AMH		 587 { "closest", pt_closest, },
588 { "perturb", pt_perturb, },
589 { "errdiff", pt_errdiff, },
590};
591
592static struct value_name errdiff_names[] =
593{
594 { "floyd", ed_floyd, },
595 { "jarvis", ed_jarvis, },
596 { "stucki", ed_stucki, },
597 { "custom", ed_custom, },
598};
599
600static struct value_name orddith_names[] =
601{
602 { "random", od_random, },
603 { "dot8", od_dot8, },
604 { "dot4", od_dot4, },
605 { "hline", od_hline, },
606 { "vline", od_vline, },
607 { "/line", od_slashline, },
608 { "slashline", od_slashline, },
609 { "\\line", od_backline, },
610 { "backline", od_backline, },
e7d4ea82 611 { "tiny", od_tiny, },
02d1d628
AMH		 612 { "custom", od_custom, },
613};
614
615/* look through the hash for quantization options */
a3b721bb
TC		 616static int
617ip_handle_quant_opts_low(pTHX_ i_quantize *quant, HV *hv, int push_errors)
02d1d628 618{
02d1d628
AMH		 619 SV **sv;
620 int i;
621 STRLEN len;
622 char *str;
a3b721bb 623 int failed = 0;
02d1d628 624
46a04ceb
TC		 625 quant->mc_colors = mymalloc(quant->mc_size * sizeof(i_color));
626
02d1d628
AMH		 627 sv = hv_fetch(hv, "transp", 6, 0);
628 if (sv && *sv && (str = SvPV(*sv, len))) {
629 quant->transp =
630 lookup_name(transp_names, sizeof(transp_names)/sizeof(*transp_names),
a3b721bb
TC		 631 str, tr_none, push_errors, "transp", &failed);
632 if (failed)
633 return 0;
02d1d628
AMH		 634 if (quant->transp != tr_none) {
635 quant->tr_threshold = 127;
636 sv = hv_fetch(hv, "tr_threshold", 12, 0);
637 if (sv && *sv)
638 quant->tr_threshold = SvIV(*sv);
639 }
640 if (quant->transp == tr_errdiff) {
641 sv = hv_fetch(hv, "tr_errdiff", 10, 0);
642 if (sv && *sv && (str = SvPV(*sv, len)))
a3b721bb
TC		 643 quant->tr_errdiff = lookup_name(errdiff_names, sizeof(errdiff_names)/sizeof(*errdiff_names), str, ed_floyd, push_errors, "tr_errdiff", &failed);
644 if (failed)
645 return 0;
02d1d628
AMH		 646 }
647 if (quant->transp == tr_ordered) {
e7d4ea82 648 quant->tr_orddith = od_tiny;
02d1d628 649 sv = hv_fetch(hv, "tr_orddith", 10, 0);
a3b721bb
TC		 650 if (sv && *sv && (str = SvPV(*sv, len))) {
651 quant->tr_orddith = lookup_name(orddith_names, sizeof(orddith_names)/sizeof(*orddith_names), str, od_random, push_errors, "tr_orddith", &failed);
652 if (failed)
653 return 0;
654 }
02d1d628
AMH		 655
656 if (quant->tr_orddith == od_custom) {
657 sv = hv_fetch(hv, "tr_map", 6, 0);
658 if (sv && *sv && SvTYPE(SvRV(*sv)) == SVt_PVAV) {
659 AV *av = (AV*)SvRV(*sv);
660 len = av_len(av) + 1;
661 if (len > sizeof(quant->tr_custom))
662 len = sizeof(quant->tr_custom);
663 for (i = 0; i < len; ++i) {
664 SV **sv2 = av_fetch(av, i, 0);
665 if (sv2 && *sv2) {
666 quant->tr_custom[i] = SvIV(*sv2);
667 }
668 }
669 while (i < sizeof(quant->tr_custom))
670 quant->tr_custom[i++] = 0;
671 }
672 }
673 }
674 }
0348fe07 675 quant->make_colors = mc_median_cut;
02d1d628
AMH		 676 sv = hv_fetch(hv, "make_colors", 11, 0);
677 if (sv && *sv && (str = SvPV(*sv, len))) {
678 quant->make_colors =
a3b721bb
TC		 679 lookup_name(make_color_names, sizeof(make_color_names)/sizeof(*make_color_names), str, mc_median_cut, push_errors, "make_colors", &failed);
680 if (failed)
681 return 0;
02d1d628
AMH		 682 }
683 sv = hv_fetch(hv, "colors", 6, 0);
684 if (sv && *sv && SvROK(*sv) && SvTYPE(SvRV(*sv)) == SVt_PVAV) {
685 /* needs to be an array of Imager::Color
686 note that the caller allocates the mc_color array and sets mc_size
687 to it's size */
688 AV *av = (AV *)SvRV(*sv);
689 quant->mc_count = av_len(av)+1;
690 if (quant->mc_count > quant->mc_size)
691 quant->mc_count = quant->mc_size;
692 for (i = 0; i < quant->mc_count; ++i) {
693 SV **sv1 = av_fetch(av, i, 0);
694 if (sv1 && *sv1 && SvROK(*sv1) && sv_derived_from(*sv1, "Imager::Color")) {
4c4c2ffd 695 i_color *col = INT2PTR(i_color *, SvIV((SV*)SvRV(*sv1)));
02d1d628
AMH		 696 quant->mc_colors[i] = *col;
697 }
a3b721bb
TC		 698 else if (push_errors) {
699 i_push_errorf(0, "colors[%d] isn't an Imager::Color object", i);
700 return 0;
701 }
02d1d628
AMH		 702 }
703 }
704 sv = hv_fetch(hv, "max_colors", 10, 0);
705 if (sv && *sv) {
706 i = SvIV(*sv);
707 if (i <= quant->mc_size && i >= quant->mc_count)
708 quant->mc_size = i;
709 }
710
711 quant->translate = pt_closest;
712 sv = hv_fetch(hv, "translate", 9, 0);
713 if (sv && *sv && (str = SvPV(*sv, len))) {
a3b721bb
TC		 714 quant->translate = lookup_name(translate_names, sizeof(translate_names)/sizeof(*translate_names), str, pt_closest, push_errors, "translate", &failed);
715 if (failed)
716 return 0;
02d1d628
AMH		 717 }
718 sv = hv_fetch(hv, "errdiff", 7, 0);
719 if (sv && *sv && (str = SvPV(*sv, len))) {
a3b721bb
TC		 720 quant->errdiff = lookup_name(errdiff_names, sizeof(errdiff_names)/sizeof(*errdiff_names), str, ed_floyd, push_errors, "errdiff", &failed);
721 if (failed)
722 return 0;
02d1d628
AMH		 723 }
724 if (quant->translate == pt_errdiff && quant->errdiff == ed_custom) {
725 /* get the error diffusion map */
726 sv = hv_fetch(hv, "errdiff_width", 13, 0);
727 if (sv && *sv)
728 quant->ed_width = SvIV(*sv);
729 sv = hv_fetch(hv, "errdiff_height", 14, 0);
730 if (sv && *sv)
731 quant->ed_height = SvIV(*sv);
732 sv = hv_fetch(hv, "errdiff_orig", 12, 0);
733 if (sv && *sv)
734 quant->ed_orig = SvIV(*sv);
735 if (quant->ed_width > 0 && quant->ed_height > 0) {
736 int sum = 0;
737 quant->ed_map = mymalloc(sizeof(int)*quant->ed_width*quant->ed_height);
738 sv = hv_fetch(hv, "errdiff_map", 11, 0);
739 if (sv && *sv && SvROK(*sv) && SvTYPE(SvRV(*sv)) == SVt_PVAV) {
740 AV *av = (AV*)SvRV(*sv);
741 len = av_len(av) + 1;
742 if (len > quant->ed_width * quant->ed_height)
743 len = quant->ed_width * quant->ed_height;
744 for (i = 0; i < len; ++i) {
745 SV **sv2 = av_fetch(av, i, 0);
746 if (sv2 && *sv2) {
a3b721bb
TC		 747 IV iv = SvIV(*sv2);
748 if (push_errors && iv < 0) {
749 i_push_errorf(0, "errdiff_map values must be non-negative, errdiff[%d] is negative", i);
750 return 0;
751 }
752 quant->ed_map[i] = iv;
02d1d628
AMH		 753 sum += quant->ed_map[i];
754 }
755 }
756 }
757 if (!sum) {
758 /* broken map */
759 myfree(quant->ed_map);
760 quant->ed_map = 0;
761 quant->errdiff = ed_floyd;
a3b721bb
TC		 762 if (push_errors) {
763 i_push_error(0, "error diffusion map must contain some non-zero values");
764 return 0;
765 }
02d1d628
AMH		 766 }
767 }
768 }
769 sv = hv_fetch(hv, "perturb", 7, 0);
770 if (sv && *sv)
771 quant->perturb = SvIV(*sv);
a3b721bb
TC		 772
773 return 1;
02d1d628
AMH		 774}
775
ec6d8908
TC		 776static void
777ip_cleanup_quant_opts(pTHX_ i_quantize *quant) {
46a04ceb
TC		 778 myfree(quant->mc_colors);
779 if (quant->ed_map)
780 myfree(quant->ed_map);
781}
782
a3b721bb
TC		 783static int
784ip_handle_quant_opts2(pTHX_ i_quantize *quant, HV *hv) {
785 int result = ip_handle_quant_opts_low(aTHX_ quant, hv, 1);
786 if (!result) {
787 ip_cleanup_quant_opts(aTHX_ quant);
788 }
789 return result;
790}
791
792static void
793ip_handle_quant_opts(pTHX_ i_quantize *quant, HV *hv) {
794 (void)ip_handle_quant_opts_low(aTHX_ quant, hv, 0);
795}
796
02d1d628 797/* copies the color map from the hv into the colors member of the HV */
ec6d8908
TC		 798static void
799ip_copy_colors_back(pTHX_ HV *hv, i_quantize *quant) {
02d1d628
AMH		 800 SV **sv;
801 AV *av;
802 int i;
803 SV *work;
804
805 sv = hv_fetch(hv, "colors", 6, 0);
806 if (!sv || !*sv || !SvROK(*sv) || SvTYPE(SvRV(*sv)) != SVt_PVAV) {
5c0d0ddf
TC		 807 /* nothing to do */
808 return;
02d1d628 809 }
5c0d0ddf
TC		 810
811 av = (AV *)SvRV(*sv);
812 av_clear(av);
02d1d628
AMH		 813 av_extend(av, quant->mc_count+1);
814 for (i = 0; i < quant->mc_count; ++i) {
815 i_color *in = quant->mc_colors+i;
816 Imager__Color c = ICL_new_internal(in->rgb.r, in->rgb.g, in->rgb.b, 255);
817 work = sv_newmortal();
818 sv_setref_pv(work, "Imager::Color", (void *)c);
819 SvREFCNT_inc(work);
5c0d0ddf 820 av_push(av, work);
02d1d628
AMH		 821 }
822}
823
0d80f37e
TC		 824static struct value_name
825poly_fill_mode_names[] =
826{
827 { "evenodd", i_pfm_evenodd },
828 { "nonzero", i_pfm_nonzero }
829};
830
831static i_poly_fill_mode_t
832S_get_poly_fill_mode(pTHX_ SV *sv) {
833 if (looks_like_number(sv)) {
834 IV work = SvIV(sv);
835 if (work < (IV)i_pfm_evenodd || work > (IV)i_pfm_nonzero)
836 work = (IV)i_pfm_evenodd;
837 return (i_poly_fill_mode_t)work;
838 }
839 else {
840 return (i_poly_fill_mode_t)lookup_name
841 (poly_fill_mode_names, ARRAY_COUNT(poly_fill_mode_names),
a3b721bb 842 SvPV_nolen(sv), i_pfm_evenodd, 0, NULL, NULL);
0d80f37e
TC		 843 }
844}
845
846static void
847S_get_polygon_list(pTHX_ i_polygon_list *polys, SV *sv) {
848 AV *av;
849 int i;
850 i_polygon_t *s;
851
852 SvGETMAGIC(sv);
853 if (!SvOK(sv) || !SvROK(sv) || SvTYPE(SvRV(sv)) != SVt_PVAV)
854 croak("polys must be an arrayref");
855
856 av = (AV*)SvRV(sv);
857 polys->count = av_len(av) + 1;
858 if (polys->count < 1)
859 croak("polypolygon: no polygons provided");
860 s = malloc_temp(aTHX_ sizeof(i_polygon_t) * polys->count);
861 for (i = 0; i < polys->count; ++i) {
862 SV **poly_sv = av_fetch(av, i, 0);
863 AV *poly_av;
864 SV **x_sv, **y_sv;
865 AV *x_av, *y_av;
866 double *x_data, *y_data;
867 ssize_t j;
868 ssize_t point_count;
869
870 if (!poly_sv)
871 croak("poly_polygon: nothing found for polygon %d", i);
872 /* needs to be another av */
873 SvGETMAGIC(*poly_sv);
874 if (!SvOK(*poly_sv) || !SvROK(*poly_sv) || SvTYPE(SvRV(*poly_sv)) != SVt_PVAV)
875 croak("poly_polygon: polygon %d isn't an arrayref", i);
876 poly_av = (AV*)SvRV(*poly_sv);
877 /* with two elements */
878 if (av_len(poly_av) != 1)
879 croak("poly_polygon: polygon %d should contain two arrays", i);
880 x_sv = av_fetch(poly_av, 0, 0);
881 y_sv = av_fetch(poly_av, 1, 0);
882 if (!x_sv)
883 croak("poly_polygon: polygon %d has no x elements", i);
884 if (!y_sv)
885 croak("poly_polygon: polygon %d has no y elements", i);
886 SvGETMAGIC(*x_sv);
887 SvGETMAGIC(*y_sv);
888 if (!SvOK(*x_sv) || !SvROK(*x_sv) || SvTYPE(SvRV(*x_sv)) != SVt_PVAV)
889 croak("poly_polygon: polygon %d x elements isn't an array", i);
890 if (!SvOK(*y_sv) || !SvROK(*y_sv) || SvTYPE(SvRV(*y_sv)) != SVt_PVAV)
891 croak("poly_polygon: polygon %d y elements isn't an array", i);
892 x_av = (AV*)SvRV(*x_sv);
893 y_av = (AV*)SvRV(*y_sv);
894 if (av_len(x_av) != av_len(y_av))
895 croak("poly_polygon: polygon %d x and y arrays different lengths", i+1);
896 point_count = av_len(x_av)+1;
897 x_data = malloc_temp(aTHX_ sizeof(double) * point_count * 2);
898 y_data = x_data + point_count;
899
900 for (j = 0; j < point_count; ++j) {
901 SV **x_item_sv = av_fetch(x_av, j, 0);
902 SV **y_item_sv = av_fetch(y_av, j, 0);
903 x_data[j] = x_item_sv ? SvNV(*x_item_sv) : 0;
904 y_data[j] = y_item_sv ? SvNV(*y_item_sv) : 0;
905 }
906 s[i].x = x_data;
907 s[i].y = y_data;
908 s[i].count = point_count;
909 }
910 polys->polygons = s;
911}
912
f1ac5027 913/* loads the segments of a fountain fill into an array */
b33c08f8 914static i_fountain_seg *
b13a3ddb 915load_fount_segs(pTHX_ AV *asegs, int *count) {
f1ac5027
TC		 916 /* Each element of segs must contain:
917 [ start, middle, end, c0, c1, segtype, colortrans ]
918 start, middle, end are doubles from 0 to 1
919 c0, c1 are Imager::Color::Float or Imager::Color objects
920 segtype, colortrans are ints
921 */
922 int i, j;
923 AV *aseg;
f1ac5027
TC		 924 i_fountain_seg *segs;
925 double work[3];
926 int worki[2];
927
928 *count = av_len(asegs)+1;
929 if (*count < 1)
930 croak("i_fountain must have at least one segment");
931 segs = mymalloc(sizeof(i_fountain_seg) * *count);
932 for(i = 0; i < *count; i++) {
933 SV **sv1 = av_fetch(asegs, i, 0);
934 if (!sv1 || !*sv1 || !SvROK(*sv1)
935 || SvTYPE(SvRV(*sv1)) != SVt_PVAV) {
936 myfree(segs);
937 croak("i_fountain: segs must be an arrayref of arrayrefs");
938 }
939 aseg = (AV *)SvRV(*sv1);
940 if (av_len(aseg) != 7-1) {
941 myfree(segs);
942 croak("i_fountain: a segment must have 7 members");
943 }
944 for (j = 0; j < 3; ++j) {
945 SV **sv2 = av_fetch(aseg, j, 0);
946 if (!sv2 || !*sv2) {
947 myfree(segs);
948 croak("i_fountain: XS error");
949 }
950 work[j] = SvNV(*sv2);
951 }
952 segs[i].start = work[0];
953 segs[i].middle = work[1];
954 segs[i].end = work[2];
955 for (j = 0; j < 2; ++j) {
956 SV **sv3 = av_fetch(aseg, 3+j, 0);
957 if (!sv3 || !*sv3 || !SvROK(*sv3) ||
958 (!sv_derived_from(*sv3, "Imager::Color")
959 && !sv_derived_from(*sv3, "Imager::Color::Float"))) {
960 myfree(segs);
961 croak("i_fountain: segs must contain colors in elements 3 and 4");
962 }
963 if (sv_derived_from(*sv3, "Imager::Color::Float")) {
4c4c2ffd 964 segs[i].c[j] = *INT2PTR(i_fcolor *, SvIV((SV *)SvRV(*sv3)));
f1ac5027
TC		 965 }
966 else {
4c4c2ffd 967 i_color c = *INT2PTR(i_color *, SvIV((SV *)SvRV(*sv3)));
f1ac5027
TC		 968 int ch;
969 for (ch = 0; ch < MAXCHANNELS; ++ch) {
970 segs[i].c[j].channel[ch] = c.channel[ch] / 255.0;
971 }
972 }
973 }
974 for (j = 0; j < 2; ++j) {
975 SV **sv2 = av_fetch(aseg, j+5, 0);
976 if (!sv2 || !*sv2) {
977 myfree(segs);
978 croak("i_fountain: XS error");
979 }
980 worki[j] = SvIV(*sv2);
981 }
982 segs[i].type = worki[0];
983 segs[i].color = worki[1];
984 }
985
986 return segs;
987}
988
4cda4e76
TC		 989/* validates the indexes supplied to i_ppal
990
991i_ppal() doesn't do that for speed, but I'm not comfortable doing that
992for calls from perl.
993
994*/
995static void
996validate_i_ppal(i_img *im, i_palidx const *indexes, int count) {
997 int color_count = i_colorcount(im);
998 int i;
999
1000 if (color_count == -1)
1001 croak("i_plin() called on direct color image");
1002
1003 for (i = 0; i < count; ++i) {
1004 if (indexes[i] >= color_count) {
1005 croak("i_plin() called with out of range color index %d (max %d)",
1006 indexes[i], color_count-1);
1007 }
1008 }
1009}
1010
faa9b3e7
TC		 1011/* I don't think ICLF_* names belong at the C interface
1012 this makes the XS code think we have them, to let us avoid
1013 putting function bodies in the XS code
1014*/
1015#define ICLF_new_internal(r, g, b, a) i_fcolor_new((r), (g), (b), (a))
1016#define ICLF_DESTROY(cl) i_fcolor_destroy(cl)
1017
10ea52a3
TC		 1018#ifdef IMAGER_LOG
1019#define i_log_enabled() 1
1020#else
1021#define i_log_enabled() 0
1022#endif
1023
a8652edf
TC		 1024#if i_int_hlines_testing()
1025
1026typedef i_int_hlines *Imager__Internal__Hlines;
1027
1028static i_int_hlines *
8d14daab 1029i_int_hlines_new(i_img_dim start_y, i_img_dim count_y, i_img_dim start_x, i_img_dim count_x) {
a8652edf
TC		 1030 i_int_hlines *result = mymalloc(sizeof(i_int_hlines));
1031 i_int_init_hlines(result, start_y, count_y, start_x, count_x);
1032
1033 return result;
1034}
1035
1036static i_int_hlines *
1037i_int_hlines_new_img(i_img *im) {
1038 i_int_hlines *result = mymalloc(sizeof(i_int_hlines));
1039 i_int_init_hlines_img(result, im);
1040
1041 return result;
1042}
1043
1044static void
1045i_int_hlines_DESTROY(i_int_hlines *hlines) {
1046 i_int_hlines_destroy(hlines);
1047 myfree(hlines);
1048}
1049
ffddd407
TC		 1050#define i_int_hlines_CLONE_SKIP(cls) 1
1051
a8652edf
TC		 1052static int seg_compare(const void *vleft, const void *vright) {
1053 const i_int_hline_seg *left = vleft;
1054 const i_int_hline_seg *right = vright;
1055
1056 return left->minx - right->minx;
1057}
1058
1059static SV *
1060i_int_hlines_dump(i_int_hlines *hlines) {
b13a3ddb 1061 dTHX;
8d14daab
TC		 1062 SV *dump = newSVpvf("start_y: %" i_DF " limit_y: %" i_DF " start_x: %" i_DF " limit_x: %" i_DF"\n",
1063 i_DFc(hlines->start_y), i_DFc(hlines->limit_y), i_DFc(hlines->start_x), i_DFc(hlines->limit_x));
1064 i_img_dim y;
a8652edf
TC		 1065
1066 for (y = hlines->start_y; y < hlines->limit_y; ++y) {
1067 i_int_hline_entry *entry = hlines->entries[y-hlines->start_y];
1068 if (entry) {
1069 int i;
1070 /* sort the segments, if any */
1071 if (entry->count)
1072 qsort(entry->segs, entry->count, sizeof(i_int_hline_seg), seg_compare);
1073
8d14daab 1074 sv_catpvf(dump, " %" i_DF " (%" i_DF "):", i_DFc(y), i_DFc(entry->count));
a8652edf 1075 for (i = 0; i < entry->count; ++i) {
8d14daab
TC		 1076 sv_catpvf(dump, " [%" i_DF ", %" i_DF ")", i_DFc(entry->segs[i].minx),
1077 i_DFc(entry->segs[i].x_limit));
a8652edf
TC		 1078 }
1079 sv_catpv(dump, "\n");
1080 }
1081 }
1082
1083 return dump;
1084}
1085
1086#endif
1087
8d14daab
TC		 1088static off_t
1089i_sv_off_t(pTHX_ SV *sv) {
1090#if LSEEKSIZE > IVSIZE
1091 return (off_t)SvNV(sv);
1092#else
1093 return (off_t)SvIV(sv);
1094#endif
1095}
1096
1097static SV *
1098i_new_sv_off_t(pTHX_ off_t off) {
1099#if LSEEKSIZE > IVSIZE
1100 return newSVnv(off);
1101#else
1102 return newSViv(off);
1103#endif
1104}
1105
ec6d8908
TC		 1106static im_pl_ext_funcs im_perl_funcs =
1107{
1108 IMAGER_PL_API_VERSION,
1109 IMAGER_PL_API_LEVEL,
1110 ip_handle_quant_opts,
1111 ip_cleanup_quant_opts,
a3b721bb
TC		 1112 ip_copy_colors_back,
1113 ip_handle_quant_opts2
ec6d8908
TC		 1114};
1115
1116#define PERL_PL_SET_GLOBAL_CALLBACKS \
1117 sv_setiv(get_sv(PERL_PL_FUNCTION_TABLE_NAME, 1), PTR2IV(&im_perl_funcs));
1118
bdd4c63b
TC		 1119#define IIM_new i_img_8_new
1120#define IIM_DESTROY i_img_destroy
42505e61 1121typedef int SysRet;
bdd4c63b 1122
f7450478
TC		 1123#ifdef IMEXIF_ENABLE
1124#define i_exif_enabled() 1
1125#else
1126#define i_exif_enabled() 0
1127#endif
1128
d16420e9 1129/* trying to use more C style names, map them here */
eda1622c 1130#define i_io_DESTROY(ig) io_glue_destroy(ig)
d16420e9 1131
3b000586
TC		 1132#define i_img_get_width(im) ((im)->xsize)
1133#define i_img_get_height(im) ((im)->ysize)
1134
4498c8bd
TC		 1135#define i_img_epsilonf() (DBL_EPSILON * 4)
1136
6d5c85a2
TC		 1137/* avoid some xsubpp strangeness */
1138#define NEWLINE '\n'
1139
02d1d628
AMH		 1140MODULE = Imager PACKAGE = Imager::Color PREFIX = ICL_
1141
1142Imager::Color
1143ICL_new_internal(r,g,b,a)
1144 unsigned char r
1145 unsigned char g
1146 unsigned char b
1147 unsigned char a
1148
1149void
1150ICL_DESTROY(cl)
1151 Imager::Color cl
1152
1153
29106a11 1154void
02d1d628
AMH		 1155ICL_set_internal(cl,r,g,b,a)
1156 Imager::Color cl
1157 unsigned char r
1158 unsigned char g
1159 unsigned char b
1160 unsigned char a
29106a11 1161 PPCODE:
b7346865
TC		 1162 cl->rgba.r = r;
1163 cl->rgba.g = g;
1164 cl->rgba.b = b;
1165 cl->rgba.a = a;
29106a11
TC		 1166 EXTEND(SP, 1);
1167 PUSHs(ST(0));
02d1d628
AMH		 1168
1169void
1170ICL_info(cl)
1171 Imager::Color cl
1172
1173
1174void
1175ICL_rgba(cl)
1176 Imager::Color cl
1177 PPCODE:
1178 EXTEND(SP, 4);
b482243a
TC		 1179 PUSHs(sv_2mortal(newSViv(cl->rgba.r)));
1180 PUSHs(sv_2mortal(newSViv(cl->rgba.g)));
1181 PUSHs(sv_2mortal(newSViv(cl->rgba.b)));
1182 PUSHs(sv_2mortal(newSViv(cl->rgba.a)));
02d1d628 1183
efdc2568
TC		 1184Imager::Color
1185i_hsv_to_rgb(c)
1186 Imager::Color c
1187 CODE:
1188 RETVAL = mymalloc(sizeof(i_color));
1189 *RETVAL = *c;
1190 i_hsv_to_rgb(RETVAL);
1191 OUTPUT:
1192 RETVAL
1193
1194Imager::Color
1195i_rgb_to_hsv(c)
1196 Imager::Color c
1197 CODE:
1198 RETVAL = mymalloc(sizeof(i_color));
1199 *RETVAL = *c;
1200 i_rgb_to_hsv(RETVAL);
1201 OUTPUT:
1202 RETVAL
1203
02d1d628
AMH		 1204
1205
faa9b3e7 1206MODULE = Imager PACKAGE = Imager::Color::Float PREFIX=ICLF_
02d1d628 1207
faa9b3e7
TC		 1208Imager::Color::Float
1209ICLF_new_internal(r, g, b, a)
5824f4c2
TC		 1210 im_double r
1211 im_double g
1212 im_double b
1213 im_double a
faa9b3e7
TC		 1214
1215void
1216ICLF_DESTROY(cl)
1217 Imager::Color::Float cl
02d1d628 1218
faa9b3e7
TC		 1219void
1220ICLF_rgba(cl)
1221 Imager::Color::Float cl
1222 PREINIT:
1223 int ch;
1224 PPCODE:
1225 EXTEND(SP, MAXCHANNELS);
1226 for (ch = 0; ch < MAXCHANNELS; ++ch) {
1227 /* printf("%d: %g\n", ch, cl->channel[ch]); */
1228 PUSHs(sv_2mortal(newSVnv(cl->channel[ch])));
1229 }
1230
1231void
1232ICLF_set_internal(cl,r,g,b,a)
1233 Imager::Color::Float cl
5824f4c2
TC		 1234 im_double r
1235 im_double g
1236 im_double b
1237 im_double a
faa9b3e7
TC		 1238 PPCODE:
1239 cl->rgba.r = r;
1240 cl->rgba.g = g;
1241 cl->rgba.b = b;
1242 cl->rgba.a = a;
1243 EXTEND(SP, 1);
1244 PUSHs(ST(0));
02d1d628 1245
efdc2568
TC		 1246Imager::Color::Float
1247i_hsv_to_rgb(c)
1248 Imager::Color::Float c
1249 CODE:
1250 RETVAL = mymalloc(sizeof(i_fcolor));
1251 *RETVAL = *c;
1252 i_hsv_to_rgbf(RETVAL);
1253 OUTPUT:
1254 RETVAL
1255
1256Imager::Color::Float
1257i_rgb_to_hsv(c)
1258 Imager::Color::Float c
1259 CODE:
1260 RETVAL = mymalloc(sizeof(i_fcolor));
1261 *RETVAL = *c;
1262 i_rgb_to_hsvf(RETVAL);
1263 OUTPUT:
1264 RETVAL
efdc2568 1265
02d1d628
AMH		 1266MODULE = Imager PACKAGE = Imager::ImgRaw PREFIX = IIM_
1267
1268Imager::ImgRaw
5824f4c2
TC		 1269IIM_new(xsize,ysize,ch)
1270 i_img_dim xsize
1271 i_img_dim ysize
02d1d628
AMH		 1272 int ch
1273
1274void
1275IIM_DESTROY(im)
1276 Imager::ImgRaw im
1277
1278
1279
1280MODULE = Imager PACKAGE = Imager
1281
1282PROTOTYPES: ENABLE
1283
1284
1285Imager::IO
1286io_new_fd(fd)
1287 int fd
1288
1289Imager::IO
1290io_new_bufchain()
1291
1292
4dfa5522 1293Imager::IO
6d5c85a2
TC		 1294io_new_buffer(data_sv)
1295 SV *data_sv
4dfa5522 1296 CODE:
a87997b2 1297 i_clear_error();
6d5c85a2 1298 RETVAL = do_io_new_buffer(aTHX_ data_sv);
a87997b2
TC		 1299 if (!RETVAL)
1300 XSRETURN(0);
4dfa5522
AMH		 1301 OUTPUT:
1302 RETVAL
10461f9a
TC		 1303
1304Imager::IO
1305io_new_cb(writecb, readcb, seekcb, closecb, maxwrite = CBDATA_BUFSIZE)
1306 SV *writecb;
1307 SV *readcb;
1308 SV *seekcb;
1309 SV *closecb;
10461f9a 1310 CODE:
6d5c85a2 1311 RETVAL = do_io_new_cb(aTHX_ writecb, readcb, seekcb, closecb);
10461f9a
TC		 1312 OUTPUT:
1313 RETVAL
4dfa5522 1314
6d5c85a2 1315SV *
02d1d628
AMH		 1316io_slurp(ig)
1317 Imager::IO ig
1318 PREINIT:
1319 unsigned char* data;
4dfa5522 1320 size_t tlength;
6d5c85a2 1321 CODE:
02d1d628
AMH		 1322 data = NULL;
1323 tlength = io_slurp(ig, &data);
6d5c85a2 1324 RETVAL = newSVpv((char *)data,tlength);
02d1d628 1325 myfree(data);
6d5c85a2
TC		 1326 OUTPUT:
1327 RETVAL
02d1d628
AMH		 1328
1329
77157728
TC		 1330undef_int
1331i_set_image_file_limits(width, height, bytes)
8d14daab
TC		 1332 i_img_dim width
1333 i_img_dim height
1334 size_t bytes
77157728
TC		 1335
1336void
1337i_get_image_file_limits()
1338 PREINIT:
8d14daab
TC		 1339 i_img_dim width, height;
1340 size_t bytes;
77157728
TC		 1341 PPCODE:
1342 if (i_get_image_file_limits(&width, &height, &bytes)) {
1343 EXTEND(SP, 3);
1344 PUSHs(sv_2mortal(newSViv(width)));
1345 PUSHs(sv_2mortal(newSViv(height)));
8d14daab 1346 PUSHs(sv_2mortal(newSVuv(bytes)));
77157728
TC		 1347 }
1348
e1558ffe
TC		 1349bool
1350i_int_check_image_file_limits(width, height, channels, sample_size)
1351 i_img_dim width
1352 i_img_dim height
1353 int channels
1354 size_t sample_size
1355 PROTOTYPE: DISABLE
1356
6d5c85a2
TC		 1357MODULE = Imager PACKAGE = Imager::IO PREFIX = io_
1358
1359Imager::IO
1360io_new_fd(class, fd)
1361 int fd
1362 CODE:
1363 RETVAL = io_new_fd(fd);
1364 OUTPUT:
1365 RETVAL
1366
1367Imager::IO
1368io_new_buffer(class, data_sv)
1369 SV *data_sv
1370 CODE:
a87997b2 1371 i_clear_error();
6d5c85a2 1372 RETVAL = do_io_new_buffer(aTHX_ data_sv);
a87997b2
TC		 1373 if (!RETVAL)
1374 XSRETURN(0);
6d5c85a2
TC		 1375 OUTPUT:
1376 RETVAL
1377
1378Imager::IO
1379io_new_cb(class, writecb, readcb, seekcb, closecb)
1380 SV *writecb;
1381 SV *readcb;
1382 SV *seekcb;
1383 SV *closecb;
1384 CODE:
1385 RETVAL = do_io_new_cb(aTHX_ writecb, readcb, seekcb, closecb);
1386 OUTPUT:
1387 RETVAL
1388
1389Imager::IO
1390io_new_bufchain(class)
1391 CODE:
1392 RETVAL = io_new_bufchain();
1393 OUTPUT:
1394 RETVAL
1395
52d990d6
TC		 1396Imager::IO
1397io__new_perlio(class, io)
1398 PerlIO *io
1399 CODE:
1400 RETVAL = im_io_new_perlio(aTHX_ io);
1401 OUTPUT:
1402 RETVAL
1403
6d5c85a2
TC		 1404SV *
1405io_slurp(class, ig)
1406 Imager::IO ig
1407 PREINIT:
1408 unsigned char* data;
1409 size_t tlength;
1410 CODE:
1411 data = NULL;
1412 tlength = io_slurp(ig, &data);
1413 RETVAL = newSVpv((char *)data,tlength);
1414 myfree(data);
1415 OUTPUT:
1416 RETVAL
1417
eda1622c
TC		 1418MODULE = Imager PACKAGE = Imager::IO PREFIX = i_io_
1419
6d5c85a2
TC		 1420IV
1421i_io_raw_write(ig, data_sv)
eda1622c
TC		 1422 Imager::IO ig
1423 SV *data_sv
1424 PREINIT:
1425 void *data;
1426 STRLEN size;
1427 CODE:
40a88898 1428 data = SvPVbyte(data_sv, size);
6d5c85a2 1429 RETVAL = i_io_raw_write(ig, data, size);
eda1622c
TC		 1430 OUTPUT:
1431 RETVAL
1432
1f6c1c10 1433void
6d5c85a2 1434i_io_raw_read(ig, buffer_sv, size)
eda1622c
TC		 1435 Imager::IO ig
1436 SV *buffer_sv
8d14daab 1437 IV size
eda1622c
TC		 1438 PREINIT:
1439 void *buffer;
8d14daab 1440 ssize_t result;
1f6c1c10
TC		 1441 PPCODE:
1442 if (size <= 0)
6d5c85a2 1443 croak("size negative in call to i_io_raw_read()");
d1442cc4
TC		 1444 /* prevent an undefined value warning if they supplied an
1445 undef buffer.
1446 Orginally conditional on !SvOK(), but this will prevent the
1447 downgrade from croaking */
1448 sv_setpvn(buffer_sv, "", 0);
1449#ifdef SvUTF8
1450 if (SvUTF8(buffer_sv))
1451 sv_utf8_downgrade(buffer_sv, FALSE);
1452#endif
eda1622c 1453 buffer = SvGROW(buffer_sv, size+1);
6d5c85a2 1454 result = i_io_raw_read(ig, buffer, size);
1f6c1c10
TC		 1455 if (result >= 0) {
1456 SvCUR_set(buffer_sv, result);
1457 *SvEND(buffer_sv) = '\0';
1458 SvPOK_only(buffer_sv);
1459 EXTEND(SP, 1);
1460 PUSHs(sv_2mortal(newSViv(result)));
eda1622c 1461 }
1f6c1c10
TC		 1462 ST(1) = buffer_sv;
1463 SvSETMAGIC(ST(1));
1464
1465void
6d5c85a2 1466i_io_raw_read2(ig, size)
1f6c1c10 1467 Imager::IO ig
8d14daab 1468 IV size
1f6c1c10
TC		 1469 PREINIT:
1470 SV *buffer_sv;
1471 void *buffer;
8d14daab 1472 ssize_t result;
1f6c1c10
TC		 1473 PPCODE:
1474 if (size <= 0)
1475 croak("size negative in call to i_io_read2()");
1476 buffer_sv = newSV(size);
1477 buffer = SvGROW(buffer_sv, size+1);
6d5c85a2 1478 result = i_io_raw_read(ig, buffer, size);
1f6c1c10 1479 if (result >= 0) {
eda1622c
TC		 1480 SvCUR_set(buffer_sv, result);
1481 *SvEND(buffer_sv) = '\0';
1482 SvPOK_only(buffer_sv);
1f6c1c10
TC		 1483 EXTEND(SP, 1);
1484 PUSHs(sv_2mortal(buffer_sv));
eda1622c 1485 }
1f6c1c10
TC		 1486 else {
1487 /* discard it */
1488 SvREFCNT_dec(buffer_sv);
1489 }
eda1622c 1490
8d14daab 1491off_t
6d5c85a2 1492i_io_raw_seek(ig, position, whence)
eda1622c 1493 Imager::IO ig
8d14daab 1494 off_t position
eda1622c 1495 int whence
c3cc977e 1496
1f6c1c10 1497int
6d5c85a2 1498i_io_raw_close(ig)
eda1622c
TC		 1499 Imager::IO ig
1500
1501void
1502i_io_DESTROY(ig)
c3cc977e
AMH		 1503 Imager::IO ig
1504
ffddd407
TC		 1505int
1506i_io_CLONE_SKIP(...)
1507 CODE:
8d14daab 1508 (void)items; /* avoid unused warning for XS variable */
ffddd407
TC		 1509 RETVAL = 1;
1510 OUTPUT:
1511 RETVAL
1512
6d5c85a2
TC		 1513int
1514i_io_getc(ig)
1515 Imager::IO ig
1516
215d9ead
TC		 1517void
1518i_io_nextc(ig)
1519 Imager::IO ig
1520
6d5c85a2
TC		 1521int
1522i_io_putc(ig, c)
1523 Imager::IO ig
1524 int c
1525
1526int
1527i_io_close(ig)
1528 Imager::IO ig
1529
1530int
1531i_io_flush(ig)
1532 Imager::IO ig
1533
1534int
1535i_io_peekc(ig)
1536 Imager::IO ig
1537
1538int
1539i_io_seek(ig, off, whence)
1540 Imager::IO ig
1541 off_t off
1542 int whence
1543
1544void
1545i_io_peekn(ig, size)
1546 Imager::IO ig
1547 STRLEN size
1548 PREINIT:
1549 SV *buffer_sv;
1550 void *buffer;
1551 ssize_t result;
1552 PPCODE:
1553 buffer_sv = newSV(size+1);
1554 buffer = SvGROW(buffer_sv, size+1);
1555 result = i_io_peekn(ig, buffer, size);
1556 if (result >= 0) {
1557 SvCUR_set(buffer_sv, result);
1558 *SvEND(buffer_sv) = '\0';
1559 SvPOK_only(buffer_sv);
1560 EXTEND(SP, 1);
1561 PUSHs(sv_2mortal(buffer_sv));
1562 }
1563 else {
1564 /* discard it */
1565 SvREFCNT_dec(buffer_sv);
1566 }
1567
1568void
1569i_io_read(ig, buffer_sv, size)
1570 Imager::IO ig
1571 SV *buffer_sv
1572 IV size
1573 PREINIT:
1574 void *buffer;
1575 ssize_t result;
1576 PPCODE:
1577 if (size <= 0)
1578 croak("size negative in call to i_io_read()");
d1442cc4
TC		 1579 /* prevent an undefined value warning if they supplied an
1580 undef buffer.
1581 Orginally conditional on !SvOK(), but this will prevent the
1582 downgrade from croaking */
1583 sv_setpvn(buffer_sv, "", 0);
1584#ifdef SvUTF8
1585 if (SvUTF8(buffer_sv))
1586 sv_utf8_downgrade(buffer_sv, FALSE);
1587#endif
6d5c85a2
TC		 1588 buffer = SvGROW(buffer_sv, size+1);
1589 result = i_io_read(ig, buffer, size);
1590 if (result >= 0) {
1591 SvCUR_set(buffer_sv, result);
1592 *SvEND(buffer_sv) = '\0';
1593 SvPOK_only(buffer_sv);
1594 EXTEND(SP, 1);
1595 PUSHs(sv_2mortal(newSViv(result)));
1596 }
1597 ST(1) = buffer_sv;
1598 SvSETMAGIC(ST(1));
1599
1600void
1601i_io_read2(ig, size)
1602 Imager::IO ig
1603 STRLEN size
1604 PREINIT:
1605 SV *buffer_sv;
1606 void *buffer;
1607 ssize_t result;
1608 PPCODE:
1609 if (size == 0)
1610 croak("size zero in call to read2()");
1611 buffer_sv = newSV(size);
1612 buffer = SvGROW(buffer_sv, size+1);
1613 result = i_io_read(ig, buffer, size);
1614 if (result > 0) {
1615 SvCUR_set(buffer_sv, result);
1616 *SvEND(buffer_sv) = '\0';
1617 SvPOK_only(buffer_sv);
1618 EXTEND(SP, 1);
1619 PUSHs(sv_2mortal(buffer_sv));
1620 }
1621 else {
1622 /* discard it */
1623 SvREFCNT_dec(buffer_sv);
1624 }
1625
1626void
1627i_io_gets(ig, size = 8192, eol = NEWLINE)
1628 Imager::IO ig
1629 STRLEN size
1630 int eol
1631 PREINIT:
1632 SV *buffer_sv;
1633 void *buffer;
1634 ssize_t result;
1635 PPCODE:
1636 if (size < 2)
1637 croak("size too small in call to gets()");
1638 buffer_sv = sv_2mortal(newSV(size+1));
1639 buffer = SvPVX(buffer_sv);
1640 result = i_io_gets(ig, buffer, size+1, eol);
1641 if (result > 0) {
1642 SvCUR_set(buffer_sv, result);
1643 *SvEND(buffer_sv) = '\0';
1644 SvPOK_only(buffer_sv);
1645 EXTEND(SP, 1);
1646 PUSHs(buffer_sv);
1647 }
1648
1649IV
1650i_io_write(ig, data_sv)
1651 Imager::IO ig
1652 SV *data_sv
1653 PREINIT:
1654 void *data;
1655 STRLEN size;
1656 CODE:
40a88898 1657 data = SvPVbyte(data_sv, size);
6d5c85a2
TC		 1658 RETVAL = i_io_write(ig, data, size);
1659 OUTPUT:
1660 RETVAL
1661
1662void
1663i_io_dump(ig, flags = I_IO_DUMP_DEFAULT)
1664 Imager::IO ig
1665 int flags
1666
1667bool
1668i_io_set_buffered(ig, flag = 1)
1669 Imager::IO ig
1670 int flag
1671
1672bool
1673i_io_is_buffered(ig)
1674 Imager::IO ig
1675
1676bool
1677i_io_eof(ig)
1678 Imager::IO ig
1679
1680bool
1681i_io_error(ig)
1682 Imager::IO ig
1683
c3cc977e
AMH		 1684MODULE = Imager PACKAGE = Imager
1685
1686PROTOTYPES: ENABLE
1687
02d1d628
AMH		 1688void
1689i_list_formats()
1690 PREINIT:
1691 char* item;
1692 int i;
1693 PPCODE:
1694 i=0;
1695 while( (item=i_format_list[i++]) != NULL ) {
1696 EXTEND(SP, 1);
1697 PUSHs(sv_2mortal(newSVpv(item,0)));
1698 }
1699
ec76939c
TC		 1700Imager::ImgRaw
1701i_sametype(im, x, y)
1702 Imager::ImgRaw im
8d14daab
TC		 1703 i_img_dim x
1704 i_img_dim y
ec76939c
TC		 1705
1706Imager::ImgRaw
1707i_sametype_chans(im, x, y, channels)
1708 Imager::ImgRaw im
8d14daab
TC		 1709 i_img_dim x
1710 i_img_dim y
ec76939c
TC		 1711 int channels
1712
10ea52a3 1713int
bd8052a6
TC		 1714i_init_log(name_sv,level)
1715 SV* name_sv
02d1d628 1716 int level
bd8052a6
TC		 1717 PREINIT:
1718 const char *name = SvOK(name_sv) ? SvPV_nolen(name_sv) : NULL;
1719 CODE:
10ea52a3
TC		 1720 RETVAL = i_init_log(name, level);
1721 OUTPUT:
1722 RETVAL
02d1d628 1723
7f882a01 1724void
bf1573f9 1725i_log_entry(string,level)
7f882a01
AMH		 1726 char* string
1727 int level
1728
10ea52a3
TC		 1729int
1730i_log_enabled()
7f882a01 1731
02d1d628
AMH		 1732void
1733i_img_info(im)
1734 Imager::ImgRaw im
1735 PREINIT:
8d14daab 1736 i_img_dim info[4];
02d1d628
AMH		 1737 PPCODE:
1738 i_img_info(im,info);
1739 EXTEND(SP, 4);
1740 PUSHs(sv_2mortal(newSViv(info[0])));
1741 PUSHs(sv_2mortal(newSViv(info[1])));
1742 PUSHs(sv_2mortal(newSViv(info[2])));
1743 PUSHs(sv_2mortal(newSViv(info[3])));
1744
1745
1746
1747
1748void
1749i_img_setmask(im,ch_mask)
1750 Imager::ImgRaw im
1751 int ch_mask
1752
1753int
1754i_img_getmask(im)
1755 Imager::ImgRaw im
1756
1757int
1758i_img_getchannels(im)
1759 Imager::ImgRaw im
1760
1761void
1762i_img_getdata(im)
1763 Imager::ImgRaw im
1764 PPCODE:
1765 EXTEND(SP, 1);
26fd367b
TC		 1766 PUSHs(im->idata ?
1767 sv_2mortal(newSVpv((char *)im->idata, im->bytes))
faa9b3e7 1768 : &PL_sv_undef);
02d1d628 1769
3b000586
TC		 1770IV
1771i_img_get_width(im)
1772 Imager::ImgRaw im
1773
1774IV
1775i_img_get_height(im)
1776 Imager::ImgRaw im
1777
35db02fc
TC		 1778int
1779i_img_color_model(im)
1780 Imager::ImgRaw im
1781
1782int
1783i_img_color_channels(im)
1784 Imager::ImgRaw im
1785
1786int
1787i_img_alpha_channel(im)
1788 Imager::ImgRaw im
1789 CODE:
1790 if (!i_img_alpha_channel(im, &RETVAL))
1791 XSRETURN(0);
1792 OUTPUT:
1793 RETVAL
3b000586 1794
bd8052a6
TC		 1795void
1796i_img_is_monochrome(im)
1797 Imager::ImgRaw im
1798 PREINIT:
1799 int zero_is_white;
1800 int result;
1801 PPCODE:
1802 result = i_img_is_monochrome(im, &zero_is_white);
1803 if (result) {
1804 if (GIMME_V == G_ARRAY) {
1805 EXTEND(SP, 2);
1806 PUSHs(&PL_sv_yes);
1807 PUSHs(sv_2mortal(newSViv(zero_is_white)));
1808 }
1809 else {
1810 EXTEND(SP, 1);
1811 PUSHs(&PL_sv_yes);
1812 }
1813 }
02d1d628
AMH		 1814
1815void
aa833c97 1816i_line(im,x1,y1,x2,y2,val,endp)
02d1d628 1817 Imager::ImgRaw im
8d14daab
TC		 1818 i_img_dim x1
1819 i_img_dim y1
1820 i_img_dim x2
1821 i_img_dim y2
02d1d628 1822 Imager::Color val
aa833c97 1823 int endp
02d1d628
AMH		 1824
1825void
b437ce0a 1826i_line_aa(im,x1,y1,x2,y2,val,endp)
02d1d628 1827 Imager::ImgRaw im
8d14daab
TC		 1828 i_img_dim x1
1829 i_img_dim y1
1830 i_img_dim x2
1831 i_img_dim y2
02d1d628 1832 Imager::Color val
b437ce0a 1833 int endp
02d1d628
AMH		 1834
1835void
1836i_box(im,x1,y1,x2,y2,val)
1837 Imager::ImgRaw im
8d14daab
TC		 1838 i_img_dim x1
1839 i_img_dim y1
1840 i_img_dim x2
1841 i_img_dim y2
02d1d628
AMH		 1842 Imager::Color val
1843
1844void
1845i_box_filled(im,x1,y1,x2,y2,val)
1846 Imager::ImgRaw im
8d14daab
TC		 1847 i_img_dim x1
1848 i_img_dim y1
1849 i_img_dim x2
1850 i_img_dim y2
02d1d628
AMH		 1851 Imager::Color val
1852
7477ff14
TC		 1853int
1854i_box_filledf(im,x1,y1,x2,y2,val)
1855 Imager::ImgRaw im
8d14daab
TC		 1856 i_img_dim x1
1857 i_img_dim y1
1858 i_img_dim x2
1859 i_img_dim y2
7477ff14
TC		 1860 Imager::Color::Float val
1861
f1ac5027
TC		 1862void
1863i_box_cfill(im,x1,y1,x2,y2,fill)
1864 Imager::ImgRaw im
8d14daab
TC		 1865 i_img_dim x1
1866 i_img_dim y1
1867 i_img_dim x2
1868 i_img_dim y2
f1ac5027
TC		 1869 Imager::FillHandle fill
1870
02d1d628
AMH		 1871void
1872i_arc(im,x,y,rad,d1,d2,val)
1873 Imager::ImgRaw im
8d14daab
TC		 1874 i_img_dim x
1875 i_img_dim y
5824f4c2
TC		 1876 im_double rad
1877 im_double d1
1878 im_double d2
02d1d628
AMH		 1879 Imager::Color val
1880
a8652edf
TC		 1881void
1882i_arc_aa(im,x,y,rad,d1,d2,val)
1883 Imager::ImgRaw im
5824f4c2
TC		 1884 im_double x
1885 im_double y
1886 im_double rad
1887 im_double d1
1888 im_double d2
a8652edf
TC		 1889 Imager::Color val
1890
f1ac5027
TC		 1891void
1892i_arc_cfill(im,x,y,rad,d1,d2,fill)
1893 Imager::ImgRaw im
8d14daab
TC		 1894 i_img_dim x
1895 i_img_dim y
5824f4c2
TC		 1896 im_double rad
1897 im_double d1
1898 im_double d2
f1ac5027
TC		 1899 Imager::FillHandle fill
1900
a8652edf
TC		 1901void
1902i_arc_aa_cfill(im,x,y,rad,d1,d2,fill)
1903 Imager::ImgRaw im
5824f4c2
TC		 1904 im_double x
1905 im_double y
1906 im_double rad
1907 im_double d1
1908 im_double d2
a8652edf 1909 Imager::FillHandle fill
02d1d628
AMH		 1910
1911
6af18d2b
AMH		 1912void
1913i_circle_aa(im,x,y,rad,val)
1914 Imager::ImgRaw im
5824f4c2
TC		 1915 im_double x
1916 im_double y
1917 im_double rad
6af18d2b
AMH		 1918 Imager::Color val
1919
bf18ef3a
TC		 1920void
1921i_circle_aa_fill(im,x,y,rad,fill)
1922 Imager::ImgRaw im
5824f4c2
TC		 1923 im_double x
1924 im_double y
1925 im_double rad
bf18ef3a
TC		 1926 Imager::FillHandle fill
1927
40068b33
TC		 1928int
1929i_circle_out(im,x,y,rad,val)
1930 Imager::ImgRaw im
1931 i_img_dim x
1932 i_img_dim y
1933 i_img_dim rad
1934 Imager::Color val
1935
1936int
1937i_circle_out_aa(im,x,y,rad,val)
1938 Imager::ImgRaw im
1939 i_img_dim x
1940 i_img_dim y
1941 i_img_dim rad
1942 Imager::Color val
1943
1944int
1945i_arc_out(im,x,y,rad,d1,d2,val)
1946 Imager::ImgRaw im
1947 i_img_dim x
1948 i_img_dim y
1949 i_img_dim rad
5824f4c2
TC		 1950 im_double d1
1951 im_double d2
40068b33
TC		 1952 Imager::Color val
1953
1954int
1955i_arc_out_aa(im,x,y,rad,d1,d2,val)
1956 Imager::ImgRaw im
1957 i_img_dim x
1958 i_img_dim y
1959 i_img_dim rad
5824f4c2
TC		 1960 im_double d1
1961 im_double d2
40068b33 1962 Imager::Color val
6af18d2b
AMH		 1963
1964
02d1d628 1965void
987245e2 1966i_bezier_multi(im,x,y,val)
02d1d628 1967 Imager::ImgRaw im
987245e2
TC		 1968 double *x
1969 double *y
1970 Imager::Color val
1971 PREINIT:
1972 STRLEN size_x;
1973 STRLEN size_y;
1974 PPCODE:
1975 if (size_x != size_y)
1976 croak("Imager: x and y arrays to i_bezier_multi must be equal length\n");
1977 i_bezier_multi(im,size_x,x,y,val);
02d1d628 1978
1c5252ed 1979int
0d80f37e 1980i_poly_aa_m(im,x,y,mode,val)
02d1d628 1981 Imager::ImgRaw im
19e9591b
TC		 1982 double *x
1983 double *y
0d80f37e 1984 i_poly_fill_mode_t mode
a54e32ba
TC		 1985 Imager::Color val
1986 PREINIT:
19e9591b
TC		 1987 STRLEN size_x;
1988 STRLEN size_y;
a54e32ba 1989 CODE:
19e9591b 1990 if (size_x != size_y)
a54e32ba 1991 croak("Imager: x and y arrays to i_poly_aa must be equal length\n");
0d80f37e 1992 RETVAL = i_poly_aa_m(im, size_x, x, y, mode, val);
a54e32ba
TC		 1993 OUTPUT:
1994 RETVAL
02d1d628 1995
1c5252ed 1996int
0d80f37e 1997i_poly_aa_cfill_m(im, x, y, mode, fill)
43c5dacb 1998 Imager::ImgRaw im
19e9591b
TC		 1999 double *x
2000 double *y
0d80f37e 2001 i_poly_fill_mode_t mode
a54e32ba
TC		 2002 Imager::FillHandle fill
2003 PREINIT:
19e9591b
TC		 2004 STRLEN size_x;
2005 STRLEN size_y;
a54e32ba 2006 CODE:
19e9591b 2007 if (size_x != size_y)
a54e32ba 2008 croak("Imager: x and y arrays to i_poly_aa_cfill must be equal length\n");
0d80f37e 2009 RETVAL = i_poly_aa_cfill_m(im, size_x, x, y, mode, fill);
a54e32ba
TC		 2010 OUTPUT:
2011 RETVAL
02d1d628 2012
0d80f37e
TC		 2013int
2014i_poly_poly_aa(im, polys, mode, color)
2015 Imager::ImgRaw im
2016 i_polygon_list polys
2017 i_poly_fill_mode_t mode
2018 Imager::Color color
2019 CODE:
2020 RETVAL = i_poly_poly_aa(im, polys.count, polys.polygons, mode, color);
2021 OUTPUT:
2022 RETVAL
2023
2024int
2025i_poly_poly_aa_cfill(im, polys, mode, fill)
2026 Imager::ImgRaw im
2027 i_polygon_list polys
2028 i_poly_fill_mode_t mode
2029 Imager::FillHandle fill
2030 CODE:
2031 RETVAL = i_poly_poly_aa_cfill(im, polys.count, polys.polygons, mode, fill);
2032 OUTPUT:
2033 RETVAL
2034
a321d497 2035undef_int
02d1d628
AMH		 2036i_flood_fill(im,seedx,seedy,dcol)
2037 Imager::ImgRaw im
8d14daab
TC		 2038 i_img_dim seedx
2039 i_img_dim seedy
02d1d628
AMH		 2040 Imager::Color dcol
2041
a321d497 2042undef_int
cc6483e0
TC		 2043i_flood_cfill(im,seedx,seedy,fill)
2044 Imager::ImgRaw im
8d14daab
TC		 2045 i_img_dim seedx
2046 i_img_dim seedy
cc6483e0
TC		 2047 Imager::FillHandle fill
2048
3efb0915
TC		 2049undef_int
2050i_flood_fill_border(im,seedx,seedy,dcol, border)
2051 Imager::ImgRaw im
8d14daab
TC		 2052 i_img_dim seedx
2053 i_img_dim seedy
3efb0915
TC		 2054 Imager::Color dcol
2055 Imager::Color border
2056
2057undef_int
2058i_flood_cfill_border(im,seedx,seedy,fill, border)
2059 Imager::ImgRaw im
8d14daab
TC		 2060 i_img_dim seedx
2061 i_img_dim seedy
3efb0915
TC		 2062 Imager::FillHandle fill
2063 Imager::Color border
2064
02d1d628
AMH		 2065
2066void
2067i_copyto(im,src,x1,y1,x2,y2,tx,ty)
2068 Imager::ImgRaw im
2069 Imager::ImgRaw src
8d14daab
TC		 2070 i_img_dim x1
2071 i_img_dim y1
2072 i_img_dim x2
2073 i_img_dim y2
2074 i_img_dim tx
2075 i_img_dim ty
02d1d628
AMH		 2076
2077
2078void
2079i_copyto_trans(im,src,x1,y1,x2,y2,tx,ty,trans)
2080 Imager::ImgRaw im
2081 Imager::ImgRaw src
8d14daab
TC		 2082 i_img_dim x1
2083 i_img_dim y1
2084 i_img_dim x2
2085 i_img_dim y2
2086 i_img_dim tx
2087 i_img_dim ty
02d1d628
AMH		 2088 Imager::Color trans
2089
92bda632
TC		 2090Imager::ImgRaw
2091i_copy(src)
02d1d628
AMH		 2092 Imager::ImgRaw src
2093
2094
faa9b3e7 2095undef_int
71dc4a83 2096i_rubthru(im,src,tx,ty,src_minx,src_miny,src_maxx,src_maxy)
02d1d628
AMH		 2097 Imager::ImgRaw im
2098 Imager::ImgRaw src
8d14daab
TC		 2099 i_img_dim tx
2100 i_img_dim ty
2101 i_img_dim src_minx
2102 i_img_dim src_miny
2103 i_img_dim src_maxx
2104 i_img_dim src_maxy
71dc4a83 2105
9b1ec2b8
TC		 2106undef_int
2107i_compose(out, src, out_left, out_top, src_left, src_top, width, height, combine = ic_normal, opacity = 0.0)
2108 Imager::ImgRaw out
2109 Imager::ImgRaw src
8d14daab
TC		 2110 i_img_dim out_left
2111 i_img_dim out_top
2112 i_img_dim src_left
2113 i_img_dim src_top
2114 i_img_dim width
2115 i_img_dim height
9b1ec2b8 2116 int combine
5824f4c2 2117 im_double opacity
9b1ec2b8
TC		 2118
2119undef_int
2120i_compose_mask(out, src, mask, out_left, out_top, src_left, src_top, mask_left, mask_top, width, height, combine = ic_normal, opacity = 0.0)
2121 Imager::ImgRaw out
2122 Imager::ImgRaw src
2123 Imager::ImgRaw mask
8d14daab
TC		 2124 i_img_dim out_left
2125 i_img_dim out_top
2126 i_img_dim src_left
2127 i_img_dim src_top
2128 i_img_dim mask_left
2129 i_img_dim mask_top
2130 i_img_dim width
2131 i_img_dim height
9b1ec2b8 2132 int combine
5824f4c2 2133 im_double opacity
02d1d628 2134
b47464c1
TC		 2135Imager::ImgRaw
2136i_combine(src_av, channels_av = NULL)
2137 AV *src_av
2138 AV *channels_av
2139 PREINIT:
2140 i_img **imgs = NULL;
2141 STRLEN in_count;
2142 int *channels = NULL;
2143 int i;
2144 SV **psv;
2145 IV tmp;
2146 CODE:
2147 in_count = av_len(src_av) + 1;
2148 if (in_count > 0) {
2149 imgs = mymalloc(sizeof(i_img*) * in_count);
2150 channels = mymalloc(sizeof(int) * in_count);
2151 for (i = 0; i < in_count; ++i) {
2152 psv = av_fetch(src_av, i, 0);
2153 if (!psv || !*psv || !sv_derived_from(*psv, "Imager::ImgRaw")) {
2154 myfree(imgs);
2155 myfree(channels);
2156 croak("imgs must contain only images");
2157 }
2158 tmp = SvIV((SV*)SvRV(*psv));
2159 imgs[i] = INT2PTR(i_img*, tmp);
2160 if (channels_av &&
2161 (psv = av_fetch(channels_av, i, 0)) != NULL &&
2162 *psv) {
2163 channels[i] = SvIV(*psv);
2164 }
2165 else {
2166 channels[i] = 0;
2167 }
2168 }
2169 }
2170 RETVAL = i_combine(imgs, channels, in_count);
2171 myfree(imgs);
2172 myfree(channels);
2173 OUTPUT:
2174 RETVAL
2175
142c26ff
AMH		 2176undef_int
2177i_flipxy(im, direction)
2178 Imager::ImgRaw im
2179 int direction
2180
faa9b3e7
TC		 2181Imager::ImgRaw
2182i_rotate90(im, degrees)
2183 Imager::ImgRaw im
2184 int degrees
2185
2186Imager::ImgRaw
0d3b936e 2187i_rotate_exact(im, amount, ...)
faa9b3e7 2188 Imager::ImgRaw im
5824f4c2 2189 im_double amount
0d3b936e
TC		 2190 PREINIT:
2191 i_color *backp = NULL;
2192 i_fcolor *fbackp = NULL;
2193 int i;
2194 SV * sv1;
2195 CODE:
2196 /* extract the bg colors if any */
2197 /* yes, this is kind of strange */
2198 for (i = 2; i < items; ++i) {
2199 sv1 = ST(i);
2200 if (sv_derived_from(sv1, "Imager::Color")) {
2201 IV tmp = SvIV((SV*)SvRV(sv1));
2202 backp = INT2PTR(i_color *, tmp);
2203 }
2204 else if (sv_derived_from(sv1, "Imager::Color::Float")) {
2205 IV tmp = SvIV((SV*)SvRV(sv1));
2206 fbackp = INT2PTR(i_fcolor *, tmp);
2207 }
2208 }
2209 RETVAL = i_rotate_exact_bg(im, amount, backp, fbackp);
2210 OUTPUT:
2211 RETVAL
faa9b3e7
TC		 2212
2213Imager::ImgRaw
87b3f212 2214i_matrix_transform(im, xsize, ysize, matrix_av, ...)
faa9b3e7 2215 Imager::ImgRaw im
487ec752
TC		 2216 i_img_dim xsize
2217 i_img_dim ysize
87b3f212 2218 AV *matrix_av
487ec752
TC		 2219 PREINIT:
2220 double matrix[9];
2221 STRLEN len;
2222 SV *sv1;
2223 int i;
2224 i_color *backp = NULL;
2225 i_fcolor *fbackp = NULL;
2226 CODE:
2227 len=av_len(matrix_av)+1;
2228 if (len > 9)
2229 len = 9;
2230 for (i = 0; i < len; ++i) {
2231 sv1=(*(av_fetch(matrix_av,i,0)));
2232 matrix[i] = SvNV(sv1);
2233 }
2234 for (; i < 9; ++i)
2235 matrix[i] = 0;
2236 /* extract the bg colors if any */
2237 /* yes, this is kind of strange */
2238 for (i = 4; i < items; ++i) {
2239 sv1 = ST(i);
2240 if (sv_derived_from(sv1, "Imager::Color")) {
2241 IV tmp = SvIV((SV*)SvRV(sv1));
2242 backp = INT2PTR(i_color *, tmp);
2243 }
2244 else if (sv_derived_from(sv1, "Imager::Color::Float")) {
2245 IV tmp = SvIV((SV*)SvRV(sv1));
2246 fbackp = INT2PTR(i_fcolor *, tmp);
2247 }
2248 }
2249 RETVAL = i_matrix_transform_bg(im, xsize, ysize, matrix, backp, fbackp);
2250 OUTPUT:
2251 RETVAL
02d1d628 2252
167660cd 2253undef_int
02d1d628
AMH		 2254i_gaussian(im,stdev)
2255 Imager::ImgRaw im
5824f4c2 2256 im_double stdev
02d1d628 2257
b6381851
TC		 2258void
2259i_unsharp_mask(im,stdev,scale)
2260 Imager::ImgRaw im
5824f4c2
TC		 2261 im_double stdev
2262 im_double scale
b6381851 2263
6a3cbaef
TC		 2264int
2265i_conv(im,coef)
2266 Imager::ImgRaw im
2267 AV *coef
2268 PREINIT:
2269 double* c_coef;
2270 int len;
2271 SV* sv1;
2272 int i;
2273 CODE:
2274 len = av_len(coef) + 1;
2275 c_coef=mymalloc( len * sizeof(double) );
2276 for(i = 0; i < len; i++) {
2277 sv1 = (*(av_fetch(coef, i, 0)));
2278 c_coef[i] = (double)SvNV(sv1);
2279 }
2280 RETVAL = i_conv(im, c_coef, len);
2281 myfree(c_coef);
2282 OUTPUT:
2283 RETVAL
02d1d628 2284
d5477d3d
TC		 2285Imager::ImgRaw
2286i_convert(src, avmain)
f5991c03 2287 Imager::ImgRaw src
d5477d3d 2288 AV *avmain
f5991c03 2289 PREINIT:
62869327 2290 double *coeff;
f5991c03
TC		 2291 int outchan;
2292 int inchan;
f5991c03 2293 SV **temp;
f5991c03
TC		 2294 AV *avsub;
2295 int len;
2296 int i, j;
2297 CODE:
f5991c03
TC		 2298 outchan = av_len(avmain)+1;
2299 /* find the biggest */
2300 inchan = 0;
2301 for (j=0; j < outchan; ++j) {
2302 temp = av_fetch(avmain, j, 0);
2303 if (temp && SvROK(*temp) && SvTYPE(SvRV(*temp)) == SVt_PVAV) {
2304 avsub = (AV*)SvRV(*temp);
2305 len = av_len(avsub)+1;
2306 if (len > inchan)
2307 inchan = len;
2308 }
26eb06dd
TC		 2309 else {
2310 i_push_errorf(0, "invalid matrix: element %d is not an array ref", j);
2311 XSRETURN(0);
2312 }
f5991c03 2313 }
62869327 2314 coeff = mymalloc(sizeof(double) * outchan * inchan);
f5991c03
TC		 2315 for (j = 0; j < outchan; ++j) {
2316 avsub = (AV*)SvRV(*av_fetch(avmain, j, 0));
2317 len = av_len(avsub)+1;
2318 for (i = 0; i < len; ++i) {
2319 temp = av_fetch(avsub, i, 0);
2320 if (temp)
2321 coeff[i+j*inchan] = SvNV(*temp);
2322 else
2323 coeff[i+j*inchan] = 0;
2324 }
2325 while (i < inchan)
2326 coeff[i++ + j*inchan] = 0;
2327 }
d5477d3d 2328 RETVAL = i_convert(src, coeff, outchan, inchan);
f5991c03 2329 myfree(coeff);
f5991c03
TC		 2330 OUTPUT:
2331 RETVAL
40eba1ea
AMH		 2332
2333
1136f089 2334undef_int
85f38e13 2335i_map(im, pmaps_av)
40eba1ea 2336 Imager::ImgRaw im
85f38e13 2337 AV *pmaps_av
64655904
TC		 2338 PREINIT:
2339 unsigned int mask = 0;
64655904
TC		 2340 AV *avsub;
2341 SV **temp;
2342 int len;
2343 int i, j;
2344 unsigned char (*maps)[256];
2345 CODE:
2346 len = av_len(pmaps_av)+1;
2347 if (im->channels < len)
2348 len = im->channels;
2349 maps = mymalloc( len * sizeof(unsigned char [256]) );
2350 for (j=0; j<len ; j++) {
2351 temp = av_fetch(pmaps_av, j, 0);
2352 if (temp && SvROK(*temp) && (SvTYPE(SvRV(*temp)) == SVt_PVAV) ) {
2353 avsub = (AV*)SvRV(*temp);
2354 if(av_len(avsub) != 255)
2355 continue;
2356 mask |= 1<<j;
2357 for (i=0; i<256 ; i++) {
2358 int val;
2359 temp = av_fetch(avsub, i, 0);
2360 val = temp ? SvIV(*temp) : 0;
2361 if (val<0) val = 0;
2362 if (val>255) val = 255;
2363 maps[j][i] = val;
2364 }
2365 }
2366 }
2367 i_map(im, maps, mask);
2368 myfree(maps);
2369 RETVAL = 1;
2370 OUTPUT:
2371 RETVAL
40eba1ea 2372
02d1d628
AMH		 2373float
2374i_img_diff(im1,im2)
2375 Imager::ImgRaw im1
2376 Imager::ImgRaw im2
2377
e41cfe8f
TC		 2378double
2379i_img_diffd(im1,im2)
2380 Imager::ImgRaw im1
2381 Imager::ImgRaw im2
02d1d628 2382
4498c8bd
TC		 2383int
2384i_img_samef(im1, im2, epsilon = i_img_epsilonf(), what=NULL)
2385 Imager::ImgRaw im1
2386 Imager::ImgRaw im2
5824f4c2 2387 im_double epsilon
4498c8bd
TC		 2388 const char *what
2389
2390double
2391i_img_epsilonf()
2392
813d4d0a
TC		 2393bool
2394_is_color_object(sv)
2395 SV* sv
2396 CODE:
2397 SvGETMAGIC(sv);
2398 RETVAL = SvOK(sv) && SvROK(sv) &&
2399 (sv_derived_from(sv, "Imager::Color")
2400 || sv_derived_from(sv, "Imager::Color::Float"));
2401 OUTPUT:
2402 RETVAL
2403
02d1d628
AMH		 2404#ifdef HAVE_LIBTT
2405
2406
4b19f77a 2407Imager::Font::TT
02d1d628
AMH		 2408i_tt_new(fontname)
2409 char* fontname
2410
4b19f77a
AMH		 2411
2412MODULE = Imager PACKAGE = Imager::Font::TT PREFIX=TT_
2413
2414#define TT_DESTROY(handle) i_tt_destroy(handle)
2415
02d1d628 2416void
4b19f77a
AMH		 2417TT_DESTROY(handle)
2418 Imager::Font::TT handle
2419
ffddd407
TC		 2420int
2421TT_CLONE_SKIP(...)
2422 CODE:
8d14daab 2423 (void)items; /* avoid unused warning */
ffddd407
TC		 2424 RETVAL = 1;
2425 OUTPUT:
2426 RETVAL
2427
02d1d628 2428
4b19f77a 2429MODULE = Imager PACKAGE = Imager
02d1d628
AMH		 2430
2431
2432undef_int
e3b4d6c3 2433i_tt_text(handle,im,xb,yb,cl,points,str_sv,smooth,utf8,align=1)
4b19f77a 2434 Imager::Font::TT handle
02d1d628 2435 Imager::ImgRaw im
8d14daab
TC		 2436 i_img_dim xb
2437 i_img_dim yb
02d1d628 2438 Imager::Color cl
5824f4c2 2439 im_double points
4f68b48f 2440 SV * str_sv
02d1d628 2441 int smooth
4f68b48f 2442 int utf8
9ab6338b 2443 int align
4f68b48f
TC		 2444 PREINIT:
2445 char *str;
2446 STRLEN len;
2447 CODE:
e3b4d6c3 2448 str = SvPV(str_sv, len);
4f68b48f
TC		 2449#ifdef SvUTF8
2450 if (SvUTF8(str_sv))
2451 utf8 = 1;
2452#endif
4f68b48f 2453 RETVAL = i_tt_text(handle, im, xb, yb, cl, points, str,
9ab6338b 2454 len, smooth, utf8, align);
4f68b48f
TC		 2455 OUTPUT:
2456 RETVAL
02d1d628
AMH		 2457
2458
2459undef_int
e3b4d6c3 2460i_tt_cp(handle,im,xb,yb,channel,points,str_sv,smooth,utf8,align=1)
4b19f77a 2461 Imager::Font::TT handle
02d1d628 2462 Imager::ImgRaw im
8d14daab
TC		 2463 i_img_dim xb
2464 i_img_dim yb
02d1d628 2465 int channel
5824f4c2 2466 im_double points
4f68b48f 2467 SV * str_sv
02d1d628 2468 int smooth
4f68b48f 2469 int utf8
9ab6338b 2470 int align
4f68b48f
TC		 2471 PREINIT:
2472 char *str;
2473 STRLEN len;
2474 CODE:
e3b4d6c3 2475 str = SvPV(str_sv, len);
4f68b48f
TC		 2476#ifdef SvUTF8
2477 if (SvUTF8(str_sv))
2478 utf8 = 1;
2479#endif
4f68b48f 2480 RETVAL = i_tt_cp(handle, im, xb, yb, channel, points, str, len,
9ab6338b 2481 smooth, utf8, align);
4f68b48f
TC		 2482 OUTPUT:
2483 RETVAL
02d1d628
AMH		 2484
2485
a659442a 2486void
7e3298ec 2487i_tt_bbox(handle,point,str_sv,utf8)
4b19f77a 2488 Imager::Font::TT handle
5824f4c2 2489 im_double point
4f68b48f 2490 SV* str_sv
4f68b48f 2491 int utf8
02d1d628 2492 PREINIT:
8d14daab
TC		 2493 i_img_dim cords[BOUNDING_BOX_COUNT];
2494 int rc;
4f68b48f
TC		 2495 char * str;
2496 STRLEN len;
3799c4d1 2497 int i;
02d1d628 2498 PPCODE:
7e3298ec 2499 str = SvPV(str_sv, len);
4f68b48f
TC		 2500#ifdef SvUTF8
2501 if (SvUTF8(ST(2)))
2502 utf8 = 1;
2503#endif
4f68b48f 2504 if ((rc=i_tt_bbox(handle,point,str,len,cords, utf8))) {
3799c4d1
TC		 2505 EXTEND(SP, rc);
2506 for (i = 0; i < rc; ++i) {
2507 PUSHs(sv_2mortal(newSViv(cords[i])));
2508 }
02d1d628
AMH		 2509 }
2510
eeaa33fd
TC		 2511void
2512i_tt_has_chars(handle, text_sv, utf8)
2513 Imager::Font::TT handle
2514 SV *text_sv
2515 int utf8
2516 PREINIT:
2517 char const *text;
2518 STRLEN len;
2519 char *work;
8d14daab
TC		 2520 size_t count;
2521 size_t i;
eeaa33fd 2522 PPCODE:
7e3298ec
TC		 2523 i_clear_error();
2524 text = SvPV(text_sv, len);
eeaa33fd
TC		 2525#ifdef SvUTF8
2526 if (SvUTF8(text_sv))
2527 utf8 = 1;
2528#endif
eeaa33fd
TC		 2529 work = mymalloc(len);
2530 count = i_tt_has_chars(handle, text, len, utf8, work);
2531 if (GIMME_V == G_ARRAY) {
7eb58d07
TC		 2532 if (count) {
2533 EXTEND(SP, count);
2534 for (i = 0; i < count; ++i) {
2535 PUSHs(boolSV(work[i]));
2536 }
2537 }
eeaa33fd
TC		 2538 }
2539 else {
2540 EXTEND(SP, 1);
2541 PUSHs(sv_2mortal(newSVpv(work, count)));
2542 }
2543 myfree(work);
02d1d628 2544
3799c4d1
TC		 2545void
2546i_tt_dump_names(handle)
2547 Imager::Font::TT handle
02d1d628 2548
3799c4d1
TC		 2549void
2550i_tt_face_name(handle)
2551 Imager::Font::TT handle
2552 PREINIT:
2553 char name[255];
8d14daab 2554 size_t len;
3799c4d1
TC		 2555 PPCODE:
2556 len = i_tt_face_name(handle, name, sizeof(name));
2557 if (len) {
2558 EXTEND(SP, 1);
8d14daab 2559 PUSHs(sv_2mortal(newSVpv(name, len-1)));
3799c4d1 2560 }
02d1d628 2561
19fa4baf
AMH		 2562void
2563i_tt_glyph_name(handle, text_sv, utf8 = 0)
3799c4d1
TC		 2564 Imager::Font::TT handle
2565 SV *text_sv
2566 int utf8
2567 PREINIT:
2568 char const *text;
2569 STRLEN work_len;
718b8c97 2570 size_t len;
8d14daab 2571 size_t outsize;
3799c4d1
TC		 2572 char name[255];
2573 PPCODE:
7e3298ec
TC		 2574 i_clear_error();
2575 text = SvPV(text_sv, work_len);
3799c4d1
TC		 2576#ifdef SvUTF8
2577 if (SvUTF8(text_sv))
2578 utf8 = 1;
2579#endif
3799c4d1
TC		 2580 len = work_len;
2581 while (len) {
17892255 2582 unsigned long ch;
3799c4d1
TC		 2583 if (utf8) {
2584 ch = i_utf8_advance(&text, &len);
2585 if (ch == ~0UL) {
2586 i_push_error(0, "invalid UTF8 character");
7e3298ec 2587 XSRETURN_EMPTY;
3799c4d1
TC		 2588 }
2589 }
2590 else {
2591 ch = *text++;
2592 --len;
2593 }
ea3099db 2594 EXTEND(SP, 1);
af070d99 2595 if ((outsize = i_tt_glyph_name(handle, ch, name, sizeof(name))) != 0) {
ea3099db 2596 PUSHs(sv_2mortal(newSVpv(name, 0)));
3799c4d1
TC		 2597 }
2598 else {
ea3099db 2599 PUSHs(&PL_sv_undef);
7e3298ec 2600 }
3799c4d1
TC		 2601 }
2602
2603#endif
02d1d628 2604
53a6bbd4 2605const char *
e10bf46e
AMH		 2606i_test_format_probe(ig, length)
2607 Imager::IO ig
2608 int length
2609
b7028a2e
TC		 2610int
2611i_add_file_magic(name, bits_sv, mask_sv)
2612 const char *name
2613 SV *bits_sv
2614 SV *mask_sv
2615 PREINIT:
2616 const unsigned char *bits;
2617 const unsigned char *mask;
2618 size_t bits_size;
2619 size_t mask_size;
2620 CODE:
2621 i_clear_error();
2622 bits = SvPV(bits_sv, bits_size);
2623 mask = SvPV(mask_sv, mask_size);
2624 if (bits_size == 0) {
2625 i_push_error(0, "bits must be non-empty");
2626 XSRETURN_EMPTY;
2627 }
2628 if (mask_size == 0) {
2629 i_push_error(0, "mask must be non-empty");
2630 XSRETURN_EMPTY;
2631 }
2632 if (bits_size != mask_size) {
2633 i_push_error(0, "bits and mask must be the same length");
2634 XSRETURN_EMPTY;
2635 }
2636 if (!*name) {
2637 i_push_error(0, "name must be non-empty");
2638 XSRETURN_EMPTY;
2639 }
2640 RETVAL = i_add_file_magic(name, bits, mask, bits_size);
2641 OUTPUT:
2642 RETVAL
2643
02d1d628 2644Imager::ImgRaw
d87dc9a4 2645i_readpnm_wiol(ig, allow_incomplete)
02d1d628 2646 Imager::IO ig
d87dc9a4 2647 int allow_incomplete
02d1d628
AMH		 2648
2649
2086be61
TC		 2650void
2651i_readpnm_multi_wiol(ig, allow_incomplete)
2652 Imager::IO ig
2653 int allow_incomplete
2654 PREINIT:
2655 i_img **imgs;
2656 int count=0;
2657 int i;
2658 PPCODE:
2659 imgs = i_readpnm_multi_wiol(ig, &count, allow_incomplete);
2660 if (imgs) {
2661 EXTEND(SP, count);
2662 for (i = 0; i < count; ++i) {
2663 SV *sv = sv_newmortal();
2664 sv_setref_pv(sv, "Imager::ImgRaw", (void *)imgs[i]);
2665 PUSHs(sv);
2666 }
2667 myfree(imgs);
2668 }
2669
067d6bdc
AMH		 2670undef_int
2671i_writeppm_wiol(im, ig)
2672 Imager::ImgRaw im
2673 Imager::IO ig
2674
2675
2086be61
TC		 2676
2677
2678
02d1d628 2679Imager::ImgRaw
895dbd34
AMH		 2680i_readraw_wiol(ig,x,y,datachannels,storechannels,intrl)
2681 Imager::IO ig
8d14daab
TC		 2682 i_img_dim x
2683 i_img_dim y
02d1d628
AMH		 2684 int datachannels
2685 int storechannels
2686 int intrl
2687
2688undef_int
895dbd34 2689i_writeraw_wiol(im,ig)
02d1d628 2690 Imager::ImgRaw im
895dbd34
AMH		 2691 Imager::IO ig
2692
261f91c5
TC		 2693undef_int
2694i_writebmp_wiol(im,ig)
2695 Imager::ImgRaw im
2696 Imager::IO ig
02d1d628 2697
705fd961 2698Imager::ImgRaw
d87dc9a4 2699i_readbmp_wiol(ig, allow_incomplete=0)
705fd961 2700 Imager::IO ig
d87dc9a4 2701 int allow_incomplete
705fd961 2702
1ec86afa
AMH		 2703
2704undef_int
febba01f 2705i_writetga_wiol(im,ig, wierdpack, compress, idstring)
1ec86afa
AMH		 2706 Imager::ImgRaw im
2707 Imager::IO ig
febba01f
AMH		 2708 int wierdpack
2709 int compress
2710 char* idstring
2711 PREINIT:
febba01f
AMH		 2712 int idlen;
2713 CODE:
2714 idlen = SvCUR(ST(4));
2715 RETVAL = i_writetga_wiol(im, ig, wierdpack, compress, idstring, idlen);
2716 OUTPUT:
2717 RETVAL
2718
1ec86afa
AMH		 2719
2720Imager::ImgRaw
2721i_readtga_wiol(ig, length)
2722 Imager::IO ig
2723 int length
2724
2725
737a830c
AMH		 2726
2727
02d1d628
AMH		 2728Imager::ImgRaw
2729i_scaleaxis(im,Value,Axis)
2730 Imager::ImgRaw im
5824f4c2 2731 im_double Value
02d1d628
AMH		 2732 int Axis
2733
2734Imager::ImgRaw
2735i_scale_nn(im,scx,scy)
2736 Imager::ImgRaw im
5824f4c2
TC		 2737 im_double scx
2738 im_double scy
02d1d628 2739
658f724e
TC		 2740Imager::ImgRaw
2741i_scale_mixing(im, width, height)
2742 Imager::ImgRaw im
8d14daab
TC		 2743 i_img_dim width
2744 i_img_dim height
658f724e 2745
02d1d628
AMH		 2746Imager::ImgRaw
2747i_haar(im)
2748 Imager::ImgRaw im
2749
2750int
2751i_count_colors(im,maxc)
2752 Imager::ImgRaw im
2753 int maxc
2754
fe622da1 2755void
a60905e4
TC		 2756i_get_anonymous_color_histo(im, maxc = 0x40000000)
2757 Imager::ImgRaw im
2758 int maxc
4c99febf 2759 PREINIT:
fe622da1 2760 int i;
a60905e4 2761 unsigned int * col_usage = NULL;
4c99febf
TC		 2762 int col_cnt;
2763 PPCODE:
2764 col_cnt = i_get_anonymous_color_histo(im, &col_usage, maxc);
8b810590
TC		 2765 if (col_cnt <= 0) {
2766 XSRETURN_EMPTY;
2767 }
2768 EXTEND(SP, col_cnt);
2769 for (i = 0; i < col_cnt; i++) {
2770 PUSHs(sv_2mortal(newSViv( col_usage[i])));
fe622da1 2771 }
8b810590 2772 myfree(col_usage);
fe622da1 2773
02d1d628 2774
fb9cb3f9 2775void
19e9591b 2776i_transform(im, opx, opy, parm)
02d1d628 2777 Imager::ImgRaw im
19e9591b
TC		 2778 int *opx
2779 int *opy
2780 double *parm
02d1d628 2781 PREINIT:
19e9591b 2782 STRLEN size_opx, size_opy, size_parm;
fb9cb3f9
TC		 2783 i_img *result;
2784 PPCODE:
19e9591b 2785 result=i_transform(im,opx,size_opx,opy,size_opy,parm,size_parm);
fb9cb3f9
TC		 2786 if (result) {
2787 SV *result_sv = sv_newmortal();
2788 EXTEND(SP, 1);
2789 sv_setref_pv(result_sv, "Imager::ImgRaw", (void*)result);
2790 PUSHs(result_sv);
2791 }
02d1d628 2792
fb9cb3f9 2793void
e5744e01
TC		 2794i_transform2(sv_width,sv_height,channels,sv_ops,av_n_regs,av_c_regs,av_in_imgs)
2795 SV *sv_width
2796 SV *sv_height
2797 SV *sv_ops
2798 AV *av_n_regs
2799 AV *av_c_regs
2800 AV *av_in_imgs
2801 int channels
02d1d628 2802 PREINIT:
8d14daab
TC		 2803 i_img_dim width;
2804 i_img_dim height;
02d1d628 2805 struct rm_op *ops;
953209f8 2806 STRLEN ops_len;
02d1d628
AMH		 2807 int ops_count;
2808 double *n_regs;
2809 int n_regs_count;
2810 i_color *c_regs;
2811 int c_regs_count;
2812 int in_imgs_count;
2813 i_img **in_imgs;
ea9e6c3f 2814 SV *sv1;
02d1d628
AMH		 2815 IV tmp;
2816 int i;
fb9cb3f9
TC		 2817 i_img *result;
2818 PPCODE:
e5744e01
TC		 2819
2820 in_imgs_count = av_len(av_in_imgs)+1;
2821 for (i = 0; i < in_imgs_count; ++i) {
2822 sv1 = *av_fetch(av_in_imgs, i, 0);
2823 if (!sv_derived_from(sv1, "Imager::ImgRaw")) {
2824 croak("sv_in_img must contain only images");
02d1d628
AMH		 2825 }
2826 }
b8c2033e 2827 if (in_imgs_count > 0) {
02d1d628
AMH		 2828 in_imgs = mymalloc(in_imgs_count*sizeof(i_img*));
2829 for (i = 0; i < in_imgs_count; ++i) {
e5744e01 2830 sv1 = *av_fetch(av_in_imgs,i,0);
02d1d628
AMH		 2831 if (!sv_derived_from(sv1, "Imager::ImgRaw")) {
2832 croak("Parameter 5 must contain only images");
2833 }
2834 tmp = SvIV((SV*)SvRV(sv1));
e375fbd8 2835 in_imgs[i] = INT2PTR(i_img*, tmp);
02d1d628
AMH		 2836 }
2837 }
2838 else {
2839 /* no input images */
2840 in_imgs = NULL;
2841 }
2842 /* default the output size from the first input if possible */
e5744e01
TC		 2843 if (SvOK(sv_width))
2844 width = SvIV(sv_width);
02d1d628
AMH		 2845 else if (in_imgs_count)
2846 width = in_imgs[0]->xsize;
2847 else
2848 croak("No output image width supplied");
2849
e5744e01
TC		 2850 if (SvOK(sv_height))
2851 height = SvIV(sv_height);
02d1d628
AMH		 2852 else if (in_imgs_count)
2853 height = in_imgs[0]->ysize;
2854 else
2855 croak("No output image height supplied");
2856
e5744e01 2857 ops = (struct rm_op *)SvPV(sv_ops, ops_len);
02d1d628
AMH		 2858 if (ops_len % sizeof(struct rm_op))
2859 croak("Imager: Parameter 3 must be a bitmap of regops\n");
2860 ops_count = ops_len / sizeof(struct rm_op);
e5744e01
TC		 2861
2862 n_regs_count = av_len(av_n_regs)+1;
02d1d628
AMH		 2863 n_regs = mymalloc(n_regs_count * sizeof(double));
2864 for (i = 0; i < n_regs_count; ++i) {
e5744e01 2865 sv1 = *av_fetch(av_n_regs,i,0);
02d1d628
AMH		 2866 if (SvOK(sv1))
2867 n_regs[i] = SvNV(sv1);
2868 }
e5744e01 2869 c_regs_count = av_len(av_c_regs)+1;
02d1d628
AMH		 2870 c_regs = mymalloc(c_regs_count * sizeof(i_color));
2871 /* I don't bother initializing the colou?r registers */
2872
fb9cb3f9 2873 result=i_transform2(width, height, channels, ops, ops_count,
02d1d628
AMH		 2874 n_regs, n_regs_count,
2875 c_regs, c_regs_count, in_imgs, in_imgs_count);
2876 if (in_imgs)
2877 myfree(in_imgs);
2878 myfree(n_regs);
2879 myfree(c_regs);
fb9cb3f9
TC		 2880 if (result) {
2881 SV *result_sv = sv_newmortal();
2882 EXTEND(SP, 1);
2883 sv_setref_pv(result_sv, "Imager::ImgRaw", (void*)result);
2884 PUSHs(result_sv);
2885 }
02d1d628
AMH		 2886
2887
2888void
2889i_contrast(im,intensity)
2890 Imager::ImgRaw im
5824f4c2 2891 im_float intensity
02d1d628
AMH		 2892
2893void
2894i_hardinvert(im)
2895 Imager::ImgRaw im
2896
5558f899
TC		 2897void
2898i_hardinvertall(im)
2899 Imager::ImgRaw im
2900
02d1d628
AMH		 2901void
2902i_noise(im,amount,type)
2903 Imager::ImgRaw im
5824f4c2 2904 im_float amount
02d1d628
AMH		 2905 unsigned char type
2906
2907void
2908i_bumpmap(im,bump,channel,light_x,light_y,strength)
2909 Imager::ImgRaw im
2910 Imager::ImgRaw bump
2911 int channel
8d14daab
TC		 2912 i_img_dim light_x
2913 i_img_dim light_y
2914 i_img_dim strength
02d1d628 2915
b2778574
AMH		 2916
2917void
2918i_bumpmap_complex(im,bump,channel,tx,ty,Lx,Ly,Lz,cd,cs,n,Ia,Il,Is)
2919 Imager::ImgRaw im
2920 Imager::ImgRaw bump
2921 int channel
8d14daab
TC		 2922 i_img_dim tx
2923 i_img_dim ty
5824f4c2
TC		 2924 im_double Lx
2925 im_double Ly
2926 im_double Lz
2927 im_float cd
2928 im_float cs
2929 im_float n
b2778574
AMH		 2930 Imager::Color Ia
2931 Imager::Color Il
2932 Imager::Color Is
2933
2934
2935
02d1d628
AMH		 2936void
2937i_postlevels(im,levels)
2938 Imager::ImgRaw im
2939 int levels
2940
2941void
2942i_mosaic(im,size)
2943 Imager::ImgRaw im
8d14daab 2944 i_img_dim size
02d1d628
AMH		 2945
2946void
2947i_watermark(im,wmark,tx,ty,pixdiff)
2948 Imager::ImgRaw im
2949 Imager::ImgRaw wmark
8d14daab
TC		 2950 i_img_dim tx
2951 i_img_dim ty
02d1d628
AMH		 2952 int pixdiff
2953
2954
2955void
2956i_autolevels(im,lsat,usat,skew)
2957 Imager::ImgRaw im
5824f4c2
TC		 2958 im_float lsat
2959 im_float usat
2960 im_float skew
02d1d628 2961
ac00f58d
TC		 2962void
2963i_autolevels_mono(im,lsat,usat)
2964 Imager::ImgRaw im
5824f4c2
TC		 2965 im_float lsat
2966 im_float usat
ac00f58d 2967
02d1d628
AMH		 2968void
2969i_radnoise(im,xo,yo,rscale,ascale)
2970 Imager::ImgRaw im
5824f4c2
TC		 2971 im_float xo
2972 im_float yo
2973 im_float rscale
2974 im_float ascale
02d1d628
AMH		 2975
2976void
2977i_turbnoise(im, xo, yo, scale)
2978 Imager::ImgRaw im
5824f4c2
TC		 2979 im_float xo
2980 im_float yo
2981 im_float scale
02d1d628
AMH		 2982
2983
2984void
0aaa8b4d 2985i_gradgen(im, xo, yo, ac, dmeasure)
02d1d628 2986 Imager::ImgRaw im
0aaa8b4d
TC		 2987 i_img_dim *xo
2988 i_img_dim *yo
2989 i_color *ac
2990 int dmeasure
02d1d628 2991 PREINIT:
0aaa8b4d
TC		 2992 STRLEN size_xo;
2993 STRLEN size_yo;
2994 STRLEN size_ac;
02d1d628 2995 CODE:
0aaa8b4d
TC		 2996 if (size_xo != size_yo || size_xo != size_ac)
2997 croak("i_gradgen: x, y and color arrays must be the same size");
2998 if (size_xo < 2)
2999 croak("Usage: i_gradgen array refs must have more than 1 entry each");
3000 i_gradgen(im, size_xo, xo, yo, ac, dmeasure);
a73aeb5f 3001
dff75dee
TC		 3002Imager::ImgRaw
3003i_diff_image(im, im2, mindist=0)
3004 Imager::ImgRaw im
3005 Imager::ImgRaw im2
5824f4c2 3006 im_double mindist
02d1d628 3007
e310e5f9 3008undef_int
6607600c
TC		 3009i_fountain(im, xa, ya, xb, yb, type, repeat, combine, super_sample, ssample_param, segs)
3010 Imager::ImgRaw im
5824f4c2
TC		 3011 im_double xa
3012 im_double ya
3013 im_double xb
3014 im_double yb
6607600c
TC		 3015 int type
3016 int repeat
3017 int combine
3018 int super_sample
5824f4c2 3019 im_double ssample_param
6607600c 3020 PREINIT:
6607600c 3021 AV *asegs;
6607600c
TC		 3022 int count;
3023 i_fountain_seg *segs;
6607600c 3024 CODE:
6607600c
TC		 3025 if (!SvROK(ST(10)) || ! SvTYPE(SvRV(ST(10))))
3026 croak("i_fountain: argument 11 must be an array ref");
3027
3028 asegs = (AV *)SvRV(ST(10));
b13a3ddb 3029 segs = load_fount_segs(aTHX_ asegs, &count);
e310e5f9
TC		 3030 RETVAL = i_fountain(im, xa, ya, xb, yb, type, repeat, combine,
3031 super_sample, ssample_param, count, segs);
6607600c 3032 myfree(segs);
e310e5f9
TC		 3033 OUTPUT:
3034 RETVAL
02d1d628 3035
f1ac5027
TC		 3036Imager::FillHandle
3037i_new_fill_fount(xa, ya, xb, yb, type, repeat, combine, super_sample, ssample_param, segs)
5824f4c2
TC		 3038 im_double xa
3039 im_double ya
3040 im_double xb
3041 im_double yb
f1ac5027
TC		 3042 int type
3043 int repeat
3044 int combine
3045 int super_sample
5824f4c2 3046 im_double ssample_param
f1ac5027
TC		 3047 PREINIT:
3048 AV *asegs;
3049 int count;
3050 i_fountain_seg *segs;
3051 CODE:
3052 if (!SvROK(ST(9)) || ! SvTYPE(SvRV(ST(9))))
3053 croak("i_fountain: argument 11 must be an array ref");
3054
3055 asegs = (AV *)SvRV(ST(9));
b13a3ddb 3056 segs = load_fount_segs(aTHX_ asegs, &count);
f1ac5027
TC		 3057 RETVAL = i_new_fill_fount(xa, ya, xb, yb, type, repeat, combine,
3058 super_sample, ssample_param, count, segs);
3059 myfree(segs);
3060 OUTPUT:
3061 RETVAL
3062
52f2b10a
TC		 3063Imager::FillHandle
3064i_new_fill_opacity(other_fill, alpha_mult)
3065 Imager::FillHandle other_fill
5824f4c2 3066 im_double alpha_mult
52f2b10a 3067
4f4f776a
TC		 3068void
3069i_errors()
3070 PREINIT:
3071 i_errmsg *errors;
3072 int i;
4f4f776a 3073 AV *av;
4f4f776a
TC		 3074 SV *sv;
3075 PPCODE:
3076 errors = i_errors();
3077 i = 0;
3078 while (errors[i].msg) {
3079 av = newAV();
3080 sv = newSVpv(errors[i].msg, strlen(errors[i].msg));
3081 if (!av_store(av, 0, sv)) {
3082 SvREFCNT_dec(sv);
3083 }
3084 sv = newSViv(errors[i].code);
3085 if (!av_store(av, 1, sv)) {
3086 SvREFCNT_dec(sv);
3087 }
57bbbbe7 3088 XPUSHs(sv_2mortal(newRV_noinc((SV*)av)));
4f4f776a
TC		 3089 ++i;
3090 }
02d1d628 3091
2b405c9e
TC		 3092void
3093i_clear_error()
3094
3095void
3096i_push_error(code, msg)
3097 int code
3098 const char *msg
3099
e310e5f9 3100undef_int
02d1d628
AMH		 3101i_nearest_color(im, ...)
3102 Imager::ImgRaw im
3103 PREINIT:
3104 int num;
8d14daab
TC		 3105 i_img_dim *xo;
3106 i_img_dim *yo;
02d1d628
AMH		 3107 i_color *ival;
3108 int dmeasure;
3109 int i;
3110 SV *sv;
3111 AV *axx;
3112 AV *ayy;
3113 AV *ac;
3114 CODE:
3115 if (items != 5)
3116 croak("Usage: i_nearest_color(im, xo, yo, ival, dmeasure)");
3117 if (!SvROK(ST(1)) || ! SvTYPE(SvRV(ST(1))))
3118 croak("i_nearest_color: Second argument must be an array ref");
3119 if (!SvROK(ST(2)) || ! SvTYPE(SvRV(ST(2))))
3120 croak("i_nearest_color: Third argument must be an array ref");
3121 if (!SvROK(ST(3)) || ! SvTYPE(SvRV(ST(3))))
3122 croak("i_nearest_color: Fourth argument must be an array ref");
3123 axx = (AV *)SvRV(ST(1));
3124 ayy = (AV *)SvRV(ST(2));
3125 ac = (AV *)SvRV(ST(3));
3126 dmeasure = (int)SvIV(ST(4));
3127
3128 num = av_len(axx) < av_len(ayy) ? av_len(axx) : av_len(ayy);
3129 num = num <= av_len(ac) ? num : av_len(ac);
3130 num++;
3131 if (num < 2) croak("Usage: i_nearest_color array refs must have more than 1 entry each");
945dff7f
TC		 3132 xo = malloc_temp(aTHX_ sizeof(i_img_dim) * num );
3133 yo = malloc_temp(aTHX_ sizeof(i_img_dim) * num );
3134 ival = malloc_temp(aTHX_ sizeof(i_color) * num );
02d1d628 3135 for(i = 0; i<num; i++) {
8d14daab
TC		 3136 xo[i] = (i_img_dim)SvIV(* av_fetch(axx, i, 0));
3137 yo[i] = (i_img_dim)SvIV(* av_fetch(ayy, i, 0));
02d1d628
AMH		 3138 sv = *av_fetch(ac, i, 0);
3139 if ( !sv_derived_from(sv, "Imager::Color") ) {
3140 free(axx); free(ayy); free(ac);
3141 croak("i_nearest_color: Element of fourth argument is not derived from Imager::Color");
3142 }
4c4c2ffd 3143 ival[i] = *INT2PTR(i_color *, SvIV((SV *)SvRV(sv)));
02d1d628 3144 }
e310e5f9
TC		 3145 RETVAL = i_nearest_color(im, num, xo, yo, ival, dmeasure);
3146 OUTPUT:
3147 RETVAL
02d1d628
AMH		 3148
3149void
3150malloc_state()
3151
02d1d628
AMH		 3152void
3153DSO_open(filename)
3154 char* filename
3155 PREINIT:
3156 void *rc;
3157 char *evstr;
3158 PPCODE:
3159 rc=DSO_open(filename,&evstr);
3160 if (rc!=NULL) {
3161 if (evstr!=NULL) {
3162 EXTEND(SP,2);
e375fbd8 3163 PUSHs(sv_2mortal(newSViv(PTR2IV(rc))));
02d1d628
AMH		 3164 PUSHs(sv_2mortal(newSVpvn(evstr, strlen(evstr))));
3165 } else {
3166 EXTEND(SP,1);
e375fbd8 3167 PUSHs(sv_2mortal(newSViv(PTR2IV(rc))));
02d1d628
AMH		 3168 }
3169 }
3170
3171
3172undef_int
3173DSO_close(dso_handle)
3174 void* dso_handle
3175
3176void
3177DSO_funclist(dso_handle_v)
3178 void* dso_handle_v
3179 PREINIT:
3180 int i;
3181 DSO_handle *dso_handle;
d8e0c3ba 3182 func_ptr *functions;
02d1d628
AMH		 3183 PPCODE:
3184 dso_handle=(DSO_handle*)dso_handle_v;
d8e0c3ba 3185 functions = DSO_funclist(dso_handle);
02d1d628 3186 i=0;
d8e0c3ba 3187 while( functions[i].name != NULL) {
02d1d628 3188 EXTEND(SP,1);
d8e0c3ba 3189 PUSHs(sv_2mortal(newSVpv(functions[i].name,0)));
02d1d628 3190 EXTEND(SP,1);
d8e0c3ba 3191 PUSHs(sv_2mortal(newSVpv(functions[i++].pcode,0)));
02d1d628
AMH		 3192 }
3193
02d1d628
AMH		 3194void
3195DSO_call(handle,func_index,hv)
3196 void* handle
3197 int func_index
75cebca8 3198 HV *hv
02d1d628 3199 PPCODE:
02d1d628
AMH		 3200 DSO_call( (DSO_handle *)handle,func_index,hv);
3201
befd4be1 3202Imager::Color
f5991c03
TC		 3203i_get_pixel(im, x, y)
3204 Imager::ImgRaw im
8d14daab
TC		 3205 i_img_dim x
3206 i_img_dim y;
faa9b3e7 3207 CODE:
befd4be1 3208 RETVAL = (i_color *)mymalloc(sizeof(i_color));
2ea4aa42 3209 memset(RETVAL, 0, sizeof(*RETVAL));
befd4be1
TC		 3210 if (i_gpix(im, x, y, RETVAL) != 0) {
3211 myfree(RETVAL);
3212 XSRETURN_UNDEF;
faa9b3e7 3213 }
a659442a
TC		 3214 OUTPUT:
3215 RETVAL
faa9b3e7
TC		 3216
3217
3218int
3219i_ppix(im, x, y, cl)
3220 Imager::ImgRaw im
8d14daab
TC		 3221 i_img_dim x
3222 i_img_dim y
faa9b3e7
TC		 3223 Imager::Color cl
3224
3225Imager::ImgRaw
3226i_img_pal_new(x, y, channels, maxpal)
8d14daab
TC		 3227 i_img_dim x
3228 i_img_dim y
faa9b3e7
TC		 3229 int channels
3230 int maxpal
3231
3232Imager::ImgRaw
05f2584a 3233i_img_to_pal(src, quant_hv)
faa9b3e7 3234 Imager::ImgRaw src
05f2584a 3235 HV *quant_hv
faa9b3e7
TC		 3236 PREINIT:
3237 HV *hv;
3238 i_quantize quant;
3239 CODE:
faa9b3e7 3240 memset(&quant, 0, sizeof(quant));
ec6d8908 3241 quant.version = 1;
faa9b3e7 3242 quant.mc_size = 256;
a3b721bb
TC		 3243 i_clear_error();
3244 if (!ip_handle_quant_opts2(aTHX_ &quant, quant_hv)) {
3245 XSRETURN_EMPTY;
3246 }
faa9b3e7
TC		 3247 RETVAL = i_img_to_pal(src, &quant);
3248 if (RETVAL) {
05f2584a 3249 ip_copy_colors_back(aTHX_ quant_hv, &quant);
faa9b3e7 3250 }
ec6d8908 3251 ip_cleanup_quant_opts(aTHX_ &quant);
faa9b3e7
TC		 3252 OUTPUT:
3253 RETVAL
3254
3255Imager::ImgRaw
3256i_img_to_rgb(src)
3257 Imager::ImgRaw src
3258
5e9a7fbd
TC		 3259void
3260i_img_make_palette(HV *quant_hv, ...)
3261 PREINIT:
3262 size_t count = items - 1;
3263 i_quantize quant;
3264 i_img **imgs = NULL;
3265 ssize_t i;
3266 PPCODE:
3267 if (count <= 0)
3268 croak("Please supply at least one image (%d)", (int)count);
3269 imgs = mymalloc(sizeof(i_img *) * count);
3270 for (i = 0; i < count; ++i) {
3271 SV *img_sv = ST(i + 1);
3272 if (SvROK(img_sv) && sv_derived_from(img_sv, "Imager::ImgRaw")) {
3273 imgs[i] = INT2PTR(i_img *, SvIV((SV*)SvRV(img_sv)));
3274 }
3275 else {
3276 myfree(imgs);
ec2f6280 3277 croak("Image %d is not an image object", (int)i+1);
5e9a7fbd
TC		 3278 }
3279 }
3280 memset(&quant, 0, sizeof(quant));
3281 quant.version = 1;
3282 quant.mc_size = 256;
a3b721bb
TC		 3283 if (!ip_handle_quant_opts2(aTHX_ &quant, quant_hv)) {
3284 XSRETURN_EMPTY;
3285 }
5e9a7fbd
TC		 3286 i_quant_makemap(&quant, imgs, count);
3287 EXTEND(SP, quant.mc_count);
3288 for (i = 0; i < quant.mc_count; ++i) {
3289 SV *sv_c = make_i_color_sv(aTHX_ quant.mc_colors + i);
3290 PUSHs(sv_c);
3291 }
3292 ip_cleanup_quant_opts(aTHX_ &quant);
e906e86a 3293 myfree(imgs);
5e9a7fbd
TC		 3294
3295
faa9b3e7
TC		 3296void
3297i_gpal(im, l, r, y)
3298 Imager::ImgRaw im
8d14daab
TC		 3299 i_img_dim l
3300 i_img_dim r
3301 i_img_dim y
faa9b3e7
TC		 3302 PREINIT:
3303 i_palidx *work;
3304 int count, i;
3305 PPCODE:
3306 if (l < r) {
3307 work = mymalloc((r-l) * sizeof(i_palidx));
3308 count = i_gpal(im, l, r, y, work);
3309 if (GIMME_V == G_ARRAY) {
3310 EXTEND(SP, count);
3311 for (i = 0; i < count; ++i) {
3312 PUSHs(sv_2mortal(newSViv(work[i])));
3313 }
3314 }
3315 else {
3316 EXTEND(SP, 1);
26fd367b 3317 PUSHs(sv_2mortal(newSVpv((char *)work, count * sizeof(i_palidx))));
faa9b3e7
TC		 3318 }
3319 myfree(work);
3320 }
3321 else {
3322 if (GIMME_V != G_ARRAY) {
3323 EXTEND(SP, 1);
3324 PUSHs(&PL_sv_undef);
3325 }
3326 }
3327
3328int
3329i_ppal(im, l, y, ...)
3330 Imager::ImgRaw im
8d14daab
TC		 3331 i_img_dim l
3332 i_img_dim y
faa9b3e7
TC		 3333 PREINIT:
3334 i_palidx *work;
ebe9b189 3335 i_img_dim i;
faa9b3e7
TC		 3336 CODE:
3337 if (items > 3) {
ebe9b189 3338 work = malloc_temp(aTHX_ sizeof(i_palidx) * (items-3));
faa9b3e7
TC		 3339 for (i=0; i < items-3; ++i) {
3340 work[i] = SvIV(ST(i+3));
3341 }
4cda4e76 3342 validate_i_ppal(im, work, items - 3);
faa9b3e7 3343 RETVAL = i_ppal(im, l, l+items-3, y, work);
faa9b3e7
TC		 3344 }
3345 else {
3346 RETVAL = 0;
3347 }
3348 OUTPUT:
3349 RETVAL
3350
4cda4e76
TC		 3351int
3352i_ppal_p(im, l, y, data)
3353 Imager::ImgRaw im
8d14daab
TC		 3354 i_img_dim l
3355 i_img_dim y
4cda4e76
TC		 3356 SV *data
3357 PREINIT:
3358 i_palidx const *work;
4cda4e76 3359 STRLEN len;
4cda4e76
TC		 3360 CODE:
3361 work = (i_palidx const *)SvPV(data, len);
3362 len /= sizeof(i_palidx);
3363 if (len > 0) {
3364 validate_i_ppal(im, work, len);
3365 RETVAL = i_ppal(im, l, l+len, y, work);
3366 }
3367 else {
3368 RETVAL = 0;
3369 }
3370 OUTPUT:
3371 RETVAL
3372
42505e61 3373SysRet
faa9b3e7
TC		 3374i_addcolors(im, ...)
3375 Imager::ImgRaw im
3376 PREINIT:
faa9b3e7
TC		 3377 i_color *colors;
3378 int i;
3379 CODE:
3380 if (items < 2)
3381 croak("i_addcolors: no colors to add");
3382 colors = mymalloc((items-1) * sizeof(i_color));
3383 for (i=0; i < items-1; ++i) {
3384 if (sv_isobject(ST(i+1))
3385 && sv_derived_from(ST(i+1), "Imager::Color")) {
3386 IV tmp = SvIV((SV *)SvRV(ST(i+1)));
4c4c2ffd 3387 colors[i] = *INT2PTR(i_color *, tmp);
faa9b3e7
TC		 3388 }
3389 else {
3390 myfree(colors);
ca4d914e 3391 croak("i_addcolor: pixels must be Imager::Color objects");
faa9b3e7
TC		 3392 }
3393 }
42505e61 3394 RETVAL = i_addcolors(im, colors, items-1);
7d5febef 3395 myfree(colors);
a659442a
TC		 3396 OUTPUT:
3397 RETVAL
faa9b3e7 3398
1501d9b3 3399undef_int
faa9b3e7
TC		 3400i_setcolors(im, index, ...)
3401 Imager::ImgRaw im
3402 int index
3403 PREINIT:
3404 i_color *colors;
3405 int i;
3406 CODE:
3407 if (items < 3)
3408 croak("i_setcolors: no colors to add");
3409 colors = mymalloc((items-2) * sizeof(i_color));
3410 for (i=0; i < items-2; ++i) {
3411 if (sv_isobject(ST(i+2))
3412 && sv_derived_from(ST(i+2), "Imager::Color")) {
3413 IV tmp = SvIV((SV *)SvRV(ST(i+2)));
4c4c2ffd 3414 colors[i] = *INT2PTR(i_color *, tmp);
faa9b3e7
TC		 3415 }
3416 else {
3417 myfree(colors);
3418 croak("i_setcolors: pixels must be Imager::Color objects");
3419 }
3420 }
3421 RETVAL = i_setcolors(im, index, colors, items-2);
3422 myfree(colors);
1501d9b3
TC		 3423 OUTPUT:
3424 RETVAL
faa9b3e7
TC		 3425
3426void
1592522f 3427i_getcolors(im, index, count=1)
faa9b3e7
TC		 3428 Imager::ImgRaw im
3429 int index
1592522f 3430 int count
faa9b3e7
TC		 3431 PREINIT:
3432 i_color *colors;
faa9b3e7
TC		 3433 int i;
3434 PPCODE:
faa9b3e7
TC		 3435 if (count < 1)
3436 croak("i_getcolors: count must be positive");
1592522f 3437 colors = malloc_temp(aTHX_ sizeof(i_color) * count);
faa9b3e7 3438 if (i_getcolors(im, index, colors, count)) {
1592522f 3439 EXTEND(SP, count);
faa9b3e7 3440 for (i = 0; i < count; ++i) {
5e9a7fbd 3441 SV *sv = make_i_color_sv(aTHX_ colors+i);
faa9b3e7
TC		 3442 PUSHs(sv);
3443 }
3444 }
faa9b3e7 3445
a659442a 3446undef_neg_int
faa9b3e7
TC		 3447i_colorcount(im)
3448 Imager::ImgRaw im
faa9b3e7 3449
a659442a 3450undef_neg_int
faa9b3e7
TC		 3451i_maxcolors(im)
3452 Imager::ImgRaw im
faa9b3e7 3453
0862f397 3454i_palidx
faa9b3e7
TC		 3455i_findcolor(im, color)
3456 Imager::ImgRaw im
3457 Imager::Color color
faa9b3e7 3458 CODE:
0862f397
TC		 3459 if (!i_findcolor(im, color, &RETVAL)) {
3460 XSRETURN_UNDEF;
faa9b3e7 3461 }
a659442a
TC		 3462 OUTPUT:
3463 RETVAL
faa9b3e7
TC		 3464
3465int
3466i_img_bits(im)
3467 Imager::ImgRaw im
3468
3469int
3470i_img_type(im)
3471 Imager::ImgRaw im
3472
3473int
3474i_img_virtual(im)
3475 Imager::ImgRaw im
3476
3477void
6a9807e8 3478i_gsamp(im, l, r, y, channels)
faa9b3e7 3479 Imager::ImgRaw im
8d14daab
TC		 3480 i_img_dim l
3481 i_img_dim r
3482 i_img_dim y
6a9807e8 3483 i_channel_list channels
faa9b3e7 3484 PREINIT:
faa9b3e7 3485 i_sample_t *data;
8d14daab 3486 i_img_dim count, i;
faa9b3e7 3487 PPCODE:
faa9b3e7 3488 if (l < r) {
f37708ce 3489 data = mymalloc(sizeof(i_sample_t) * (r-l) * channels.count);
6a9807e8 3490 count = i_gsamp(im, l, r, y, data, channels.channels, channels.count);
faa9b3e7
TC		 3491 if (GIMME_V == G_ARRAY) {
3492 EXTEND(SP, count);
3493 for (i = 0; i < count; ++i)
3494 PUSHs(sv_2mortal(newSViv(data[i])));
3495 }
3496 else {
3497 EXTEND(SP, 1);
26fd367b 3498 PUSHs(sv_2mortal(newSVpv((char *)data, count * sizeof(i_sample_t))));
faa9b3e7 3499 }
a73aeb5f 3500 myfree(data);
faa9b3e7
TC		 3501 }
3502 else {
3503 if (GIMME_V != G_ARRAY) {
f37708ce 3504 XSRETURN_UNDEF;
faa9b3e7
TC		 3505 }
3506 }
3507
bd8052a6 3508undef_neg_int
6a9807e8 3509i_gsamp_bits(im, l, r, y, bits, target, offset, channels)
bd8052a6 3510 Imager::ImgRaw im
8d14daab
TC		 3511 i_img_dim l
3512 i_img_dim r
3513 i_img_dim y
bd8052a6
TC		 3514 int bits
3515 AV *target
8d14daab 3516 STRLEN offset
6a9807e8 3517 i_channel_list channels
bd8052a6 3518 PREINIT:
bd8052a6 3519 unsigned *data;
8d14daab 3520 i_img_dim count, i;
bd8052a6
TC		 3521 CODE:
3522 i_clear_error();
3523 if (items < 8)
3524 croak("No channel numbers supplied to g_samp()");
3525 if (l < r) {
6a9807e8
TC		 3526 data = mymalloc(sizeof(unsigned) * (r-l) * channels.count);
3527 count = i_gsamp_bits(im, l, r, y, data, channels.channels, channels.count, bits);
bd8052a6
TC		 3528 for (i = 0; i < count; ++i) {
3529 av_store(target, i+offset, newSVuv(data[i]));
3530 }
3531 myfree(data);
3532 RETVAL = count;
3533 }
3534 else {
3535 RETVAL = 0;
3536 }
3537 OUTPUT:
3538 RETVAL
3539
3540undef_neg_int
6a9807e8 3541i_psamp_bits(im, l, y, bits, channels, data_av, data_offset = 0, pixel_count = -1)
bd8052a6 3542 Imager::ImgRaw im
8d14daab
TC		 3543 i_img_dim l
3544 i_img_dim y
bd8052a6 3545 int bits
6a9807e8 3546 i_channel_list channels
bd8052a6 3547 AV *data_av
848b7f32
TC		 3548 i_img_dim data_offset
3549 i_img_dim pixel_count
bd8052a6 3550 PREINIT:
8d14daab
TC		 3551 STRLEN data_count;
3552 size_t data_used;
bd8052a6 3553 unsigned *data;
8d14daab 3554 ptrdiff_t i;
bd8052a6
TC		 3555 CODE:
3556 i_clear_error();
bd8052a6
TC		 3557
3558 data_count = av_len(data_av) + 1;
3559 if (data_offset < 0) {
848b7f32 3560 croak("data_offset must be non-negative");
bd8052a6
TC		 3561 }
3562 if (data_offset > data_count) {
3563 croak("data_offset greater than number of samples supplied");
3564 }
3565 if (pixel_count == -1 ||
6a9807e8
TC		 3566 data_offset + pixel_count * channels.count > data_count) {
3567 pixel_count = (data_count - data_offset) / channels.count;
bd8052a6
TC		 3568 }
3569
6a9807e8 3570 data_used = pixel_count * channels.count;
bd8052a6
TC		 3571 data = mymalloc(sizeof(unsigned) * data_count);
3572 for (i = 0; i < data_used; ++i)
3573 data[i] = SvUV(*av_fetch(data_av, data_offset + i, 0));
3574
6a9807e8
TC		 3575 RETVAL = i_psamp_bits(im, l, l + pixel_count, y, data, channels.channels,
3576 channels.count, bits);
bd8052a6
TC		 3577
3578 if (data)
3579 myfree(data);
bd8052a6
TC		 3580 OUTPUT:
3581 RETVAL
a73aeb5f 3582
48b9a7bf 3583undef_neg_int
848b7f32 3584i_psamp(im, x, y, channels, data, offset = 0, width = -1)
48b9a7bf
TC		 3585 Imager::ImgRaw im
3586 i_img_dim x
3587 i_img_dim y
3588 i_channel_list channels
3589 i_sample_list data
848b7f32
TC		 3590 i_img_dim offset
3591 i_img_dim width
48b9a7bf
TC		 3592 PREINIT:
3593 i_img_dim r;
3594 CODE:
48b9a7bf 3595 i_clear_error();
848b7f32
TC		 3596 if (offset < 0) {
3597 i_push_error(0, "offset must be non-negative");
3598 XSRETURN_UNDEF;
3599 }
3600 if (offset > 0) {
3601 if (offset > data.count) {
3602 i_push_error(0, "offset greater than number of samples supplied");
3603 XSRETURN_UNDEF;
3604 }
3605 data.samples += offset;
3606 data.count -= offset;
3607 }
3608 if (width == -1 ||
3609 width * channels.count > data.count) {
3610 width = data.count / channels.count;
3611 }
3612 r = x + width;
48b9a7bf
TC		 3613 RETVAL = i_psamp(im, x, r, y, data.samples, channels.channels, channels.count);
3614 OUTPUT:
3615 RETVAL
3616
3617undef_neg_int
848b7f32 3618i_psampf(im, x, y, channels, data, offset = 0, width = -1)
48b9a7bf
TC		 3619 Imager::ImgRaw im
3620 i_img_dim x
3621 i_img_dim y
3622 i_channel_list channels
3623 i_fsample_list data
848b7f32
TC		 3624 i_img_dim offset
3625 i_img_dim width
48b9a7bf
TC		 3626 PREINIT:
3627 i_img_dim r;
3628 CODE:
48b9a7bf 3629 i_clear_error();
848b7f32
TC		 3630 if (offset < 0) {
3631 i_push_error(0, "offset must be non-negative");
3632 XSRETURN_UNDEF;
3633 }
3634 if (offset > 0) {
3635 if (offset > data.count) {
3636 i_push_error(0, "offset greater than number of samples supplied");
3637 XSRETURN_UNDEF;
3638 }
3639 data.samples += offset;
3640 data.count -= offset;
3641 }
3642 if (width == -1 ||
3643 width * channels.count > data.count) {
3644 width = data.count / channels.count;
3645 }
3646 r = x + width;
48b9a7bf
TC		 3647 RETVAL = i_psampf(im, x, r, y, data.samples, channels.channels, channels.count);
3648 OUTPUT:
3649 RETVAL
3650
faa9b3e7
TC		 3651Imager::ImgRaw
3652i_img_masked_new(targ, mask, x, y, w, h)
3653 Imager::ImgRaw targ
8d14daab
TC		 3654 i_img_dim x
3655 i_img_dim y
3656 i_img_dim w
3657 i_img_dim h
faa9b3e7
TC		 3658 PREINIT:
3659 i_img *mask;
3660 CODE:
3661 if (SvOK(ST(1))) {
3662 if (!sv_isobject(ST(1))
3663 || !sv_derived_from(ST(1), "Imager::ImgRaw")) {
3664 croak("i_img_masked_new: parameter 2 must undef or an image");
3665 }
4c4c2ffd 3666 mask = INT2PTR(i_img *, SvIV((SV *)SvRV(ST(1))));
faa9b3e7
TC		 3667 }
3668 else
3669 mask = NULL;
3670 RETVAL = i_img_masked_new(targ, mask, x, y, w, h);
3671 OUTPUT:
3672 RETVAL
3673
3674int
3675i_plin(im, l, y, ...)
3676 Imager::ImgRaw im
8d14daab
TC		 3677 i_img_dim l
3678 i_img_dim y
faa9b3e7
TC		 3679 PREINIT:
3680 i_color *work;
8d14daab 3681 STRLEN i;
ca4d914e 3682 STRLEN len;
8d14daab 3683 size_t count;
faa9b3e7
TC		 3684 CODE:
3685 if (items > 3) {
ca4d914e
TC		 3686 if (items == 4 && SvOK(ST(3)) && !SvROK(ST(3))) {
3687 /* supplied as a byte string */
3688 work = (i_color *)SvPV(ST(3), len);
3689 count = len / sizeof(i_color);
3690 if (count * sizeof(i_color) != len) {
3691 croak("i_plin: length of scalar argument must be multiple of sizeof i_color");
faa9b3e7 3692 }
ca4d914e
TC		 3693 RETVAL = i_plin(im, l, l+count, y, work);
3694 }
3695 else {
3696 work = mymalloc(sizeof(i_color) * (items-3));
3697 for (i=0; i < items-3; ++i) {
3698 if (sv_isobject(ST(i+3))
3699 && sv_derived_from(ST(i+3), "Imager::Color")) {
3700 IV tmp = SvIV((SV *)SvRV(ST(i+3)));
3701 work[i] = *INT2PTR(i_color *, tmp);
3702 }
3703 else {
3704 myfree(work);
3705 croak("i_plin: pixels must be Imager::Color objects");
3706 }
faa9b3e7 3707 }
ca4d914e
TC		 3708 RETVAL = i_plin(im, l, l+items-3, y, work);
3709 myfree(work);
faa9b3e7 3710 }
faa9b3e7
TC		 3711 }
3712 else {
3713 RETVAL = 0;
3714 }
3715 OUTPUT:
3716 RETVAL
3717
3718int
3719i_ppixf(im, x, y, cl)
3720 Imager::ImgRaw im
8d14daab
TC		 3721 i_img_dim x
3722 i_img_dim y
faa9b3e7
TC		 3723 Imager::Color::Float cl
3724
3725void
6a9807e8 3726i_gsampf(im, l, r, y, channels)
faa9b3e7 3727 Imager::ImgRaw im
8d14daab
TC		 3728 i_img_dim l
3729 i_img_dim r
3730 i_img_dim y
6a9807e8 3731 i_channel_list channels
faa9b3e7 3732 PREINIT:
faa9b3e7 3733 i_fsample_t *data;
8d14daab 3734 i_img_dim count, i;
faa9b3e7 3735 PPCODE:
faa9b3e7 3736 if (l < r) {
6a9807e8
TC		 3737 data = mymalloc(sizeof(i_fsample_t) * (r-l) * channels.count);
3738 count = i_gsampf(im, l, r, y, data, channels.channels, channels.count);
faa9b3e7
TC		 3739 if (GIMME_V == G_ARRAY) {
3740 EXTEND(SP, count);
3741 for (i = 0; i < count; ++i)
3742 PUSHs(sv_2mortal(newSVnv(data[i])));
3743 }
3744 else {
3745 EXTEND(SP, 1);
3746 PUSHs(sv_2mortal(newSVpv((void *)data, count * sizeof(i_fsample_t))));
3747 }
3631271b 3748 myfree(data);
faa9b3e7
TC		 3749 }
3750 else {
3751 if (GIMME_V != G_ARRAY) {
5736f588 3752 XSRETURN_UNDEF;
faa9b3e7
TC		 3753 }
3754 }
3755
3756int
3757i_plinf(im, l, y, ...)
3758 Imager::ImgRaw im
8d14daab
TC		 3759 i_img_dim l
3760 i_img_dim y
faa9b3e7
TC		 3761 PREINIT:
3762 i_fcolor *work;
8d14daab 3763 i_img_dim i;
ca4d914e 3764 STRLEN len;
8d14daab 3765 size_t count;
faa9b3e7
TC		 3766 CODE:
3767 if (items > 3) {
ca4d914e
TC		 3768 if (items == 4 && SvOK(ST(3)) && !SvROK(ST(3))) {
3769 /* supplied as a byte string */
3770 work = (i_fcolor *)SvPV(ST(3), len);
3771 count = len / sizeof(i_fcolor);
3772 if (count * sizeof(i_fcolor) != len) {
3773 croak("i_plin: length of scalar argument must be multiple of sizeof i_fcolor");
faa9b3e7 3774 }
ca4d914e
TC		 3775 RETVAL = i_plinf(im, l, l+count, y, work);
3776 }
3777 else {
3778 work = mymalloc(sizeof(i_fcolor) * (items-3));
3779 for (i=0; i < items-3; ++i) {
3780 if (sv_isobject(ST(i+3))
3781 && sv_derived_from(ST(i+3), "Imager::Color::Float")) {
3782 IV tmp = SvIV((SV *)SvRV(ST(i+3)));
3783 work[i] = *INT2PTR(i_fcolor *, tmp);
3784 }
3785 else {
3786 myfree(work);
3787 croak("i_plinf: pixels must be Imager::Color::Float objects");
3788 }
faa9b3e7 3789 }
ca4d914e
TC		 3790 /**(char *)0 = 1;*/
3791 RETVAL = i_plinf(im, l, l+items-3, y, work);
3792 myfree(work);
faa9b3e7 3793 }
faa9b3e7
TC		 3794 }
3795 else {
3796 RETVAL = 0;
3797 }
3798 OUTPUT:
3799 RETVAL
3800
73d80423 3801Imager::Color::Float
faa9b3e7
TC		 3802i_gpixf(im, x, y)
3803 Imager::ImgRaw im
8d14daab
TC		 3804 i_img_dim x
3805 i_img_dim y;
faa9b3e7 3806 CODE:
73d80423 3807 RETVAL = (i_fcolor *)mymalloc(sizeof(i_fcolor));
2ea4aa42 3808 memset(RETVAL, 0, sizeof(*RETVAL));
73d80423
TC		 3809 if (i_gpixf(im, x, y, RETVAL) != 0) {
3810 myfree(RETVAL);
3811 XSRETURN_UNDEF;
faa9b3e7 3812 }
a659442a
TC		 3813 OUTPUT:
3814 RETVAL
3815
faa9b3e7
TC		 3816void
3817i_glin(im, l, r, y)
3818 Imager::ImgRaw im
8d14daab
TC		 3819 i_img_dim l
3820 i_img_dim r
3821 i_img_dim y
faa9b3e7
TC		 3822 PREINIT:
3823 i_color *vals;
8d14daab 3824 i_img_dim count, i;
faa9b3e7
TC		 3825 PPCODE:
3826 if (l < r) {
3827 vals = mymalloc((r-l) * sizeof(i_color));
b3aa972f 3828 memset(vals, 0, (r-l) * sizeof(i_color));
faa9b3e7 3829 count = i_glin(im, l, r, y, vals);
ca4d914e
TC		 3830 if (GIMME_V == G_ARRAY) {
3831 EXTEND(SP, count);
3832 for (i = 0; i < count; ++i) {
5e9a7fbd 3833 SV *sv = make_i_color_sv(aTHX_ vals+i);
ca4d914e
TC		 3834 PUSHs(sv);
3835 }
3836 }
3837 else if (count) {
3838 EXTEND(SP, 1);
3839 PUSHs(sv_2mortal(newSVpv((void *)vals, count * sizeof(i_color))));
faa9b3e7
TC		 3840 }
3841 myfree(vals);
3842 }
3843
3844void
3845i_glinf(im, l, r, y)
3846 Imager::ImgRaw im
8d14daab
TC		 3847 i_img_dim l
3848 i_img_dim r
3849 i_img_dim y
faa9b3e7
TC		 3850 PREINIT:
3851 i_fcolor *vals;
8d14daab 3852 i_img_dim count, i;
919e0000 3853 i_fcolor zero;
faa9b3e7 3854 PPCODE:
919e0000
TC		 3855 for (i = 0; i < MAXCHANNELS; ++i)
3856 zero.channel[i] = 0;
faa9b3e7
TC		 3857 if (l < r) {
3858 vals = mymalloc((r-l) * sizeof(i_fcolor));
b3aa972f
TC		 3859 for (i = 0; i < r-l; ++i)
3860 vals[i] = zero;
faa9b3e7 3861 count = i_glinf(im, l, r, y, vals);
ca4d914e
TC		 3862 if (GIMME_V == G_ARRAY) {
3863 EXTEND(SP, count);
3864 for (i = 0; i < count; ++i) {
3865 SV *sv;
3866 i_fcolor *col = mymalloc(sizeof(i_fcolor));
3867 *col = vals[i];
3868 sv = sv_newmortal();
3869 sv_setref_pv(sv, "Imager::Color::Float", (void *)col);
3870 PUSHs(sv);
3871 }
3872 }
3873 else if (count) {
3874 EXTEND(SP, 1);
3875 PUSHs(sv_2mortal(newSVpv((void *)vals, count * sizeof(i_fcolor))));
faa9b3e7
TC		 3876 }
3877 myfree(vals);
3878 }
3879
bdd4c63b 3880Imager::ImgRaw
5824f4c2
TC		 3881i_img_8_new(xsize, ysize, channels)
3882 i_img_dim xsize
3883 i_img_dim ysize
3884 int channels
bdd4c63b 3885
faa9b3e7 3886Imager::ImgRaw
5824f4c2
TC		 3887i_img_16_new(xsize, ysize, channels)
3888 i_img_dim xsize
3889 i_img_dim ysize
3890 int channels
faa9b3e7 3891
167660cd
TC		 3892Imager::ImgRaw
3893i_img_to_rgb16(im)
3894 Imager::ImgRaw im
3895
365ea842 3896Imager::ImgRaw
5824f4c2
TC		 3897i_img_double_new(xsize, ysize, channels)
3898 i_img_dim xsize
3899 i_img_dim ysize
3900 int channels
365ea842 3901
bfe6ba3f
TC		 3902Imager::ImgRaw
3903i_img_to_drgb(im)
3904 Imager::ImgRaw im
3905
faa9b3e7 3906undef_int
b9e2571f 3907i_tags_addn(im, name_sv, code, idata)
faa9b3e7 3908 Imager::ImgRaw im
b9e2571f 3909 SV *name_sv
faa9b3e7
TC		 3910 int code
3911 int idata
3912 PREINIT:
3913 char *name;
3914 STRLEN len;
3915 CODE:
b9e2571f
TC		 3916 SvGETMAGIC(name_sv);
3917 if (SvOK(name_sv))
3918 name = SvPV_nomg(name_sv, len);
faa9b3e7
TC		 3919 else
3920 name = NULL;
3921 RETVAL = i_tags_addn(&im->tags, name, code, idata);
3922 OUTPUT:
3923 RETVAL
3924
3925undef_int
a4da28d7 3926i_tags_add(im, name_sv, code, data_sv, idata)
faa9b3e7 3927 Imager::ImgRaw im
a4da28d7 3928 SV *name_sv
faa9b3e7 3929 int code
a4da28d7 3930 SV *data_sv
faa9b3e7
TC		 3931 int idata
3932 PREINIT:
3933 char *name;
3934 char *data;
3935 STRLEN len;
3936 CODE:
a4da28d7
TC		 3937 SvGETMAGIC(name_sv);
3938 if (SvOK(name_sv))
3939 name = SvPV_nomg(name_sv, len);
faa9b3e7
TC		 3940 else
3941 name = NULL;
a4da28d7
TC		 3942 SvGETMAGIC(data_sv);
3943 if (SvOK(data_sv))
3944 data = SvPV(data_sv, len);
faa9b3e7
TC		 3945 else {
3946 data = NULL;
3947 len = 0;
3948 }
3949 RETVAL = i_tags_add(&im->tags, name, code, data, len, idata);
3950 OUTPUT:
3951 RETVAL
3952
f4aca831 3953SysRet
faa9b3e7
TC		 3954i_tags_find(im, name, start)
3955 Imager::ImgRaw im
3956 char *name
3957 int start
3958 PREINIT:
3959 int entry;
3960 CODE:
3961 if (i_tags_find(&im->tags, name, start, &entry)) {
f4aca831 3962 RETVAL = entry;
faa9b3e7 3963 } else {
f4aca831 3964 XSRETURN_UNDEF;
faa9b3e7 3965 }
a659442a
TC		 3966 OUTPUT:
3967 RETVAL
faa9b3e7 3968
f4aca831 3969SysRet
faa9b3e7
TC		 3970i_tags_findn(im, code, start)
3971 Imager::ImgRaw im
3972 int code
3973 int start
3974 PREINIT:
3975 int entry;
3976 CODE:
3977 if (i_tags_findn(&im->tags, code, start, &entry)) {
f4aca831 3978 RETVAL = entry;
faa9b3e7 3979 }
a659442a 3980 else {
f4aca831 3981 XSRETURN_UNDEF;
a659442a
TC		 3982 }
3983 OUTPUT:
3984 RETVAL
faa9b3e7
TC		 3985
3986int
3987i_tags_delete(im, entry)
3988 Imager::ImgRaw im
3989 int entry
3990 CODE:
3991 RETVAL = i_tags_delete(&im->tags, entry);
3992 OUTPUT:
3993 RETVAL
3994
3995int
3996i_tags_delbyname(im, name)
3997 Imager::ImgRaw im
3998 char * name
3999 CODE:
4000 RETVAL = i_tags_delbyname(&im->tags, name);
4001 OUTPUT:
4002 RETVAL
4003
4004int
4005i_tags_delbycode(im, code)
4006 Imager::ImgRaw im
4007 int code
4008 CODE:
4009 RETVAL = i_tags_delbycode(&im->tags, code);
4010 OUTPUT:
4011 RETVAL
4012
4013void
4014i_tags_get(im, index)
4015 Imager::ImgRaw im
4016 int index
4017 PPCODE:
4018 if (index >= 0 && index < im->tags.count) {
4019 i_img_tag *entry = im->tags.tags + index;
4020 EXTEND(SP, 5);
4021
4022 if (entry->name) {
4023 PUSHs(sv_2mortal(newSVpv(entry->name, 0)));
4024 }
4025 else {
4026 PUSHs(sv_2mortal(newSViv(entry->code)));
4027 }
4028 if (entry->data) {
4029 PUSHs(sv_2mortal(newSVpvn(entry->data, entry->size)));
4030 }
4031 else {
4032 PUSHs(sv_2mortal(newSViv(entry->idata)));
4033 }
4034 }
4035
241defe8
TC		 4036void
4037i_tags_get_string(im, what_sv)
4038 Imager::ImgRaw im
4039 SV *what_sv
4040 PREINIT:
4041 char const *name = NULL;
4042 int code;
4043 char buffer[200];
241defe8
TC		 4044 PPCODE:
4045 if (SvIOK(what_sv)) {
4046 code = SvIV(what_sv);
4047 name = NULL;
4048 }
4049 else {
4050 name = SvPV_nolen(what_sv);
4051 code = 0;
4052 }
4053 if (i_tags_get_string(&im->tags, name, code, buffer, sizeof(buffer))) {
4054 EXTEND(SP, 1);
4055 PUSHs(sv_2mortal(newSVpv(buffer, 0)));
4056 }
4057
faa9b3e7
TC		 4058int
4059i_tags_count(im)
4060 Imager::ImgRaw im
4061 CODE:
4062 RETVAL = im->tags.count;
4063 OUTPUT:
4064 RETVAL
4065
faa9b3e7 4066
faa9b3e7 4067
f1ac5027
TC		 4068MODULE = Imager PACKAGE = Imager::FillHandle PREFIX=IFILL_
4069
4070void
4071IFILL_DESTROY(fill)
4072 Imager::FillHandle fill
4073
ffddd407
TC		 4074int
4075IFILL_CLONE_SKIP(...)
4076 CODE:
8d14daab 4077 (void)items; /* avoid unused warning for XS variable */
ffddd407
TC		 4078 RETVAL = 1;
4079 OUTPUT:
4080 RETVAL
4081
f1ac5027
TC		 4082MODULE = Imager PACKAGE = Imager
4083
4084Imager::FillHandle
4085i_new_fill_solid(cl, combine)
4086 Imager::Color cl
4087 int combine
4088
4089Imager::FillHandle
4090i_new_fill_solidf(cl, combine)
4091 Imager::Color::Float cl
4092 int combine
4093
4094Imager::FillHandle
a309fbc6 4095i_new_fill_hatch(fg, bg, combine, hatch, cust_hatch_sv, dx, dy)
f1ac5027
TC		 4096 Imager::Color fg
4097 Imager::Color bg
4098 int combine
4099 int hatch
a309fbc6 4100 SV *cust_hatch_sv
8d14daab
TC		 4101 i_img_dim dx
4102 i_img_dim dy
f1ac5027
TC		 4103 PREINIT:
4104 unsigned char *cust_hatch;
4105 STRLEN len;
4106 CODE:
a309fbc6
TC		 4107 SvGETMAGIC(cust_hatch_sv);
4108 if (SvOK(cust_hatch_sv)) {
4109 cust_hatch = (unsigned char *)SvPV_nomg(cust_hatch_sv, len);
f1ac5027
TC		 4110 }
4111 else
4112 cust_hatch = NULL;
4113 RETVAL = i_new_fill_hatch(fg, bg, combine, hatch, cust_hatch, dx, dy);
4114 OUTPUT:
4115 RETVAL
4116
efdc2568 4117Imager::FillHandle
a309fbc6 4118i_new_fill_hatchf(fg, bg, combine, hatch, cust_hatch_sv, dx, dy)
efdc2568
TC		 4119 Imager::Color::Float fg
4120 Imager::Color::Float bg
4121 int combine
4122 int hatch
a309fbc6 4123 SV *cust_hatch_sv
8d14daab
TC		 4124 i_img_dim dx
4125 i_img_dim dy
efdc2568
TC		 4126 PREINIT:
4127 unsigned char *cust_hatch;
4128 STRLEN len;
4129 CODE:
a309fbc6
TC		 4130 SvGETMAGIC(cust_hatch_sv);
4131 if (SvOK(cust_hatch_sv)) {
4132 cust_hatch = (unsigned char *)SvPV(cust_hatch_sv, len);
efdc2568
TC		 4133 }
4134 else
4135 cust_hatch = NULL;
4136 RETVAL = i_new_fill_hatchf(fg, bg, combine, hatch, cust_hatch, dx, dy);
4137 OUTPUT:
4138 RETVAL
4139
f576ce7e 4140Imager::FillHandle
c0f38779 4141i_new_fill_image(src, matrix_sv, xoff, yoff, combine)
f576ce7e 4142 Imager::ImgRaw src
c0f38779 4143 SV *matrix_sv
8d14daab
TC		 4144 i_img_dim xoff
4145 i_img_dim yoff
f576ce7e
TC		 4146 int combine
4147 PREINIT:
4148 double matrix[9];
4149 double *matrixp;
4150 AV *av;
4151 IV len;
4152 SV *sv1;
4153 int i;
4154 CODE:
c0f38779
TC		 4155 SvGETMAGIC(matrix_sv);
4156 if (!SvOK(matrix_sv)) {
f576ce7e
TC		 4157 matrixp = NULL;
4158 }
4159 else {
c0f38779
TC		 4160 if (!SvROK(matrix_sv) || SvTYPE(SvRV(matrix_sv)) != SVt_PVAV)
4161 croak("i_new_fill_image: matrix parameter must be an arrayref or undef");
4162 av=(AV*)SvRV(matrix_sv);
f576ce7e
TC		 4163 len=av_len(av)+1;
4164 if (len > 9)
4165 len = 9;
4166 for (i = 0; i < len; ++i) {
4167 sv1=(*(av_fetch(av,i,0)));
4168 matrix[i] = SvNV(sv1);
4169 }
4170 for (; i < 9; ++i)
4171 matrix[i] = 0;
4172 matrixp = matrix;
4173 }
4174 RETVAL = i_new_fill_image(src, matrixp, xoff, yoff, combine);
4175 OUTPUT:
4176 RETVAL
042cdaea 4177
a8652edf
TC		 4178MODULE = Imager PACKAGE = Imager::Internal::Hlines PREFIX=i_int_hlines_
4179
4180# this class is only exposed for testing
4181
4182int
4183i_int_hlines_testing()
4184
4185#if i_int_hlines_testing()
4186
4187Imager::Internal::Hlines
4188i_int_hlines_new(start_y, count_y, start_x, count_x)
8d14daab 4189 i_img_dim start_y
a8652edf 4190 int count_y
8d14daab 4191 i_img_dim start_x
a8652edf
TC		 4192 int count_x
4193
4194Imager::Internal::Hlines
4195i_int_hlines_new_img(im)
4196 Imager::ImgRaw im
4197
4198void
4199i_int_hlines_add(hlines, y, minx, width)
4200 Imager::Internal::Hlines hlines
8d14daab
TC		 4201 i_img_dim y
4202 i_img_dim minx
4203 i_img_dim width
a8652edf
TC		 4204
4205void
4206i_int_hlines_DESTROY(hlines)
4207 Imager::Internal::Hlines hlines
4208
4209SV *
4210i_int_hlines_dump(hlines)
4211 Imager::Internal::Hlines hlines
4212
ffddd407
TC		 4213int
4214i_int_hlines_CLONE_SKIP(cls)
ffddd407 4215
a8652edf 4216#endif
92bda632 4217
31a13473
TC		 4218MODULE = Imager PACKAGE = Imager::Context PREFIX=im_context_
4219
4220void
4221im_context_DESTROY(ctx)
4222 Imager::Context ctx
4223
4224#ifdef PERL_IMPLICIT_CONTEXT
4225
4226void
4227im_context_CLONE(...)
4228 CODE:
4229 MY_CXT_CLONE;
39512ead 4230 (void)items;
31a13473
TC		 4231 /* the following sv_setref_pv() will free this inc */
4232 im_context_refinc(MY_CXT.ctx, "CLONE");
4233 MY_CXT.ctx = im_context_clone(MY_CXT.ctx, "CLONE");
9ca939d0
TC		 4234 if (MY_CXT.ctx == NULL) {
4235 croak("Failed to clone Imager context");
4236 }
31a13473
TC		 4237 sv_setref_pv(get_sv("Imager::_context", GV_ADD), "Imager::Context", MY_CXT.ctx);
4238
4239#endif
4240
92bda632
TC		 4241BOOT:
4242 PERL_SET_GLOBAL_CALLBACKS;
6d5c85a2 4243 PERL_PL_SET_GLOBAL_CALLBACKS;
39512ead 4244#ifdef PERL_IMPLICIT_CONTEXT
54064d2e
TC		 4245 {
4246 MY_CXT_INIT;
4247 (void)MY_CXT;
4248 }
39512ead 4249#endif
31a13473 4250 start_context(aTHX);
cf8c77ae 4251 im_get_context = perl_get_context;
eee347a1
TC		 4252#ifdef HAVE_LIBTT
4253 i_tt_start();
4254#endif
Image manipulation for perl