verlet-integrate-particle ( particle dt -- particle' )

Vocabulary

fluids

Inputs

particle	an object
dt	an object

Outputs

particle'

an object

Definition

USING: accessors kernel math math.vectors ;

IN: fluids

:: verlet-integrate-particle ( particle dt -- particle' )
    particle [ p>> ] [ v>> ] bi dt v*n v+ gravity dt dt *
    particle m>> 2 * / v*n v+ :> p' p' particle p>> v- dt v/n
    :> v' p' v' particle m>> particle_t boa ; inline