X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FProgram.fs;fp=Parasitemia%2FParasitemia%2FProgram.fs;h=2aa3ee4f77c929454e2ef67ba1f0655d78d8545f;hp=038f827c754aa3deb22f0c08dff0b43b69f17bb3;hb=4147bfad3c85dcf4fe7d291abf7d356379d88b4f;hpb=a5d61d4974c211bd8dd4e5de07c690489d9507c7 diff --git a/Parasitemia/Parasitemia/Program.fs b/Parasitemia/Parasitemia/Program.fs index 038f827..2aa3ee4 100644 --- a/Parasitemia/Parasitemia/Program.fs +++ b/Parasitemia/Parasitemia/Program.fs @@ -42,31 +42,7 @@ let parseArgs (args: string[]) : Arguments = let main args = match parseArgs args with | mode, debug -> - let config = - Config( - { - initialAreaOpen = 2000 - ratioSecondAreaOpen = 1.f / 3.f - - minRbcRadius = -0.3f - maxRbcRadius = 0.3f - - preFilterSigma = 1.7 // 1.5 - - factorNbPick = 1.0 - - darkStainLevel = 0.25 // 0.3 - maxDarkStainRatio = 0.1 // 10 % - - infectionArea = 0.012f // 1.2 % - infectionLevel = 1.12 // Lower -> more sensitive. - - stainArea = 0.08f // 8 % - stainLevel = 1.1 // Lower -> more sensitive. - maxStainRatio = 0.12 // 12 % - - standardDeviationMaxRatio = 0.5 // 0.55 - minimumCellAreaFactor = 0.5f }) + let config = Config(defaultParameters) match mode with | CmdLine (input, output) ->