unmaintained/geom/pos/pos.factor

   1
   2 USING: kernel arrays sequences math.vectors mortar slot-accessors ;
   3
   4 IN: geom.pos
   5
   6 SYMBOL: <pos>
   7
   8 <pos> { "pos" } accessors define-independent-class
   9
  10 <pos> {
  11
  12 "x" !( pos -- x ) [ $pos first ]
  13
  14 "y" !( pos -- y ) [ $pos second ]
  15
  16 "set-x" !( pos x -- pos ) [ 0 pick $pos set-nth ]
  17
  18 "set-y" !( pos y -- pos ) [ 1 pick $pos set-nth ]
  19
  20 "distance" !( pos pos -- distance ) [ $pos swap $pos v- norm ]
  21
  22 "move-by" !( pos offset -- pos ) [ over $pos v+ >>pos ]
  23
  24 "move-by-x" !( pos x-offset -- pos ) [ 0 2array <-- move-by ]
  25
  26 "move-by-y" !( pos y-offset -- pos ) [ 0 swap 2array <-- move-by ]
  27
  28 } add-methods