src/gui.cpp

   1 /* guile-irrlicht --- GNU Guile bindings for Irrlicht Engine
   2
   3    Copyright (C) 2020 Javier Sancho <jsf@jsancho.org>
   4
   5    This file is part of guile-irrlicht.
   6
   7    guile-irrlicht is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU Lesser General Public License as
   9    published by the Free Software Foundation; either version 3 of the
  10    License, or (at your option) any later version.
  11
  12    guile-irrlicht is distributed in the hope that it will be useful, but
  13    WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15    General Public License for more details.
  16
  17    You should have received a copy of the GNU Lesser General Public
  18    License along with guile-irrlicht. If not, see
  19    <http://www.gnu.org/licenses/>.
  20 */
  21
  22 #include <irrlicht/irrlicht.h>
  23 #include <libguile.h>
  24
  25 #include "color.h"
  26 #include "gsubr.h"
  27 #include "gui.h"
  28 #include "gui-button.h"
  29 #include "gui-editbox.h"
  30 #include "gui-element.h"
  31 #include "gui-environment.h"
  32 #include "gui-font.h"
  33 #include "gui-image.h"
  34 #include "gui-in-out-fader.h"
  35 #include "gui-listbox.h"
  36 #include "gui-scrollbar.h"
  37 #include "gui-skin.h"
  38 #include "gui-static-text.h"
  39 #include "gui-toolbar.h"
  40 #include "gui-window.h"
  41
  42 extern "C" {
  43
  44   void
  45   init_gui (void)
  46   {
  47     // Init objects
  48     init_gui_button ();
  49     init_gui_editbox ();
  50     init_gui_element ();
  51     init_gui_environment ();
  52     init_gui_font ();
  53     init_gui_image ();
  54     init_gui_in_out_fader ();
  55     init_gui_listbox ();
  56     init_gui_scrollbar ();
  57     init_gui_skin ();
  58     init_gui_static_text ();
  59     init_gui_toolbar ();
  60     init_gui_window ();
  61
  62     // Shared procedures (used by two or more objects)
  63     DEFINE_GSUBR ("add-button!", 1, 1, 1, irr_gui_addButton);
  64     DEFINE_GSUBR ("get-color", 1, 1, 0, irr_gui_getColor);
  65     DEFINE_GSUBR ("get-font", 1, 1, 1, irr_gui_getFont);
  66     DEFINE_GSUBR ("set-color!", 2, 1, 0, irr_gui_setColor);
  67     DEFINE_GSUBR ("set-max!", 2, 0, 0, irr_gui_setMax);
  68     DEFINE_GSUBR ("set-override-color!", 2, 0, 0, irr_gui_setOverrideColor);
  69   }
  70
  71   SCM
  72   irr_gui_addButton (SCM wrapped_obj,
  73                      SCM rectangle,
  74                      SCM rest)
  75   {
  76     if (gui_toolbar_p (wrapped_obj))
  77       {
  78         return irr_gui_IGUIToolBar_addButton (wrapped_obj, rest);
  79       }
  80     else if (gui_environment_p (wrapped_obj))
  81       {
  82         return irr_gui_IGUIEnvironment_addButton (wrapped_obj, rectangle, rest);
  83       }
  84     else
  85       {
  86         scm_error (scm_arg_type_key, NULL, "Cannot add button to object: ~S",
  87                    scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
  88       }
  89   }
  90
  91   SCM
  92   irr_gui_getColor (SCM wrapped_obj,
  93                     SCM color)
  94   {
  95 #define GET_COLOR(OBJ) scm_from_color (OBJ->getColor ());
  96
  97     if (gui_image_p (wrapped_obj))
  98       {
  99         return GET_COLOR (unwrap_gui_image (wrapped_obj));
 100       }
 101     else if (gui_in_out_fader_p (wrapped_obj))
 102       {
 103         return GET_COLOR (unwrap_gui_in_out_fader (wrapped_obj));
 104       }
 105     else if (gui_skin_p (wrapped_obj))
 106       {
 107         return irr_gui_IGUISkin_getColor (wrapped_obj, color);
 108       }
 109     else
 110       {
 111         scm_error (scm_arg_type_key, NULL, "Cannot get color from object: ~S",
 112                    scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
 113       }
 114   }
 115
 116   SCM
 117   irr_gui_getFont (SCM wrapped_obj,
 118                    SCM filename,
 119                    SCM rest)
 120   {
 121     if (gui_environment_p (wrapped_obj))
 122       {
 123         return irr_gui_IGUIEnvironment_getFont (wrapped_obj, filename);
 124       }
 125     else if (gui_skin_p (wrapped_obj))
 126       {
 127         return irr_gui_IGUISkin_getFont (wrapped_obj, rest);
 128       }
 129     else
 130       {
 131         scm_error (scm_arg_type_key, NULL, "Cannot get font from object: ~S",
 132                    scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
 133       }
 134   }
 135
 136   SCM
 137   irr_gui_setColor (SCM wrapped_obj,
 138                     SCM color,
 139                     SCM dest_color)
 140   {
 141     if (gui_image_p (wrapped_obj))
 142       {
 143         // Params: color
 144         unwrap_gui_image (wrapped_obj)->setColor (scm_to_color (color));
 145         return SCM_UNSPECIFIED;
 146       }
 147     else if (gui_in_out_fader_p (wrapped_obj))
 148       {
 149         // Params: color and dest_color (optional)
 150         return irr_gui_IGUIInOutFader_setColor (wrapped_obj, color, dest_color);
 151       }
 152     else if (gui_skin_p (wrapped_obj) && dest_color != SCM_UNDEFINED)
 153       {
 154         // Params: which and new_color
 155         return irr_gui_IGUISkin_setColor (wrapped_obj, color, dest_color);
 156       }
 157     else
 158       {
 159         scm_error (scm_arg_type_key, NULL, "Cannot set color to object: ~S",
 160                    scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
 161       }
 162   }
 163
 164   SCM
 165   irr_gui_setMax (SCM wrapped_obj,
 166                   SCM max)
 167   {
 168 #define SET_MAX(OBJ) OBJ->setMax (scm_to_int32 (max));
 169
 170     if (gui_editbox_p (wrapped_obj))
 171       {
 172         SET_MAX (unwrap_gui_editbox (wrapped_obj));
 173       }
 174     else if (gui_scrollbar_p (wrapped_obj))
 175       {
 176         SET_MAX (unwrap_gui_scrollbar (wrapped_obj));
 177       }
 178     else
 179       {
 180         scm_error (scm_arg_type_key, NULL, "Cannot set max to object: ~S",
 181                    scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
 182       }
 183     return SCM_UNSPECIFIED;
 184   }
 185
 186   SCM
 187   irr_gui_setOverrideColor (SCM wrapped_obj,
 188                             SCM color)
 189   {
 190 #define SET_OVERRIDE_COLOR(OBJ) OBJ->setOverrideColor (scm_to_color (color));
 191
 192     if (gui_editbox_p (wrapped_obj))
 193       {
 194         SET_OVERRIDE_COLOR (unwrap_gui_editbox (wrapped_obj));
 195       }
 196     else if (gui_static_text_p (wrapped_obj))
 197       {
 198         SET_OVERRIDE_COLOR (unwrap_gui_static_text (wrapped_obj));
 199       }
 200     else
 201       {
 202         scm_error (scm_arg_type_key, NULL, "Cannot set override color to object: ~S",
 203                    scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
 204       }
 205     return SCM_UNSPECIFIED;
 206   }
 207
 208 }