turn ( particle -- particle )

Vocabulary

bubble-chamber

Inputs

particle

an object

Outputs

particle

an object

Definition

USING: accessors arrays kernel math.functions math.vectors ;

IN: bubble-chamber

: turn ( particle -- particle )
    dup [ speed>> ] [ theta>> [ sin ] [ cos ] bi 2array ] bi n*v
    >>vel ;