39 lines
1.0 KiB
Factor
39 lines
1.0 KiB
Factor
|
! Copyright (C) 2008 Alex Chapman
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
USING: accessors arrays kernel namespaces make openal sequences
|
||
|
|
synth synth.buffers ;
|
||
|
|
IN: synth.example
|
||
|
|
|
||
|
|
: play-sine-wave ( freq seconds sample-freq -- )
|
||
|
|
init-openal
|
||
|
|
<16bit-mono-buffer> >sine-wave-buffer send-buffer id>>
|
||
|
|
1 gen-sources first
|
||
|
|
[ AL_BUFFER rot set-source-param ] [ source-play ] bi
|
||
|
|
check-error ;
|
||
|
|
|
||
|
|
: test-instrument1 ( -- harmonics )
|
||
|
|
[
|
||
|
|
1 0.5 <harmonic> ,
|
||
|
|
2 0.125 <harmonic> ,
|
||
|
|
3 0.0625 <harmonic> ,
|
||
|
|
4 0.03125 <harmonic> ,
|
||
|
|
] { } make ;
|
||
|
|
|
||
|
|
: test-instrument2 ( -- harmonics )
|
||
|
|
[
|
||
|
|
1 0.25 <harmonic> ,
|
||
|
|
2 0.25 <harmonic> ,
|
||
|
|
3 0.25 <harmonic> ,
|
||
|
|
4 0.25 <harmonic> ,
|
||
|
|
] { } make ;
|
||
|
|
|
||
|
|
: sine-instrument ( -- harmonics )
|
||
|
|
1 1 <harmonic> 1array ;
|
||
|
|
|
||
|
|
: test-note-buffer ( note -- )
|
||
|
|
init-openal
|
||
|
|
test-instrument2 swap cd-sample-freq <16bit-mono-buffer>
|
||
|
|
>note send-buffer id>>
|
||
|
|
1 gen-sources first [ swap queue-buffer ] [ source-play ] bi
|
||
|
|
check-error ;
|