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 video::E_MATERIAL_FLAG
28 scm_to_material_flag (SCM material_flag)
30 char* flag = scm_to_utf8_string (scm_symbol_to_string (material_flag));
31 if (!strcmp (flag, "wireframe"))
33 return video::EMF_WIREFRAME;
35 else if (!strcmp (flag, "pointcloud"))
37 return video::EMF_POINTCLOUD;
39 else if (!strcmp (flag, "gouraud-shading"))
41 return video::EMF_GOURAUD_SHADING;
43 else if (!strcmp (flag, "lighting"))
45 return video::EMF_LIGHTING;
47 else if (!strcmp (flag, "zbuffer"))
49 return video::EMF_ZBUFFER;
51 else if (!strcmp (flag, "zwrite-enable"))
53 return video::EMF_ZWRITE_ENABLE;
55 else if (!strcmp (flag, "back-face-culling"))
57 return video::EMF_BACK_FACE_CULLING;
59 else if (!strcmp (flag, "front-face-culling"))
61 return video::EMF_FRONT_FACE_CULLING;
63 else if (!strcmp (flag, "bilinear-filter"))
65 return video::EMF_BILINEAR_FILTER;
67 else if (!strcmp (flag, "trilinear-filter"))
69 return video::EMF_TRILINEAR_FILTER;
71 else if (!strcmp (flag, "anisotropic-filter"))
73 return video::EMF_ANISOTROPIC_FILTER;
75 else if (!strcmp (flag, "fog-enable"))
77 return video::EMF_FOG_ENABLE;
79 else if (!strcmp (flag, "normalize-normals"))
81 return video::EMF_NORMALIZE_NORMALS;
83 else if (!strcmp (flag, "texture-wrap"))
85 return video::EMF_TEXTURE_WRAP;
87 else if (!strcmp (flag, "anti-aliasing"))
89 return video::EMF_ANTI_ALIASING;
91 else if (!strcmp (flag, "color-mask"))
93 return video::EMF_COLOR_MASK;
95 else if (!strcmp (flag, "color-material"))
97 return video::EMF_COLOR_MATERIAL;
99 else if (!strcmp (flag, "use-mip-maps"))
101 return video::EMF_USE_MIP_MAPS;
103 else if (!strcmp (flag, "blend-operation"))
105 return video::EMF_BLEND_OPERATION;
107 else if (!strcmp (flag, "polygon-offset"))
109 return video::EMF_POLYGON_OFFSET;
113 scm_error (scm_arg_type_key, NULL, "Wrong material flag: ~S",
114 scm_list_1 (material_flag), scm_list_1 (material_flag));