;; FPS camera
(add-camera-scene-node-fps! scene-manager)
-(set-visible-cursor! (get-cursor-control device) #f)
+(set-visible! (get-cursor-control device) #f)
;; loop
(define last-fps -1)
-(while (device-run? device)
+(while (run device)
(cond ((is-window-active? device)
(begin-scene driver #:color '(255 200 200 200))
- (scene-draw-all scene-manager)
+ (draw-all scene-manager)
(end-scene driver)
(let ((fps (get-fps driver)))
(set-window-caption! device caption))
(set! last-fps fps))))
(else
- (yield device))))
+ ((@ (irrlicht) yield) device))))
;; delete device
-(device-drop! device)
+(drop! device)
(exit #t)