steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bubble-chamber: Add quark-chamber

db4
Eduardo Cavazos 2008-12-16 00:38:34 -06:00
parent 59cc36ba52
commit ba547ffb98
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/bubble-chamber/bubble-chamber.factor
View File

@ -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 ( -- ) : small ( -- )
<bubble-chamber> new-gadget <bubble-chamber> new-gadget
{ 200 200 } >>size { 200 200 } >>size