edge-vertex-index ( e vertex-indices selected -- n selected? )

Vocabulary

gml.viewer

Inputs

e	an object
vertex-indices	an object
selected	an object

Outputs

n	an object
selected?	an object

Definition

USING: accessors assocs kernel math sets ;

IN: gml.viewer

: edge-vertex-index
    ( e vertex-indices selected -- n selected? )
    [ dup vertex>> ] [ at 2 * ]
    [ swapd in? [ [ 1 + ] when ] keep ] tri* ;