Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-28 16:23:49 +01:00
Code Issues Releases Wiki Activity

Move library tree where it belongs

Browse Source
This commit is contained in:
ra
2010-01-24 09:19:39 +00:00
parent e74978ba77
commit 58caf78a86
6020 changed files with 2790154 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
lib-src/libnyquist/nyquist/tran/instrsaxall.alg Normal file
View File

@@ -0,0 +1,38 @@
(INSTRSAX-COMPLETE-ALG
(NAME "sax_all")
(ARGUMENTS ("double" "freq") ("sound_type" "breath_env") ("sound_type" "freq_env")
("double" "vibrato_freq") ("double" "vibrato_gain")
("sound_type" "reed_stiffness") ("sound_type" "noise")
("sound_type" "blow_pos") ("sound_type" "reed_table_offset")
("rate_type" "sr"))
(STATE ("struct instr *" "sax" "initInstrument(SAXOFONY, round(sr));
noteOn(susp->sax, freq, 1.0);
controlChange(susp->sax, 29, SAX_CONTROL_CHANGE_CONST * vibrato_freq);
controlChange(susp->sax, 1, SAX_CONTROL_CHANGE_CONST * vibrato_gain);")
("double" "frequency" "freq"))
(START (min breath_env))
(MATCHED-SAMPLE-RATE freq_env breath_env
reed_stiffness noise blow_pos reed_table_offset)
(CONSTANT "frequency")
(ALWAYS-SCALE freq_env breath_env reed_stiffness noise blow_pos reed_table_offset)
(SAMPLE-RATE "sr")
(TERMINATE (min breath_env))
(INNER-LOOP "
controlChange(sax, 128, SAX_CONTROL_CHANGE_CONST * breath_env);
controlChange(sax, 2, SAX_CONTROL_CHANGE_CONST * reed_stiffness);
controlChange(sax, 4, SAX_CONTROL_CHANGE_CONST * noise);
controlChange(sax, 11, SAX_CONTROL_CHANGE_CONST * blow_pos);
controlChange(sax, 26, SAX_CONTROL_CHANGE_CONST * reed_table_offset);
setFrequency(sax, frequency + freq_env);
output = (sample_type) tick(sax)")
(SUPPORT-HEADER "
#define SAX_CONTROL_CHANGE_CONST 128
")
(SUPPORT-FUNCTIONS "
#include \"instr.h\"
")
(FINALIZATION "
deleteInstrument(susp->sax);
")
)