X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fvector3d.cpp;h=57f5a7dbe0d52605f6bc85dbf6309defdb1d56d3;hb=85623b0c003e4938263a3431b45837050f044593;hp=85f5bf86223c18cca32660e5d8046cba0c8ce99e;hpb=21f12bf4ba8c031b36784e1e0a479535f477cc59;p=guile-irrlicht.git

diff --git a/src/vector3d.cpp b/src/vector3d.cpp
index 85f5bf8..57f5a7d 100644
--- 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)
   {