X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/02d1d62827cef86398edc2013f7d2ff04bf21c63..05f2584a8988605388e70a7c2adf6611ad73e006:/dynfilt/mandelbrot.c

diff --git a/dynfilt/mandelbrot.c b/dynfilt/mandelbrot.c
index 09d88fb9..a323d31a 100644
--- a/dynfilt/mandelbrot.c
+++ b/dynfilt/mandelbrot.c
@@ -1,5 +1,5 @@
 #include "pluginst.h"
-
+#include <stdlib.h>
 
 char evalstr[]="Mandlebrot renderer";
 
@@ -14,10 +14,9 @@ char evalstr[]="Mandlebrot renderer";
 
 static
 int
-mandel(float x, float y) {
-  float xn, yn;
-  float xo, yo;
-  float dist;
+mandel(double x, double y) {
+  double xn, yn;
+  double xo, yo;
   int iter = 1;
   /*	Z(n+1) = Z(n) ^2 + c */
 
@@ -41,33 +40,33 @@ mandel(float x, float y) {
 void mandlebrot(void *INP) {
 
   i_img *im;
-  i_color vl;
-  int i,bytes,x,y;
+  int i;
+  i_img_dim x,y;
   int idx;
   
-  float xs, ys;
-  float div;
+  double xs, ys;
+  double div;
 
   i_color icl[256];
   srand(12235);
   for(i=1;i<256; i++) {
-    icl[i].rgb.r = 100+(int) (155.0*rand()/(RAND_MAX+1.0));
-    icl[i].rgb.g = 100+(int) (155.0*rand()/(RAND_MAX+1.0));
-    icl[i].rgb.g = 100+(int) (155.0*rand()/(RAND_MAX+1.0));
+    icl[i].rgb.r = 100+(int) (156.0*rand()/(RAND_MAX+1.0));
+    icl[i].rgb.g = 100+(int) (156.0*rand()/(RAND_MAX+1.0));
+    icl[i].rgb.b = 100+(int) (156.0*rand()/(RAND_MAX+1.0));
   }
 
   icl[0].rgb.r = 0;
   icl[0].rgb.g = 0;
-  icl[0].rgb.g = 0;
+  icl[0].rgb.b = 0;
     
 
   
   if ( !getOBJ("image","Imager::ImgRaw",&im) ) { fprintf(stderr,"Error: image is missing\n"); }
   
-  fprintf(stderr,"mandlebrot: parameters: (im 0x%x)\n",im);
-  bytes=im->bytes;
+  fprintf(stderr,"mandlebrot: parameters: (im %p)\n",im);
 
-  fprintf(stderr, "mandlebrot: image info:\n size (%d,%d)\n channels (%d)\n channel mask (%d)\n bytes (%d)\n",im->xsize,im->ysize,im->channels,im->ch_mask,im->bytes); 
+  fprintf(stderr, "mandlebrot: image info:\n size (" i_DFp ")\n channels (%d)\n",
+	  i_DFcp(im->xsize,im->ysize),im->channels); 
   div = 2.5;
 
   xs = 0.8*div;