From decb2dc0e9f1167d5cd8fb4d455305be6b9fdfbe Mon Sep 17 00:00:00 2001
From: Richard <richard@1bpm.net>
Date: Tue, 4 Oct 2022 00:17:55 +0100
Subject: initial

---
 include/instruments_synthesis.inc | 98 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 98 insertions(+)
 create mode 100755 include/instruments_synthesis.inc

(limited to 'include/instruments_synthesis.inc')

diff --git a/include/instruments_synthesis.inc b/include/instruments_synthesis.inc
new file mode 100755
index 0000000..944149c
--- /dev/null
+++ b/include/instruments_synthesis.inc
@@ -0,0 +1,98 @@
+#ifndef INC_SYNTHESIS_INSTR
+#define INC_SYNTHESIS_INSTR ##
+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+
+	Partial Emergence
+		by Richard Knight 2022
+
+	Installation submission for the International Csound Conference 2022
+
+	Synthesis instruments
+
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+
+
+/*
+	Bass note 1
+*/
+instr fms_playnote
+	index = (p4 == -1) ? random(0, 2) : p4
+	kfreq table index, gimel_freqs
+	kfreq *= 0.25
+	kamp table index, gimel_amps
+	kenv linseg 0, p3*0.01, 1, p3*0.99, 1
+	kamp *= kenv * 0.07
+
+	aphs1 phasor kfreq/2
+	aphs2 phasor kfreq/2
+	koda = abs(oscil(random(0, 2), random(0, 1)))
+	a1 tablei aphs1, gifnSine, 1, 0, 1
+
+	av1L = abs:a(oscil:a(3, 0.1))
+	aL tablei (aphs2+a1)+av1L+koda, gifnSine, 1, 0, 1
+	av1R = abs:a(oscil:a(4, 0.05))
+	aR tablei (aphs2+a1)+av1R+koda, gifnSine, 1, 0, 1
+	kfi linseg 0, p3*0.2, 1, p3*0.8, 1
+
+	ilpfreq = random(100, 1000)
+	aL butterlp aL, ilpfreq
+	aR butterlp aR, ilpfreq
+
+	bus_mix("reverb1", aL*kamp*0.7, aR*kamp*0.7)
+	bus_mix("master", aL*kamp, aR*kamp)
+endin
+
+
+opcode fmsxosc, a, k
+	kfreq xin
+	ifn = gifnSine
+	kfreqoffset = abs:k(oscil:k(1, 0.001))
+	
+	aoda = abs:a(oscil:a(random(0.01, 1), random(0.001, 1)))
+	aphs1 phasor kfreq
+	aphs2 phasor kfreq + kfreqoffset
+	a1 tablei aphs1, ifn, 1, 0, 1
+	a2 tablei aphs2, ifn, 1, 0, 1
+	av = abs:a(oscil:a(0.1, 0.01, gifnSine, random(0, 1)))
+	aa1 tablei (aphs1+a1)+av+aoda, gifnSine, 1, 0, 1
+	aa2 tablei (aphs2+a2)+av+aoda, gifnSine, 1, 0, 1
+
+	adelt = abs:a(oscil:a(50, 0.005))
+	aa1 vdelay aa1, adelt, 50
+	xout (aa1 + aa2)
+endop
+
+
+instr fms_playnote2
+	index = p4 + 1
+	ifreq = cpsmidinn(tab_i(index, gimel_current_notes))
+
+	ifreq *= 0.125
+
+	
+	if (random(0, 1) < 0.5) then
+		ifreq *= 0.5
+	endif
+
+	aL fmsxosc ifreq
+	aR fmsxosc ifreq
+	
+	kamp = abs:k(oscil:k(1, random(0.005, 0.01), gifnSine, random(0, 0.5)))
+	klpf = abs:k(oscil:k(6000, random(0.009, 0.05), gifnSine, 0.2)) + 100
+
+	aL = butterlp(aL*kamp, klpf)
+	aR = butterlp(aR*kamp, klpf)
+	
+	aL pareq aL, 100, 0.1, 0.7
+	aR pareq aR, 100, 0.1, 0.7
+
+	kenv linseg 0, p3*0.1, 1, p3*0.9, 0
+	
+	aL *= 0.15 * kenv
+	aR *= 0.15 * kenv
+	
+	bus_mix("master", aL, aR)
+endin
+
+
+#end
-- 
cgit v1.2.3