: play-sine-wave ( freq seconds sample-freq -- )
init-openal
- <16bit-mono-buffer> >sine-wave-buffer send-buffer id>>
+ <16-bit-mono-buffer> >sine-wave-buffer send-buffer id>>
1 gen-sources first
[ AL_BUFFER rot set-source-param ] [ source-play ] bi
check-error ;
: test-note-buffer ( note -- )
init-openal
- test-instrument2 swap cd-sample-freq <16bit-mono-buffer>
+ test-instrument2 swap cd-sample-freq <16-bit-mono-buffer>
>note send-buffer id>>
1 gen-sources first [ swap queue-buffer ] [ source-play ] bi
check-error ;