-! (c)2009 Joe Groff bsd license
-USING: accessors timers 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 ;