(define-module (irrlicht video)
- #:export (get-texture))
+ #:use-module (oop goops)
+ #:use-module (ice-9 optargs)
+ #: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 (begin-scene (video-driver <video-driver>) . rest)
+ (let-keywords rest #f
+ ((back-buffer #t)
+ (z-buffer #t)
+ (color '(255 0 0 0))
+ video-data
+ source-rect)
+ ((get-irrlicht-proc "beginScene" video-driver)
+ (irr-pointer video-driver)
+ back-buffer
+ z-buffer
+ color
+ video-data
+ source-rect)))
+
+(define-method (end-scene (video-driver <video-driver>))
+ ((get-irrlicht-proc "endScene" video-driver)
+ (irr-pointer video-driver)))
+
+(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> begin-scene end-scene get-texture)