projects
/
master-thesis.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add an about window.
[master-thesis.git]
/
Parasitemia
/
Parasitemia
/
UnitsOfMeasure.fs
1
module
UnitsOfMeasure
2
3
[<
Measure
>]
type
px
4
[<
Measure
>]
type
μm
5
[<
Measure
>]
type
inch
6
[<
Measure
>]
type
ppi
=
px
/
inch
7
8
let
μmInchRatio
=
25.4e3
<
μm
/
inch
>
9
10
let
μmToInch
(
x
:
float
<
μm
>) :
float
<
inch
> =
x
/
μmInchRatio
11
let
inchTo
μm
(
x
:
float
<
inch
>) :
float
<
μm
> =
x
*
μmInchRatio
12
13
14
15
16