(euler) ( theta exemplar shuffle -- q )


Vocabulary
math.quaternions.private

Inputs
thetaan object
exemplaran object
shufflean object


Outputs
qan object


Definition
USING: kernel math math.libm sequences ;

IN: math.quaternions.private

: (euler) ( theta exemplar shuffle -- q )
swap
[ 0.5 * [ fcos ] [ fsin ] bi 0.0 0.0 ] [ call ]
[ 4sequence ] tri* ; inline