;;; guile-irrlicht --- FFI bindings for Irrlicht Engine
-;;; Copyright (C) 2019 Javier Sancho <jsf@jsancho.org>
+;;; Copyright (C) 2020 Javier Sancho <jsf@jsancho.org>
;;;
;;; This file is part of guile-irrlicht.
;;;
(define-module (irrlicht)
- #:use-module (ice-9 match)
- #:use-module (system foreign)
- #:use-module ((irrlicht bindings) #:prefix ffi:)
- #:use-module ((irrlicht bindings core) #:prefix ffi-core:)
- #:use-module ((irrlicht bindings gui) #:prefix ffi-gui:)
- #:use-module ((irrlicht bindings scene) #:prefix ffi-scene:)
- #:use-module ((irrlicht bindings video) #:prefix ffi-video:)
- #:export (;; device
- create-device
- get-video-driver
- get-gui-environment
- get-scene-manager
- set-window-caption!
- device-run?
- device-drop!
- ;; driver
- begin-scene
- end-scene
- get-texture
- ;; gui
- add-static-text!
- gui-draw-all
- ;; scene
- add-animated-mesh-scene-node
- add-camera-scene-node
- get-mesh
- scene-draw-all
- set-material-flag-am!
- set-material-texture-am!
- set-md2-animation!))
-
-;; Device functions
-(define* (create-device #:optional
- (device-type 'software)
- (window-size '(640 480))
- (bits 16)
- (fullscreen #f)
- (stencilbuffer #f)
- (vsync #f))
- (let ((driver (match device-type
- ('null ffi-video:EDT_NULL)
- ('software ffi-video:EDT_SOFTWARE)
- ('burnings ffi-video:EDT_BURNINGSVIDEO)
- ('direct3d8 ffi-video:EDT_DIRECT3D8)
- ('direct3d9 ffi-video:EDT_DIRECT3D9)
- ('opengl ffi-video:EDT_OPENGL)
- ('count ffi-video:EDT_COUNT)))
- (wsize (make-c-struct ffi-core:dimension2d window-size)))
- (let ((device (ffi:create-device driver wsize bits
- (if fullscreen 1 0)
- (if stencilbuffer 1 0)
- (if vsync 1 0))))
- (if (null-pointer? device) #f device))))
-
-(define (get-video-driver device)
- (ffi:get-video-driver device))
-
-(define (get-gui-environment device)
- (ffi:get-gui-environment device))
-
-(define (get-scene-manager device)
- (ffi:get-scene-manager device))
-
-(define (set-window-caption! device text)
- (ffi:set-window-caption device (string->pointer text)))
-
-(define (device-run? device)
- (if (> (ffi:run device) 0) #t #f))
-
-(define (device-drop! device)
- (if (> (ffi:drop device) 0) #t #f))
-
-
-;; Driver functions
-(define* (begin-scene driver
- #:optional
- (back-buffer #t)
- (z-buffer #t)
- (color '(255 0 0 0))
- (video-data %null-pointer)
- (source-rect '()))
- (ffi-video:begin-scene driver
- (if back-buffer 1 0)
- (if z-buffer 1 0)
- (make-c-struct ffi-video:scolor color)
- video-data
- (if (null? source-rect)
- %null-pointer
- (make-c-struct ffi-core:rect source-rect))))
-
-(define (end-scene driver)
- (ffi-video:end-scene driver))
-
-(define (get-texture driver filename)
- (ffi-video:get-texture driver (string->pointer filename)))
-
-
-;; GUI functions
-(define* (add-static-text! gui-env text rectangle
- #:optional
- (border #f)
- (word-wrap #t)
- (parent %null-pointer)
- (id -1)
- (fill-background #f))
- (ffi-gui:add-static-text gui-env
- (string->pointer text)
- (make-c-struct ffi-core:rect rectangle)
- (if border 1 0)
- (if word-wrap 1 0)
- parent
- id
- (if fill-background 1 0)))
-
-(define (gui-draw-all gui-env)
- (ffi-gui:draw-all gui-env))
-
-
-;; Scene functions
-(define* (add-animated-mesh-scene-node scene-manager mesh
- #:key
- (parent %null-pointer)
- (id -1)
- (position '(0 0 0))
- (rotation '(0 0 0))
- (scale '(1 1 1))
- (also-add-if-mesh-pointer-zero #f))
- (let ((node (ffi-scene:add-animated-mesh-scene-node
- scene-manager
- mesh
- parent
- id
- (make-c-struct ffi-core:vector3df position)
- (make-c-struct ffi-core:vector3df rotation)
- (make-c-struct ffi-core:vector3df scale)
- (if also-add-if-mesh-pointer-zero 1 0))))
- (if (null-pointer? node) #f node)))
-
-(define* (add-camera-scene-node scene-manager
- #:key
- (parent %null-pointer)
- (position '(0 0 0))
- (lookat '(0 0 100))
- (id -1)
- (make-active #t))
- (let ((camera (ffi-scene:add-camera-scene-node
- scene-manager
- parent
- (make-c-struct ffi-core:vector3df position)
- (make-c-struct ffi-core:vector3df lookat)
- id
- (if make-active 1 0))))
- (if (null-pointer? camera) #f camera)))
-
-(define (get-mesh scene-manager filename)
- (let ((mesh (ffi-scene:get-mesh scene-manager (string->pointer filename))))
- (if (null-pointer? mesh) #f mesh)))
-
-(define (scene-draw-all scene-manager)
- (ffi-scene:draw-all scene-manager))
-
-(define (set-material-flag-am! node flag newvalue)
- (let ((material-flag
- (match flag
- ('wireframe ffi-video:EMF_WIREFRAME)
- ('pointcloud ffi-video:EMF_POINTCLOUD)
- ('gouraud-shading ffi-video:EMF_GOURAUD_SHADING)
- ('lighting ffi-video:EMF_LIGHTING)
- ('zbuffer ffi-video:EMF_ZBUFFER)
- ('zwrite-enable ffi-video:EMF_ZWRITE_ENABLE)
- ('back-face-culling ffi-video:EMF_BACK_FACE_CULLING)
- ('front-face-culling ffi-video:EMF_FRONT_FACE_CULLING)
- ('bilinear-filter ffi-video:EMF_BILINEAR_FILTER)
- ('trilinear-filter ffi-video:EMF_TRILINEAR_FILTER)
- ('anisotropic-filter ffi-video:EMF_ANISOTROPIC_FILTER)
- ('fog-enable ffi-video:EMF_FOG_ENABLE)
- ('normalize-normals ffi-video:EMF_NORMALIZE_NORMALS)
- ('texture-wrap ffi-video:EMF_TEXTURE_WRAP)
- ('anti-aliasing ffi-video:EMF_ANTI_ALIASING)
- ('color-mask ffi-video:EMF_COLOR_MASK)
- ('color-material ffi-video:EMF_COLOR_MATERIAL)
- ('use-mip-maps ffi-video:EMF_USE_MIP_MAPS)
- ('blend-operation ffi-video:EMF_BLEND_OPERATION)
- ('polygon-offset ffi-video:EMF_POLYGON_OFFSET))))
- (ffi-scene:set-material-flag-am
- node
- material-flag
- (if newvalue 1 0))))
-
-(define (set-material-texture-am! node texture-layer texture)
- (ffi-scene:set-material-texture-am node texture-layer texture))
-
-(define (set-md2-animation! node anim)
- (let ((animation-type
- (match anim
- ('stand ffi-scene:EMAT_STAND)
- ('run ffi-scene:EMAT_RUN)
- ('attack ffi-scene:EMAT_ATTACK)
- ('pain-a ffi-scene:EMAT_PAIN_A)
- ('pain-b ffi-scene:EMAT_PAIN_B)
- ('pain-c ffi-scene:EMAT_PAIN_C)
- ('jump ffi-scene:EMAT_JUMP)
- ('flip ffi-scene:EMAT_FLIP)
- ('salute ffi-scene:EMAT_SALUTE)
- ('fallback ffi-scene:EMAT_FALLBACK)
- ('wave ffi-scene:EMAT_WAVE)
- ('point ffi-scene:EMAT_POINT)
- ('crouch-stand ffi-scene:EMAT_CROUCH_STAND)
- ('crouch-walk ffi-scene:EMAT_CROUCH_WALK)
- ('crouch-attack ffi-scene:EMAT_CROUCH_ATTACK)
- ('crouch-pain ffi-scene:EMAT_CROUCH_PAIN)
- ('crouch-death ffi-scene:EMAT_CROUCH_DEATH)
- ('death-fallback ffi-scene:EMAT_DEATH_FALLBACK)
- ('death-fallforward ffi-scene:EMAT_DEATH_FALLFORWARD)
- ('death-fallbackslow ffi-scene:EMAT_DEATH_FALLBACKSLOW)
- ('boom ffi-scene:EMAT_BOOM)
- ('count ffi-scene:EMAT_COUNT))))
- (ffi-scene:set-md2-animation
- node
- animation-type)))
+ #:use-module (oop goops)
+ #:use-module (irrlicht base)
+ #:use-module (irrlicht core)
+ #:use-module (irrlicht device)
+ #:use-module (irrlicht gui)
+ #:use-module (irrlicht io)
+ #:use-module (irrlicht irr)
+ #:use-module (irrlicht scene)
+ #:use-module (irrlicht video)
+ #:duplicates (merge-generics)
+ #:re-export (;; classes
+ <animated-mesh>
+ <animated-mesh-scene-node>
+ <attribute-exchanging-object>
+ <box3d>
+ <camera-scene-node>
+ <cursor-control>
+ <event>
+ <event-receiver>
+ <file-archive>
+ <file-system>
+ <gui-element>
+ <gui-environment>
+ <gui-static-text>
+ <irrlicht-device>
+ <key-map>
+ <material>
+ <mesh>
+ <mesh-scene-node>
+ <reference-counted>
+ <scene-manager>
+ <scene-node>
+ <scene-node-animator>
+ <texture>
+ <vertex3d>
+ <video-driver>
+ ;; methods
+ add-animated-mesh-scene-node!
+ add-animator!
+ add-camera-scene-node!
+ add-camera-scene-node-fps!
+ add-cube-scene-node!
+ add-custom-scene-node!
+ add-file-archive!
+ add-internal-point!
+ add-octree-scene-node!
+ add-sphere-scene-node!
+ add-static-text!
+ begin-scene
+ create-device
+ create-fly-circle-animator
+ create-fly-straight-animator
+ create-rotation-animator
+ draw-vertex-primitive-list
+ drop!
+ end-scene
+ get-absolute-transformation
+ get-cursor-control
+ get-event-type
+ get-file-system
+ get-fps
+ get-gui-environment
+ get-mesh
+ get-name
+ get-position
+ get-root-scene-node
+ get-scene-manager
+ get-texture
+ get-video-driver
+ is-window-active?
+ make-box3d
+ make-event-receiver
+ make-material
+ make-vertex3d
+ reset-box3d!
+ run
+ set-animation-speed!
+ set-frame-loop!
+ set-material!
+ set-material-flag!
+ set-material-texture!
+ set-md2-animation!
+ set-position!
+ set-transform!
+ set-visible!
+ set-window-caption!
+ yield-device))
+
+;; Merged methods have to be exported apart
+(re-export draw-all)
projects / guile-irrlicht.git / blobdiff