From 74c666ccb23a4cabad449d69bd08a2892c4d75c5 Mon Sep 17 00:00:00 2001 From: joachimschmidt557 Date: Fri, 8 Feb 2019 12:48:38 +0100 Subject: [PATCH] Remove old HSV->RGB --- MandelBrot.fs | 21 +-------------------- 1 file changed, 1 insertion(+), 20 deletions(-) diff --git a/MandelBrot.fs b/MandelBrot.fs index 177c084..209d592 100644 --- a/MandelBrot.fs +++ b/MandelBrot.fs @@ -54,25 +54,6 @@ let hsbToRgb (h:float) (s:float) (v:float) = Color.FromArgb(255, clamp (int (R*255.0)), clamp (int (G*255.0)), clamp (int (B*255.0))) - (* - let hi = (int (Math.Floor(h / 60.0))) - let f = h / 60.0 - Math.Floor(h / 60.0) - let value = v * 255.0 - - let vv = (int value) - let p = (int (value * (1.0-s))) - let q = (int (value * (1.0-f*s))) - let t = (int (value * (1.0-(1.0-f) * s))) - - match hi with - | 0 -> Color.FromArgb(255, vv, t, p) - | 1 -> Color.FromArgb(255, q, vv, p) - | 2 -> Color.FromArgb(255, p, vv, t) - | 3 -> Color.FromArgb(255, p, q, vv) - | 4 -> Color.FromArgb(255, t, p, vv) - | _ -> Color.FromArgb(255, vv, p, q) - *) - let getComplexValueForPixel x y height width zoom = Complex ((x-width/2.0)/zoom, (y-height/2.0)/zoom) @@ -103,4 +84,4 @@ let generate (width:int) height zoom rMax maxIter = generatePixel x y height width zoom rMax maxIter |> (fun color -> result.SetPixel(x, y, color)) - result \ No newline at end of file + result