update-position ( body dt -- )

Vocabulary

benchmark.nbody

Inputs

body	an object
dt	an object

Outputs

None

Definition

USING: accessors kernel math.vectors ;

IN: benchmark.nbody

: update-position ( body dt -- )
    [ dup velocity>> ] dip [ v*n v+ ] 2curry change-location
    drop ;