diff options
| author | Richard <q@1bpm.net> | 2025-04-13 18:48:02 +0100 |
|---|---|---|
| committer | Richard <q@1bpm.net> | 2025-04-13 18:48:02 +0100 |
| commit | 9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22 (patch) | |
| tree | 291bd79ce340e67affa755a8a6b4f6a83cce93ea /site/udo/tab2wav.udo | |
| download | apps.csound.1bpm.net-9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22.tar.gz apps.csound.1bpm.net-9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22.tar.bz2 apps.csound.1bpm.net-9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22.zip | |
initial
Diffstat (limited to 'site/udo/tab2wav.udo')
| -rwxr-xr-x | site/udo/tab2wav.udo | 151 |
1 files changed, 151 insertions, 0 deletions
diff --git a/site/udo/tab2wav.udo b/site/udo/tab2wav.udo new file mode 100755 index 0000000..1c0b9cb --- /dev/null +++ b/site/udo/tab2wav.udo @@ -0,0 +1,151 @@ +#ifndef UDO_TAB2WAV
+#define UDO_TAB2WAV ##
+
+/*
+ Table to wave to table file ease tool
+
+ This file is part of the SONICS UDO collection by Richard Knight 2023
+ License: GPL-2.0-or-later
+ http://1bpm.net
+*/
+
+
+/*
+ Output table to 16bit WAV file
+
+ kdone tab2wav ifn, Spath [, ilen, iprocrate, iblocksize]
+
+ kdone trigger to specify when done
+ ifn table number to use
+ Spath file path to output to
+ isamples how many samples to save, defaults to full length
+ iprocrate processing rate in processes per second, defaults to 10
+ iblocksize block size in one process cycle, defaults to 2048
+*/
+opcode tab2wav, k, iSjjj
+ ifn, Spath, isamples, iprocrate, iblocksize xin
+
+ iprocrate = (iprocrate == -1) ? 10 : iprocrate
+ iblocksize = (iblocksize == -1) ? 2048 : iblocksize
+
+ ichannels = ftchnls(ifn)
+ isr = ftsr(ifn)
+ ilenraw = (isamples == -1) ? ftlen(ifn) : isamples
+ ilen = ilenraw / ichannels
+
+ kdone init 0
+
+
+ if (kdone == 0) then
+ ; each block processing at iprocrate
+ ktrig metro iprocrate
+ if (ktrig == 1) then
+ kcount = 0
+ while (kcount < iblocksize) do
+ apos = round:a(lphasor(isr / sr)) ; rounded to deal with stereo offset if required
+
+ ; if complete, set kdone
+ if (downsamp(apos) >= ilen) then
+ kdone = 1
+ kgoto complete
+ endif
+
+ ; read and write position calcs for stereo / reverse
+ aposbase = apos * ichannels
+ aposrL = aposbase
+ aposrR = aposbase + 1
+
+ if (ichannels == 2) then
+ fout Spath, 14, table:a(aposrL, ifn), table:a(aposrR, ifn)
+ else
+ fout Spath, 14, table:a(aposrL, ifn)
+ endif
+ kcount += 1
+ od
+ endif
+
+ endif
+
+complete:
+ xout kdone
+endop
+
+
+
+
+/*
+ Load file to existing table without altering length/channels
+
+ kdone wav2tab Spath, ifn [, imonochannel=0]
+
+ kdone trigger to specify when done
+ Spath file path to load from
+ ifn table number to use
+ imonochannel if ifn is mono and Spath is stereo, 1 specifies to load from the right channel, rather than the default (0) which is left
+ iprocrate processing rate in processes per second, defaults to 10
+ iblocksize block size in one process cycle, defaults to 2048
+*/
+opcode wav2tab, k, Siojj
+ Spath, ifn, imonochannel, iprocrate, iblocksize xin
+ iprocrate = (iprocrate == -1) ? 10 : iprocrate
+ iblocksize = (iblocksize == -1) ? 2048 : iblocksize
+
+ ifilechannels = filenchnls(Spath)
+ ichannels = ftchnls(ifn)
+ isr = ftsr(ifn)
+ ilenraw = ftlen(ifn)
+ ilen = ilenraw / ichannels
+
+ kdone init 0
+
+
+ if (kdone == 0) then
+ ; each block processing at iprocrate
+ ktrig metro iprocrate
+ if (ktrig == 1) then
+ kcount = 0
+ while (kcount < iblocksize) do
+ apos = round:a(lphasor(isr / sr)) ; rounded to deal with stereo offset if required
+
+ ; if complete, set kdone
+ if (downsamp(apos) >= ilen) then
+ kdone = 1
+ kgoto complete
+ endif
+
+ if (ifilechannels == 2) then
+ aL, aR diskin Spath, 1
+ else
+ aL diskin Spath, 1
+ aR = aL
+ endif
+
+ ; read and write position calcs for stereo / reverse
+ aposbase = apos * ichannels
+ aposwL = aposbase
+ aposwR = aposbase + 1
+
+
+ if (ichannels == 2) then
+ tablew aL, aposwL, ifn
+ tablew aR, aposwR, ifn
+ else
+ if (imonochannel == 1 && ifilechannels == 2) then
+ tablew aR, aposwL, ifn
+ else
+ tablew aL, aposwL, ifn
+ endif
+ endif
+ kcount += 1
+ od
+ endif
+
+ endif
+
+complete:
+ xout kdone
+endop
+
+
+#end
+
|