feat: add Grid.toLonLat function

2025-03-07 07:59:21 +01:00
parent bfbaa3aeff
commit 06a4aeabf1
1 changed files with 8 additions and 0 deletions
--- a/src/Grid.fs
+++ b/src/Grid.fs
@@ -214,6 +214,14 @@ let toWebMercator (coordsys: CoordinateSystem) (grid: Grid) =
    Log.Debug $"Reprojected grid: {s.ElapsedMilliseconds} ms"
    g

+let toLonLat (coordsys: CoordinateSystem) (grid: Grid) =
+    let toLonLat = makeTransform coordsys CoordSys.WGS84
+    let s = System.Diagnostics.Stopwatch.StartNew()
+    let g = grid |> projectGrid toLonLat.project
+    s.Stop()
+    Log.Debug $"Reprojected grid: {s.ElapsedMilliseconds} ms"
+    g
+
 let private chomp (l: string) = l.Split ' ' |> Array.filter ((<>) "")

 // TODO: pattern match and compare sizes for more flex