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

synth: fix code that depended on iterable numbers.

db4
John Benediktsson 2011-10-26 15:14:39 -07:00
parent 7b6f27eda6
commit a789712f48
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/synth/synth.factor
View File

@ -4,7 +4,7 @@ USING: accessors kernel locals math math.constants math.functions memoize openal
IN: synth IN: synth
MEMO: single-sine-wave ( samples/wave -- seq ) MEMO: single-sine-wave ( samples/wave -- seq )
pi 2 * over / [ * sin ] curry map ; [ iota ] [ pi 2 * swap / [ * sin ] curry ] bi map ;
: (sine-wave) ( samples/wave n-samples -- seq ) : (sine-wave) ( samples/wave n-samples -- seq )
[ single-sine-wave ] dip <repeating> ; [ single-sine-wave ] dip <repeating> ;