- SCM
- scm_from_matrix4 (irr::core::matrix4 cmatrix)
- {
- return scm_list_4 (scm_list_4 (scm_from_double (cmatrix[0]),
- scm_from_double (cmatrix[1]),
- scm_from_double (cmatrix[2]),
- scm_from_double (cmatrix[3])),
- scm_list_4 (scm_from_double (cmatrix[4]),
- scm_from_double (cmatrix[5]),
- scm_from_double (cmatrix[6]),
- scm_from_double (cmatrix[7])),
- scm_list_4 (scm_from_double (cmatrix[8]),
- scm_from_double (cmatrix[9]),
- scm_from_double (cmatrix[10]),
- scm_from_double (cmatrix[11])),
- scm_list_4 (scm_from_double (cmatrix[12]),
- scm_from_double (cmatrix[13]),
- scm_from_double (cmatrix[14]),
- scm_from_double (cmatrix[15])));
- }
-
- irr::core::matrix4
- scm_to_matrix4 (SCM matrix)
- {
- irr::core::matrix4 cmatrix;
+SCM
+scm_from_matrix4 (core::matrix4 cmatrix)
+{
+ return scm_list_4 (scm_list_4 (scm_from_double (cmatrix[0]),
+ scm_from_double (cmatrix[1]),
+ scm_from_double (cmatrix[2]),
+ scm_from_double (cmatrix[3])),
+ scm_list_4 (scm_from_double (cmatrix[4]),
+ scm_from_double (cmatrix[5]),
+ scm_from_double (cmatrix[6]),
+ scm_from_double (cmatrix[7])),
+ scm_list_4 (scm_from_double (cmatrix[8]),
+ scm_from_double (cmatrix[9]),
+ scm_from_double (cmatrix[10]),
+ scm_from_double (cmatrix[11])),
+ scm_list_4 (scm_from_double (cmatrix[12]),
+ scm_from_double (cmatrix[13]),
+ scm_from_double (cmatrix[14]),
+ scm_from_double (cmatrix[15])));
+}