reconstruct-b-rep ( vertex-positions faces-vertices -- b-rep )

Vocabulary

euler.b-rep.io.obj.private

Inputs

vertex-positions	an object
faces-vertices	an object

Outputs

b-rep

an object

Definition

USING: accessors euler.b-rep kernel sequences ;

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

:: reconstruct-b-rep
    ( vertex-positions faces-vertices -- b-rep )
    vertex-positions [ vertex new swap >>position ] { } map-as
    :> vertices V{ } clone :> edges faces-vertices
    [ vertices reconstruct-face edges push-all ] { } map-as
    :> faces b-rep new faces >>faces edges >>edges
    vertices >>vertices dup connect-opposite-edges ;