#:use-module (gl)
#:export (image
move
- scale))
+ scale
+ over))
(define (calculate proc-or-value)
(if (procedure? proc-or-value)
(lambda ()
(gl-scale x y z)
(display-scene scene))))
+
+(define (over . scenes)
+ (make-scene
+ "over"
+ (lambda ()
+ (let display ((sc scenes))
+ (cond ((not (null? sc))
+ (with-gl-push-matrix
+ (display-scene (car sc)))
+ (display (cdr sc))))))))