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


Vocabulary
ui.gadgets.sliders.private

Inputs
elevatoran object


Outputs
-1/1an object


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>> vdot ] [ screen>slider ]
[ slider-value - sgn ] tri ;