«Draft code for wearefive» by tedthetrumpet

on 08 Mar'17 16:13 in algorave

Work-in-progress code for wearefive https://algorave.com/wearefive – works alongside setup code also posted here.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
/* _          _ _   _        _                            _
  | |_ ___ __| | |_| |_  ___| |_ _ _ _  _ _ __  _ __  ___| |_
  |  _/ -_) _` |  _| ' \/ -_)  _| '_| || | '  \| '_ \/ -_)  _|
   \__\___\__,_|\__|_||_\___|\__|_|  \_,_|_|_|_| .__/\___|\__|
  @tedthetrumpet - Glasgow - Scotland          |_|              */// we are 5/4

///////////////////////////////////////////////////////////////////////////////////

Pbindef.defaultQuant_(5); Pdefn.defaultQuant_(5);
t.tempo_(160/60)
~changebufs.("hitz02")

Pbindef(\u, \instrument, \bf, \dur, 1/2, \buf, Pseq(~bufs[0..9],inf), \amp, 0.7)
Pbindef(\u, \amp, 0.6)
Pbindef(\u, \octave, 5)
Pbindef(\u, \octave, Pseq((3..5),inf))
Pbindef(\u, \buf, Pslide(~bufs[0..3],inf,5,2)) // <<<<<<
Pbindef(\u, \buf, Pslide(~bufs[0..3]+2,inf,5,2))
Pbindef(\u, \pan, Pwhite(-0.3,0.3))
Pbindef(\u, \out, 0)
Pbindef(\u, \out, Pseq([~mbus,~ebus],inf))
Pbindef(\u, \out, ~ebus)
Pbindef(\u, \buf, Pn(Plazy({Pseq({~bufs.choose}!10,4)})))

Pbindef(\u).stop
Pbindef(\u).play

Pbindef(\v, \instrument, \rh2, \dur, 1/2, \scale, Scale.dorian, \octave, [3,4], \amp, 0.4)
Pbindef(\v, \dur, 1/4)
Pbindef(\v, \amp, 0.3)
Pbindef(\v, \modIndex, Pseq((1..9)/10,inf))
Pbindef(\v, \degree, Pdefn(\seq) + Pseq((0..4).scramble,inf))
Pbindef(\v, \isRest, Pseq(~rrest.(10),inf))
Pbindef(\v, \isRest, nil)
Pbindef(\v, \legato, Pwhite(0.5,0.9))

Pdefn(\seq1, Pstutter(20,Pseq([0,-1],4)))
Pdefn(\seq2, Pstutter(20, Pseq([-4,-3,-2,-1],1)))
Pdefn(\seq, Pseq([Pdefn(\seq1), Pdefn(\seq2)],inf))

Pbindef(\v).play
Pbindef(\v).stop

Pbindef(\w, \buf, ~l.choose)
Pbindef(\w, \instrument, \dice, \amp, 0.8, \slice, Pslide((0..15),inf,5,2))
Pbindef(\w, \octave, 3)
Pbindef(\w, \pan, Pwhite(-0.2,0.2))
Pbindef(\w, \instrument, \slice)
Pbindef(\w, \dur, 1/4)
Pbindef(\w).play.stop
Pbindef(\w, \out, 0)

Pbindef(\e, \amp, 0.3)

/* _          _ _   _        _                            _
  | |_ ___ __| | |_| |_  ___| |_ _ _ _  _ _ __  _ __  ___| |_
  |  _/ -_) _` |  _| ' \/ -_)  _| '_| || | '  \| '_ \/ -_)  _|
   \__\___\__,_|\__|_||_\___|\__|_|  \_,_|_|_|_| .__/\___|\__|
  @tedthetrumpet - Glasgow - Scotland          |_|              */// now we are 5/4
raw 2207 chars (focus & ctrl+a+c to copy)
reception
comments