1 /* guile-irrlicht --- GNU Guile bindings for Irrlicht Engine
3 Copyright (C) 2020 Javier Sancho <jsf@jsancho.org>
5 This file is part of guile-irrlicht.
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.
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.
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/>.
22 #include <irrlicht/irrlicht.h>
27 #include "gui-button.h"
28 #include "gui-element.h"
29 #include "gui-environment.h"
31 #include "gui-image.h"
32 #include "gui-listbox.h"
33 #include "gui-scrollbar.h"
35 #include "gui-static-text.h"
36 #include "position2d.h"
45 init_gui_environment (void)
47 init_gui_environment_type ();
48 DEFINE_GSUBR ("add-image!", 3, 0, 1, irr_gui_addImage);
49 DEFINE_GSUBR ("add-listbox!", 2, 0, 1, irr_gui_addListBox);
50 DEFINE_GSUBR ("add-scrollbar!", 3, 0, 1, irr_gui_addScrollBar);
51 DEFINE_GSUBR ("add-static-text!", 3, 0, 1, irr_gui_addStaticText);
52 DEFINE_GSUBR ("get-built-in-font", 1, 0, 0, irr_gui_getBuiltInFont);
53 DEFINE_GSUBR ("get-gui-environment", 1, 0, 0, irr_getGUIEnvironment);
54 DEFINE_GSUBR ("get-skin", 1, 0, 0, irr_gui_getSkin);
57 DEFINE_WRAPPED_TYPE (irr::gui::IGUIEnvironment*, "gui-environment",
58 init_gui_environment_type, gui_environment_p,
59 wrap_gui_environment, unwrap_gui_environment);
62 irr_getGUIEnvironment (SCM wrapped_obj)
64 irr::gui::IGUIEnvironment* gui_environment;
65 if (device_p (wrapped_obj))
67 gui_environment = unwrap_device (wrapped_obj)->getGUIEnvironment ();
71 scm_error (scm_arg_type_key, NULL, "Cannot get GUI environment from object: ~S",
72 scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
74 return wrap_gui_environment (gui_environment);
78 irr_gui_addImage (SCM wrapped_gui_environment,
83 SCM use_alpha_channel = SCM_BOOL_T;
84 SCM parent = SCM_BOOL_F;
85 SCM id = scm_from_int32 (-1);
86 SCM text = SCM_BOOL_F;
88 scm_c_bind_keyword_arguments ("add-image!", rest, (scm_t_keyword_arguments_flags)0,
89 scm_from_utf8_keyword ("use_alpha_channel"), &use_alpha_channel,
90 scm_from_utf8_keyword ("parent"), &parent,
91 scm_from_utf8_keyword ("id"), &id,
92 scm_from_utf8_keyword ("text"), &text,
95 irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
96 irr::gui::IGUIImage* guiImage =
97 guienv->addImage (unwrap_texture (image),
98 scm_to_position2d_s32 (position),
99 scm_to_bool (use_alpha_channel),
100 scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
102 scm_is_false (text) ? 0 : scm_to_wide_char_string (text));
103 return wrap_gui_image (guiImage);
107 irr_gui_addListBox (SCM wrapped_gui_environment,
111 SCM parent = SCM_BOOL_F;
112 SCM id = scm_from_int32 (-1);
113 SCM draw_background = SCM_BOOL_F;
115 scm_c_bind_keyword_arguments ("add-listbox!", rest, (scm_t_keyword_arguments_flags)0,
116 scm_from_utf8_keyword ("parent"), &parent,
117 scm_from_utf8_keyword ("id"), &id,
118 scm_from_utf8_keyword ("draw-background"), &draw_background,
121 irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
122 irr::gui::IGUIListBox* listbox =
123 guienv->addListBox (scm_to_rect_s32 (rectangle),
124 scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
126 scm_to_bool (draw_background));
127 return wrap_gui_listbox (listbox);
131 irr_gui_addScrollBar (SCM wrapped_gui_environment,
136 SCM parent = SCM_BOOL_F;
137 SCM id = scm_from_int32 (-1);
139 scm_c_bind_keyword_arguments ("add-scrollbar!", rest, (scm_t_keyword_arguments_flags)0,
140 scm_from_utf8_keyword ("parent"), &parent,
141 scm_from_utf8_keyword ("id"), &id,
144 irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
145 irr::gui::IGUIScrollBar* scrollbar =
146 guienv->addScrollBar (scm_to_bool (horizontal),
147 scm_to_rect_s32 (rectangle),
148 scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
150 return wrap_gui_scrollbar (scrollbar);
154 irr_gui_addStaticText (SCM wrapped_gui_environment,
159 SCM border = SCM_BOOL_F;
160 SCM word_wrap = SCM_BOOL_T;
161 SCM parent = SCM_BOOL_F;
162 SCM id = scm_from_int32 (-1);
163 SCM fill_background = SCM_BOOL_F;
165 scm_c_bind_keyword_arguments ("add-static-text!", rest, (scm_t_keyword_arguments_flags)0,
166 scm_from_utf8_keyword ("border"), &border,
167 scm_from_utf8_keyword ("word-wrap"), &word_wrap,
168 scm_from_utf8_keyword ("parent"), &parent,
169 scm_from_utf8_keyword ("id"), &id,
170 scm_from_utf8_keyword ("fill-background"), &fill_background,
173 irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
174 irr::gui::IGUIStaticText* staticText =
175 guienv->addStaticText (scm_to_wide_char_string (text),
176 scm_to_rect_s32 (rectangle),
177 scm_to_bool (border),
178 scm_to_bool (word_wrap),
179 scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
181 scm_to_bool (fill_background));
182 return wrap_gui_static_text (staticText);
186 irr_gui_getBuiltInFont (SCM wrapped_gui_environment)
188 irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
189 irr::gui::IGUIFont* font = guienv->getBuiltInFont ();
190 return wrap_gui_font (font);
194 irr_gui_getSkin (SCM wrapped_gui_environment)
196 irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
197 irr::gui::IGUISkin* skin = guienv->getSkin ();
198 return wrap_gui_skin (skin);
202 irr_gui_IGUIEnvironment_addButton (SCM wrapped_gui_environment,
206 SCM parent = SCM_BOOL_F;
207 SCM id = scm_from_int32 (-1);
208 SCM text = SCM_BOOL_F;
209 SCM tooltiptext = SCM_BOOL_F;
211 scm_c_bind_keyword_arguments ("add-button!", rest, (scm_t_keyword_arguments_flags)0,
212 scm_from_utf8_keyword ("parent"), &parent,
213 scm_from_utf8_keyword ("id"), &id,
214 scm_from_utf8_keyword ("text"), &text,
215 scm_from_utf8_keyword ("tooltiptext"), &tooltiptext,
218 irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
219 irr::gui::IGUIButton* button =
220 guienv->addButton (scm_to_rect_s32 (rectangle),
221 scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
223 scm_is_false (text) ? 0 : scm_to_wide_char_string (text),
224 scm_is_false (tooltiptext) ? 0 : scm_to_wide_char_string (tooltiptext));
225 return wrap_gui_button (button);
229 irr_gui_IGUIEnvironment_getFont (SCM wrapped_gui_environment,
232 irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
233 irr::gui::IGUIFont* font = guienv->getFont (scm_to_utf8_stringn (filename, NULL));
234 return wrap_gui_font (font);