1 ! Copyright (C) 2009 Joe Groff.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors timers audio.engine audio.loader calendar
4 destructors io kernel math math.functions ranges specialized-arrays
5 sequences random math.vectors ;
6 FROM: alien.c-types => short ;
7 SPECIALIZED-ARRAY: short
10 TUPLE: noise-generator ;
12 M: noise-generator generator-audio-format
14 M: noise-generator generate-audio
16 4096 [ -4096 4096 [a..b] random ] short-array{ } replicate-as
18 M: noise-generator dispose
21 :: audio-engine-test ( -- )
22 "vocab:audio/engine/test/loop.aiff" read-audio :> loop-sound
23 "vocab:audio/engine/test/once.wav" read-audio :> once-sound
25 f 4 <audio-engine> :> engine
28 engine T{ audio-source f { 1.0 0.0 0.0 } 1.0 { 0.0 0.0 0.0 } f } loop-sound t
29 play-static-audio-clip :> loop-clip
30 engine T{ audio-source f { -1.0 0.0 0.0 } 1.0 { 0.0 0.0 0.0 } f } noise-generator new 2
31 play-streaming-audio-clip :> noise-clip
35 i 0.05 * [ sin ] [ cos ] bi :> ( s c )
36 loop-clip source>> { c 0.0 s } >>position drop
37 noise-clip source>> { c 0.0 s } -2.0 v*n >>position drop
40 engine T{ audio-source f { 0.0 0.0 0.0 } 1.0 { 0.0 0.0 0.0 } f } once-sound f
41 play-static-audio-clip drop
45 ] 20 milliseconds every :> timer
46 "Press Enter to stop the test." print
51 MAIN: audio-engine-test