Commit 15199669 authored by Dag Brattli's avatar Dag Brattli

Add some comments to these strange looking code

parent 51b35752
......@@ -185,13 +185,13 @@ module Common =
let parseLongitude =
Core.parseBits 28
|>> fun x -> (String.replicate 5 x.[..0]) + x.[1..]
|>> fun x -> (String.replicate 5 x.[..0]) + x.[1..] // Expand to signed 32 bits
|>> fun x -> Convert.ToInt32(x, 2)
|>> fun x -> float(x) / 600000.0
let parseLatitude =
Core.parseBits 27
|>> fun x -> (String.replicate 6 x.[..0]) + x.[1..]
|>> fun x -> (String.replicate 6 x.[..0]) + x.[1..] // Expand to signed 32 bits
|>> fun x -> Convert.ToInt32(x, 2)
|>> fun x -> float(x) / 600000.0
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment