X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FConfig.fs;h=e7deb61b1ca982895fc8f4beb8957c3821e563e7;hp=cd8f6599dde35377b5beaa675e36302234d11ac7;hb=81d1b86719a1ebaf649c1de4c1364603155a53e1;hpb=aaa250fab2ac3227bf45704355d389bc1a4ee7fc diff --git a/Parasitemia/Parasitemia/Config.fs b/Parasitemia/Parasitemia/Config.fs index cd8f659..e7deb61 100644 --- a/Parasitemia/Parasitemia/Config.fs +++ b/Parasitemia/Parasitemia/Config.fs @@ -85,7 +85,6 @@ type RBCRadius (radius: float32, parameters: Parameters) = override this.ToString() = sprintf "%d px (%.1f μm)" (Utils.roundInt <| 2.f * radius) (2. * this.μm) - type Config (param: Parameters) = let RBCadiusInPixels (rbcDiameter: float<μm>) (resolution: float) : float32 = let rbcRadiusInch: float = (μmToInch rbcDiameter) / 2.