Clean up a bit
This commit is contained in:
parent
74c666ccb2
commit
47fd39b8c4
5 changed files with 1 additions and 6 deletions
|
|
@ -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 =
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
Add table
Add a link
Reference in a new issue