(write-shape) ( shape -- )

Vocabulary

shapefiles.private

Inputs

shape

an object

Outputs

None

Definition

IN: shapefiles.private

GENERIC: (write-shape) ( shape -- )

Methods

USING: accessors combinators sequences shapefiles
shapefiles.private ;

M: multipatch (write-shape)
    {
        [ box>> [ write-double ] each ]
        [ parts>> length write-int ]
        [ points>> length write-int ]
        [ parts>> [ write-int ] each ]
        [ part-types>> [ write-int ] each ]
        [ points>> [ write-point ] each ]
        [ write-z ]
        [ write-m ]
    } cleave ;


USING: generic kernel shapefiles shapefiles.private ;

M: multipoint-m (write-shape)
    [ M\ multipoint-m (write-shape) (call-next-method) ]
    [ write-m ] bi ;


USING: generic kernel shapefiles shapefiles.private ;

M: multipoint-z (write-shape)
    [ M\ multipoint-z (write-shape) (call-next-method) ]
    [ write-z ] [ write-m ] tri ;


USING: accessors combinators sequences shapefiles
shapefiles.private ;

M: multipoint (write-shape)
    {
        [ box>> [ write-double ] each ]
        [ points>> length write-int ]
        [ points>> [ write-point ] each ]
    } cleave ;


USING: kernel shapefiles shapefiles.private ;

M: null-shape (write-shape) drop ;


USING: accessors generic kernel shapefiles shapefiles.private ;

M: point-m (write-shape)
    [ M\ point-m (write-shape) (call-next-method) ]
    [ m>> write-double ] bi ;


USING: accessors generic kernel shapefiles shapefiles.private ;

M: point-z (write-shape)
    [ M\ point-z (write-shape) (call-next-method) ] [ z>> ]
    [ m>> ] tri [ write-double ] bi@ ;


USING: shapefiles shapefiles.private ;

M: point (write-shape) write-point ;


USING: shapefiles shapefiles.private ;

M: polygon-m (write-shape) write-poly-m ;


USING: shapefiles shapefiles.private ;

M: polygon-z (write-shape) write-poly-z ;


USING: shapefiles shapefiles.private ;

M: polygon (write-shape) write-poly ;


USING: shapefiles shapefiles.private ;

M: polyline-m (write-shape) write-poly-m ;


USING: shapefiles shapefiles.private ;

M: polyline-z (write-shape) write-poly-z ;


USING: shapefiles shapefiles.private ;

M: polyline (write-shape) write-poly ;