From ba547ffb984fc0cb29f8880c8af759474e2836bd Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 16 Dec 2008 00:38:34 -0600
Subject: [PATCH] bubble-chamber: Add quark-chamber
---
extra/bubble-chamber/bubble-chamber.factor | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/extra/bubble-chamber/bubble-chamber.factor b/extra/bubble-chamber/bubble-chamber.factor
index 7fe80ba138..76f9f6070e 100644
--- 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