move-divider ( divider -- )

Vocabulary

ui-demo

Inputs

divider

an object

Outputs

None

Definition

USING: accessors math math.functions math.order models
namespaces sequences ui.gadgets ui.gestures ;

IN: ui-demo

:: move-divider ( divider -- )
    divider split>> :> split hand-loc get-global first split
    screen-loc first - 4 - split dim>> first 8 - 1 max / 100 *
    round 10 90 clamp split model>> set-model ;