-! (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
+SPECIALIZED-ARRAY: alien.c-types:short
IN: audio.engine.test
TUPLE: noise-generator ;
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
] 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