LOC. ( name -- )

Vocabulary

dns

Inputs

name

an object

Outputs

None

Definition

USING: accessors combinators formatting kernel math sequences ;

IN: dns

: LOC. ( name -- )
    dns-LOC-query answer-section>> [
        rdata>> {
            [
                lat>>
                [ abs 1 /mod 60 * 1 /mod 60 * ]
                [ neg? "S" "N" ? ] bi
            ]
            [
                lon>>
                [ abs 1 /mod 60 * 1 /mod 60 * ]
                [ neg? "W" "E" ? ] bi
            ]
            [ alt>> 100 / ]
            [ size>> 100 /i ]
            [ horizontal>> 100 /i ]
            [ vertical>> 100 /i ]
        } cleave
        "%d %d %.3f %s %d %d %.3f %s %.2fm %dm %dm %dm\n" printf
    ] each ;