aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorRichard <q@1bpm.net>2021-03-17 17:25:20 +0000
committerRichard <q@1bpm.net>2021-03-17 17:25:20 +0000
commit18eb64d160b5f133c53327a76bc38c72e5ac3da3 (patch)
tree039b4a7ef46291baf1ddca791a150931de436ae6 /src
downloadcsound-festival-18eb64d160b5f133c53327a76bc38c72e5ac3da3.tar.gz
csound-festival-18eb64d160b5f133c53327a76bc38c72e5ac3da3.tar.bz2
csound-festival-18eb64d160b5f133c53327a76bc38c72e5ac3da3.zip
initial
Diffstat (limited to 'src')
-rw-r--r--src/opcodes.cpp102
1 files changed, 102 insertions, 0 deletions
diff --git a/src/opcodes.cpp b/src/opcodes.cpp
new file mode 100644
index 0000000..606cd2f
--- /dev/null
+++ b/src/opcodes.cpp
@@ -0,0 +1,102 @@
+#include <plugin.h>
+#include <festival/festival.h>
+#include <sstream>
+
+struct ftts : csnd::Plugin<1, 2> {
+ static constexpr char const *otypes = "i";
+ static constexpr char const *itypes = "Si";
+ EST_Wave wave;
+ FUNC *table;
+
+ int genft(int size) {
+ EVTBLK *evt;
+ MYFLT *pf;
+
+ evt = (EVTBLK*) csound->malloc(sizeof(EVTBLK));
+ evt->opcod = "f";
+ evt->strarg = NULL;
+ evt->pcnt = 5;
+ pf = &evt->p[0];
+ pf[0] = FL(0);
+ pf[1] = FL(0);
+ pf[2] = evt->p2orig = FL(0);
+ pf[3] = evt->p3orig = -size;
+ pf[4] = FL(2); // gen numbe
+ pf[5] = FL(0);
+ int n = csound->get_csound()->hfgens(csound->get_csound(), &table, evt, 1);
+ if (UNLIKELY(n != 0)) {
+ return NOTOK;
+ }
+ csound->free(evt);
+ return OK;
+ }
+
+ int init() {
+ // create mutex for realtime run; check csound.c like line 3685
+ STRINGDAT &word = inargs.str_data(0);
+ int heap_size = 210000;
+ int load_init_files = 1;
+ festival_initialize(load_init_files, heap_size);
+ std::ostringstream pitch;
+ pitch << "(set! duffint_params '((start "
+ << ((int) inargs[1]) << ") end ("
+ << ((int) inargs[1]) << ")))";
+ festival_eval_command(pitch.str().c_str());
+
+ festival_eval_command("(Parameter.set 'Int_Method 'DuffInt)");
+ festival_eval_command("(Parameter.set 'Int_Target_Method Int_Targets_Default)");
+ festival_eval_command("(Parameter.set 'Audio_Required_Rate 44100)");
+ festival_text_to_wave(word.data, wave);
+ festival_wait_for_spooler();
+
+ int adjusted_size = (csound->sr() / wave.sample_rate()) * wave.length();
+ if ((genft(adjusted_size)) != OK) {
+ return csound->init_error("Cannot create ftable");
+ }
+
+ table->soundend = adjusted_size;
+ table->nchanls = 1;
+ table->flenfrms = adjusted_size;
+ table->gen01args.sample_rate = csound->sr();
+ table->cpscvt = 0;
+ table->cvtbas = LOFACT; // * csound->sr() * csound->get_csound()->onedsr;
+ table->loopmode1 = 0;
+ table->loopmode2 = 0;
+ table->begin1 = 0;
+ table->end1 = adjusted_size;
+ table->begin2 = 0;
+ table->end2 = adjusted_size;
+
+ read_in();
+ outargs[0] = table->fno;
+ return OK;
+ }
+
+ int read_in() {
+ MYFLT lastsample = 0;
+ int read_pos = 0;
+ int kcount = 0;
+ int write_pos = 0;
+ int srdiv = csound->sr() / wave.sample_rate();
+
+ while (read_pos < wave.length() && write_pos < table->soundend) {
+ if (kcount == 0) {
+ lastsample = (MYFLT) wave.a(read_pos++, 0)*0.00001;
+ }
+
+ table->ftable[write_pos] = lastsample;
+
+ write_pos++;
+
+ if (++kcount > srdiv) {
+ kcount = 0;
+ }
+ }
+ return OK;
+ }
+};
+
+#include <modload.h>
+void csnd::on_load(csnd::Csound *csound) {
+ csnd::plugin<ftts>(csound, "ftts", csnd::thread::i);
+}