large ( -- )

Vocabulary

bubble-chamber

Inputs

None

Outputs

None

Definition

USING: accessors kernel math ui ;

IN: bubble-chamber

: large ( -- )
    <bubble-chamber> { 600 600 } >>size
    dup "Bubble Chamber" open-window 550
    [ <muon> add-particle ] times 339
    [ <quark> add-particle ] times 100
    [ <hadron> add-particle ] times 11
    [ <axion> add-particle ] times collide-one-of-each drop ;