«Funky Klangs» bySchemawound

on 23 Feb'12 09:50 in

Just experimenting with patterns

```1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23```
```/* Some Funky Klangs - Totally botched the math on what I was trying to do but it sounds better this way */

(
SynthDef(\DistKlangBlip, {
| out = 0, release = 1, freq1 = 1, freq2 = 5, freq3 = 8, freqMult = 4 |
var env = Linen.kr(Impulse.kr(0), 0.01, 1, release, doneAction:2);
var freqs = ([freq1, freq2, freq3] * freqMult).midicps;
var klang = Klang.ar(`[freqs, nil, nil ], 1, 0);
Out.ar(out, klang.tanh!2 * env * 0.5)

)

(
Pbind(*[
instrument: \DistKlangBlip,
dur: Pxrand([0.25, 0.5], inf) * 0.5,
release: Pkey(\dur),
freqMult: Pxrand((3..12), inf),
freq2: Prand([4,5], inf),
freq3: Prand([8,12], inf)
]).play;
)```
raw 732 chars (focus & ctrl+a+c to copy)
reception
Schemawound user 23 Feb'12 09:52

Just experimenting with patterns

Schemawound user 23 Feb'12 09:53

Opps, didn't mean to comment my own thing.

freejazztampa user 23 Feb'12 20:50

Very nice - I like the 80's vibe of this one.

freejazztampa user 23 Feb'12 20:52

why did you use the Pkey?

rukano user 24 Feb'12 05:45

if you name your argument sustain instead of 'release', your sustain will be equal to \dur and you can use the key \legato as a multiplier for this ;)

Schemawound user 06 Mar'12 11:16

@Freejazztampa: To tie the length of the note to the duration. Maybe I did it wrong?

Schemawound user 06 Mar'12 11:18

@Rukano: Thanks for the tip. Still trying to figure out all the argument name to use with patterns.