quantize ( lat lon -- lat' lon' )

Vocabulary

geohash.private

Inputs

lat	an object
lon	an 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@ ;