37 lines
1.1 KiB
Factor
37 lines
1.1 KiB
Factor
! Copyright (C) 2008 Alex Chapman
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors kernel locals math math.constants math.functions memoize openal synth.buffers sequences sequences.modified sequences.repeating ;
|
|
IN: synth
|
|
|
|
MEMO: single-sine-wave ( samples/wave -- seq )
|
|
pi 2 * over / [ * sin ] curry map ;
|
|
|
|
: (sine-wave) ( samples/wave n-samples -- seq )
|
|
[ single-sine-wave ] dip <repeating> ;
|
|
|
|
: sine-wave ( sample-freq freq seconds -- seq )
|
|
pick * >integer [ /i ] dip (sine-wave) ;
|
|
|
|
: >sine-wave-buffer ( freq seconds buffer -- buffer )
|
|
[ sample-freq>> -rot sine-wave ] keep swap >>data ;
|
|
|
|
: >silent-buffer ( seconds buffer -- buffer )
|
|
tuck sample-freq>> * >integer 0 <repetition> >>data ;
|
|
|
|
TUPLE: harmonic n amplitude ;
|
|
C: <harmonic> harmonic
|
|
|
|
TUPLE: note hz secs ;
|
|
C: <note> note
|
|
|
|
: harmonic-freq ( note harmonic -- freq )
|
|
n>> swap hz>> * ;
|
|
|
|
:: note-harmonic-data ( harmonic note buffer -- data )
|
|
buffer sample-freq>> note harmonic harmonic-freq note secs>> sine-wave
|
|
harmonic amplitude>> <scaled> ;
|
|
|
|
: >note ( harmonics note buffer -- buffer )
|
|
dup -roll [ note-harmonic-data ] 2curry map <summed> >>data ;
|
|
|