License: ISC
Usage example:
* (ql:quickload 'utm)
To load "utm":
Load 1 ASDF system:
utm
; Loading "utm"
(UTM)
* (utm:lat-lon-to-utm 39.264657358 -105.396267073)
465814.36361674307d0
4346221.50650324d0
13
* (utm:utm-to-lat-lon 465814.36361674307d0 4346221.50650324d0 13)
39.264654456410966d0
-105.39627074290249d0
* (utm:lat-lon-to-utm 39.264657358 -105.396267073 :ellipsoid "WGS72")
465814.3743203891d0
4346220.137838842d0
13
* (utm:utm-to-lat-lon 465814.3743203891d0 4346220.137838842d0 13 :ellipsoid "WGS72")
39.26465442463012d0
-105.39627074272353d0
* (utm:ellipsoid-names)
("NAD83" "WGS84" "GRS80" "WGS72" "Australian1965" "Krasovsky1940"
"International1924" "Hayford1909" "Clake1880" "Clarke1866" "Airy1830"
"Bessel1841" "Everest1830")
*