incremental-loc ( gadget incremental -- )

Vocabulary

ui.gadgets.incremental

Inputs

gadget	an object
incremental	an object

Outputs

None

Definition

USING: accessors kernel math.vectors ;

IN: ui.gadgets.incremental

: incremental-loc ( gadget incremental -- )
    [ cursor>> ] [ orientation>> ] bi v* >>loc drop ;