(define-module (irrlicht video)
#:use-module (oop goops)
+ #:use-module (ice-9 optargs)
#:use-module (irrlicht base)
#:use-module (irrlicht foreign))
+;; ITexture
+(define-class <texture> (<irrlicht-base>)
+ (irr-class #:init-value "ITexture" #:getter irr-class))
+
+(export <texture>)
+
+
;; IVideoDriver
-(define-class <video-driver> (<irrlicht-base>))
+(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 (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>)
+(export <video-driver> begin-scene get-texture)