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

Clean up a bit

Browse source
This commit is contained in:
joachimschmidt557 2019-02-08 12:53:01 +01:00
parent 74c666ccb2
commit 47fd39b8c4
5 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
MandelBrot.fs
View file

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