You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

594 lines
19 KiB

<?php
namespace p3k\geo\StaticMap;
use p3k\geo\WebMercator, p3k\Geocoder;
use Imagick, ImagickPixel, ImagickDraw;
function generate($params, $filename, $assetPath, $is_authenticated=false) {
$bounds = array(
'minLat' => 90,
'maxLat' => -90,
'minLng' => 180,
'maxLng' => -180
);
// If any markers are specified, choose a default lat/lng as the center of all the markers
$markers = array();
if($markersTemp=k($params,'marker')) {
if(!is_array($markersTemp))
$markersTemp = array($markersTemp);
// If no latitude is set, use the center of all the markers
foreach($markersTemp as $i=>$m) {
if(preg_match_all('/(?P<k>[a-z]+):(?P<v>[^;]+)/', $m, $matches)) {
$properties = array();
foreach($matches['k'] as $j=>$key) {
$properties[$key] = $matches['v'][$j];
}
// Skip invalid marker definitions, show error in a header
if(array_key_exists('icon', $properties) && (
(array_key_exists('lat', $properties) && array_key_exists('lng', $properties))
|| array_key_exists('location', $properties)
)
) {
// Geocode the provided location and return lat/lng
if(array_key_exists('location', $properties)) {
$result = Geocoder::geocode($properties['location']);
if(!$result) {
#header('X-Marker-' . ($i+1) . ': error geocoding location "' . $properties['location'] . '"');
continue;
}
$properties['lat'] = $result->latitude;
$properties['lng'] = $result->longitude;
}
if(preg_match('/https?:\/\/(.+)/', $properties['icon'], $match)) {
$properties['iconImg'] = false;
// Only allow external referenced icons from authenticated requests
if($is_authenticated) {
// Looks like an external image, attempt to download it
$ch = curl_init($properties['icon']);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true);
$img = curl_exec($ch);
$properties['iconImg'] = @imagecreatefromstring($img);
}
} else {
$properties['iconImg'] = imagecreatefrompng($assetPath . '/' . $properties['icon'] . '.png');
}
if($properties['iconImg']) {
$markers[] = $properties;
}
if($properties['lat'] < $bounds['minLat'])
$bounds['minLat'] = $properties['lat'];
if($properties['lat'] > $bounds['maxLat'])
$bounds['maxLat'] = $properties['lat'];
if($properties['lng'] < $bounds['minLng'])
$bounds['minLng'] = $properties['lng'];
if($properties['lng'] > $bounds['maxLng'])
$bounds['maxLng'] = $properties['lng'];
} else {
#header('X-Marker-' . ($i+1) . ': missing icon, or lat/lng/location parameters');
}
}
}
}
$paths = array();
if($pathsTemp=k($params,'path')) {
if(!is_array($pathsTemp))
$pathsTemp = array($pathsTemp);
foreach($pathsTemp as $i=>$path) {
$properties = array();
if(preg_match_all('/(?P<k>[a-z]+):(?P<v>[^;]+)/', $path, $matches)) {
foreach($matches['k'] as $j=>$key) {
$properties[$key] = $matches['v'][$j];
}
}
// Set default color and weight if none specified
if(!array_key_exists('color', $properties))
$properties['color'] = '333333';
if(!array_key_exists('weight', $properties))
$properties['weight'] = 3;
// Now parse the points into an array
if(preg_match_all('/(?P<point>\[[0-9\.-]+,[0-9\.-]+\])/', $path, $matches)) {
$properties['path'] = json_decode('[' . implode(',', $matches['point']) . ']');
// Adjust the bounds to fit the path
foreach($properties['path'] as $point) {
if($point[1] < $bounds['minLat'])
$bounds['minLat'] = $point[1];
if($point[1] > $bounds['maxLat'])
$bounds['maxLat'] = $point[1];
if($point[0] < $bounds['minLng'])
$bounds['minLng'] = $point[0];
if($point[0] > $bounds['maxLng'])
$bounds['maxLng'] = $point[0];
}
}
if(array_key_exists('path', $properties))
$paths[] = $properties;
}
}
$defaultLatitude = $bounds['minLat'] + (($bounds['maxLat'] - $bounds['minLat']) / 2);
$defaultLongitude = $bounds['minLng'] + (($bounds['maxLng'] - $bounds['minLng']) / 2);
if(k($params,'latitude') !== false) {
$latitude = k($params,'latitude');
$longitude = k($params,'longitude');
} elseif(k($params,'location') !== false) {
$result = ArcGISGeocoder::geocode(k($params,'location'));
if(!$result->success) {
$latitude = $defaultLatitude;
$longitude = $defaultLongitude;
#header('X-Geocode: error');
#header('X-Geocode-Result: ' . $result->raw);
} else {
$latitude = $result->latitude;
$longitude = $result->longitude;
#header('X-Geocode: success');
#header('X-Geocode-Result: ' . $latitude . ', ' . $longitude);
}
} else {
$latitude = $defaultLatitude;
$longitude = $defaultLongitude;
}
$width = k($params, 'width', 300);
$height = k($params, 'height', 300);
// If no zoom is specified, choose a zoom level that will fit all the markers and the path
if(k($params,'zoom')) {
$zoom = k($params,'zoom');
} else {
// start at max zoom level (20)
$fitZoom = 21;
$doesNotFit = true;
while($fitZoom > 1 && $doesNotFit) {
$fitZoom--;
$center = webmercator\latLngToPixels($latitude, $longitude, $fitZoom);
$leftEdge = $center['x'] - $width/2;
$topEdge = $center['y'] - $height/2;
// check if the bounding rectangle fits within width/height
$sw = webmercator\latLngToPixels($bounds['minLat'], $bounds['minLng'], $fitZoom);
$ne = webmercator\latLngToPixels($bounds['maxLat'], $bounds['maxLng'], $fitZoom);
// leave some padding around the objects
$fitHeight = abs($ne['y'] - $sw['y']) + (0.1 * $height);
$fitWidth = abs($ne['x'] - $sw['x']) + (0.1 * $width);
if($fitHeight <= $height && $fitWidth <= $width) {
$doesNotFit = false;
}
}
$zoom = $fitZoom;
}
if(k($params,'maxzoom') && k($params,'maxzoom') < $zoom) {
$zoom = k($params,'maxzoom');
}
$minZoom = 2;
if($zoom < $minZoom)
$zoom = $minZoom;
$tileServices = array(
'streets' => array(
'https://services.arcgisonline.com/ArcGIS/rest/services/World_Street_Map/MapServer/tile/{Z}/{Y}/{X}'
),
'satellite' => array(
'https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/{Z}/{Y}/{X}'
),
'hybrid' => array(
'https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/{Z}/{Y}/{X}',
'https://server.arcgisonline.com/ArcGIS/rest/services/Reference/World_Boundaries_and_Places/MapServer/tile/{Z}/{Y}/{X}'
),
'topo' => array(
'http://server.arcgisonline.com/ArcGIS/rest/services/World_Topo_Map/MapServer/tile/{Z}/{Y}/{X}'
),
'gray' => array(
'https://server.arcgisonline.com/ArcGIS/rest/services/Canvas/World_Light_Gray_Base/MapServer/tile/{Z}/{Y}/{X}',
'https://server.arcgisonline.com/ArcGIS/rest/services/Canvas/World_Light_Gray_Reference/MapServer/tile/{Z}/{Y}/{X}'
),
'gray-background' => array(
'https://server.arcgisonline.com/ArcGIS/rest/services/Canvas/World_Light_Gray_Base/MapServer/tile/{Z}/{Y}/{X}',
),
'oceans' => array(
'https://server.arcgisonline.com/ArcGIS/rest/services/Ocean_Basemap/MapServer/tile/{Z}/{Y}/{X}'
),
'national-geographic' => array(
'https://server.arcgisonline.com/ArcGIS/rest/services/NatGeo_World_Map/MapServer/tile/{Z}/{Y}/{X}'
),
'osm' => array(
'https://tile.openstreetmap.org/{Z}/{X}/{Y}.png'
),
'stamen-toner' => array(
'http://tile.stamen.com/toner/{Z}/{X}/{Y}.png'
),
'stamen-toner-background' => array(
'http://tile.stamen.com/toner-background/{Z}/{X}/{Y}.png'
),
'stamen-toner-lite' => array(
'http://tile.stamen.com/toner-lite/{Z}/{X}/{Y}.png'
),
'stamen-terrain' => array(
'http://tile.stamen.com/terrain/{Z}/{X}/{Y}.png'
),
'stamen-terrain-background' => array(
'http://tile.stamen.com/terrain-background/{Z}/{X}/{Y}.png'
),
'stamen-watercolor' => array(
'http://tile.stamen.com/watercolor/{Z}/{X}/{Y}.png'
),
);
if(k($params,'basemap') && k($tileServices, k($params,'basemap'))) {
$tileURL = $tileServices[k($params,'basemap')][0];
if(array_key_exists(1, $tileServices[k($params,'basemap')]))
$overlayURL = $tileServices[k($params,'basemap')][1];
else
$overlayURL = 0;
} elseif(k($params, 'basemap') == 'custom' && $is_authenticated) {
$tileURL = $params['tileurl'];
$overlayURL = false;
} else {
$tileURL = $tileServices['gray'][0];
$overlayURL = false;
}
function urlForTile($x, $y, $z, $tileURL) {
return str_replace(array(
'{X}', '{Y}', '{Z}', '{x}', '{y}', '{z}'
), array(
$x, $y, $z, $x, $y, $z
), $tileURL);
}
$im = imagecreatetruecolor($width, $height);
// Find the pixel coordinate of the center of the map
$center = webmercator\latLngToPixels($latitude, $longitude, $zoom);
$leftEdge = $center['x'] - $width/2;
$topEdge = $center['y'] - $height/2;
$tilePos = webmercator\pixelsToTile($center['x'], $center['y']);
// print_r($tilePos);
// echo '<br />';
$pos = webmercator\positionInTile($center['x'], $center['y']);
// print_r($pos);
// echo '<br />';
// For the given number of pixels, determine how many tiles are needed in each direction
$neTile = webmercator\pixelsToTile($center['x'] + $width/2, $center['y'] + $height/2);
// print_r($neTile);
// echo '<br />';
$swTile = webmercator\pixelsToTile($center['x'] - $width/2, $center['y'] - $height/2);
// print_r($swTile);
// echo '<br />';
// Now download all the tiles
$tiles = array();
$overlays = array();
$chs = array();
$mh = curl_multi_init();
$numTiles = 0;
$urls = array();
for($x = $swTile['x']; $x <= $neTile['x']; $x++) {
$x = (int)$x;
if(!array_key_exists($x, $tiles)) {
$tiles[$x] = array();
$overlays[$x] = array();
$chs[$x] = array();
$ochs[$x] = array();
}
for($y = $swTile['y']; $y <= $neTile['y']; $y++) {
$y = (int)$y;
$url = urlForTile($x, $y, $zoom, $tileURL);
$urls[] = $url;
$tiles[$x][$y] = false;
$chs[$x][$y] = curl_init($url);
curl_setopt($chs[$x][$y], CURLOPT_RETURNTRANSFER, TRUE);
curl_setopt($chs[$x][$y], CURLOPT_FOLLOWLOCATION, true);
curl_multi_add_handle($mh, $chs[$x][$y]);
if($overlayURL) {
$url = urlForTile($x, $y, $zoom, $overlayURL);
$overlays[$x][$y] = false;
$ochs[$x][$y] = curl_init($url);
curl_setopt($ochs[$x][$y], CURLOPT_RETURNTRANSFER, TRUE);
curl_setopt($ochs[$x][$y], CURLOPT_FOLLOWLOCATION, TRUE);
curl_multi_add_handle($mh, $ochs[$x][$y]);
}
$numTiles++;
}
}
$running = null;
// Execute the handles. Blocks until all are finished.
do {
$mrc = curl_multi_exec($mh, $running);
} while($running > 0);
// In case any of the tiles fail, they will be grey instead of throwing an error
$blank = imagecreatetruecolor(256, 256);
$grey = imagecolorallocate($im, 224, 224, 224);
imagefill($blank, 0,0, $grey);
foreach($chs as $x=>$yTiles) {
foreach($yTiles as $y=>$ch) {
$content = curl_multi_getcontent($ch);
$tiles[$x][$y] = @imagecreatefromstring($content);
if(!$tiles[$x][$y])
$tiles[$x][$y] = $blank;
}
}
if($overlayURL) {
foreach($ochs as $x=>$yTiles) {
foreach($yTiles as $y=>$ch) {
$content = curl_multi_getcontent($ch);
$overlays[$x][$y] = @imagecreatefromstring($content);
if(!$overlays[$x][$y])
$overlays[$x][$y] = $blank;
}
}
}
// Assemble all the tiles into a new image positioned as appropriate
foreach($tiles as $x=>$yTiles) {
foreach($yTiles as $y=>$tile) {
$x = intval($x);
$y = intval($y);
$ox = (($x - $tilePos['x']) * TILE_SIZE) - $pos['x'] + ($width/2);
$oy = (($y - $tilePos['y']) * TILE_SIZE) - $pos['y'] + ($height/2);
imagecopy($im, $tile, $ox,$oy, 0,0, imagesx($tile),imagesy($tile));
}
}
if($overlayURL) {
foreach($overlays as $x=>$yTiles) {
foreach($yTiles as $y=>$tile) {
$x = intval($x);
$y = intval($y);
$ox = (($x - $tilePos['x']) * TILE_SIZE) - $pos['x'] + ($width/2);
$oy = (($y - $tilePos['y']) * TILE_SIZE) - $pos['y'] + ($height/2);
imagecopy($im, $tile, $ox,$oy, 0,0, imagesx($tile),imagesy($tile));
}
}
}
if(count($paths)) {
// Draw the path with ImageMagick because GD sucks as anti-aliased lines
$mg = new Imagick();
$mg->newImage($width, $height, new ImagickPixel('none'));
$draw = new ImagickDraw();
$colors = array();
foreach($paths as $path) {
$draw->setStrokeColor(new ImagickPixel('#'.$path['color']));
$draw->setStrokeWidth($path['weight']);
$draw->setFillOpacity(0);
$draw->setStrokeLineCap(Imagick::LINECAP_ROUND);
$draw->setStrokeLineJoin(Imagick::LINEJOIN_ROUND);
$previous = false;
foreach($path['path'] as $point) {
if($previous) {
$from = webmercator\latLngToPixels($previous[1], $previous[0], $zoom);
$to = webmercator\latLngToPixels($point[1], $point[0], $zoom);
if(k($params, 'bezier')) {
$x_dist = abs($from['x'] - $to['x']);
$y_dist = abs($from['y'] - $to['y']);
// If the X distance is longer than Y distance, draw from left to right
if($x_dist > $y_dist) {
// Draw from left to right
if($from['x'] > $to['x']) {
$tmpFrom = $from;
$tmpTo = $to;
$from = $tmpTo;
$to = $tmpFrom;
unset($tmp);
}
} else {
// Draw from top to bottom
if($from['y'] > $to['y']) {
$tmpFrom = $from;
$tmpTo = $to;
$from = $tmpTo;
$to = $tmpFrom;
unset($tmp);
}
}
$angle = 1 * k($params, 'bezier');
// Midpoint between the two ends
$M = [
'x' => ($from['x'] + $to['x']) / 2,
'y' => ($from['y'] + $to['y']) / 2
];
// Derived from http://math.stackexchange.com/a/383648 and http://www.wolframalpha.com/input/?i=triangle+%5B1,1%5D+%5B5,2%5D+%5B1-1%2Fsqrt(3),1%2B4%2Fsqrt(3)%5D
// See for details
$A = $from;
$B = $to;
$P = [
'x' => ($M['x']) - (($A['y']-$M['y']) * tan(deg2rad($angle))),
'y' => ($M['y']) + (($A['x']-$M['x']) * tan(deg2rad($angle)))
];
$draw->pathStart();
$draw->pathMoveToAbsolute($A['x']-$leftEdge,$A['y']-$topEdge);
$draw->pathCurveToQuadraticBezierAbsolute(
$P['x']-$leftEdge, $P['y']-$topEdge,
$B['x']-$leftEdge, $B['y']-$topEdge
);
$draw->pathFinish();
} else {
$draw->line($from['x']-$leftEdge,$from['y']-$topEdge, $to['x']-$leftEdge,$to['y']-$topEdge);
}
}
$previous = $point;
}
}
$mg->drawImage($draw);
$mg->setImageFormat("png");
$pathImg = imagecreatefromstring($mg);
imagecopy($im, $pathImg, 0,0, 0,0, $width,$height);
}
// Add markers
foreach($markers as $marker) {
// Icons that have 'dot' in the name do not have a shadow and center vertically and horizontally
$shadow = !preg_match('/dot/', $marker['icon']);
if($width < 120 || $height < 120) {
$shrinkFactor = 1.5;
} else {
$shrinkFactor = 1;
}
// Icons with a shadow are centered at the bottom middle pixel.
// Icons with no shadow are centered in the center pixel.
$px = webmercator\latLngToPixels($marker['lat'], $marker['lng'], $zoom);
$pos = array(
'x' => $px['x'] - $leftEdge,
'y' => $px['y'] - $topEdge
);
if($shrinkFactor > 1) {
$markerImg = imagecreatetruecolor(round(imagesx($marker['iconImg'])/$shrinkFactor), round(imagesy($marker['iconImg'])/$shrinkFactor));
imagealphablending($markerImg, true);
$color = imagecolorallocatealpha($markerImg, 0, 0, 0, 127);
imagefill($markerImg, 0,0, $color);
imagecopyresampled($markerImg, $marker['iconImg'], 0,0, 0,0, imagesx($markerImg),imagesy($markerImg), imagesx($marker['iconImg']),imagesy($marker['iconImg']));
} else {
$markerImg = $marker['iconImg'];
}
if($shadow) {
$iconPos = array(
'x' => $pos['x'] - round(imagesx($markerImg)/2),
'y' => $pos['y'] - imagesy($markerImg)
);
} else {
$iconPos = array(
'x' => $pos['x'] - round(imagesx($markerImg)/2),
'y' => $pos['y'] - round(imagesy($markerImg)/2)
);
}
imagecopy($im, $markerImg, $iconPos['x'],$iconPos['y'], 0,0, imagesx($markerImg),imagesy($markerImg));
}
if(k($params,'attribution') == 'mapbox') {
$logo = imagecreatefrompng($assetPath . '/mapbox-attribution.png');
imagecopy($im, $logo, $width-imagesx($logo), $height-imagesy($logo), 0,0, imagesx($logo),imagesy($logo));
} elseif(k($params,'attribution') == 'mapbox-small') {
$logo = imagecreatefrompng($assetPath . '/mapbox-attribution.png');
$shrinkFactor = 2;
imagecopyresampled($im, $logo, $width-round(imagesx($logo)/$shrinkFactor), $height-round(imagesy($logo)/$shrinkFactor), 0,0, round(imagesx($logo)/$shrinkFactor),round(imagesy($logo)/$shrinkFactor), imagesx($logo),imagesy($logo));
} elseif(k($params,'attribution') != 'none') {
$logo = imagecreatefrompng($assetPath . '/powered-by-esri.png');
// Shrink the logo if the image is small
if($width > 120) {
if($width < 220 || k($params, 'attribution') == 'small') {
$shrinkFactor = 2;
imagecopyresampled($im, $logo, $width-round(imagesx($logo)/$shrinkFactor)-4, $height-round(imagesy($logo)/$shrinkFactor)-4, 0,0, round(imagesx($logo)/$shrinkFactor),round(imagesy($logo)/$shrinkFactor), imagesx($logo),imagesy($logo));
} else {
imagecopy($im, $logo, $width-imagesx($logo)-4, $height-imagesy($logo)-4, 0,0, imagesx($logo),imagesy($logo));
}
}
}
#header('Cache-Control: max-age=' . (60*60*24*30) . ', public');
#header('X-Tiles-Downloaded: ' . $numTiles);
// TODO: add caching
$fmt = k($params,'format', 'png');
switch($fmt) {
case "jpg":
case "jpeg":
header('Content-type: image/jpg');
$quality = k($params, 'quality', 75);
imagejpeg($im, $filename, $quality);
break;
case "png":
default:
header('Content-type: image/png');
imagepng($im, $filename);
break;
}
imagedestroy($im);
/**
* http://msdn.microsoft.com/en-us/library/bb259689.aspx
* http://derickrethans.nl/php-mapping.html
*/
}
function k($a, $k, $default=false) {
if(is_array($a) && array_key_exists($k, $a) && $a[$k])
return $a[$k];
elseif(is_object($a) && property_exists($a, $k) && $a->$k)
return $a->$k;
else
return $default;
}