#include <irrlicht/irrlicht.h>
#include <libguile.h>
+#include "color.h"
#include "gui-in-out-fader.h"
#include "wrapped.h"
init_gui_in_out_fader_type, gui_in_out_fader_p,
wrap_gui_in_out_fader, unwrap_gui_in_out_fader);
+ SCM
+ irr_gui_IGUIInOutFader_setColor (SCM wrapped_in_out_fader,
+ SCM color,
+ SCM dest_color)
+ {
+ irr::gui::IGUIInOutFader* fader = unwrap_gui_in_out_fader (wrapped_in_out_fader);
+ if (scm_is_false (dest_color))
+ {
+ fader->setColor (scm_to_color (color));
+ }
+ else
+ {
+ fader->setColor (scm_to_color (color),
+ scm_to_color (dest_color));
+ }
+ return SCM_UNSPECIFIED;
+ }
+
}