<gui-image> add-image!

diff --git a/irrlicht.scm b/irrlicht.scm
index 1c34cc6059979c62db412bb8a97d6bf2702fdece..74982744a7b412f3a4a0b8212e9793390a8f6993 100644 (file)
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -42,6 +42,7 @@
                <file-system>
                <gui-element>
                <gui-environment>
+               <gui-image>
                <gui-static-text>
                <irrlicht-device>
                <key-map>
@@ -63,6 +64,7 @@
                add-cube-scene-node!
                add-custom-scene-node!
                add-file-archive!
+               add-image!
                add-internal-point!
                add-octree-scene-node!
                add-sphere-scene-node!

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index fe2f09df54cb36af81972aa9e5a92c4b338becd1..10cf0bf05280c81ac192d324ad23766b6cd2f92b 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -49,6 +49,15 @@
 (define-class <gui-environment> (<reference-counted>)
   (irr-class #:init-value "IGUIEnvironment"))
 
+(define-method (add-image! (gui-environment <gui-environment>) image pos . rest)
+  (let-keywords rest #f
+        ((use-alpha-channel #t)
+         (parent (make <gui-element>))
+         (id -1)
+         (text ""))
+    (let ((addImage (get-irrlicht-proc "addImage" gui-environment parent)))
+      (addImage gui-environment image pos use-alpha-channel parent id text))))
+
 (define-method (add-static-text! (gui-environment <gui-environment>) text rectangle . rest)
   (let-keywords rest #f
         ((border #f)
@@ -64,7 +73,7 @@
   ((get-irrlicht-proc "drawAll" gui-environment)
    gui-environment))
 
-(export <gui-environment> add-static-text! draw-all)
+(export <gui-environment> add-image! add-static-text! draw-all)
 
 
 ;; IGUIStaticText
@@ -72,3 +81,10 @@
   (irr-class #:init-value "IGUIStaticText"))
 
 (export <gui-static-text>)
+
+
+;; IGUIImage
+(define-class <gui-image> (<gui-element>)
+  (irr-class #:init-value "IGUIImage"))
+
+(export <gui-image>)