X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fcolor.cpp;h=63448b334eff560dde1093bfe0761a76ebf1a20d;hb=b298e30f299d7c0b91c00f2455b4bc1efabe62e3;hp=5ed16fe324100f2d623722e07db11190f68bae22;hpb=5e5b0caed972e0b225199551aff09c399edb8d3c;p=guile-irrlicht.git

diff --git a/src/color.cpp b/src/color.cpp
index 5ed16fe..63448b3 100644
--- a/src/color.cpp
+++ b/src/color.cpp
@@ -25,6 +25,15 @@
 
 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)
   {