steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove debug prints

db4
Joe Groff 2010-01-20 15:23:48 -08:00
parent 90a065e690
commit d58ac13101
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/audio/engine/engine.factor
View File

@ -183,7 +183,6 @@ M: static-audio-clip (update-audio-clip)
drop ; drop ;
M:: streaming-audio-clip (update-audio-clip) ( audio-clip -- ) M:: streaming-audio-clip (update-audio-clip) ( audio-clip -- )
"blip" P drop
audio-clip al-source>> :> al-source audio-clip al-source>> :> al-source
0 c:<uint> :> buffer 0 c:<uint> :> buffer
al-source AL_BUFFERS_PROCESSED get-source-param [ al-source AL_BUFFERS_PROCESSED get-source-param [

2
extra/audio/engine/test/test.factor
View File

@ -11,7 +11,7 @@ TUPLE: noise-generator ;
M: noise-generator generator-audio-format M: noise-generator generator-audio-format
drop 1 16 8000 ; drop 1 16 8000 ;
M: noise-generator generate-audio M: noise-generator generate-audio
nip P [ -1 shift [ -4096 4096 [a,b] random ] short-array{ } replicate-as ] keep ; nip [ -1 shift [ -4096 4096 [a,b] random ] short-array{ } replicate-as ] keep ;
:: audio-engine-test ( -- ) :: audio-engine-test ( -- )
"vocab:audio/engine/test/loop.aiff" read-audio :> loop-sound "vocab:audio/engine/test/loop.aiff" read-audio :> loop-sound