-
Notifications
You must be signed in to change notification settings - Fork 0
/
fmop~.pd
110 lines (110 loc) · 2.88 KB
/
fmop~.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
#N canvas 0 19 1680 1001 12;
#X obj 103 17 inlet~ f0;
#X obj 196 18 inlet~ ratio;
#X obj 480 18 inlet~ amp;
#X obj 291 19 inlet~ fb;
#X obj 668 54 block~ 1;
#X obj 102 161 phasor~;
#X obj 102 134 *~;
#X obj 103 239 cos~;
#X obj 15 16 inlet~ pm;
#X obj 104 268 *~, f 54;
#X obj 669 78 array define \$0-delay 1;
#X obj 137 312 tabsend~ \$0-delay;
#X obj 316 136 tabreceive~ \$0-delay;
#X obj 290 220 *~, f 4;
#X obj 315 162 rzero~ -1;
#X obj 315 187 *~ 0.5;
#X obj 105 355 outlet~;
#X obj 99 449 hsl 128 15 0 127 0 0 \$0-fb \$0-fbrestore fb -18 8 0
10 #fcfcfc #000000 #000000 0 1;
#X obj 99 472 hsl 128 15 0 127 0 0 \$0-fbcv \$0-fbcvrestore fb-cv -36
8 0 10 #fcfcfc #ff8300 #ff8300 0 1;
#X obj 99 495 hsl 128 15 0 127 0 0 \$0-amp \$0-amprestore amp -24 8
0 10 #fcfcfc #000000 #000000 0 1;
#X obj 99 518 hsl 128 15 0 127 0 0 \$0-ampcv \$0-ampcvrestore amp-cv
-42 8 0 10 #fcfcfc #ff8300 #ff8300 0 1;
#X floatatom 197 425 5 0 0 0 base-ratio \$0-ratiorestore \$0-ratio
10;
#X obj 213 46 r \$0-ratio;
#X obj 371 67 r \$0-fb;
#X obj 371 17 r \$0-fbcv;
#X obj 517 161 r \$0-amp;
#X obj 517 97 r \$0-ampcv;
#X obj 195 107 +~;
#X obj 290 62 *~;
#X obj 290 113 +~;
#X obj 479 143 *~;
#X obj 479 206 +~;
#X text 50 401 pm----f0----ra----fb----am;
#X obj 371 93 / 127;
#X obj 371 42 / 127;
#X obj 517 123 / 127;
#X floatatom 96 425 5 0 0 0 offset \$0-freqrestore \$0-freq 10;
#X obj 102 76 +~;
#X obj 120 46 r \$0-freq;
#X obj 517 186 / 64;
#X text 158 486 |;
#X obj 692 157 r \$0-ratio;
#X obj 714 182 r \$0-fb;
#X obj 736 210 r \$0-fbcv;
#X obj 758 237 r \$0-amp;
#X obj 780 260 r \$0-ampcv;
#X obj 671 130 r \$0-freq;
#X obj 671 288 pack f f f f f f;
#X obj 586 291 savestate;
#X obj 586 360 unpack f f f f f f;
#X obj 709 388 s \$0-ampcvrestore;
#X obj 684 411 s \$0-amprestore;
#X obj 659 435 s \$0-fbcvrestore;
#X obj 635 461 s \$0-fbrestore;
#X obj 610 486 s \$0-ratiorestore;
#X obj 586 512 s \$0-freqrestore;
#X obj 671 209 f;
#X connect 0 0 37 0;
#X connect 1 0 27 0;
#X connect 2 0 30 0;
#X connect 3 0 28 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 9 0 16 0;
#X connect 12 0 14 0;
#X connect 13 0 7 0;
#X connect 14 0 15 0;
#X connect 15 0 13 1;
#X connect 22 0 27 1;
#X connect 23 0 33 0;
#X connect 24 0 34 0;
#X connect 25 0 39 0;
#X connect 26 0 35 0;
#X connect 27 0 6 1;
#X connect 28 0 29 0;
#X connect 29 0 13 0;
#X connect 30 0 31 0;
#X connect 31 0 9 1;
#X connect 33 0 29 1;
#X connect 34 0 28 1;
#X connect 35 0 30 1;
#X connect 37 0 6 0;
#X connect 38 0 37 1;
#X connect 39 0 31 1;
#X connect 41 0 47 1;
#X connect 42 0 47 2;
#X connect 43 0 47 3;
#X connect 44 0 47 4;
#X connect 45 0 47 5;
#X connect 46 0 56 1;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 48 1 56 0;
#X connect 49 0 55 0;
#X connect 49 1 54 0;
#X connect 49 2 53 0;
#X connect 49 3 52 0;
#X connect 49 4 51 0;
#X connect 49 5 50 0;
#X connect 56 0 47 0;
#X coords 0 -1 1 1 186 143 2 50 400;