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/fnml/clay_workings.csd | |
| 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/fnml/clay_workings.csd')
| -rwxr-xr-x | site/udo/fnml/clay_workings.csd | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/site/udo/fnml/clay_workings.csd b/site/udo/fnml/clay_workings.csd new file mode 100755 index 0000000..e11e64b --- /dev/null +++ b/site/udo/fnml/clay_workings.csd @@ -0,0 +1,58 @@ +<CsoundSynthesizer>
+<CsOptions>
+-odac
+</CsOptions>
+<CsInstruments>
+sr = 44100
+kr = 4410
+nchnls = 2
+0dbfs = 1
+seed 0
+
+#include "sounddb.udo"
+#include "uniqueid.udo"
+#include "bussing.udo"
+
+gicoll_clay[], gicollclay_id sounddb_getcollection "Clay.Hit"
+
+instr play_clay_roll
+ instanceid = uniqueid()
+ icollsize = lenarray(gicoll_clay)
+ ifreqmax = 100
+ kmetrofreq expseg ifreqmax*0.4, p3*0.3, ifreqmax*0.8, p3*0.4, ifreqmax, p4*0.4, ifreqmax*0.5
+ kmetro metro kmetrofreq
+ if (kmetro == 1) then
+ kdbid = gicoll_clay[round:k(random:k(0, icollsize - 1))]
+ schedulek "_play_clay_hit", random(0, 1/kmetrofreq), 1, kdbid, instanceid
+ endif
+
+ kamp expseg 0.001, p3*0.4, 1, p3*0.1, 1, p3*0.4, 0.001
+
+ aL, aR bus_read sprintf("clay_hit%d", instanceid)
+ aL pareq aL, 15000, 4, 0.6
+ aR pareq aR, 15000, 4, 0.6
+ aL *= kamp
+ aR *= kamp
+ outs aL, aR
+endin
+
+
+
+instr _play_clay_hit
+ idbid = p4
+ instanceid = p5
+ ifn = gisounddb[idbid][0]
+ idur = gisounddb[idbid][2]
+ p3 = idur
+
+ aL, aR loscil 0.2, 1, ifn, 1
+ ipan = random(0, 1)
+ bus_mix(sprintf("clay_hit%d", instanceid), aL*ipan, aR*(1-ipan))
+endin
+
+
+</CsInstruments>
+<CsScore>
+i"play_clay_roll" 0 6
+</CsScore>
+</CsoundSynthesizer>
\ No newline at end of file |