bubble-chamber: Add quark-chamber

2008-12-16 00:38:34 -06:00 · 2008-12-16 00:38:34 -06:00 · ba547ffb98
parent 59cc36ba52
commit ba547ffb98
1 changed files with 8 additions and 0 deletions
--- a/extra/bubble-chamber/bubble-chamber.factor
+++ b/extra/bubble-chamber/bubble-chamber.factor
@ -550,6 +550,14 @@ M:: <bubble-chamber> update-frame-buffer ( BUBBLE-CHAMBER -- )

 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

+: quark-chamber ( -- )
+  bubble-chamber-window
+  100 [ quark add-particle ] times
+  big-bang
+  drop ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
 : small ( -- )
  <bubble-chamber> new-gadget
    { 200 200 } >>size