-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathseqFreq.pd
115 lines (115 loc) · 2.67 KB
/
seqFreq.pd
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
#N canvas 228 115 794 590 10;
#X obj 59 284 inlet;
#X obj 275 205 inlet;
#X obj 59 416 outlet;
#X text 108 284 clock input;
#X text 319 231 randomize melody input;
#X obj 275 260 until;
#X obj 275 288 f;
#X obj 306 288 + 1;
#X obj 350 288 sel 0;
#X obj 59 312 t b;
#X obj 59 335 f;
#X obj 90 335 + 1;
#X obj 275 534 tabwrite \$0-freq;
#X obj 59 385 tabread \$0-freq;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-freq 16 float 2;
#X coords 0 127 16 0 100 100 1 0 0;
#X restore 115 139 graph;
#X obj 539 206 inlet;
#X text 571 232 randomize melody input;
#X obj 539 261 until;
#X obj 539 289 f;
#X obj 570 289 + 1;
#X obj 614 289 sel 0;
#X obj 539 233 t b;
#X obj 539 533 tabwrite \$0-freq;
#X obj 539 332 t b f;
#X obj 275 331 t b b;
#X obj 275 232 t b b;
#X obj 340 142 \$1;
#X obj 340 165 array size \$0-freq;
#X obj 306 309 mod \$1;
#X obj 90 356 mod \$1;
#X obj 570 310 mod \$1;
#X obj 587 206 r NEW-SEED;
#X obj 275 417 tabread scaleArray;
#X obj 413 479 + 36;
#X obj 413 448 * 12;
#X obj 275 496 +;
#X obj 275 359 t b b;
#X obj 539 417 tabread scaleArray;
#X obj 677 479 + 36;
#X obj 677 448 * 12;
#X obj 539 496 +;
#X obj 539 359 t b b;
#X text 105 69 argument \$1 is length of sequencer;
#X text 595 27 lengthIn;
#X obj 596 48 inlet;
#X obj 596 71 t b b f f f f f;
#X obj 413 418 neuron 3;
#X obj 677 417 neuron 3;
#X obj 539 386 neuron 7;
#X obj 335 260 neuron \$1;
#X obj 275 386 neuron 7;
#X obj 368 508 random \$1;
#X connect 0 0 9 0;
#X connect 1 0 25 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 0 24 0;
#X connect 7 0 28 0;
#X connect 8 0 5 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 0 13 0;
#X connect 11 0 29 0;
#X connect 13 0 2 0;
#X connect 15 0 21 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 0 23 0;
#X connect 19 0 30 0;
#X connect 20 0 17 1;
#X connect 21 0 17 0;
#X connect 23 0 41 0;
#X connect 23 1 22 1;
#X connect 24 0 36 0;
#X connect 24 1 51 0;
#X connect 25 0 5 0;
#X connect 25 1 49 0;
#X connect 26 0 27 0;
#X connect 28 0 6 1;
#X connect 28 0 8 0;
#X connect 29 0 10 1;
#X connect 30 0 18 1;
#X connect 30 0 20 0;
#X connect 31 0 21 0;
#X connect 32 0 35 0;
#X connect 33 0 35 1;
#X connect 34 0 33 0;
#X connect 35 0 12 0;
#X connect 36 0 50 0;
#X connect 36 1 46 0;
#X connect 37 0 40 0;
#X connect 38 0 40 1;
#X connect 39 0 38 0;
#X connect 40 0 22 0;
#X connect 41 0 48 0;
#X connect 41 1 47 0;
#X connect 44 0 45 0;
#X connect 45 0 21 0;
#X connect 45 1 26 0;
#X connect 45 2 29 1;
#X connect 45 3 26 1;
#X connect 45 4 49 1;
#X connect 45 5 51 1;
#X connect 45 6 30 1;
#X connect 46 0 34 0;
#X connect 47 0 39 0;
#X connect 48 0 37 0;
#X connect 49 0 28 1;
#X connect 50 0 32 0;
#X connect 51 0 12 1;
#X coords 0 -1 1 1 130 140 1 100 100;