     T{ rgba f 0.47 0.42 0.56 1 }
   } ;
 
-: good-color ( i -- color ) good-colors nth-of ;
+: anti-colors ( -- seq ) good-colors <reversed> ; 
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 


METHOD: collide { hadron }

  dim 2 / dup 2array >>pos
  2 pi *  1random    >>theta
  0.5 3.5 2random    >>speed

  0.996 1.001 2random >>speed-d
  0                   >>theta-d
  0                   >>theta-dd

  [ dup theta-dd>> abs 0.00001 < ]
    [ -0.001 0.001 2random >>theta-dd ]
    [ ]
  while

  0 1 0 <rgb> >>myc



  [ ] [ vel>> ] bi move-by

  turn

  step-theta
  step-theta-d
  step-speed-mul

  1000 random 997 >
    [
      dup speed>> neg    >>speed
      2 over speed-d>> - >>speed-d
    ]
  when

  out-of-bounds? [ collide ] [ drop ] if ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

