diff --git a/MandelBrot.fs b/MandelBrot.fs index 209d592..67627b7 100644 --- a/MandelBrot.fs +++ b/MandelBrot.fs @@ -3,9 +3,6 @@ module MandelBrot open System.Drawing open System.Numerics open System -open System.Drawing -open System.Drawing -open System.Numerics let hsbToRgb (h:float) (s:float) (v:float) = @@ -49,8 +46,6 @@ let hsbToRgb (h:float) (s:float) (v:float) = | -1 -> R <- v; G <- pv; B <- qv | _ -> R <- v; G <- v; B <- v - //printfn "%f %f %f" R G B - Color.FromArgb(255, clamp (int (R*255.0)), clamp (int (G*255.0)), clamp (int (B*255.0))) @@ -62,7 +57,7 @@ let colorMap i nMax = 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 + hsbToRgb h s v let generatePixel x y height width zoom rMax maxIter = diff --git a/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.dll b/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.dll index 91ff6f5..ee165ed 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 de83299..c60b76e 100644 Binary files a/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb and b/bin/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb differ diff --git a/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.dll b/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.dll index 91ff6f5..ee165ed 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 de83299..c60b76e 100644 Binary files a/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb and b/obj/Debug/netcoreapp2.2/fsharp-mandelbrot.pdb differ