gml-connectedvertices ( registers gml -- registers gml )

Vocabulary

gml.b-rep

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: alien.c-types euler.b-rep gml.runtime kernel
kernel.private ;

IN: gml.b-rep

: gml-connectedvertices ( registers gml -- registers gml )
    { gml } declare 2 1 [
        connecting-edge
        [ [ over push-operand ] when* ] [ >c-bool ] bi
    ] gml-primitive ;