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