get-color

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

diff --git a/src/color.cpp b/src/color.cpp
index a6879c382bf4e9564b12b929f7bb272d8f48f473..63448b334eff560dde1093bfe0761a76ebf1a20d 100644 (file)
--- a/src/color.cpp
+++ b/src/color.cpp
@@ -21,10 +21,19 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
-#include "rect.h"
+#include "color.h"
 
 extern "C" {
 
+  SCM
+  scm_from_color (irr::video::SColor color)
+  {
+    return scm_list_4 (scm_from_uint32 (color.getAlpha ()),
+                       scm_from_uint32 (color.getRed ()),
+                       scm_from_uint32 (color.getGreen ()),
+                       scm_from_uint32 (color.getBlue ()));
+  }
+
   irr::video::SColor
   scm_to_color (SCM color)
   {