#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)
{