diff options
| author | Richard <richard@1bpm.net> | 2022-10-04 00:17:55 +0100 |
|---|---|---|
| committer | Richard <richard@1bpm.net> | 2022-10-04 00:17:55 +0100 |
| commit | decb2dc0e9f1167d5cd8fb4d455305be6b9fdfbe (patch) | |
| tree | 9a9a586bbb6268e52290c017ec95d3f672822980 /include/instruments_synthesis.inc | |
| download | csd-partialemergence-decb2dc0e9f1167d5cd8fb4d455305be6b9fdfbe.tar.gz csd-partialemergence-decb2dc0e9f1167d5cd8fb4d455305be6b9fdfbe.tar.bz2 csd-partialemergence-decb2dc0e9f1167d5cd8fb4d455305be6b9fdfbe.zip | |
initial
Diffstat (limited to 'include/instruments_synthesis.inc')
| -rwxr-xr-x | include/instruments_synthesis.inc | 98 |
1 files changed, 98 insertions, 0 deletions
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
|