Subversion Repositories eFlore/Projets.eflore-projets

<?php

// declare(encoding='UTF-8');

/**

 * @api {get} /nasa-srtm/altitude?lat=:lat&lon=:lon Donne l'altitude.

 * @apiExample Exemple d'usage :

 * curl -i "http://api.tela-botanica.org/service:eflore:0.1/nasa-srtm/altitude?lon=3.86589&lat=44.73702"

 * @apiName GetNasaSrtm

 * @apiGroup nasa-srtm

 * @apiGroupDescription  Le web service nasa-srtm/altitude détermine l'altitude d'un point à partir de ses coordonnees.

 * Les coordonnees sont definies dans des fichiers au format HGT dans un dossier specifique

 * (dont le chemin est defini dans le fichier de configuration propre au web service).

 * Les ressources utilisees sont les donnees issues du programme SRTM-3 de la NASA qui couvre

 * l'ensemble terrestre du monde. La precision des points dont on renvoie l'altitude est de 90 metres.

 * Chaque fichier couvre un secteur de 1 degre sur 1 degre et contient un tableau de 1201 lignes

 * (axe des latitudes) sur 1201 colonnes (axe des longitudes) contenant l'altitude en metres

 * correspondant a des point precis. L'ecart entre chaque entree des tableaux est constant, ce qui

 * permet de calculer la latitude et la longitude de chaque point. L'altitude du point le plus proche

 * de celui passe en parametres sera renvoyee au client.

 *

 * @apiParam {Number} lat Latitude au format décimal (séparateur ".").

 * @apiParam {Number} lon Longitude au format décimal (séparateur ".").

 *

 * @apiSuccess {Number} altitude Altitude en mètre du point correspondant aux coordonées passées en paramètre.

 * @apiSuccess {Number} latitude Latitude au format décimal (séparateur ".").

 * @apiSuccess {Number} longitude Longitude au format décimal (séparateur ".").

 *

 * @category   eFlore

 * @package    Services

 * @subpackage Nasa-srtm

 * @version    0.1

 * @author     Mathias CHOUET <mathias@tela-botanica.org>

 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>

 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>

 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>

 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>

 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>

 */

class Altitude {

	private $parametres = array();

	private $ressources = array();

	private $coordonnees = null;

	private $fichierSrtm = '';

	const LONGUEUR_COTE = 1201;

	const OFFSET = 2;

	public function consulter($ressources, $parametres) {

		$this->ressources = $ressources;

		$this->parametres = $parametres;

		$retour = null;

		try {

			$this->traiterCoordonnees();

			$this->rechercherFichierSrtm();

			$this->recupererAltitude();

			$retour = $this->coordonnees;

		} catch (Exception $erreur) {

			$retour = $erreur->getMessage();

		}

		return $retour;

	}

	private function traiterCoordonnees() {

		if ($this->estParametreExistant('lat') && $this->estParametreExistant('lon')) {

			$longitude = $this->parametres['lon'];

			$latitude  = $this->parametres['lat'];

			if ($this->estUnFloat($longitude) && $this->estUnFloat($latitude)) {

				$this->verifierValiditeCoordonnees($longitude, $latitude);

			} else {

				$message = "La valeur des coordonnées longitude ou latitude n'est pas correcte. ".

				" Elle doit être pour les deux paramètres une valeur décimale.";

				throw new Exception($message, RestServeur::HTTP_CODE_MAUVAISE_REQUETE);

			}

		} else {

			$message = "Tous les paramètres passés dans l'URL ne correspondent pas à ceux attendus. ".

			"Le web service nécessite de lui fournir une longitude et une latitude pour son bon fonctionnement.";

			throw new Exception($message, RestServeur::HTTP_CODE_CONTENU_REQUIS);

		}

	}

	private function estParametreExistant($nomParametre) {

		return in_array($nomParametre, array_keys($this->parametres));

	}

	private function estUnFloat($variable) {

		return (preg_match("/^(-)?\d+(\.\d+)?$/", $variable) == 1);

	}

	private function verifierValiditeCoordonnees($longitude, $latitude) {

		$longitude = floatval($longitude);

		$latitude  = floatval($latitude);

		$longitudeMax = Config::get("limite_longitude");

		$latitudeMax  = Config::get("limite_latitude");

		if (abs($longitude) > $longitudeMax || abs($latitude) > $latitudeMax) {

			$message = "Les coordonnées passées en paramètres désignent un point qui se trouve ".

			"en dehors des limites du monde. Elles doivent être comprises entre -{$longitudeMax} ".

			"et $longitudeMax sur l'axe des longitudes, et entre -{$latitudeMax} et {$latitudeMax} ".

			"sur l'axe des latitudes.";

			throw new Exception($message, RestServeur::HTTP_CODE_MAUVAISE_REQUETE);

		} else {

			$this->coordonnees = new StdClass();

			$this->coordonnees->longitude = $longitude;

			$this->coordonnees->latitude  = $latitude;

		}

	}

	private function rechercherFichierSrtm() {

		$nomFichierSrtm = $this->construireNomFichierSrtm();

		if (!file_exists($nomFichierSrtm)) {

			$message = "Erreur interne : certaines ressources demandées n'ont pas pu être trouvées sur le serveur.";

			throw new Exception($message, restServeur::HTTP_CODE_ERREUR);

		} else {

			$this->fichierSrtm = $nomFichierSrtm;

		}

	}

	private function construireNomFichierSrtm() {

		$latitudeEntier = abs(floor($this->coordonnees->latitude));

		if ($latitudeEntier < 10) {

			$latitudeEntier = "0".$latitudeEntier;

		}

		$suffixeLatitude = $this->coordonnees->latitude < 0 ? "S" : "N";

		$longitudeEntier = abs(floor($this->coordonnees->longitude));

		if ($longitudeEntier < 10) {

			$longitudeEntier = "00".$longitudeEntier;

		} elseif ($longitudeEntier < 100) {

			$longitudeEntier = "0".$longitudeEntier;

		}

		$suffixeLongitude = $this->coordonnees->longitude < 0 ? "W" : "E";

		$dossierSrtm = Config::get('dossier_srtm').DS;

		$nomFichierSrtm = $dossierSrtm.$suffixeLatitude.$latitudeEntier.$suffixeLongitude.$longitudeEntier.".hgt.zip";

		return $nomFichierSrtm;

	}

	private function recupererAltitude() {

		$zip = zip_open($this->fichierSrtm);

		$fichier = zip_read($zip);

		$donnees = zip_entry_read($fichier, zip_entry_filesize($fichier));

		zip_close($zip);

		$xDepart = floor($this->coordonnees->longitude);

		$yDepart = floor($this->coordonnees->latitude);

		$longitude = $this->coordonnees->longitude;

		$latitude = $this->coordonnees->latitude;

		$positionX = (self::LONGUEUR_COTE-1) * ($longitude - $xDepart);

		$positionY = (self::LONGUEUR_COTE-1) * (1 - $latitude + $yDepart);

		$positionX = ($positionX + 0.5 > ceil($positionX)) ? ceil($positionX) : floor($positionX);

		$positionY = ($positionY + 0.5 > ceil($positionY)) ? ceil($positionY) : floor($positionY);

		$binaire = substr($donnees, ($positionY * self::LONGUEUR_COTE + $positionX) * self::OFFSET, self::OFFSET);

		$this->coordonnees->altitude = current(unpack("n*", $binaire));

		if (!$this->coordonnees->altitude) {

			$this->coordonnees->altitude = 0;

		}

	}

}

?>