check-vertex ( vertex -- )

Vocabulary

euler.b-rep

Inputs

vertex

an object

Outputs

None

Definition

USING: accessors game.models.half-edge kernel ;

IN: euler.b-rep

: check-vertex ( vertex -- )
    [ edge>> check-live-edge ]
    [ dup edge>> [ vertex>> assert= ] with each-vertex-edge ] bi
    ;