[beast] TESTS: improvements to bse2wav.scm for faster audio tests

[Stefan Westerfeld <stw src gnome org>]

commit 1345c968f85a6df2f74a11a7b60ae7607b35642f
Author: Stefan Westerfeld <stefan space twc de>
Date:   Thu Feb 17 22:26:12 2011 +0100

    TESTS: improvements to bse2wav.scm for faster audio tests
    
    - use smaller usleep value to waste less time before quit on end-of-song
    - configure project auto deactivate delay to 0 in order to make BEAST
      stop the project itself quickly once its done playing

 tests/audio/bse2wav.scm |   17 ++++++++++-------
 1 files changed, 10 insertions(+), 7 deletions(-)
---
diff --git a/tests/audio/bse2wav.scm b/tests/audio/bse2wav.scm
index dd1fb01..1fdd097 100644
--- a/tests/audio/bse2wav.scm
+++ b/tests/audio/bse2wav.scm
@@ -27,7 +27,7 @@
 
 ;; playback + recording procedure
 (define (bse-2-wav bse-file wav-file seconds)
-  (let* ((blimp "*")
+  (let* ((counter 0)
 	 ;; create a new project
 	 (project (bse-server-use-new-project bse-server bse-file))
 	 ;; load file contents into project
@@ -46,14 +46,17 @@
     (bse-server-start-recording bse-server wav-file seconds)
     ;; play project and indicate progress
     (display (string-append "Playing " bse-file ": -"))
+    (bse-project-auto-deactivate project 0)
     (bse-project-play project)
     (while (bse-project-is-playing project)
-	   (usleep 250000)
-	   (display #\backspace)
-	   (display blimp)
-	   (if (string=? blimp "*")
-	       (set! blimp "o")
-	       (set! blimp "*")))
+	   (usleep 10000)
+	   (let ((rem           (remainder counter 50))
+                 (display-blimp (lambda (blimp)
+                                  (display #\backspace)
+                                  (display blimp))))
+             (if (= rem 0)  (display-blimp "*"))
+             (if (= rem 25) (display-blimp "o")))
+           (set! counter (1+ counter)))
     ;; cleanup
     (bse-project-stop project)
     (display #\backspace)