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