extra/pos/pos.factor

   1
   2 USING: kernel math math.vectors sequences self ;
   3
   4 IN: pos
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 TUPLE: pos val ;
   9
  10 C: <pos> pos
  11
  12 : pos> ( -- val ) self> pos-val ;
  13
  14 : >pos ( val -- ) self> set-pos-val ;
  15
  16 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  17
  18 : distance ( pos pos -- n ) pos-val swap pos-val v- [ sq ] map sum sqrt ;
  19
  20 : move-by ( point -- ) pos> v+ >pos ;
  21