write-obj-vertex ( vertex -- )

Vocabulary

euler.b-rep.io.obj.private

Inputs

vertex

an object

Outputs

None

Definition

USING: accessors io math.parser sequences ;

IN: euler.b-rep.io.obj.private

: write-obj-vertex ( vertex -- )
    "v " write position>> 3 head-slice
    [ bl ] [ number>string write ] interleave nl ;