(define-module (irrlicht video)
- #:export (get-texture))
+ #:export (begin-scene
+ get-texture))
(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))