(define-module (irrlicht video)
- #:export (begin-scene
- get-texture))
+ #:use-module (oop goops)
+ #:use-module (irrlicht base)
+ #:use-module (irrlicht foreign))
-(load-extension "libguile-irrlicht" "init_guile_irrlicht")
-(define irr-begin-scene begin-scene)
-(define* (begin-scene video-driver
- #:key
- (back-buffer #t)
- (z-buffer #t)
- (color '(255 0 0 0))
- (video-data #f)
- (source-rect #f))
- (irr-begin-scene video-driver
- back-buffer
- z-buffer
- color
- video-data
- source-rect))
+;; IVideoDriver
+(define-class <video-driver> (<irrlicht-base>))
+
+(export <video-driver>)