;;;; geo-constants.scm  -*- Scheme -*-
;;;; Kon Lovett, Jul '18

;1.0/298.257223563 (WGS '84)
(define-constant EARTH-FLATTENING (inexact->exact 0.00335281066474748))

(define-constant EARTH-RADIUS-MILES       (inexact->exact 3963.188))
(define-constant EARTH-RADIUS-KILOMETERS  (inexact->exact 6378.137))