From: Javier Sancho Date: Fri, 15 May 2020 07:17:11 +0000 (+0200) Subject: make-box3d X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=c59d2be798005a3684d75c3f561568ad2cdac9c7;p=guile-irrlicht.git make-box3d --- diff --git a/Makefile.am b/Makefile.am index f7c37c1..6faf8e0 100644 --- a/Makefile.am +++ b/Makefile.am @@ -89,6 +89,7 @@ godir = @GUILE_SITE_CCACHE@ SOURCES = \ irrlicht.scm \ irrlicht/base.scm \ + irrlicht/core.scm \ irrlicht/device.scm \ irrlicht/foreign.scm \ irrlicht/gui.scm \ diff --git a/irrlicht.scm b/irrlicht.scm index 9724a80..e2e5a9b 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -21,6 +21,7 @@ (define-module (irrlicht) #:use-module (oop goops) #:use-module (irrlicht base) + #:use-module (irrlicht core) #:use-module (irrlicht device) #:use-module (irrlicht gui) #:use-module (irrlicht io) @@ -49,6 +50,7 @@ get-video-driver is-empty? is-window-active? + make-box3d run set-material-flag! set-material-texture! diff --git a/irrlicht/core.scm b/irrlicht/core.scm new file mode 100644 index 0000000..0604076 --- /dev/null +++ b/irrlicht/core.scm @@ -0,0 +1,35 @@ +;;; guile-irrlicht --- FFI bindings for Irrlicht Engine +;;; Copyright (C) 2020 Javier Sancho +;;; +;;; This file is part of guile-irrlicht. +;;; +;;; Guile-irrlicht is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU Lesser General Public License as +;;; published by the Free Software Foundation; either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; Guile-irrlicht is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public +;;; License along with guile-irrlicht. If not, see +;;; . + + +(define-module (irrlicht core) + #:use-module (oop goops) + #:use-module (irrlicht base) + #:use-module (irrlicht foreign)) + + +;; aabbox3d +(define-class () + (irr-class #:init-value "aabbox3d")) + +(define (make-box3d) + (let ((aabbox3d_make (get-irrlicht-proc "aabbox3d_make"))) + (make #:irr-pointer (aabbox3d_make)))) + +(export make-box3d)