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

WIP

Browse source
This commit is contained in:
joachimschmidt557 2019-02-10 11:19:45 +01:00
parent 8cc11ea130
commit 4b94f8c089
12 changed files with 24 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
MandelBrot.fs
View file

@ -54,7 +54,10 @@ 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) * 360.0
let h =
if ((float i) / 100.0) <= 1.0 then
((float i) / 100.0) * 360.0
else 360.0
let s = 1.0
let v = if i < nMax then 1.0 else 0.0