Test TileMill server with ile de france bbox. time ./hsl | xargs wget -nv -O NULL --output-file tilemill.log

touch tile

#!/usr/local/bin/runhaskell

import HSlippyMap

listLevel mi ma z = 
  mapM_ (\(x,y) -> mapM (\y'-> 
      print $ "http://127.0.0.1:20008/tile/openstreetmap-carto/" ++ show z ++ "/" ++ show x ++ "/" ++ show y' ++ ".png") y) 
      [(x,[(minimum [tymin, tymax])..(maximum [tymin,tymax])]) | x <- [(minimum [txmin, txmax])..(maximum [txmin, txmax])]]
  where
    min = tileFromLatLong (fst mi) (snd mi) z
    max = tileFromLatLong (fst ma) (snd ma) z
    txmin = tx min
    txmax = tx max
    tymax = ty min
    tymin = ty max
      
main :: IO()
main = mapM_ (listLevel (49.36, 3.71) (48.23,0.93)) [0..19]

time ./hsl | xargs wget -nv -O NULL --output-file tilemill.log