extra/bubble-chamber/common/common.factor

   1
   2 USING: kernel math accessors combinators.cleave vars ;
   3
   4 IN: bubble-chamber.common
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 VAR: collision-theta
   9
  10 : dim ( -- dim ) 1000 ;
  11
  12 : center ( -- point ) dim 2 / dup {2} ; foldable