]> git.imager.perl.org - imager.git/blob - Mandelbrot/Mandelbrot.xs
most numeric parameters to the XS implementation now throw an exception if supplied...
[imager.git] / Mandelbrot / Mandelbrot.xs
1 #define PERL_NO_GET_CONTEXT
2 #ifdef __cplusplus
3 extern "C" {
4 #endif
5 #include "EXTERN.h"
6 #include "perl.h"
7 #include "XSUB.h"
8 #include "ppport.h"
9 #ifdef __cplusplus
10 }
11 #endif
12
13 #include "imext.h"
14 #include "imperl.h"
15
16 void 
17 mandelbrot(i_img *im, double minx, double miny, double maxx, double maxy, int max_iter);
18
19 DEFINE_IMAGER_CALLBACKS;
20
21 MODULE = Imager::Filter::Mandelbrot   PACKAGE = Imager::Filter::Mandelbrot
22
23 PROTOTYPES: ENABLE
24
25 void
26 mandelbrot(im, minx=-2.5, miny=-2.0, maxx=2.5, maxy=-2.0, max_iter=256)
27         Imager::ImgRaw im
28         double minx
29         double miny
30         double maxx
31         double maxy
32         int max_iter
33
34 BOOT:
35         PERL_INITIALIZE_IMAGER_CALLBACKS;
36