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

bubble-chamber: use color objects

db4
Eduardo Cavazos 2008-07-28 14:49:54 -05:00
parent 1324f6e096
commit 4c9c8ede6f
3 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/bubble-chamber/particle/hadron/hadron.factor
View File

@ -1,9 +1,8 @@
USING: kernel random math math.constants math.points accessors multi-methods
processing processing.shapes
processing.color
bubble-chamber.common
bubble-chamber.particle ;
bubble-chamber.particle colors ;
IN: bubble-chamber.particle.hadron
@ -26,7 +25,7 @@ METHOD: collide { hadron }
[ 0.00001 theta-dd-small? ] [ -0.001 0.001 random-theta-dd ] [ ] while
0 1 0 <rgb> >>myc
0 1 0 1 rgba boa >>myc
drop ;

2
extra/bubble-chamber/particle/muon/colors/colors.factor
View File

@ -1,7 +1,7 @@
USING: kernel sequences math math.constants math.order accessors
processing
processing.color ;
colors ;
IN: bubble-chamber.particle.muon.colors

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

@ -1,8 +1,8 @@
USING: kernel sequences combinators
math math.vectors math.functions multi-methods
accessors combinators.cleave processing processing.color
bubble-chamber.common ;
accessors combinators.cleave processing
bubble-chamber.common colors ;
IN: bubble-chamber.particle
@ -28,8 +28,8 @@ TUPLE: particle pos vel speed speed-d theta theta-d theta-dd myc mya ;
0 >>theta-d
0 >>theta-dd
0 0 0 1 <rgba> >>myc
0 0 0 1 <rgba> >>mya ;
0 0 0 1 rgba boa >>myc
0 0 0 1 rgba boa >>mya ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!