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

diff --git a/src/vector3d.cpp b/src/vector3d.cpp
index 85f5bf8..a192ca6 100644
--- a/src/vector3d.cpp
+++ b/src/vector3d.cpp
@@ -23,15 +23,24 @@
 #include <libguile.h>
 #include "vector3d.h"
 
-extern "C" {
 
-  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)));
-  }
+using namespace irr;
 
+
+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)));
 }