<bubble-chamber> ( -- bubble-chamber )

Vocabulary

bubble-chamber

Inputs

None

Outputs

bubble-chamber

an object

Definition

USING: accessors calendar kernel timers ui.gadgets ;

IN: bubble-chamber

: <bubble-chamber> ( -- bubble-chamber )
    bubble-chamber new { 1000 1000 } >>size
    randomize-collision-theta dup
    [ dup iterate-system relayout-1 ] curry
    f 10 milliseconds <timer> >>timer ;