From ba547ffb984fc0cb29f8880c8af759474e2836bd Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 16 Dec 2008 00:38:34 -0600 Subject: [PATCH 1/2] 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:: update-frame-buffer ( BUBBLE-CHAMBER -- ) ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +: quark-chamber ( -- ) + bubble-chamber-window + 100 [ quark add-particle ] times + big-bang + drop ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + : small ( -- ) new-gadget { 200 200 } >>size From f01331312c353b5206dd2d086707bc4cbbb2ffea Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 16 Dec 2008 00:41:00 -0600 Subject: [PATCH 2/2] Add 'bubble-chamber.quark-chamber' runnable demo --- extra/bubble-chamber/quark-chamber/quark-chamber.factor | 8 ++++++++ extra/bubble-chamber/quark-chamber/tags.txt | 1 + 2 files changed, 9 insertions(+) create mode 100644 extra/bubble-chamber/quark-chamber/quark-chamber.factor create mode 100644 extra/bubble-chamber/quark-chamber/tags.txt diff --git a/extra/bubble-chamber/quark-chamber/quark-chamber.factor b/extra/bubble-chamber/quark-chamber/quark-chamber.factor new file mode 100644 index 0000000000..99aa97b351 --- /dev/null +++ b/extra/bubble-chamber/quark-chamber/quark-chamber.factor @@ -0,0 +1,8 @@ + +USING: ui bubble-chamber ; + +IN: bubble-chamber.quark-chamber + +: main ( -- ) [ quark-chamber ] with-ui ; + +MAIN: main \ No newline at end of file diff --git a/extra/bubble-chamber/quark-chamber/tags.txt b/extra/bubble-chamber/quark-chamber/tags.txt new file mode 100644 index 0000000000..cb5fc203e1 --- /dev/null +++ b/extra/bubble-chamber/quark-chamber/tags.txt @@ -0,0 +1 @@ +demos