intersecting-edge-node ( source direction b-rep -- edge/f )


Vocabulary
gml.viewer

Inputs
sourcean object
directionan object
b-repan object


Outputs
edge/fan object


Definition
USING: accessors kernel sequences ;

IN: gml.viewer

: intersecting-edge-node
( source direction b-rep -- edge/f )
edges>> [ intersects-edge-node? ] 2with find nip ;