record-motion ( position -- )

Vocabulary

ui.backend.input-state

Inputs

position

an object

Outputs

None

Definition

USING: accessors kernel math.vectors namespaces ;

IN: ui.backend.input-state

:: record-motion ( position -- )
    current-input-state get-global :> state state position>>
    [ position swap v- ] [ { 0 0 } ] if*
    :> delta state position >>position
    [ delta v+ ] change-motion drop ;