box3d-reset! vertex3d-position

[guile-irrlicht.git] / src / vector3d.cpp

diff --git a/src/vector3d.cpp b/src/vector3d.cpp
index 85f5bf86223c18cca32660e5d8046cba0c8ce99e..57f5a7dbe0d52605f6bc85dbf6309defdb1d56d3 100644 (file)
--- a/src/vector3d.cpp
+++ b/src/vector3d.cpp
@@ -25,6 +25,14 @@
 
 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)
   {