Spent quite some time testing, and as usual, the solution is fairly simple once you know how Leaflet wants to work.
The solution is to specify a custom CRS with a custom transform function. This s where you can specify what each map unit/pixel represents, and this is what is used by Leaflet internally for all distance calculations and - well - transforms :) .
Leaflet does neither support changing CRS (Coordinate Reference System) of a map after its been initialized, nor does it support different CRS per layer. This means you have to specify this custom CRS before you initialize the map. Or you have to reinitialize the map when you want to load a different layer: If you need to do that, know that you can use "map.remove()" to properly remove an already initialized map (this function is not documented, so I had to search a bit).
Look at this fiddle for how I fixed the problem fiddle posted in the question:
https://jsfiddle.net/pdqavdup/2/
var factorx = 0.125
var factory = 0.125
L.CRS.pr = L.extend({}, L.CRS.Simple, {
projection: L.Projection.LonLat,
transformation: new L.Transformation(factorx, 0, -factory, 0),
// Changing the transformation is the key part, everything else is the same.
// By specifying a factor, you specify what distance in meters one pixel occupies (as it still is CRS.Simple in all other regards).
// In this case, I have a tile layer with 256px pieces, so Leaflet thinks it's only 256 meters wide.
// I know the map is supposed to be 2048x2048 meters, so I specify a factor of 0.125 to multiply in both directions.
// In the actual project, I compute all that from the gdal2tiles tilemapresources.xml,
// which gives the necessary information about tilesizes, total bounds and units-per-pixel at different levels.
// Scale, zoom and distance are entirely unchanged from CRS.Simple
scale: function(zoom) {
return Math.pow(2, zoom);
},
zoom: function(scale) {
return Math.log(scale) / Math.LN2;
},
distance: function(latlng1, latlng2) {
var dx = latlng2.lng - latlng1.lng,
dy = latlng2.lat - latlng1.lat;
return Math.sqrt(dx * dx + dy * dy);
},
infinite: true
});
var MAP = L.map('map', {
crs: L.CRS.pr
}).setView([0, 0], 2);
var mapheight = 2048;
var mapwidth = 2048;
var sw = MAP.unproject([0, mapheight], 4); // Level 4, because this is the level where meters-per-pixel is exactly 1
var ne = MAP.unproject([mapwidth, 0], 4);
var layerbounds = new L.LatLngBounds(sw, ne);
var mapname = "beirut"
var mapimage = L.tileLayer('http://tournament.realitymod.com/mapviewer/tiles/' + mapname + '/{z}/{x}/{y}.jpg', {
minZoom: 0,
maxZoom: 5,
bounds: layerbounds,
noWrap: true,
attribution: '<a href="http://tournament.realitymod.com/showthread.php?t=34254">Project Reality Tournament</a>'
})
mapimage.addTo(MAP);
L.control.scale({
imperial: false
}).addTo(MAP);
Maybe i didn't understand your question, but it is working with the code from yesterday. You just have to change the link to the new wmts and remove options = tileOptions(tms=TRUE)
.
So the entire code would look something like this:
library(leaflet)
resolutions <- c(3440.640, 1720.320, 860.160, 430.080, 215.040, 107.520, 53.760, 26.880, 13.440, 6.720, 3.360, 1.680, 0.840, 0.420)
epsg28992 <- leafletCRS(crsClass = 'L.Proj.CRS.TMS', code = 'EPSG:28992',
proj4def = '+proj=sterea +lat_0=52.15616055555555 +lon_0=5.38763888888889 +k=0.9999079 +x_0=155000 +y_0=463000 +ellps=bessel +towgs84=565.417,50.3319,465.552,-0.398957,0.343988,-1.8774,4.0725 +units=m +no_defs',
resolutions = resolutions,
projectedBounds = c(-285401.92, 22598.08, 595401.9199999999, 903401.9199999999))
leaflet(options = leafletOptions(
crs = epsg28992,
minZoom = 0, maxZoom = 14)) %>%
setView(5.092098, 52.093992, zoom = 4) %>%
addTiles('http://geodata.nationaalgeoregister.nl/wmts/?SERVICE=WMTS&REQUEST=GetTile&VERSION=1.0.0&LAYER=opentopoachtergrondkaart&TILEMATRIXSET=EPSG:28992&TILEMATRIX=EPSG:28992:{z}&TILEROW={y}&TILECOL={x}&FORMAT=image/png')
Best Answer
I found the solution