+#endif
+}
+
+void Matrix4x4_ToArrayDoubleGL(const matrix4x4_t *in, double out[16])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out[ 0] = in->m[0][0];
+ out[ 1] = in->m[0][1];
+ out[ 2] = in->m[0][2];
+ out[ 3] = in->m[0][3];
+ out[ 4] = in->m[1][0];
+ out[ 5] = in->m[1][1];
+ out[ 6] = in->m[1][2];
+ out[ 7] = in->m[1][3];
+ out[ 8] = in->m[2][0];
+ out[ 9] = in->m[2][1];
+ out[10] = in->m[2][2];
+ out[11] = in->m[2][3];
+ out[12] = in->m[3][0];
+ out[13] = in->m[3][1];
+ out[14] = in->m[3][2];
+ out[15] = in->m[3][3];
+#else
+ out[ 0] = in->m[0][0];
+ out[ 1] = in->m[1][0];
+ out[ 2] = in->m[2][0];
+ out[ 3] = in->m[3][0];
+ out[ 4] = in->m[0][1];
+ out[ 5] = in->m[1][1];
+ out[ 6] = in->m[2][1];
+ out[ 7] = in->m[3][1];
+ out[ 8] = in->m[0][2];
+ out[ 9] = in->m[1][2];
+ out[10] = in->m[2][2];
+ out[11] = in->m[3][2];
+ out[12] = in->m[0][3];
+ out[13] = in->m[1][3];
+ out[14] = in->m[2][3];
+ out[15] = in->m[3][3];
+#endif
+}
+
+void Matrix4x4_FromArrayDoubleGL (matrix4x4_t *out, const double in[16])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out->m[0][0] = in[0];
+ out->m[0][1] = in[1];
+ out->m[0][2] = in[2];
+ out->m[0][3] = in[3];
+ out->m[1][0] = in[4];
+ out->m[1][1] = in[5];
+ out->m[1][2] = in[6];
+ out->m[1][3] = in[7];
+ out->m[2][0] = in[8];
+ out->m[2][1] = in[9];
+ out->m[2][2] = in[10];
+ out->m[2][3] = in[11];
+ out->m[3][0] = in[12];
+ out->m[3][1] = in[13];
+ out->m[3][2] = in[14];
+ out->m[3][3] = in[15];
+#else
+ out->m[0][0] = in[0];
+ out->m[1][0] = in[1];
+ out->m[2][0] = in[2];
+ out->m[3][0] = in[3];
+ out->m[0][1] = in[4];
+ out->m[1][1] = in[5];
+ out->m[2][1] = in[6];
+ out->m[3][1] = in[7];
+ out->m[0][2] = in[8];
+ out->m[1][2] = in[9];
+ out->m[2][2] = in[10];
+ out->m[3][2] = in[11];
+ out->m[0][3] = in[12];
+ out->m[1][3] = in[13];
+ out->m[2][3] = in[14];
+ out->m[3][3] = in[15];
+#endif
+}
+
+void Matrix4x4_ToArrayDoubleD3D(const matrix4x4_t *in, double out[16])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out[ 0] = in->m[0][0];
+ out[ 1] = in->m[1][0];
+ out[ 2] = in->m[2][0];
+ out[ 3] = in->m[3][0];
+ out[ 4] = in->m[0][1];
+ out[ 5] = in->m[1][1];
+ out[ 6] = in->m[2][1];
+ out[ 7] = in->m[3][1];
+ out[ 8] = in->m[0][2];
+ out[ 9] = in->m[1][2];
+ out[10] = in->m[2][2];
+ out[11] = in->m[3][2];
+ out[12] = in->m[0][3];
+ out[13] = in->m[1][3];
+ out[14] = in->m[2][3];
+ out[15] = in->m[3][3];
+#else
+ out[ 0] = in->m[0][0];
+ out[ 1] = in->m[0][1];
+ out[ 2] = in->m[0][2];
+ out[ 3] = in->m[0][3];
+ out[ 4] = in->m[1][0];
+ out[ 5] = in->m[1][1];
+ out[ 6] = in->m[1][2];
+ out[ 7] = in->m[1][3];
+ out[ 8] = in->m[2][0];
+ out[ 9] = in->m[2][1];
+ out[10] = in->m[2][2];
+ out[11] = in->m[2][3];
+ out[12] = in->m[3][0];
+ out[13] = in->m[3][1];
+ out[14] = in->m[3][2];
+ out[15] = in->m[3][3];
+#endif
+}
+
+void Matrix4x4_FromArrayDoubleD3D (matrix4x4_t *out, const double in[4][4])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out->m[0][0] = in[0][0];
+ out->m[1][0] = in[0][1];
+ out->m[2][0] = in[0][2];
+ out->m[3][0] = in[0][3];
+ out->m[0][1] = in[1][0];
+ out->m[1][1] = in[1][1];
+ out->m[2][1] = in[1][2];
+ out->m[3][1] = in[1][3];
+ out->m[0][2] = in[2][0];
+ out->m[1][2] = in[2][1];
+ out->m[2][2] = in[2][2];
+ out->m[3][2] = in[2][3];
+ out->m[0][3] = in[3][0];
+ out->m[1][3] = in[3][1];
+ out->m[2][3] = in[3][2];
+ out->m[3][3] = in[3][3];
+#else
+ out->m[0][0] = in[0][0];
+ out->m[0][1] = in[0][1];
+ out->m[0][2] = in[0][2];
+ out->m[0][3] = in[0][3];
+ out->m[1][0] = in[1][0];
+ out->m[1][1] = in[1][1];
+ out->m[1][2] = in[1][2];
+ out->m[1][3] = in[1][3];
+ out->m[2][0] = in[2][0];
+ out->m[2][1] = in[2][1];
+ out->m[2][2] = in[2][2];
+ out->m[2][3] = in[2][3];
+ out->m[3][0] = in[3][0];
+ out->m[3][1] = in[3][1];
+ out->m[3][2] = in[3][2];
+ out->m[3][3] = in[3][3];
+#endif
+}
+
+void Matrix4x4_ToArrayFloatGL(const matrix4x4_t *in, float out[16])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out[ 0] = in->m[0][0];
+ out[ 1] = in->m[0][1];
+ out[ 2] = in->m[0][2];
+ out[ 3] = in->m[0][3];
+ out[ 4] = in->m[1][0];
+ out[ 5] = in->m[1][1];
+ out[ 6] = in->m[1][2];
+ out[ 7] = in->m[1][3];
+ out[ 8] = in->m[2][0];
+ out[ 9] = in->m[2][1];
+ out[10] = in->m[2][2];
+ out[11] = in->m[2][3];
+ out[12] = in->m[3][0];
+ out[13] = in->m[3][1];
+ out[14] = in->m[3][2];
+ out[15] = in->m[3][3];
+#else
+ out[ 0] = in->m[0][0];
+ out[ 1] = in->m[1][0];
+ out[ 2] = in->m[2][0];
+ out[ 3] = in->m[3][0];
+ out[ 4] = in->m[0][1];
+ out[ 5] = in->m[1][1];
+ out[ 6] = in->m[2][1];
+ out[ 7] = in->m[3][1];
+ out[ 8] = in->m[0][2];
+ out[ 9] = in->m[1][2];
+ out[10] = in->m[2][2];
+ out[11] = in->m[3][2];
+ out[12] = in->m[0][3];
+ out[13] = in->m[1][3];
+ out[14] = in->m[2][3];
+ out[15] = in->m[3][3];
+#endif
+}
+
+void Matrix4x4_FromArrayFloatGL (matrix4x4_t *out, const float in[16])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out->m[0][0] = in[0];
+ out->m[0][1] = in[1];
+ out->m[0][2] = in[2];
+ out->m[0][3] = in[3];
+ out->m[1][0] = in[4];
+ out->m[1][1] = in[5];
+ out->m[1][2] = in[6];
+ out->m[1][3] = in[7];
+ out->m[2][0] = in[8];
+ out->m[2][1] = in[9];
+ out->m[2][2] = in[10];
+ out->m[2][3] = in[11];
+ out->m[3][0] = in[12];
+ out->m[3][1] = in[13];
+ out->m[3][2] = in[14];
+ out->m[3][3] = in[15];
+#else
+ out->m[0][0] = in[0];
+ out->m[1][0] = in[1];
+ out->m[2][0] = in[2];
+ out->m[3][0] = in[3];
+ out->m[0][1] = in[4];
+ out->m[1][1] = in[5];
+ out->m[2][1] = in[6];
+ out->m[3][1] = in[7];
+ out->m[0][2] = in[8];
+ out->m[1][2] = in[9];
+ out->m[2][2] = in[10];
+ out->m[3][2] = in[11];
+ out->m[0][3] = in[12];
+ out->m[1][3] = in[13];
+ out->m[2][3] = in[14];
+ out->m[3][3] = in[15];
+#endif
+}
+
+void Matrix4x4_ToArrayFloatD3D(const matrix4x4_t *in, float out[16])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out[ 0] = in->m[0][0];
+ out[ 1] = in->m[1][0];
+ out[ 2] = in->m[2][0];
+ out[ 3] = in->m[3][0];
+ out[ 4] = in->m[0][1];
+ out[ 5] = in->m[1][1];
+ out[ 6] = in->m[2][1];
+ out[ 7] = in->m[3][1];
+ out[ 8] = in->m[0][2];
+ out[ 9] = in->m[1][2];
+ out[10] = in->m[2][2];
+ out[11] = in->m[3][2];
+ out[12] = in->m[0][3];
+ out[13] = in->m[1][3];
+ out[14] = in->m[2][3];
+ out[15] = in->m[3][3];
+#else
+ out[ 0] = in->m[0][0];
+ out[ 1] = in->m[0][1];
+ out[ 2] = in->m[0][2];
+ out[ 3] = in->m[0][3];
+ out[ 4] = in->m[1][0];
+ out[ 5] = in->m[1][1];
+ out[ 6] = in->m[1][2];
+ out[ 7] = in->m[1][3];
+ out[ 8] = in->m[2][0];
+ out[ 9] = in->m[2][1];
+ out[10] = in->m[2][2];
+ out[11] = in->m[2][3];
+ out[12] = in->m[3][0];
+ out[13] = in->m[3][1];
+ out[14] = in->m[3][2];
+ out[15] = in->m[3][3];
+#endif
+}
+
+void Matrix4x4_FromArrayFloatD3D (matrix4x4_t *out, const float in[16])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out->m[0][0] = in[0];
+ out->m[1][0] = in[1];
+ out->m[2][0] = in[2];
+ out->m[3][0] = in[3];
+ out->m[0][1] = in[4];
+ out->m[1][1] = in[5];
+ out->m[2][1] = in[6];
+ out->m[3][1] = in[7];
+ out->m[0][2] = in[8];
+ out->m[1][2] = in[9];
+ out->m[2][2] = in[10];
+ out->m[3][2] = in[11];
+ out->m[0][3] = in[12];
+ out->m[1][3] = in[13];
+ out->m[2][3] = in[14];
+ out->m[3][3] = in[15];
+#else
+ out->m[0][0] = in[0];
+ out->m[0][1] = in[1];
+ out->m[0][2] = in[2];
+ out->m[0][3] = in[3];
+ out->m[1][0] = in[4];
+ out->m[1][1] = in[5];
+ out->m[1][2] = in[6];
+ out->m[1][3] = in[7];
+ out->m[2][0] = in[8];
+ out->m[2][1] = in[9];
+ out->m[2][2] = in[10];
+ out->m[2][3] = in[11];
+ out->m[3][0] = in[12];
+ out->m[3][1] = in[13];
+ out->m[3][2] = in[14];
+ out->m[3][3] = in[15];
+#endif
+}
+
+void Matrix4x4_ToArray12FloatGL(const matrix4x4_t *in, float out[4][3])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out[0][0] = in->m[0][0];
+ out[0][1] = in->m[0][1];
+ out[0][2] = in->m[0][2];
+ out[1][0] = in->m[1][0];
+ out[1][1] = in->m[1][1];
+ out[1][2] = in->m[1][2];
+ out[2][0] = in->m[2][0];
+ out[2][1] = in->m[2][1];
+ out[2][2] = in->m[2][2];
+ out[3][0] = in->m[3][0];
+ out[3][1] = in->m[3][1];
+ out[3][2] = in->m[3][2];
+#else
+ out[0][0] = in->m[0][0];
+ out[0][1] = in->m[1][0];
+ out[0][2] = in->m[2][0];
+ out[1][0] = in->m[0][1];
+ out[1][1] = in->m[1][1];
+ out[1][2] = in->m[2][1];
+ out[2][0] = in->m[0][2];
+ out[2][1] = in->m[1][2];
+ out[2][2] = in->m[2][2];
+ out[3][0] = in->m[0][3];
+ out[3][1] = in->m[1][3];
+ out[3][2] = in->m[2][3];
+#endif
+}
+
+void Matrix4x4_FromArray12FloatGL(matrix4x4_t *out, const float in[12])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out->m[0][0] = in[0];
+ out->m[0][1] = in[1];
+ out->m[0][2] = in[2];
+ out->m[0][3] = 0;
+ out->m[1][0] = in[3];
+ out->m[1][1] = in[4];
+ out->m[1][2] = in[5];
+ out->m[1][3] = 0;
+ out->m[2][0] = in[6];
+ out->m[2][1] = in[7];
+ out->m[2][2] = in[8];
+ out->m[2][3] = 0;
+ out->m[3][0] = in[9];
+ out->m[3][1] = in[10];
+ out->m[3][2] = in[11];
+ out->m[3][3] = 1;
+#else
+ out->m[0][0] = in[0];
+ out->m[1][0] = in[1];
+ out->m[2][0] = in[2];
+ out->m[3][0] = 0;
+ out->m[0][1] = in[3];
+ out->m[1][1] = in[4];
+ out->m[2][1] = in[5];
+ out->m[3][1] = 0;
+ out->m[0][2] = in[6];
+ out->m[1][2] = in[7];
+ out->m[2][2] = in[8];
+ out->m[3][2] = 0;
+ out->m[0][3] = in[9];
+ out->m[1][3] = in[10];
+ out->m[2][3] = in[11];
+ out->m[3][3] = 1;
+#endif
+}
+
+void Matrix4x4_ToArray12FloatD3D(const matrix4x4_t *in, float out[12])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out[ 0] = in->m[0][0];
+ out[ 1] = in->m[1][0];
+ out[ 2] = in->m[2][0];
+ out[ 3] = in->m[3][0];
+ out[ 4] = in->m[0][1];
+ out[ 5] = in->m[1][1];
+ out[ 6] = in->m[2][1];
+ out[ 7] = in->m[3][1];
+ out[ 8] = in->m[0][2];
+ out[ 9] = in->m[1][2];
+ out[10] = in->m[2][2];
+ out[11] = in->m[3][2];
+#else
+ out[ 0] = in->m[0][0];
+ out[ 1] = in->m[0][1];
+ out[ 2] = in->m[0][2];
+ out[ 3] = in->m[0][3];
+ out[ 4] = in->m[1][0];
+ out[ 5] = in->m[1][1];
+ out[ 6] = in->m[1][2];
+ out[ 7] = in->m[1][3];
+ out[ 8] = in->m[2][0];
+ out[ 9] = in->m[2][1];
+ out[10] = in->m[2][2];
+ out[11] = in->m[2][3];
+#endif
+}
+
+void Matrix4x4_FromArray12FloatD3D(matrix4x4_t *out, const float in[12])
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ out->m[0][0] = in[0];
+ out->m[1][0] = in[1];
+ out->m[2][0] = in[2];
+ out->m[3][0] = in[3];
+ out->m[0][1] = in[4];
+ out->m[1][1] = in[5];
+ out->m[2][1] = in[6];
+ out->m[3][1] = in[7];
+ out->m[0][2] = in[8];
+ out->m[1][2] = in[9];
+ out->m[2][2] = in[10];
+ out->m[3][2] = in[11];
+ out->m[0][3] = 0;
+ out->m[1][3] = 0;
+ out->m[2][3] = 0;
+ out->m[3][3] = 1;
+#else
+ out->m[0][0] = in[0];
+ out->m[0][1] = in[1];
+ out->m[0][2] = in[2];
+ out->m[0][3] = in[3];
+ out->m[1][0] = in[4];
+ out->m[1][1] = in[5];
+ out->m[1][2] = in[6];
+ out->m[1][3] = in[7];
+ out->m[2][0] = in[8];
+ out->m[2][1] = in[9];
+ out->m[2][2] = in[10];
+ out->m[2][3] = in[11];
+ out->m[3][0] = 0;
+ out->m[3][1] = 0;
+ out->m[3][2] = 0;
+ out->m[3][3] = 1;
+#endif
+}
+
+void Matrix4x4_FromOriginQuat(matrix4x4_t *m, double ox, double oy, double oz, double x, double y, double z, double w)
+{
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ m->m[0][0]=1-2*(y*y+z*z);m->m[1][0]= 2*(x*y-z*w);m->m[2][0]= 2*(x*z+y*w);m->m[3][0]=ox;
+ m->m[0][1]= 2*(x*y+z*w);m->m[1][1]=1-2*(x*x+z*z);m->m[2][1]= 2*(y*z-x*w);m->m[3][1]=oy;
+ m->m[0][2]= 2*(x*z-y*w);m->m[1][2]= 2*(y*z+x*w);m->m[2][2]=1-2*(x*x+y*y);m->m[3][2]=oz;
+ m->m[0][3]= 0 ;m->m[1][3]= 0 ;m->m[2][3]= 0 ;m->m[3][3]=1;
+#else
+ m->m[0][0]=1-2*(y*y+z*z);m->m[0][1]= 2*(x*y-z*w);m->m[0][2]= 2*(x*z+y*w);m->m[0][3]=ox;
+ m->m[1][0]= 2*(x*y+z*w);m->m[1][1]=1-2*(x*x+z*z);m->m[1][2]= 2*(y*z-x*w);m->m[1][3]=oy;
+ m->m[2][0]= 2*(x*z-y*w);m->m[2][1]= 2*(y*z+x*w);m->m[2][2]=1-2*(x*x+y*y);m->m[2][3]=oz;
+ m->m[3][0]= 0 ;m->m[3][1]= 0 ;m->m[3][2]= 0 ;m->m[3][3]=1;
+#endif
+}
+
+// see http://www.euclideanspace.com/maths/geometry/rotations/conversions/matrixToQuaternion/index.htm
+void Matrix4x4_ToOrigin3Quat4Float(const matrix4x4_t *m, float *origin, float *quat)
+{
+#if 0
+ float s;
+ quat[3] = sqrt(1.0f + m->m[0][0] + m->m[1][1] + m->m[2][2]) * 0.5f;
+ s = 0.25f / quat[3];
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ origin[0] = m->m[3][0];
+ origin[1] = m->m[3][1];
+ origin[2] = m->m[3][2];
+ quat[0] = (m->m[1][2] - m->m[2][1]) * s;
+ quat[1] = (m->m[2][0] - m->m[0][2]) * s;
+ quat[2] = (m->m[0][1] - m->m[1][0]) * s;
+#else
+ origin[0] = m->m[0][3];
+ origin[1] = m->m[1][3];
+ origin[2] = m->m[2][3];
+ quat[0] = (m->m[2][1] - m->m[1][2]) * s;
+ quat[1] = (m->m[0][2] - m->m[2][0]) * s;
+ quat[2] = (m->m[1][0] - m->m[0][1]) * s;
+#endif
+
+#else
+
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ float trace = m->m[0][0] + m->m[1][1] + m->m[2][2];
+ origin[0] = m->m[3][0];
+ origin[1] = m->m[3][1];
+ origin[2] = m->m[3][2];
+ if(trace > 0)
+ {
+ float r = sqrt(1.0f + trace), inv = 0.5f / r;
+ quat[0] = (m->m[1][2] - m->m[2][1]) * inv;
+ quat[1] = (m->m[2][0] - m->m[0][2]) * inv;
+ quat[2] = (m->m[0][1] - m->m[1][0]) * inv;
+ quat[3] = 0.5f * r;
+ }
+ else if(m->m[0][0] > m->m[1][1] && m->m[0][0] > m->m[2][2])
+ {
+ float r = sqrt(1.0f + m->m[0][0] - m->m[1][1] - m->m[2][2]), inv = 0.5f / r;
+ quat[0] = 0.5f * r;
+ quat[1] = (m->m[0][1] + m->m[1][0]) * inv;
+ quat[2] = (m->m[2][0] + m->m[0][2]) * inv;
+ quat[3] = (m->m[1][2] - m->m[2][1]) * inv;
+ }
+ else if(m->m[1][1] > m->m[2][2])
+ {
+ float r = sqrt(1.0f + m->m[1][1] - m->m[0][0] - m->m[2][2]), inv = 0.5f / r;
+ quat[0] = (m->m[0][1] + m->m[1][0]) * inv;
+ quat[1] = 0.5f * r;
+ quat[2] = (m->m[1][2] + m->m[2][1]) * inv;
+ quat[3] = (m->m[2][0] - m->m[0][2]) * inv;
+ }
+ else
+ {
+ float r = sqrt(1.0f + m->m[2][2] - m->m[0][0] - m->m[1][1]), inv = 0.5f / r;
+ quat[0] = (m->m[2][0] + m->m[0][2]) * inv;
+ quat[1] = (m->m[1][2] + m->m[2][1]) * inv;
+ quat[2] = 0.5f * r;
+ quat[3] = (m->m[0][1] - m->m[1][0]) * inv;
+ }
+#else
+ float trace = m->m[0][0] + m->m[1][1] + m->m[2][2];
+ origin[0] = m->m[0][3];
+ origin[1] = m->m[1][3];
+ origin[2] = m->m[2][3];
+ if(trace > 0)
+ {
+ float r = sqrt(1.0f + trace), inv = 0.5f / r;
+ quat[0] = (m->m[2][1] - m->m[1][2]) * inv;
+ quat[1] = (m->m[0][2] - m->m[2][0]) * inv;
+ quat[2] = (m->m[1][0] - m->m[0][1]) * inv;
+ quat[3] = 0.5f * r;
+ }
+ else if(m->m[0][0] > m->m[1][1] && m->m[0][0] > m->m[2][2])
+ {
+ float r = sqrt(1.0f + m->m[0][0] - m->m[1][1] - m->m[2][2]), inv = 0.5f / r;
+ quat[0] = 0.5f * r;
+ quat[1] = (m->m[1][0] + m->m[0][1]) * inv;
+ quat[2] = (m->m[0][2] + m->m[2][0]) * inv;
+ quat[3] = (m->m[2][1] - m->m[1][2]) * inv;
+ }
+ else if(m->m[1][1] > m->m[2][2])
+ {
+ float r = sqrt(1.0f + m->m[1][1] - m->m[0][0] - m->m[2][2]), inv = 0.5f / r;
+ quat[0] = (m->m[1][0] + m->m[0][1]) * inv;
+ quat[1] = 0.5f * r;
+ quat[2] = (m->m[2][1] + m->m[1][2]) * inv;
+ quat[3] = (m->m[0][2] - m->m[2][0]) * inv;
+ }
+ else
+ {
+ float r = sqrt(1.0f + m->m[2][2] - m->m[0][0] - m->m[1][1]), inv = 0.5f / r;
+ quat[0] = (m->m[0][2] + m->m[2][0]) * inv;
+ quat[1] = (m->m[2][1] + m->m[1][2]) * inv;
+ quat[2] = 0.5f * r;
+ quat[3] = (m->m[1][0] - m->m[0][1]) * inv;
+ }
+#endif
+
+#endif
+}
+
+// LadyHavoc: I got this code from:
+//http://www.doom3world.org/phpbb2/viewtopic.php?t=2884
+void Matrix4x4_FromDoom3Joint(matrix4x4_t *m, double ox, double oy, double oz, double x, double y, double z)
+{
+ double w = 1.0f - (x*x+y*y+z*z);
+ w = w > 0.0f ? -sqrt(w) : 0.0f;
+#ifdef MATRIX4x4_OPENGLORIENTATION
+ m->m[0][0]=1-2*(y*y+z*z);m->m[1][0]= 2*(x*y-z*w);m->m[2][0]= 2*(x*z+y*w);m->m[3][0]=ox;
+ m->m[0][1]= 2*(x*y+z*w);m->m[1][1]=1-2*(x*x+z*z);m->m[2][1]= 2*(y*z-x*w);m->m[3][1]=oy;
+ m->m[0][2]= 2*(x*z-y*w);m->m[1][2]= 2*(y*z+x*w);m->m[2][2]=1-2*(x*x+y*y);m->m[3][2]=oz;
+ m->m[0][3]= 0 ;m->m[1][3]= 0 ;m->m[2][3]= 0 ;m->m[3][3]=1;
+#else
+ m->m[0][0]=1-2*(y*y+z*z);m->m[0][1]= 2*(x*y-z*w);m->m[0][2]= 2*(x*z+y*w);m->m[0][3]=ox;
+ m->m[1][0]= 2*(x*y+z*w);m->m[1][1]=1-2*(x*x+z*z);m->m[1][2]= 2*(y*z-x*w);m->m[1][3]=oy;
+ m->m[2][0]= 2*(x*z-y*w);m->m[2][1]= 2*(y*z+x*w);m->m[2][2]=1-2*(x*x+y*y);m->m[2][3]=oz;
+ m->m[3][0]= 0 ;m->m[3][1]= 0 ;m->m[3][2]= 0 ;m->m[3][3]=1;
+#endif
+}
+
+void Matrix4x4_FromBonePose7s(matrix4x4_t *m, float originscale, const short *pose7s)
+{
+ float origin[3];
+ float quat[4];
+ float quatscale = pose7s[6] > 0 ? -1.0f / 32767.0f : 1.0f / 32767.0f;
+ origin[0] = pose7s[0] * originscale;
+ origin[1] = pose7s[1] * originscale;
+ origin[2] = pose7s[2] * originscale;
+ quat[0] = pose7s[3] * quatscale;
+ quat[1] = pose7s[4] * quatscale;
+ quat[2] = pose7s[5] * quatscale;
+ quat[3] = pose7s[6] * quatscale;
+ Matrix4x4_FromOriginQuat(m, origin[0], origin[1], origin[2], quat[0], quat[1], quat[2], quat[3]);
+}
+
+void Matrix4x4_ToBonePose7s(const matrix4x4_t *m, float origininvscale, short *pose7s)
+{
+ float origin[3];
+ float quat[4];
+ float quatscale;
+ Matrix4x4_ToOrigin3Quat4Float(m, origin, quat);
+ // normalize quaternion so that it is unit length
+ quatscale = quat[0]*quat[0]+quat[1]*quat[1]+quat[2]*quat[2]+quat[3]*quat[3];
+ if (quatscale)
+ quatscale = (quat[3] >= 0 ? -32767.0f : 32767.0f) / sqrt(quatscale);
+ // use a negative scale on the quat because the above function produces a
+ // positive quat[3] and canonical quaternions have negative quat[3]
+ pose7s[0] = origin[0] * origininvscale;
+ pose7s[1] = origin[1] * origininvscale;
+ pose7s[2] = origin[2] * origininvscale;
+ pose7s[3] = quat[0] * quatscale;
+ pose7s[4] = quat[1] * quatscale;
+ pose7s[5] = quat[2] * quatscale;
+ pose7s[6] = quat[3] * quatscale;