extra/pos/pos.factor

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