+ (irr-class #:init-value "IVideoDriver"))
+
+(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)
+ video-driver
+ back-buffer
+ z-buffer
+ color
+ video-data
+ source-rect)))
+
+(define-method (end-scene (video-driver <video-driver>))
+ ((get-irrlicht-proc "endScene" video-driver)
+ video-driver))
+
+(define-method (get-fps (video-driver <video-driver>))
+ (let ((getFPS (get-irrlicht-proc "getFPS" video-driver)))
+ (getFPS video-driver)))
+
+(define-method (get-name (video-driver <video-driver>))
+ (let ((getName (get-irrlicht-proc "getName" video-driver)))
+ (getName video-driver)))