step-speed-sub ( p -- p )

Vocabulary

bubble-chamber

Inputs

p

an object

Outputs

p

an object

Definition

USING: accessors kernel math ;

IN: bubble-chamber

: step-speed-sub ( p -- p )
    [ ] [ speed>> ] [ speed-d>> ] tri - >>speed ;