#:use-module (irrlicht base)
#:use-module (irrlicht foreign)
#:use-module (irrlicht io)
- #:use-module (irrlicht irr))
+ #:use-module (irrlicht irr)
+ #:use-module (irrlicht video))
;; IMesh
flag
new-value))
-(export <scene-node> set-material-flag!)
+(define-method (set-material-texture! (node <scene-node>) texture-layer (texture <texture>))
+ ((get-irrlicht-proc "setMaterialTexture" node)
+ (irr-pointer node)
+ texture-layer
+ (irr-pointer texture)))
+
+(export <scene-node> set-material-flag! set-material-texture!)
;; ISceneNode