1 files changed, 133 insertions, 0 deletions
diff --git a/sonics/instrument_portchord.udo b/sonics/instrument_portchord.udo
new file mode 100755
index 0000000..97c1ec2
--- /dev/null
+++ b/sonics/instrument_portchord.udo
@@ -0,0 +1,133 @@
+#ifndef UDO_FNMI_PORTCHORD
+#define UDO_FNMI_PORTCHORD ##
+/*
+	Portamento recursive chord players
+	Slim excerpt for Partial Emergence
+
+	This file is part of the SONICS UDO collection by Richard Knight 2021
+		License: GPL-2.0-or-later
+		http://1bpm.net
+*/
+
+#include "sonics/__config__.udo"
+#include "sonics/sequencing_melodic_persistence.udo"
+#include "sonics/sequencing_melodic_portamento.udo"
+#include "sonics/wavetables.udo"
+#include "sonics/sounddb.udo"
+
+
+/*
+	Play continuous chords from melodic sequencer with portamento, using oscil as an instrument and a specified wavetable
+
+	aL, aR portchord_wave [iwavefn=gifnSine, ifreqmult=1, ivibdepth=1, ivibrate=3, index=0]
+
+	aL, aR			stereo outputs
+	iwavefn			the f-table to use with oscil
+	ifreqmult		frequency multiplier of the chord note frequencies to be applied
+	ivibdepth		vibrato depth
+	ivibrate		vibrato rate in Hz
+	index			internal start index of the chord notes; could also be used to specify starting note offset
+*/
+opcode portchord_wave, aa, jpjjo
+	iwavefn, ifreqmult, ivibdepth, ivibrate, index xin
+	
+	iwavefn = (iwavefn == -1) ? gifnSine : iwavefn
+	ivibdepth = (ivibdepth == -1) ? 1 : ivibdepth
+	ivibrate = (ivibrate == -1) ? 3 : ivibrate
+
+	kamp table index, gimel_amps
+	kfreq table index, gimel_freqs
+
+	klfo = oscil:k(ivibdepth, ivibrate) ;oscil:k(7, 5)
+	kfreq += klfo
+	kfreq *= ifreqmult
+
+	;kamp portk kamp, (i(gkseq_beattime) * gimel_portamento_beatratio) ; fade out when change
+
+	aL oscil kamp*0.1, kfreq, iwavefn
+	ipan = random(0, 1)
+	aR = aL * ipan
+	aL *= (1 - ipan)
+
+	if (index + 1 < ftlen(gimel_amps)) then
+		aLx, aRx portchord_wave iwavefn, ifreqmult, ivibdepth, ivibrate, index + 1
+		aL += aLx
+		aR += aRx
+	endif
+
+	xout aL, aR
+endop
+
+
+
+/*
+	Play continuous chords from melodic sequencer with portamento, using a sounddb collection as source sounds
+
+	aL, aR portchord_sound icollectionid [, imode=1, ifreqmult=1, ifftsize=giFFTsize, index=0]
+
+	aL, aR			stereo outputs
+	icollectionid	collection ID from sounddb to use for the playback
+	imode			0 = read with sndwarp; 1 = read with mincer
+	ifreqmult		frequency multiplier of the chord note frequencies to be applied
+	ifftsize		FFT size to use when imode = 1 ; default to global setting in __config__.udo
+	index			internal start index of the chord notes; could also be used to specify starting note offset
+*/
+opcode portchord_sound, aa, ippjo
+	icollectionid, imode, ifreqmult, ifftsize, index xin
+
+	ifftsize = (ifftsize == -1) ? giFFTsize : ifftsize
+
+	inote = round(random(50, 80))
+	ibasefreq = cpsmidinn(inote)
+	ifileid, ipitchratio sounddb_mel_nearestnote icollectionid, inote
+
+	ifn = gisounddb[ifileid][0]
+	ichannels = gisounddb[ifileid][1]
+	idur = gisounddb[ifileid][2]
+	irmsnorm = gisounddb[ifileid][3]
+
+	kampb table index, gimel_amps
+	kfreq table index, gimel_freqs
+
+	kamp portk kampb, (i(gkseq_beattime) * gimel_portamento_beatratio) ; fade out when change
+
+	kpitch = (kfreq / ibasefreq) * ifreqmult ; actual pitch adjustment
+
+	istart = random(0.05, 0.2)
+	iend = random(istart+0.1, 0.8) 
+	atime = abs(oscil(iend - istart, random(0.001, 0.1), gifnSine, random(0, 1))) + istart
+
+
+	klfo = oscil:k(random(0.0001, 0.009), random(1, 5)) + 1
+	kpitch *= klfo
+
+	if (kamp != 0) then
+		if (imode == 0) then
+			kpitch *= (ftsr(ifn) / sr) ; adjustment for sndwarp required
+			
+			;apitch interp kpitch
+			aL, aR sndwarpst kamp, atime, kpitch, ifn, istart, 4410, 441, 8, gifnHalfSine, 1
+
+		else
+			if (ichannels == 2) then
+				aL, aR mincer atime, kamp, kpitch, ifn, 0, ifftsize
+			else
+				aL mincer atime, kamp, kpitch, ifn, 0, ifftsize
+				aR = aL
+			endif
+		endif
+	endif
+
+	aL *= (1 - irmsnorm) * 0.5
+	aR *= (1 - irmsnorm) * 0.5
+
+	; recursion for all chord parts
+	if (index + 1 < ftlen(gimel_amps)) then
+		aLx, aRx portchord_sound icollectionid, imode, ifreqmult, ifftsize, index + 1
+		aL += aLx
+		aR += aRx
+	endif
+	xout aL, aR
+endop
+
+#end