small ( -- )

Vocabulary

bubble-chamber

Inputs

None

Outputs

None

Definition

USING: accessors kernel math ui ;

IN: bubble-chamber

: small ( -- )
    <bubble-chamber> { 200 200 } >>size
    dup "Bubble Chamber" open-window 42
    [ <muon> add-particle ] times 30
    [ <quark> add-particle ] times 21
    [ <hadron> add-particle ] times 7
    [ <axion> add-particle ] times collide-one-of-each drop ;