2 USING: kernel sequences math math.constants math.order accessors
6 IN: bubble-chamber.particle.muon.colors
8 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
10 : good-colors ( -- seq )
12 T{ rgba f 0.23 0.14 0.17 1 }
13 T{ rgba f 0.23 0.14 0.15 1 }
14 T{ rgba f 0.21 0.14 0.15 1 }
15 T{ rgba f 0.51 0.39 0.33 1 }
16 T{ rgba f 0.49 0.33 0.20 1 }
17 T{ rgba f 0.55 0.45 0.32 1 }
18 T{ rgba f 0.69 0.63 0.51 1 }
19 T{ rgba f 0.64 0.39 0.18 1 }
20 T{ rgba f 0.73 0.42 0.20 1 }
21 T{ rgba f 0.71 0.45 0.29 1 }
22 T{ rgba f 0.79 0.45 0.22 1 }
23 T{ rgba f 0.82 0.56 0.34 1 }
24 T{ rgba f 0.88 0.72 0.49 1 }
25 T{ rgba f 0.85 0.69 0.40 1 }
26 T{ rgba f 0.96 0.92 0.75 1 }
27 T{ rgba f 0.99 0.98 0.87 1 }
28 T{ rgba f 0.85 0.82 0.69 1 }
29 T{ rgba f 0.99 0.98 0.87 1 }
30 T{ rgba f 0.82 0.82 0.79 1 }
31 T{ rgba f 0.65 0.69 0.67 1 }
32 T{ rgba f 0.53 0.60 0.55 1 }
33 T{ rgba f 0.57 0.53 0.68 1 }
34 T{ rgba f 0.47 0.42 0.56 1 }
37 : anti-colors ( -- seq ) good-colors <reversed> ;
39 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
41 : color-fraction ( particle -- particle fraction ) dup theta>> pi + 2 pi * / ;
43 : set-good-color ( particle -- particle )
44 color-fraction dup 0 1 between?
45 [ good-colors at-fraction-of >>myc ]
49 : set-anti-color ( particle -- particle )
50 color-fraction dup 0 1 between?
51 [ anti-colors at-fraction-of >>mya ]