soundscape assignment rayburn sound art fall '25

master
Leo Coogan 4 months ago
parent 0e7dac8a2b
commit 4d6ef209d6
Signed by: lcoogan
GPG Key ID: 54DBD17B0D75ABB0

@ -0,0 +1,42 @@
b = Buffer.readChannel(s, "/home/lcoogan/snd/releases/cantorial-resynthesis/wav/organ/Cantor Moshe Schwimmer - Ahavah Rabbah.3.wav", channels:[0])
b.play;
(
{
var sig;
sig = GrainBuf.ar(
1,
Impulse.ar(4),
0.6,
b,
0.7,
0.5,
4,
0,
-1,
512
);
sig = Pan2.ar(sig, -1);
}.play;
)
(
{
var sig;
sig = GrainBuf.ar(
1,
Impulse.ar(4),
0.6,
b,
0.7,
1,
4,
2,
-1,
512
);
sig = Pan2.ar(sig, 1);
}.play;
)

@ -0,0 +1,146 @@
// Author: Leo Coogan
// Title: Rimbaud
// Assignment: 2-3 minute soundscape
(
SynthDef(\help_Klank, { |out = 0, i_freq|
var klank, n, harm, amp, ring;
// harmonics
harm = \harm.ir(Array.series(4, 1, 1).postln);
// amplitudes
amp = \amp.ir(Array.fill(4, 0.05));
// ring times
ring = \ring.ir(Array.fill(4, 0.01));
klank = Klank.ar(`[harm, amp, ring], { ClipNoise.ar(0.003) }.dup, i_freq);
Out.ar(out, klank);
}).add;
)
(
SynthDef(\help_Klanke, { |out = 0, i_freq|
var klank, n, harm, amp, ring;
// harmonics
harm = \harm.ir(Array.series(4, 1, 1).postln);
// amplitudes
amp = \amp.ir(Array.fill(4, 0.05));
// ring times
ring = \ring.ir(Array.fill(4, 0.001));
klank = Klank.ar(`[harm, amp, ring], { ClipNoise.ar(0.003) }.dup, i_freq);
Out.ar(out, klank);
}).add;
)
// nothing special yet, just using the default set of harmonics.
a = Synth(\help_Klank, [\i_freq, 300]);
b = Synth(\help_Klank, [\i_freq, 400]);
// bugs
c = Synth(\help_Klank, [\i_freq, 533.33, \belWidth, 0.1]);
d = Synth(\help_Klank, [\i_freq, 711.11, \belWidth, 0.01]);
// above
d = Synth(\help_Klanke, [\i_freq, 711.11, \belWidth, 0.01]);
// water scaping
// rocks scraping
// hand grabing
// "the pagan blood comes back!"
// first
(
a = Synth(\help_Klank, [
\i_freq, 110,
\harm, [4, 1, 3, 5, 7],
\ring, Array.fill(4, 0.1), // set shorter ring time
\amp, Array.fill(4, 0.05) // set louder amps
])
);
// first
(
a = Synth(\help_Klank, [
\i_freq, 110,
\harm, [4, 1, 3, 5, 7],
\ring, Array.fill(4, 0.1), // set shorter ring time
\amp, Array.fill(4, 0.05) // set louder amps
])
);
(
a = Synth(\help_Klank, [
\i_freq, 110,
\harm, [4, 1, 3, 5, 7] +.f [1, 2, 3],
\ring, Array.fill(4, 0.1), // set shorter ring time
\amp, Array.fill(4, 0.05) // set louder amps
])
);
(
a = Synth(\help_Klank, [
\i_freq, 110,
\harm, [4, 1, 3, 5, 7] +.f [1, 2, 3] +.x [4, 5, 6],
\ring, Array.fill(4, 0.1), // set shorter ring time
\amp, Array.fill(4, 0.05) // set louder amps
])
);
// Church organ
// thunder
// noise
// rocks scraping in water
// Overpass example
(
SynthDef("help-KlankOverlapTexture2",
{|out = 0, freqs = #[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], rings = #[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], atk = 5, sus = 8, rel = 5, pan = 0|
var e = EnvGen.kr(Env.linen(atk, sus, rel, 1, 4), doneAction: Done.freeSelf);
var i = BrownNoise.ar(0.0012);
var z = Klank.ar(
`[freqs, nil, rings], // specs
i // input
);
Out.ar(out, Pan2.ar(z*e, pan));
}).add;
r = Routine{
var sustain = 6, transition = 4, overlap = 5;
var period = transition*2+sustain/overlap;
0.5.wait; // wait for the synthdef to be sent to the server
inf.do {
Synth("help-KlankOverlapTexture2", [
\atk, transition,
\sus, sustain,
\rel, transition,
\pan, 1.0.rand2,
\freqs, {1000.0.linrand+80}.dup(12),
\rings, {0.1.rrand(1)}.dup(12)
]);
period.wait;
}
};
r.play;
)

@ -0,0 +1,14 @@
= Draft =
* Filtered voices
* Formant filtered synth
* Spectral delay water
* Varieties of wind
* Electrial devices
* Foots in spaces
* Industrial noises / heavy machinery
* Reading of Une Saison en Enfer / audiopoetry
* children laughing
* thunder
* rain
* heart beat distortion / the body
* Jewish music blending together in space
Loading…
Cancel
Save