compute-direction ( elevator -- -1/1 )

Vocabulary
ui.gadgets.sliders.private

Definition

USING: accessors kernel math math.vectors ui.gadgets.sliders
ui.gestures ;

IN: ui.gadgets.sliders.private

: compute-direction ( elevator -- -1/1 )
    [ hand-click-rel ] [ find-slider ] bi
    [ orientation>> v. ] [ screen>slider ]
    [ slider-value - sgn ] tri ;