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.Drawing
|
||||||
open System.Numerics
|
open System.Numerics
|
||||||
open System
|
open System
|
||||||
open System.Drawing
|
|
||||||
open System.Drawing
|
|
||||||
open System.Numerics
|
|
||||||
|
|
||||||
let hsbToRgb (h:float) (s:float) (v:float) =
|
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
|
| -1 -> R <- v; G <- pv; B <- qv
|
||||||
| _ -> R <- v; G <- v; B <- v
|
| _ -> R <- v; G <- v; B <- v
|
||||||
|
|
||||||
//printfn "%f %f %f" R G B
|
|
||||||
|
|
||||||
Color.FromArgb(255, clamp (int (R*255.0)),
|
Color.FromArgb(255, clamp (int (R*255.0)),
|
||||||
clamp (int (G*255.0)),
|
clamp (int (G*255.0)),
|
||||||
clamp (int (B*255.0)))
|
clamp (int (B*255.0)))
|
||||||
|
|
@ -62,7 +57,7 @@ let colorMap i nMax =
|
||||||
let h = ((float i) / 100.0) * 360.0
|
let h = ((float i) / 100.0) * 360.0
|
||||||
let s = 1.0
|
let s = 1.0
|
||||||
let v = if i < nMax then 1.0 else 0.0
|
let v = if i < nMax then 1.0 else 0.0
|
||||||
//printfn "%f %f %f" h s v
|
|
||||||
hsbToRgb h s v
|
hsbToRgb h s v
|
||||||
|
|
||||||
let generatePixel x y height width zoom rMax maxIter =
|
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