     drop ;
 
 : large ( -- )
-    bubble-chamber new
+    <bubble-chamber>
     { 600 600 } >>size
-    randomize-collision-theta
-    dup start-bubble-chamber-thread
     dup "Bubble Chamber" open-window
 
     550 [ <muon>   add-particle ] times

USING: accessors arrays ascii calendar colors colors.gray
combinators.short-circuit frame-buffer kernel locals math
math.constants math.functions math.libm math.order math.points
math.ranges math.vectors namespaces opengl processing.shapes
quotations random sequences splitting threads ui ui.gadgets
ui.gadgets.borders ui.gadgets.buttons ui.gadgets.packs
ui.gestures ;

IN: bubble-chamber


: original-big-bang ( -- )
    <bubble-chamber>
    { 1000 1000 } >>size
    dup "Bubble Chamber" open-window

    1789 [ <muon>   add-particle ] times
