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

bubble-chamber: remove unused paused.

factor-shell
John Benediktsson 2018-01-22 12:27:52 -08:00
parent c881f42bb7
commit 00d8c2a6ed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -313,13 +313,13 @@ M:: quark move ( QUARK -- )
dup out-of-bounds? [ collide ] [ drop ] if ; dup out-of-bounds? [ collide ] [ drop ] if ;
TUPLE: bubble-chamber < frame-buffer TUPLE: bubble-chamber < frame-buffer
paused particles collision-theta size timer ; particles collision-theta size timer ;
M: bubble-chamber graft* M: bubble-chamber graft*
[ timer>> start-timer yield ] [ call-next-method ] bi ; [ timer>> start-timer yield ] [ call-next-method ] bi ;
M: bubble-chamber ungraft* M: bubble-chamber ungraft*
[ timer>> stop-timer ] [ t >>paused call-next-method ] bi ; [ timer>> stop-timer ] [ call-next-method ] bi ;
! : randomize-collision-theta ( bubble-chamber -- bubble-chamber ) ! : randomize-collision-theta ( bubble-chamber -- bubble-chamber )
! 0 2 pi * 0.001 <range> random >>collision-theta ; ! 0 2 pi * 0.001 <range> random >>collision-theta ;