mouse-pressed ( BUBBLE-CHAMBER -- )

Vocabulary

bubble-chamber

Inputs

BUBBLE-CHAMBER

an object

Outputs

None

Definition

USING: accessors kernel math random sequences ;

IN: bubble-chamber

:: mouse-pressed ( BUBBLE-CHAMBER -- )
    BUBBLE-CHAMBER mouse->collision-theta drop 11 [
        BUBBLE-CHAMBER particles>> [ hadron? ] filter random
        [ collide ] when* BUBBLE-CHAMBER particles>>
        [ quark? ] filter random [ collide ] when*
        BUBBLE-CHAMBER particles>> [ muon? ] filter random
        [ collide ] when*
    ] times ;