Add Julia module

Julia.fs

@@ -0,0 +1,26 @@
+module Julia
+
+open System
+open System.Numerics
+open System.Drawing
+
+let generatePixel x y height width zoom rMax maxIter = 
+    let c = MandelBrot.getComplexValueForPixel (float x) (float y) (float height) (float width) zoom
+
+    let rec findI i z =
+        if i >= maxIter then i
+        else if Complex.Abs(z) >= (float rMax) then i
+        //else findI (i+1) (z*z+c)
+        else findI (i+1) (Complex.Add(c, (Complex.Multiply(z, z))))
+
+    MandelBrot.colorMap (findI 0 (Complex(0.0, 0.0))) maxIter
+
+let generate (width:int) height zoom rMax maxIter =
+    let result = new Bitmap(width, height)
+    
+    for y in 0 .. height-1 do
+        for x in 0 .. width-1 do
+            generatePixel x y height width zoom rMax maxIter
+            |> (fun color -> result.SetPixel(x, y, color))
+
+    result

fsharp-mandelbrot.fsproj

@@ -6,6 +6,7 @@
   </PropertyGroup>
   <ItemGroup>
     <Compile Include="MandelBrot.fs" />
+    <Compile Include="Julia.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>
   <ItemGroup>