4 files changed, 18 insertions, 17 deletions
diff --git a/src/Fractal.jl b/src/Fractal.jl
deleted file mode 100644
index 47e1dbf..0000000
--- a/src/Fractal.jl
+++ /dev/null
@@ -1,3 +0,0 @@
-module Fractal
-include("mandelbrot.jl")
-end
diff --git a/src/FractalExplorer.jl b/src/FractalExplorer.jl
new file mode 100644
index 0000000..80142cf
--- /dev/null
+++ b/src/FractalExplorer.jl
@@ -0,0 +1,3 @@
+module FractalExplorer
+include("fractal.jl")
+end
diff --git a/src/fractal.jl b/src/fractal.jl
new file mode 100644
index 0000000..41977c1
--- /dev/null
+++ b/src/fractal.jl
@@ -0,0 +1,15 @@
+type Fractal{T <: FloatingPoint}
+    z::Array{Complex{T}, 2}
+    c::Array{Complex{T}, 2}
+    step::Function
+
+    function Fractal(imgsize, make_c = z -> z, step = (z, c) -> z.^2 + c)
+        line = linspace(-2.0, 2.0, imgsize)
+        plane = [ complex(x, y) for x=line, y=line ]
+        new(plane, make_c(plane), step)
+    end
+end
+
+function step{T <: FloatingPoint}(f::Fractal{T})
+    f.z = f.step(f.z, f.c)
+end
diff --git a/src/mandelbrot.jl b/src/mandelbrot.jl
deleted file mode 100644
index 9cddee7..0000000
--- a/src/mandelbrot.jl
+++ /dev/null
@@ -1,14 +0,0 @@
-type Mandelbrot{T <: FloatingPoint}
-    c::Array{Complex{T}, 2}
-    z::Array{Complex{T}, 2}
-
-    Mandelbrot(imgsize) = (
-        line = linspace(-2.0, 2.0, imgsize);
-        plane = [ x + y*im for x=line, y=line ];
-        new(plane, plane)
-    )
-end
-
-function step{T <: FloatingPoint}(m::Mandelbrot{T})
-    m.z = m.z.^2 + m.c
-end