X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fcolor.cpp;h=6d836d3d4f40138eb220db3d068aa72a29404405;hp=d21704d5070dec8790e8e68b1e08bc6734da256e;hb=6343b5b67dfe68e1e7270ba6c100603f157d1b31;hpb=ba89d42068aa7ee7535946ff61d9bbebdb153f28 diff --git a/src/color.cpp b/src/color.cpp index d21704d..6d836d3 100644 --- a/src/color.cpp +++ b/src/color.cpp @@ -24,8 +24,11 @@ #include "color.h" +using namespace irr; + + SCM -scm_from_color (irr::video::SColor color) +scm_from_color (video::SColor color) { return scm_list_4 (scm_from_uint32 (color.getAlpha ()), scm_from_uint32 (color.getRed ()), @@ -34,10 +37,10 @@ scm_from_color (irr::video::SColor color) } -irr::video::SColor +video::SColor scm_to_color (SCM color) { - return irr::video::SColor + return video::SColor (scm_to_uint32 (scm_car (color)), scm_to_uint32 (scm_cadr (color)), scm_to_uint32 (scm_caddr (color)),