summaryrefslogtreecommitdiff
path: root/ext/mandel/mandel.c
diff options
context:
space:
mode:
author(no author) <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1999-05-07 09:27:25 +0000
committer(no author) <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1999-05-07 09:27:25 +0000
commitebda7e58de362f13641872d7e90132427e4dbc0d (patch)
tree716560536fc083d85bb20514c15b49a0a9eaac28 /ext/mandel/mandel.c
parent192463c7a5525008a7bf95065261877eff79cf74 (diff)
This commit was manufactured by cvs2svn to create tag
'v1_3_3_990507'. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_3_3_990507@462 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/mandel/mandel.c')
-rw-r--r--ext/mandel/mandel.c59
1 files changed, 0 insertions, 59 deletions
diff --git a/ext/mandel/mandel.c b/ext/mandel/mandel.c
deleted file mode 100644
index 359c0756da..0000000000
--- a/ext/mandel/mandel.c
+++ /dev/null
@@ -1,59 +0,0 @@
-/************************************************
-
- mandel.c -
-
- $Author$
-
-************************************************/
-
-#include "ruby.h"
-#include "math.h"
-
-static VALUE
-mandel(self, re, im, max)
- VALUE self;
- VALUE re;
- VALUE im;
- VALUE max;
-{
- double real, image;
- double z_real, z_image;
- double tmp_real;
- int maximum;
- int i;
-
- Check_Type(re, T_FLOAT);
- Check_Type(im, T_FLOAT);
- Check_Type(max, T_FIXNUM);
-
- real = RFLOAT(re)->value;
- image = RFLOAT(im)->value;
- maximum = FIX2INT(max);
-
- /***
- z = c = Complex(re, im)
- for i in 0 .. $max_deapth
- z = (z * z) + c
- break if z.abs > 2
- end
- return i
- ***/
-
- z_real = real;
- z_image = image;
- for (i = 0; i < maximum; i++) {
- tmp_real = ((z_real * z_real) - (z_image * z_image)) + real;
- z_image = ((z_real * z_image) + (z_image * z_real)) + image;
- z_real = tmp_real;
- if ( ((z_real * z_real) + (z_image * z_image)) > 4.0 ) {
- break;
- }
- }
- return INT2FIX(i);
-}
-
-Init_mandel()
-{
- VALUE mMandel = rb_define_module("Mandel");
- rb_define_module_function(mMandel, "mandel", mandel, 3);
-}