-extern "C" {
-
- void
- init_gui_in_out_fader (void)
- {
- 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 (dest_color == SCM_UNDEFINED)
- {
- fader->setColor (scm_to_color (color));
- }
- else
- {
- fader->setColor (scm_to_color (color),
- scm_to_color (dest_color));
- }
- return SCM_UNSPECIFIED;
- }
+using namespace irr;
+
+SCM
+IGUIInOutFader_setColor (SCM in_out_fader,
+ SCM color,
+ SCM dest_color)
+{
+ gui::IGUIInOutFader* fader = (gui::IGUIInOutFader*)scm_to_irr_pointer (in_out_fader);
+ if (dest_color == SCM_UNDEFINED)
+ {
+ fader->setColor (scm_to_color (color));
+ }
+ else
+ {
+ fader->setColor (scm_to_color (color),
+ scm_to_color (dest_color));
+ }
+ return SCM_UNSPECIFIED;
+}