+ 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;
+ }
+