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

oops. remove catheter and IVs from audio.engine

db4
Joe Groff 2010-01-19 10:42:38 -08:00
parent 06fb0fb71d
commit beb0e7ae5b
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -121,19 +121,17 @@ ERROR: audio-context-not-available device-name ;
audio-engine buffer-size>> :> buffer-size audio-engine buffer-size>> :> buffer-size
audio-clip audio>> :> audio audio-clip audio>> :> audio
audio-clip next-data-offset>> :> next-data-offset audio-clip next-data-offset>> :> next-data-offset
audio size>> next-data-offset - P :> remaining-audio audio size>> next-data-offset - :> remaining-audio
{ {
{ [ remaining-audio 0 <= ] [ { [ remaining-audio 0 <= ] [
audio-clip loop?>> [ audio-clip loop?>> [
"queue even wraparound" P drop
audio-clip 0 >>next-data-offset audio-clip 0 >>next-data-offset
al-buffer queue-clip-buffer al-buffer queue-clip-buffer
] when ] when
] } ] }
{ [ remaining-audio buffer-size < ] [ { [ remaining-audio buffer-size < ] [
audio-clip loop?>> [ audio-clip loop?>> [
"queue wraparound" P drop
audio data>> audio data>>
[ next-data-offset swap <displaced-alien> remaining-audio <direct-uchar-array> ] [ next-data-offset swap <displaced-alien> remaining-audio <direct-uchar-array> ]
[ buffer-size remaining-audio - <direct-uchar-array> ] bi append :> data [ buffer-size remaining-audio - <direct-uchar-array> ] bi append :> data
@ -141,13 +139,11 @@ ERROR: audio-context-not-available device-name ;
audio-clip [ audio size>> mod ] change-next-data-offset drop audio-clip [ audio size>> mod ] change-next-data-offset drop
] [ ] [
"queue tail" P drop
next-data-offset audio data>> <displaced-alien> :> data next-data-offset audio data>> <displaced-alien> :> data
audio-clip al-buffer audio data remaining-audio (queue-clip-buffer) audio-clip al-buffer audio data remaining-audio (queue-clip-buffer)
] if ] if
] } ] }
[ [
"queue normal" P drop
next-data-offset audio data>> <displaced-alien> :> data next-data-offset audio data>> <displaced-alien> :> data
audio-clip al-buffer audio data buffer-size (queue-clip-buffer) audio-clip al-buffer audio data buffer-size (queue-clip-buffer)
] ]
@ -175,8 +171,8 @@ ERROR: audio-context-not-available device-name ;
0 c:<uint> :> buffer* 0 c:<uint> :> buffer*
al-source AL_SOURCE_STATE get-source-param AL_STOPPED = al-source AL_SOURCE_STATE get-source-param AL_STOPPED =
[ "stopped" P drop audio-clip dispose ] [ [ audio-clip dispose ] [
al-source AL_BUFFERS_PROCESSED get-source-param P [ al-source AL_BUFFERS_PROCESSED get-source-param [
al-source 1 buffer* alSourceUnqueueBuffers al-source 1 buffer* alSourceUnqueueBuffers
audio-clip buffer* c:*uint queue-clip-buffer audio-clip buffer* c:*uint queue-clip-buffer
] times ] times