-extern "C" {
-
- SCM
- scm_from_vector3df (irr::core::vector3df vector3d)
- {
- return scm_list_3 (scm_from_double (vector3d.X),
- scm_from_double (vector3d.Y),
- scm_from_double (vector3d.Z));
- }
-
- irr::core::vector3df
- scm_to_vector3df (SCM vector3d)
- {
- return irr::core::vector3df
- (scm_to_double (scm_car (vector3d)),
- scm_to_double (scm_cadr (vector3d)),
- scm_to_double (scm_caddr (vector3d)));
- }