From 77c491e9d96889669152fba0437c4b9a612507f8 Mon Sep 17 00:00:00 2001 From: Pierre Laborde <49183340+labordep@users.noreply.github.com> Date: Sat, 29 Nov 2025 15:16:09 +0100 Subject: [PATCH] Obsolete class replacement --- src/GeoView/GeoViewProjectionUtils.class.st | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/GeoView/GeoViewProjectionUtils.class.st b/src/GeoView/GeoViewProjectionUtils.class.st index 3952043..37519fa 100644 --- a/src/GeoView/GeoViewProjectionUtils.class.st +++ b/src/GeoView/GeoViewProjectionUtils.class.st @@ -58,14 +58,13 @@ GeoViewProjectionUtils class >> projectedCartesianRadiusFromCenter: anAbsoluteCo | cartesianCoordinates1 tangentAbsolutePosition cartesianCoordinates2 cartesianRadius | - self flag:'labordep: check projection limits before calculating'. (aMapProjection isAbsoluteCoordinatesOutsideProjectionLimit: anAbsoluteCoordinates) ifTrue:[ ^ nil ]. cartesianCoordinates1 := aMapProjection projLatLonToCart: anAbsoluteCoordinates. - tangentAbsolutePosition := GeodesicApproximativeFormulas new + tangentAbsolutePosition := GeodesicHaversineFormulas new absoluteCoordinatesFrom: anAbsoluteCoordinates distanceInMeters: aDistanceInM azimuthInRadians: (anAzimuthInDegrees degreesToRadians).