Merge pull request #2 from OpenSmock/dev

Ajout methode conversion vers Geometry Point

Author: labordep

GeoTools-Tests/CoordinatesTests.class.st

@@ -38,6 +38,14 @@ CoordinatesTests >> testAbsoluteCoordinates [
 	self assert: coord altitude equals: (100 units: #meters).
 ]
 
+{ #category : #tests }
+CoordinatesTests >> testAbsoluteCoordinatesAsGeometryPoint [
+	| coord |
+	
+	coord := AbsoluteCoordinates frBrest.
+	self assert: coord asGeometryPoint equals: (GPoint x: -4.48333 y: 48.3897).
+]
+
 { #category : #tests }
 CoordinatesTests >> testAbsoluteCoordinatesAsPoint [
 	| coord |

GeoTools/AbsoluteCoordinates.class.st

@@ -199,6 +199,16 @@ AbsoluteCoordinates >> altitudeInMeters: aNumber [
 	altitudeInMeters := aNumber
 ]
 
+{ #category : #converting }
+AbsoluteCoordinates >> asGeometryPoint [
+
+	| coord |
+	coord := G2DCoordinates new.
+	coord x: self longitudeInDegrees.
+	coord y: self latitudeInDegrees.
+	^GPoint coordinates: coord.
+]
+
 { #category : #converting }
 AbsoluteCoordinates >> asLatLonDegreesPoint [