Merge pull request #2 from OpenSmock/dev

Ajout methode conversion vers Geometry Point
OpenSmock · Feb 13, 2024 · d0eeeaa · d0eeeaa
2 parents 26c9e54 + ab60541
commit d0eeeaa
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/GeoTools-Tests/CoordinatesTests.class.st b/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 |

diff --git a/GeoTools/AbsoluteCoordinates.class.st b/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 [