clean code

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

diff --git a/src/vector3d.cpp b/src/vector3d.cpp
index 85f5bf86223c18cca32660e5d8046cba0c8ce99e..566a441e19ce2dd22a135c319b38dc0cc85451f6 100644 (file)
--- a/src/vector3d.cpp
+++ b/src/vector3d.cpp
@@ -23,15 +23,21 @@
 #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)));
 }