joachim/fsharp-mandelbrot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Finally correct

Browse source
This commit is contained in:
joachimschmidt557 2019-02-08 12:45:54 +01:00
parent 3eddbc0afe
commit 428500be37
7 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
MandelBrot.fs
View file

@ -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