src/video-driver.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 "device.h"
  27 #include "gui-environment.h"
  28 #include "rect.h"
  29 #include "scene-manager.h"
  30 #include "texture.h"
  31 #include "video-driver.h"
  32 #include "wrapped.h"
  33
  34 extern "C" {
  35
  36   void
  37   init_video_driver (void)
  38   {
  39     init_video_driver_type ();
  40     scm_c_define_gsubr ("begin-scene", 1, 0, 1, (scm_t_subr)irr_video_beginScene);
  41     scm_c_define_gsubr ("draw-all", 1, 0, 0, (scm_t_subr)irr_drawAll);
  42     scm_c_define_gsubr ("end-scene", 1, 0, 0, (scm_t_subr)irr_video_endScene);
  43     scm_c_define_gsubr ("get-texture", 2, 0, 0, (scm_t_subr)irr_video_getTexture);
  44     scm_c_define_gsubr ("get-video-driver", 1, 0, 0, (scm_t_subr)irr_getVideoDriver);
  45     scm_c_export ("begin-scene", "draw-all", "end-scene", "get-texture",
  46                   "get-video-driver", NULL);
  47   }
  48
  49   DEFINE_WRAPPED_TYPE (irr::video::IVideoDriver*, "video-driver",
  50                        init_video_driver_type, video_driver_p,
  51                        wrap_video_driver, unwrap_video_driver);
  52
  53   SCM
  54   irr_video_beginScene (SCM wrapped_video_driver,
  55                         SCM rest)
  56   {
  57     SCM back_buffer = scm_from_bool(1);
  58     SCM z_buffer = scm_from_bool(1);
  59     SCM color = scm_list_4 (scm_from_uint32 (255),
  60                             scm_from_uint32 (0),
  61                             scm_from_uint32 (0),
  62                             scm_from_uint32 (0));
  63     SCM video_data = scm_from_bool(0);
  64     SCM source_rect = scm_from_bool(0);
  65
  66     scm_c_bind_keyword_arguments ("begin-scene", rest, (scm_t_keyword_arguments_flags)0,
  67                                   scm_from_utf8_keyword ("back-buffer"), &back_buffer,
  68                                   scm_from_utf8_keyword ("z-buffer"), &z_buffer,
  69                                   scm_from_utf8_keyword ("color"), &color,
  70                                   scm_from_utf8_keyword ("video-data"), &video_data,
  71                                   scm_from_utf8_keyword ("source-rect"), &source_rect,
  72                                   SCM_UNDEFINED);
  73
  74     irr::video::IVideoDriver* driver = unwrap_video_driver (wrapped_video_driver);
  75     irr::core::rect<irr::s32>* sourceRectAddress = 0;
  76     if (!scm_is_false (source_rect))
  77       {
  78         irr::core::rect<irr::s32> sourceRect = scm_to_rect_s32 (source_rect);
  79         sourceRectAddress = &sourceRect;
  80       }
  81     return scm_from_bool (driver->beginScene (scm_to_bool (back_buffer),
  82                                               scm_to_bool (z_buffer),
  83                                               scm_to_color (color),
  84                                               irr::video::SExposedVideoData (),
  85                                               sourceRectAddress));
  86   }
  87
  88   SCM
  89   irr_drawAll (SCM wrapped_obj)
  90   {
  91     if (gui_environment_p (wrapped_obj))
  92       {
  93         unwrap_gui_environment (wrapped_obj)->drawAll ();
  94       }
  95     else if (scene_manager_p (wrapped_obj))
  96       {
  97         unwrap_scene_manager (wrapped_obj)->drawAll ();
  98       }
  99     else
 100       {
 101         scm_error (scm_arg_type_key, NULL, "Cannot draw all elements from object: ~S",
 102                    scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
 103       }
 104     return SCM_UNSPECIFIED;
 105   }
 106
 107   SCM
 108   irr_video_endScene (SCM wrapped_video_driver)
 109   {
 110     irr::video::IVideoDriver* driver = unwrap_video_driver (wrapped_video_driver);
 111     return scm_from_bool (driver->endScene ());
 112   }
 113
 114   SCM
 115   irr_video_getTexture (SCM wrapped_video_driver,
 116                         SCM filename)
 117   {
 118     irr::video::IVideoDriver* driver = unwrap_video_driver (wrapped_video_driver);
 119     irr::video::ITexture* texture = driver->getTexture (scm_to_utf8_stringn (filename, NULL));
 120     return wrap_texture (texture);
 121   }
 122
 123   SCM
 124   irr_getVideoDriver (SCM wrapped_obj)
 125   {
 126     irr::video::IVideoDriver* driver;
 127     if (device_p (wrapped_obj))
 128       {
 129         driver = unwrap_device (wrapped_obj)->getVideoDriver ();
 130       }
 131     else
 132       {
 133         scm_error (scm_arg_type_key, NULL, "Cannot get video driver from object: ~S",
 134                    scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
 135       }
 136     return wrap_video_driver (driver);
 137   }
 138
 139 }