quantize ( lat lon -- lat' lon' )


Vocabulary
geohash.private

Inputs
latan object
lonan object


Outputs
lat'an object
lon'an object


Definition
USING: kernel math math.bitwise ;

IN: geohash.private

: quantize ( lat lon -- lat' lon' )
[ 90.0 + 180.0 / ] [ 180.0 + 360.0 / ] bi*
[ 32 2^ * >integer 32 bits ] bi@ ;