Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2026-04-26 07:53:42 +02:00
Code Issues Releases Wiki Activity

Update Nyquist to v3.09.

Browse Source
This commit is contained in:
Leland Lucius
2015-04-07 22:10:17 -05:00
parent f88b27e6d8
commit 9fb0ce5b82
358 changed files with 26327 additions and 7043 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
lib-src/libnyquist/nyquist/tran/sampler.alg
View File

@@ -1,31 +1,46 @@
(SAMPLER-ALG
(NAME "sampler")
(ARGUMENTS ("sound_type" "s") ("double" "step") ("double" "loop_start")
("rate_type" "sr") ("double" "hz") ("time_type" "t0") ("sound_type" "s_fm")
("long" "npoints"))
("rate_type" "sr") ("double" "hz") ("time_type" "t0")
("sound_type" "s_fm") ("long" "npoints"))
(TABLE "s")
(NOT-IN-INNER-LOOP "s")
(STATE
("double" "loop_to" "loop_start * s->sr")
("table_type" "the_table" "sound_to_table(s)")
("sample_type *" "table_ptr" "susp->the_table->samples")
("double" "table_len" "susp->the_table->length;
{ long index = (long) susp->loop_to;
double frac = susp->loop_to - index;
if (index > round(susp->table_len) ||
index < 0) {
index = 0;
frac = 0;
}
susp->table_ptr[round(susp->table_len)] = /* copy interpolated start to last entry */
(sample_type) (susp->table_ptr[index] * (1.0 - frac) +
susp->table_ptr[index + 1] * frac);}")
("double" "table_len" "susp->the_table->length;")
("double" "phase" "0.0")
("double" "ph_incr" "(s->sr / sr) * hz / step_to_hz(step);
s_fm->scale = (sample_type) (s_fm->scale * (susp->ph_incr / hz))") )
s_fm->scale = (sample_type) (s_fm->scale * (susp->ph_incr / hz));
/* make sure parameters are ok
* the table must have samples
* the loop_start must be before the end of the table
* ph_incr must be positive
* sr should be positive
*/
{ long index = (long) susp->loop_to;
double frac = susp->loop_to - index;
if (susp->the_table->length <= 1) {
xlfail(\"sampler table length <= 1\");
}
if (index > round(susp->table_len) - 2 ||
index < 0) {
xlfail(\"sampler loop start not within samples\");
}
if (susp->ph_incr <= 0) {
xlfail(\"sampler phase increment <= 0\");
}
if (sr <= 0) {
xlfail(\"sampler sample rate <= 0\");
}
/* copy interpolated start to last entry */
susp->table_ptr[round(susp->table_len)] =
(sample_type) (susp->table_ptr[index] * (1.0 - frac) +
susp->table_ptr[index + 1] * frac);}")
)
(ALWAYS-SCALE s_fm)
(INLINE-INTERPOLATION T) ; so that modulation can be low frequency
(STEP-FUNCTION s_fm)
(TERMINATE (MIN s_fm))
(LOGICAL-STOP (MIN s_fm))
@@ -41,9 +56,7 @@
/* watch out for negative frequencies! */
if (phase < 0) phase = 0")
(CONSTANT "ph_incr" "table_len" "table_ptr" "loop_to")
(SAMPLE-RATE "sr")
(FINALIZATION " table_unref(susp->the_table);
")
(FINALIZATION " table_unref(susp->the_table);\n")
)