(read-obj) ( -- vertices faces )

Vocabulary

euler.b-rep.io.obj

Inputs

None

Outputs

vertices	an object
faces	an object

Definition

USING: combinators euler.b-rep.io.obj.private io kernel
splitting ;

IN: euler.b-rep.io.obj

:: (read-obj) ( -- vertices faces )
    V{ } clone :> vertices V{ } clone :> faces [
        " " split1 swap {
            { "#" [ drop ] }
            { "v" [ vertices read-vertex ] }
            { "f" [ vertices faces read-face ] }
            [ 2drop ]
        } case
    ] each-line vertices faces ;