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


Vocabulary
gml.viewer

Inputs
ean object
vertex-indicesan object
selectedan object


Outputs
nan 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* ;