Dim Polyline As B4XEncodeDecodePolyline
Polyline.Initialize
Dim TextCoded As String = "mfp_I__vpAb@EwCc~@[oCcIuXyR_f@mGmLpKiZ_DoDPi@kCuC"
Log("----------- Decode -----------")
Log(TextCoded)
Dim ListPoints As List = Polyline.Decode(TextCoded,5)
For Each Points As Coordinates In ListPoints
Log($"${Points.Latitude},${Points.Longitude}"$)
Next
TextCoded = Polyline.Encode(ListPoints, 5)
Log("----------- Encode -----------")
For Each Points As Coordinates In Polyline.Decode(TextCoded,5)
Log($"${Points.Latitude},${Points.Longitude}"$)
Next
Log(TextCoded)
Log("----------- GeoJSON -----------")
Log(Polyline.ToGeoJSON(TextCoded,5).As(JSON).ToCompactString)