-extern "C" {
-
- SCM
- scm_from_position2d_s32 (irr::core::position2d<irr::s32> position2d)
- {
- return scm_list_2 (scm_from_int32 (position2d.X),
- scm_from_int32 (position2d.Y));
- }
-
- irr::core::position2d<irr::f32>
- scm_to_position2d_f32 (SCM position2d)
- {
- return irr::core::position2d<irr::f32>
- (scm_to_double (scm_car (position2d)),
- scm_to_double (scm_cadr (position2d)));
- }
-
- irr::core::position2d<irr::s32>
- scm_to_position2d_s32 (SCM position2d)
- {
- return irr::core::position2d<irr::s32>
- (scm_to_int32 (scm_car (position2d)),
- scm_to_int32 (scm_cadr (position2d)));
- }