edge-loop ( ..a edge quot: ( ..a edge -- ..b ) next-edge-quot: ( ..b edge -- ..a edge' ) -- ..a )

Vocabulary

game.models.half-edge

Inputs

edge	an object
quot	a quotation with stack effect ( ..a edge -- ..b )
next-edge-quot	a quotation with stack effect ( ..b edge -- ..a edge' )

Outputs

None

Definition

USING: kernel ;

IN: game.models.half-edge

: edge-loop
    ( ..a edge quot: ( ..a edge -- ..b ) next-edge-quot: ( ..b edge -- ..a edge' ) -- ..a )
    pick [ [ bi dup ] 2curry ] dip [ eq? not ] curry compose
    loop drop ; inline