]> git.jsancho.org Git - guile-irrlicht.git/blob - irrlicht/bindings/video.scm
d64e558d6281967b0b6ec4d6fd3af86ac4d8f3c0
[guile-irrlicht.git] / irrlicht / bindings / video.scm
1 ;;; guile-irrlicht --- FFI bindings for Irrlicht Engine
2 ;;; Copyright (C) 2019 Javier Sancho <jsf@jsancho.org>
3 ;;;
4 ;;; This file is part of guile-irrlicht.
5 ;;;
6 ;;; Guile-irrlicht is free software; you can redistribute it and/or modify
7 ;;; it under the terms of the GNU Lesser General Public License as
8 ;;; published by the Free Software Foundation; either version 3 of the
9 ;;; License, or (at your option) any later version.
10 ;;;
11 ;;; Guile-irrlicht is distributed in the hope that it will be useful, but
12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 ;;; General Public License for more details.
15 ;;;
16 ;;; You should have received a copy of the GNU Lesser General Public
17 ;;; License along with guile-irrlicht.  If not, see
18 ;;; <http://www.gnu.org/licenses/>.
19
20
21 (define-module (irrlicht bindings video)
22   #:use-module (system foreign))
23
24 (define cirr (dynamic-link "libCIrrlicht"))
25
26 ;; E_DRIVER_TYPE enum
27 (define-public EDT_NULL            0)
28 (define-public EDT_SOFTWARE        1)
29 (define-public EDT_BURNINGSVIDEO   2)
30 (define-public EDT_DIRECT3D8       3)
31 (define-public EDT_DIRECT3D9       4)
32 (define-public EDT_OPENGL          5)
33 (define-public EDT_COUNT           6)
34
35 ;; scolor struct
36 (define-public scolor
37   (list uint32 uint32 uint32 uint32))
38
39 ;; Driver functions
40 (define-public begin-scene
41   (pointer->procedure
42    int
43    (dynamic-func "irr_video_beginScene" cirr)
44    (list '* int int '* '* '*)))
45
46 (define-public end-scene
47   (pointer->procedure
48    int
49    (dynamic-func "irr_video_endScene" cirr)
50    (list '*)))