#include <libguile.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)
- {
- return irr::video::SColor
- (scm_to_uint32 (scm_car (color)),
- scm_to_uint32 (scm_cadr (color)),
- scm_to_uint32 (scm_caddr (color)),
- scm_to_uint32 (scm_cadddr (color)));
- }
+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)
+{
+ return irr::video::SColor
+ (scm_to_uint32 (scm_car (color)),
+ scm_to_uint32 (scm_cadr (color)),
+ scm_to_uint32 (scm_caddr (color)),
+ scm_to_uint32 (scm_cadddr (color)));
}
#include <irrlicht/irrlicht.h>
#include <libguile.h>
-extern "C" {
+SCM
+scm_from_color (irr::video::SColor color);
- SCM
- scm_from_color (irr::video::SColor color);
-
- irr::video::SColor
- scm_to_color (SCM color);
-
-}
+irr::video::SColor
+scm_to_color (SCM color);
#endif