diff --git a/MandelBrot.fs b/MandelBrot.fs index c117678..177c084 100644 --- a/MandelBrot.fs +++ b/MandelBrot.fs @@ -78,7 +78,7 @@ let getComplexValueForPixel x y height width zoom = Complex ((x-width/2.0)/zoom, (y-height/2.0)/zoom) let colorMap i nMax = - let h = (float i) / 100.0 + let h = ((float i) / 100.0) * 360.0 let s = 1.0 let v = if i < nMax then 1.0 else 0.0 //printfn "%f %f %f" h s v diff --git a/Program.fs b/Program.fs index a3f0d83..e2f004f 100644 --- a/Program.fs +++ b/Program.fs @@ -6,7 +6,7 @@ open System let main argv = printfn "Mandelbrot!" - let result = MandelBrot.generate 800 600 200.0 2 570 + let result = MandelBrot.generate 800 600 150.0 32 570 result.Save("mandelbrot.bmp") diff --git a/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.dll b/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.dll index d843939..91ff6f5 100644 Binary files a/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.dll and b/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.dll differ diff --git a/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb b/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb index 89d9c81..de83299 100644 Binary files a/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb and b/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb differ diff --git a/mandelbrot.bmp b/mandelbrot.bmp index bdce95f..e542381 100644 Binary files a/mandelbrot.bmp and b/mandelbrot.bmp differ diff --git a/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.dll b/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.dll index d843939..91ff6f5 100644 Binary files a/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.dll and b/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.dll differ diff --git a/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb b/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb index 89d9c81..de83299 100644 Binary files a/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb and b/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb differ