collide-random-particle ( bubble-chamber -- bubble-chamber )

Vocabulary

bubble-chamber

Inputs

bubble-chamber

an object

Outputs

bubble-chamber

an object

Definition

USING: accessors kernel random ;

IN: bubble-chamber

: collide-random-particle
    ( bubble-chamber -- bubble-chamber )
    dup particles>> random collide ;