extra/gml/geometry/geometry.factor

   1 ! Copyright (C) 2010 Slava Pestov.
   2 USING: arrays gml.runtime kernel math.matrices
   3 math.matrices.extras math.trig math.vectors.simd.cords   ;
   4 IN: gml.geometry
   5
   6 GML: rot_vec ( v n alpha -- v )
   7     ! Inefficient!
   8     deg>rad <rotation-matrix4> swap >array mdotv >double-4 ;