each-vertex-edge ( ... edge quot: ( ... edge -- ... ) -- ... )

Vocabulary

game.models.half-edge

Inputs

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

Outputs

None

Definition

USING: accessors ;

IN: game.models.half-edge

: each-vertex-edge
    ( ... edge quot: ( ... edge -- ... ) -- ... )
    [ opposite-edge>> next-edge>> ] edge-loop ; inline