! Copyright (C) 2007, 2008 Alex Chapman
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays kernel locals math math.constants math.functions math.matrices math.vectors random sequences ;
+USING: accessors arrays kernel math math.functions math.vectors
+random sequences ;
IN: jamshred.oint
! An oint is a point with three linearly independent unit vectors
[ location>> ] bi@ swap v- ;
: distance ( oint oint -- distance )
- distance-vector l2-norm ;
+ distance-vector norm ;
: scalar-projection ( v1 v2 -- n )
! the scalar projection of v1 onto v2
- [ vdot ] [ l2-norm ] bi / ;
+ [ vdot ] [ norm ] bi / ;
: proj-perp ( u v -- w )
dupd proj v- ;