step-speed-mul ( p -- p )


Vocabulary
bubble-chamber

Inputs
pan object


Outputs
pan object


Definition
USING: accessors kernel math ;

IN: bubble-chamber

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