medium ( -- )

Vocabulary

bubble-chamber

Inputs

None

Outputs

None

Definition

USING: accessors kernel math ui ;

IN: bubble-chamber

: medium ( -- )
    <bubble-chamber> { 400 400 } >>size
    dup "Bubble Chamber" open-window 100
    [ <muon> add-particle ] times 81
    [ <quark> add-particle ] times 60
    [ <hadron> add-particle ] times 9
    [ <axion> add-particle ] times collide-one-of-each drop ;