1. Christian Kellermann
  2. beesteroids

Commits

Christian Kellermann  committed 39c96e0

Make sounds play in parallel

  • Participants
  • Parent commits ae256c1
  • Branches master

Comments (0)

Files changed (1)

File beesteroids.scm

View file
          (a (thing-heading ship))
          (r (thing-bounding-radius ship)))
     (when (< 0 bullets-left)
-          (unless *muted* (play-sample *firing-sound* channel: 2 duration: 1000))
+          (unless *muted* (play-sample *firing-sound*  duration: 1000))
           (world-bullets-left-set! world (sub1 bullets-left))
           (world-bullets-set! world
                               (cons (make-bullet (radial-point-from pos (+ r 10) a) a 200)
                    (second pos)))
          (new-r (- r 10))
          (upgrade? (> (random 10) 7)))
-    (unless *muted* (play-sample *explosion-sound* channel: 3 duration: 3000))
+    (unless *muted* (play-sample *explosion-sound* duration: 3000))
     (cond ((> new-r 20)
            (world-asteroids-set!
             *w*
 (set! *frames* 0)
 (set! *fps* "??")
 (set! *thrust* 20)
+(define *w*)
 
 ;; make us a global new world
 (world-inits