alien.c-types: not necessary to import `short` differently anymore

[factor.git] / extra / audio / engine / test / test.factor

diff --git a/extra/audio/engine/test/test.factor b/extra/audio/engine/test/test.factor
index 3107b96e7a7843cd335b9e4a2a6a13a670be9237..2b81c5b3e211a7c72dad1bdfaf43d116d481e827 100644 (file)
--- a/extra/audio/engine/test/test.factor
+++ b/extra/audio/engine/test/test.factor
@@ -1,8 +1,8 @@
-! (c)2009 Joe Groff bsd license
-USING: accessors alarms audio audio.engine audio.loader calendar
-destructors io kernel locals math math.functions math.ranges specialized-arrays
+! Copyright (C) 2009 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors timers audio.engine audio.loader calendar
+destructors io kernel math math.functions ranges specialized-arrays
 sequences random math.vectors ;
-FROM: alien.c-types => short ;
 SPECIALIZED-ARRAY: short
 IN: audio.engine.test
 
@@ -12,14 +12,16 @@ M: noise-generator generator-audio-format
     drop 1 16 8000 ;
 M: noise-generator generate-audio
     drop
-    4096 [ -4096 4096 [a,b] random ] short-array{ } replicate-as
+    4096 [ -4096 4096 [a..b] random ] short-array{ } replicate-as
     8192 ;
+M: noise-generator dispose
+    drop ;
 
 :: audio-engine-test ( -- )
     "vocab:audio/engine/test/loop.aiff" read-audio :> loop-sound
     "vocab:audio/engine/test/once.wav" read-audio :> once-sound
     0 :> i!
-    <standard-audio-engine> :> engine
+    f 4 <audio-engine> :> engine
     engine start-audio*
 
     engine T{ audio-source f {  1.0 0.0 0.0 } 1.0 { 0.0 0.0 0.0 } f } loop-sound t
@@ -39,10 +41,10 @@ M: noise-generator generate-audio
         ] when
 
         engine update-audio
-    ] 20 milliseconds every :> alarm
+    ] 20 milliseconds every :> timer
     "Press Enter to stop the test." print
     readln drop
-    alarm cancel-alarm
+    timer stop-timer
     engine dispose ;
 
 MAIN: audio-engine-test