module ParasitemiaUI.Types
-open System
open System.Windows
-open System.Windows.Media
-
-open Emgu.CV
-open Emgu.CV.Structure
open Newtonsoft.Json
ppi : int<ppi>
label : string
}
- with
- override this.ToString () =
- sprintf "%s: %d" this.label this.ppi
+ override this.ToString () =
+ sprintf "%s: %d" this.label this.ppi
type SensorSize =
{
h : float<mm>
label : string
}
- with
- override this.ToString () =
- sprintf "%g mm × %g mm%s" this.w this.h (if this.label = "" then "" else " (" + this.label + ")")
+ override this.ToString () =
+ sprintf "%g mm × %g mm%s" this.w this.h (if this.label = "" then "" else " (" + this.label + ")")
let defaultPredefinedPPI =
[
{ w = 8.8<mm>; h = 6.6<mm>; label = "2/3″" }
{ w = 13.2<mm>; h = 8.8<mm>; label = "1″" }
]
-
-