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 toRomanNumber (v : int) : string =
  65     let rec decompose (v : int) : string =
  66         if v >= 1000 then
  67            "M" + decompose (v - 1000)
  68         elif v >= 900 then
  69            "CM" + decompose (v - 900)
  70         elif v >= 500 then
  71             "D" + decompose (v - 500)
  72         elif v >= 400 then
  73             "CD" + decompose (v - 400)
  74         elif v >= 100 then
  75             "C" + decompose (v - 100)
  76         elif v >= 90 then
  77             "XC" + decompose (v - 90)
  78         elif v >= 50 then
  79             "L" + decompose (v - 50)
  80         elif v >= 40 then
  81             "XL" + decompose (v - 40)
  82         elif v >= 10 then
  83             "X" + decompose (v - 10)
  84         elif v >= 9 then
  85             "IX" + decompose (v - 9)
  86         elif v >= 5 then
  87             "V" + decompose (v - 5)
  88         elif v >= 4 then
  89             "IV" + decompose (v - 4)
  90         elif v >= 1 then
  91             "I" + decompose (v - 1)
  92         else
  93             ""
  94     decompose v
  95
  96 let argsHelp =
  97     let programName = System.AppDomain.CurrentDomain.FriendlyName
  98     "Usage of Parasitemia:\n" +
  99     "Non-interactive mode:\n" +
 100     (sprintf "  %s (--folder <folder>|--file <file>) --output <folder> [--debug]\n" programName) +
 101     "    --folder <folder> : an input folder containing images to analyze\n" +
 102     "    --file <file> : an image file to be analyzed\n" +
 103     "    --output <folder> : a folder to put the results\n" +
 104     "    --debug : output more information like intermediate images (it takes more CPU and memory)\n" +
 105
 106     "Interactive mode:\n" +
 107     (sprintf "  %s [<document-file>] [--debug]\n" programName) +
 108     "    <document-file> : a PIAZ file to automatically open at startup\n" +
 109     "    --debug : output information like intermediate images in the current directory (it takes more CPU and memory)"