BoundingBox: add constructors + tests

Author: LabordePierre

src/GeoTools-Tests/GeoToolsBoundingBoxTest.class.st

@@ -210,6 +210,14 @@ GeoToolsBoundingBoxTest >> testMinLongitudeInDegrees [
 	self assert: boundingBox minLongitudeInDegrees equals: -1.
 ]
 
+{ #category : #tests }
+GeoToolsBoundingBoxTest >> testOriginCorner [
+
+	| box |
+	box := GeoToolsBoundingBox origin: AbsoluteCoordinates zero corner: AbsoluteCoordinates frParis.
+	self assert: box centerAbsoluteCoordinates isValid.
+]
+
 { #category : #tests }
 GeoToolsBoundingBoxTest >> testRightLongitudeInDegrees [
 
@@ -244,6 +252,14 @@ GeoToolsBoundingBoxTest >> testTopLeftAbsoluteCoordinates [
 	self assert: boundingBox topLeftAbsoluteCoordinates isZero.
 ]
 
+{ #category : #tests }
+GeoToolsBoundingBoxTest >> testTopLeftBottomRight [
+
+	| box |
+	box := GeoToolsBoundingBox topLeft: AbsoluteCoordinates zero bottomRight: AbsoluteCoordinates frParis.
+	self assert: box centerAbsoluteCoordinates isValid.
+]
+
 { #category : #tests }
 GeoToolsBoundingBoxTest >> testTopRightAbsoluteCoordinates [
 

src/GeoTools/TGeoToolsBoundingBox.trait.st

@@ -9,6 +9,22 @@ Trait {
 	#category : #'GeoTools-Coordinates'
 }
 
+{ #category : #constructor }
+TGeoToolsBoundingBox classSide >> origin: aFromAbsolutePosition corner: aToAbsolutePostion [
+
+	^ self topLeft: aFromAbsolutePosition bottomRight: aToAbsolutePostion
+]
+
+{ #category : #constructor }
+TGeoToolsBoundingBox classSide >> topLeft: aFromAbsolutePosition bottomRight: aToAbsolutePostion [
+
+	| box |
+	box := self new.
+	box topLeftAbsoluteCoordinates: aFromAbsolutePosition.
+	box bottomRightAbsoluteCoordinates: aToAbsolutePostion.
+	^ box
+]
+
 { #category : #accessing }
 TGeoToolsBoundingBox >> bottomLatitudeInDegrees [