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 ;