elevator-length ( slider -- n )

Vocabulary

ui.gadgets.sliders.private

Inputs

slider

an object

Outputs

n

an object

Definition

USING: accessors kernel math math.order math.vectors ;

IN: ui.gadgets.sliders.private

: elevator-length ( slider -- n )
    [ elevator>> dim>> ] [ orientation>> ] bi vdot
    elevator-padding 2 * [-] ;