add-particle ( BUBBLE-CHAMBER PARTICLE -- bubble-chamber )

Vocabulary

bubble-chamber

Inputs

BUBBLE-CHAMBER	an object
PARTICLE	an object

Outputs

bubble-chamber

an object

Definition

USING: accessors kernel sequences ;

IN: bubble-chamber

:: add-particle
    ( BUBBLE-CHAMBER PARTICLE -- bubble-chamber )
    PARTICLE BUBBLE-CHAMBER >>bubble-chamber drop BUBBLE-CHAMBER
    [ PARTICLE suffix ] change-particles ;