(define-module (irrlicht video)
- #:export (get-texture))
+ #:use-module (oop goops)
+ #:use-module (irrlicht base)
+ #:use-module (irrlicht foreign))
-(load-extension "libguile-irrlicht" "init_guile_irrlicht")
+
+;; ITexture
+(define-class <texture> (<irrlicht-base>)
+ (irr-class #:init-value "ITexture" #:getter irr-class))
+
+(export <texture>)
+
+
+;; IVideoDriver
+(define-class <video-driver> (<irrlicht-base>)
+ (irr-class #:init-value "IVideoDriver" #:getter irr-class))
+
+(define-method (get-texture (video-driver <video-driver>) filename)
+ (make <texture>
+ #:irr-pointer
+ ((get-irrlicht-proc "getTexture" video-driver)
+ (irr-pointer video-driver)
+ filename)))
+
+(export <video-driver> get-texture)