projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More homogeneous ellipse density.
[master-thesis.git]
/
Parasitemia
/
ParasitemiaCore
/
UnitsOfMeasure.fs
diff --git
a/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
b/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
index
637f49e
..
ec343ea
100644
(file)
--- a/
Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
+++ b/
Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
@@
-6,12
+6,12
@@
[<Measure>] type inch
[<Measure>] type ppi = px / inch // Pixel per inch.
[<Measure>] type inch
[<Measure>] type ppi = px / inch // Pixel per inch.
-let μm
InchRatio
= 25.4e3<μm/inch>
-let mm
InchRatio
= 25.4<mm/inch>
+let μm
PerInch
= 25.4e3<μm/inch>
+let mm
PerInch
= 25.4<mm/inch>
-let μmToInch(x: float<μm>) : float<inch> = x / μm
InchRatio
-let inchToμm(x: float<inch>) : float<μm> = x * μm
InchRatio
+let μmToInch(x: float<μm>) : float<inch> = x / μm
PerInch
+let inchToμm(x: float<inch>) : float<μm> = x * μm
PerInch
-let mmToInch(x: float<mm>) : float<inch> = x / mm
InchRatio
-let inchTomm(x: float<inch>) : float<mm> = x * mm
InchRatio
+let mmToInch(x: float<mm>) : float<inch> = x / mm
PerInch
+let inchTomm(x: float<inch>) : float<mm> = x * mm
PerInch