Finally correct

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

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")