1
module ParasitemiaUI.Types
7 open ParasitemiaCore.UnitsOfMeasure
14 mutable infected : bool
17 mutable setManually : bool
29 override this.ToString () =
30 sprintf
"%s: %d" this.label
this.ppi
38 override this.ToString () =
39 sprintf
"%g mm × %g mm%s" this.w
this.h
(if this.label
= "" then "" else " (" + this.label
+ ")")
41 let defaultPredefinedPPI =
43 { ppi
= 230000<ppi
>; label
= "50×" }
44 { ppi
= 460000<ppi
>; label
= "100×" }
47 let defaultSensorSizes =
49 { w
= 3.2<mm
>; h
= 2.4<mm
>; label
= "1/4″" }
50 { w
= 4.8<mm
>; h
= 3.6<mm
>; label
= "1/3″" }
51 { w
= 5.76<mm
>; h
= 4.29<mm
>; label
= "1/2.5″" }
52 { w
= 6.4<mm
>; h
= 4.8<mm
>; label
= "1/2″" }
53 { w
= 7.18<mm
>; h
= 5.32<mm
>; label
= "1/1.8″" }
54 { w
= 7.6<mm
>; h
= 5.7<mm
>; label
= "1/1.7″" }
55 { w
= 8.8<mm
>; h
= 6.6<mm
>; label
= "2/3″" }
56 { w
= 13.2<mm
>; h
= 8.8<mm
>; label
= "1″" }