original-big-bang ( -- )

Vocabulary

bubble-chamber

Inputs

None

Outputs

None

Definition

USING: accessors kernel math ui ;

IN: bubble-chamber

: original-big-bang ( -- )
    <bubble-chamber> { 1000 1000 } >>size
    dup "Bubble Chamber" open-window 1789
    [ <muon> add-particle ] times 1300
    [ <quark> add-particle ] times 1000
    [ <hadron> add-particle ] times 111
    [ <axion> add-particle ] times big-bang drop ;