write-obj ( b-rep -- )

Vocabulary

euler.b-rep.io.obj

Inputs

b-rep

an object

Outputs

None

Definition

USING: accessors euler.b-rep euler.b-rep.io.obj.private
sequences ;

IN: euler.b-rep.io.obj

:: write-obj ( b-rep -- )
    b-rep vertices>> :> vertices vertices >index-hash
    :> vx-indices vertices [ write-obj-vertex ] each
    b-rep faces>> [ vx-indices write-obj-face ] each ;