;; draw everything
(let ((back-buffer #t)
(z-buffer #t)
- (color (make <s-color> #:args '(255 100 101 140))))
+ (color (make <color> #:args '(255 100 101 140))))
(while (run device)
(begin-scene driver back-buffer z-buffer color)
(draw-all scene-manager)