2013-06-18 19:42:13 -04:00
|
|
|
! Copyright (C) 2010 Slava Pestov.
|
2018-02-04 00:00:21 -05:00
|
|
|
USING: arrays gml.runtime kernel math.matrices
|
|
|
|
|
math.matrices.extras math.trig math.vectors.simd.cords ;
|
2013-06-18 19:42:13 -04:00
|
|
|
IN: gml.geometry
|
|
|
|
|
|
|
|
|
|
GML: rot_vec ( v n alpha -- v )
|
|
|
|
|
! Inefficient!
|
2020-02-26 15:51:04 -05:00
|
|
|
deg>rad <rotation-matrix4> swap >array mdotv >double-4 ;
|