select-edge ( world -- )

Vocabulary

gml.viewer

Inputs

world

an object

Outputs

None

Definition

USING: accessors gpu.util.wasd kernel models namespaces
ui.gestures ;

IN: gml.viewer

: select-edge ( world -- )
    [ [ location>> ] [ hand-loc get wasd-pixel-ray ] bi ]
    [ b-rep>> intersecting-edge-node ] [
        [ [ selected>> push-model ] [ refresh-b-rep-view ] bi ]
        curry when*
    ] tri ;