#: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 (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> get-texture)