- init_gui_in_out_fader_type ();
- }
-
- DEFINE_WRAPPED_TYPE (irr::gui::IGUIInOutFader*, "gui-in-out-fader",
- 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;
+ DEFINE_GSUBR ("gui_IGUIInOutFader_setColor", 2, 1, 0, gui_IGUIInOutFader_setColor);