extra/bubble-chamber/particle/muon/colors/colors.factor

   1
   2 USING: kernel sequences math math.constants math.order accessors
   3        processing
   4        colors ;
   5
   6 IN: bubble-chamber.particle.muon.colors
   7
   8 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   9
  10 : good-colors ( -- seq )
  11   {
  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 }
  35   } ;
  36
  37 : anti-colors ( -- seq ) good-colors <reversed> ;
  38
  39 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  40
  41 : color-fraction ( particle -- particle fraction ) dup theta>> pi + 2 pi * / ;
  42
  43 : set-good-color ( particle -- particle )
  44   color-fraction dup 0 1 between?
  45     [ good-colors at-fraction-of >>myc ]
  46     [ drop ]
  47   if ;
  48
  49 : set-anti-color ( particle -- particle )
  50   color-fraction dup 0 1 between?
  51     [ anti-colors at-fraction-of >>mya ]
  52     [ drop ]
  53   if ;