Parasitemia/ParasitemiaUI/Utils.fs

   1 module ParasitemiaUI.Utils
   2
   3 open System.IO
   4
   5 open Newtonsoft.Json
   6
   7 open Types
   8
   9 let inline listAsStr (s : 'a seq) =
  10     s |> Seq.fold (fun acc obj -> acc + (if acc = "" then "" else ", ") + string obj) ""
  11
  12 let percentText (nbTotal : int, nb : int) : string =
  13     if nbTotal = 0 then
  14         ""
  15     else
  16         let percent = 100. * (float nb) / (float nbTotal)
  17         sprintf "%.1f %% (%d / %d)" percent nb nbTotal
  18
  19 let roamingDir =
  20     Path.Combine (System.Environment.GetFolderPath (System.Environment.SpecialFolder.ApplicationData), "Parasitemia")
  21
  22 let predefinedPPIFilename = "predefined-ppi.json"
  23 let predefinedPPIFilepath = Path.Combine (roamingDir, predefinedPPIFilename)
  24
  25 let sensorSizesFilename = "sensor-sizes.json"
  26 let sensorSizesFilepath = Path.Combine (roamingDir, sensorSizesFilename)
  27
  28 let private savePredefinedPPIToFile (predefinedPPI : PredefinedPPI list) =
  29     try
  30         Directory.CreateDirectory roamingDir |> ignore
  31         use file = new StreamWriter (predefinedPPIFilepath)
  32         file.Write (JsonConvert.SerializeObject (predefinedPPI, JsonSerializerSettings (Formatting = Formatting.Indented)))
  33     with
  34         ex ->
  35             Logger.Log.Error "Unable to save predefined PPI to file \"%s\": %O" predefinedPPIFilepath ex
  36
  37 let private saveSensorSizesToFile (sensorSizes : SensorSize list) =
  38     try
  39         Directory.CreateDirectory roamingDir |> ignore
  40         use file = new StreamWriter (sensorSizesFilepath)
  41         file.Write (JsonConvert.SerializeObject (sensorSizes, JsonSerializerSettings (Formatting = Formatting.Indented)))
  42     with
  43         ex ->
  44             Logger.Log.Error "Unable to save sensor sizes to file \"%s\": %O" sensorSizesFilepath ex
  45
  46 let predefinedPPI : PredefinedPPI list =
  47     try
  48         use file = new StreamReader (predefinedPPIFilepath)
  49         JsonConvert.DeserializeObject<PredefinedPPI list> (file.ReadToEnd ())
  50     with
  51     | _ex ->
  52         savePredefinedPPIToFile defaultPredefinedPPI
  53         defaultPredefinedPPI
  54
  55 let sensorSizes : SensorSize list =
  56     try
  57         use file = new StreamReader (sensorSizesFilepath)
  58         JsonConvert.DeserializeObject<SensorSize list> (file.ReadToEnd ())
  59     with
  60     | _ex ->
  61         saveSensorSizesToFile defaultSensorSizes
  62         defaultSensorSizes
  63
  64 let argsHelp =
  65     let programName = System.AppDomain.CurrentDomain.FriendlyName
  66     "Usage of Parasitemia:\n" +
  67     "Non-interactive mode:\n" +
  68     (sprintf "  %s (--folder <folder>|--file <file>) --output <folder> [--debug]\n" programName) +
  69     "    --folder <folder> : an input folder containing images to analyze\n" +
  70     "    --file <file> : an image file to be analyzed\n" +
  71     "    --output <folder> : a folder to put the results\n" +
  72     "    --debug : output more information like intermediate images (it takes more CPU and memory)\n" +
  73
  74     "Interactive mode:\n" +
  75     (sprintf "  %s [<document-file>] [--debug]\n" programName) +
  76     "    <document-file> : a PIAZ file to automatically open at startup\n" +
  77     "    --debug : output information like intermediate images in the current directory (it takes more CPU and memory)"