# HSlippyMap: OpenStreetMap Slippy Map

[ bsd3, geography, library ] [ Propose Tags ]

Versions [RSS] [faq] 0.1.0.0, 1.0, 1.2, 1.4, 1.6, 1.8, 2.0, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 3.0, 3.0.1 (info) base (==4.6.*) [details] BSD-3-Clause Jean-Alexandre Peyroux m@j4.pe Development https://github.com/j4/HSlippyMap by j4pe at 2013-12-19T22:03:52Z LTSHaskell:3.0.1, NixOS:3.0.1, Stackage:3.0.1 10352 total (45 in the last 30 days) 2.0 (votes: 1) [estimated by Bayesian average] λ λ λ Docs available Successful builds reported

## Modules

[Index]

#### Maintainer's Corner

For package maintainers and hackage trustees

Candidates

[back to package description]

long2tilex lon z = floor((lon + 180.0) / 360.0 * (2.0 ** z))

lat2tiley lat z = floor((1.0 - log( tan(lat * pi/180.0) + 1.0 / cos(lat * pi/180.0)) / pi) / 2.0 * (2.0 ** z))

tilex2long x z = x / (2.0 ** z) * 360.0 - 180

tiley2lat y z = 180.0 / pi * atan(0.5 * (exp(n) - exp(-n)))
where
n = pi - 2.0 * pi * y / (2.0 ** z)

-- Exemple
main = do
--print $long2tilex 2.2712 17 --print$ lat2tiley 48.8152 17
--print $tilex2long 66362 17 --print$ tiley2lat 45115 17
putStrLn "gps: (lat=48.8152,long=2.2712)"
putStrLn \$ "http://tile.openstreetmap.org/17/" ++ show x ++ "/" ++ show y ++ ".png"
where
z = 17
x = long2tilex 2.2712 z
y = lat2tiley 48.8152 z