-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfilemaker.pd
138 lines (138 loc) · 3.87 KB
/
filemaker.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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
#N canvas 118 206 1908 823 10;
#X floatatom 46 58 5 0 0 0 F1 - -;
#X floatatom 266 61 5 0 0 0 F2 - -;
#X floatatom 103 61 5 0 0 0 A1 - -;
#X floatatom 376 61 5 0 0 0 A2 - -;
#X floatatom 526 6 5 0 0 0 F0 - -;
#X floatatom 475 6 5 0 0 0 V - -;
#X floatatom 66 188 5 0 0 0 - - -;
#X floatatom 266 170 5 0 0 0 - - -;
#X floatatom 320 242 5 0 0 0 - - -;
#X floatatom 526 99 5 0 0 0 - - -;
#X floatatom 541 141 5 0 0 0 - - -;
#X msg -15 189 32;
#X obj 103 141 expr 20*log10($f1)+63;
#X obj 266 141 expr ($f1-500)/50;
#X obj 376 141 expr 20*log10($f1)+63;
#X obj 526 81 expr 1+16*log($f1/25)/log(2);
#X msg 578 98 32;
#X obj -15 81 loadbang;
#X msg 34 186 1;
#X text -1 164 FN;
#X text 38 164 ALF;
#X obj -15 -37 inlet;
#X msg 513 141 1;
#X text 511 127 AHF;
#X obj 262 652 textfile;
#X msg 262 472 clear;
#X msg 346 372 stop;
#X obj 346 310 bng 15 250 50 0 empty empty Stop 17 7 0 10 -262144 -1
-1;
#X obj 262 310 bng 15 250 50 0 empty empty Record 17 7 0 10 -262144
-1 -1;
#X obj -4 258 pack 32 1 1 1 1 1 1 1 1 1 1 32;
#X obj 289 500 list;
#X obj 289 561 list trim;
#X msg 346 472 add;
#X obj 88 116 expr ($f1-100)/25;
#X obj -4 483 list-round 1;
#X msg 198 571 write \$1 cr;
#X obj 114 310 bng 15 250 50 0 empty empty Save-As 17 7 0 10 -262144
-1 -1;
#X obj 114 472 print;
#X symbolatom 198 473 10 0 0 0 - - -;
#X obj 114 372 savepanel;
#X obj 80 293 inlet;
#X obj 228 293 inlet;
#X obj 312 293 inlet;
#X obj 103 170 expr if ($f1 < 1 \, 1 \, $f1) \;;
#X obj 376 169 expr if ($f1 < 1 \, 1 \, $f1) \;;
#X floatatom 103 222 5 0 0 0 - - -;
#X obj 346 409 metro 10;
#X obj 318 104 expr $i2*(($f1*62)+1);
#X obj 441 449 tgl 15 0 empty empty NotAlwaysWhispered 17 7 0 10 -262144
-1 -1 1 1;
#X obj 491 382 inlet;
#X floatatom 389 194 5 0 0 0 F3 - -;
#X floatatom 499 189 5 0 0 0 A3 - -;
#X floatatom 389 242 5 0 0 0 - - -;
#X obj 499 205 expr 20*log10($f1)+63;
#X obj 499 241 expr if ($f1 < 1 \, 1 \, $f1) \;;
#X obj 389 223 expr ($f1-1300)/50;
#X obj -6 -11 unpack 0 0 0 0 0 0 0 0;
#X obj 587 432 loadbang;
#X text 504 405 Initiliaze with NO whispering;
#X text 317 616 Write list to .pfs file;
#X text 345 498 Save vector every 10 milliseconds;
#X text -12 502 Round all components to nearest int;
#X text 167 11 Calculate components of vector from parameters;
#X obj 346 340 del 10;
#X text 362 357 Delay so last vector is still written to the file;
#X connect 0 0 33 0;
#X connect 1 0 47 0;
#X connect 2 0 12 0;
#X connect 3 0 14 0;
#X connect 4 0 15 0;
#X connect 5 0 47 0;
#X connect 6 0 29 2;
#X connect 7 0 29 4;
#X connect 8 0 29 5;
#X connect 9 0 29 10;
#X connect 10 0 29 9;
#X connect 11 0 29 0;
#X connect 12 0 43 0;
#X connect 13 0 7 0;
#X connect 14 0 44 0;
#X connect 15 0 9 0;
#X connect 16 0 29 11;
#X connect 17 0 11 0;
#X connect 17 0 18 0;
#X connect 17 0 16 0;
#X connect 17 0 22 0;
#X connect 18 0 29 1;
#X connect 21 0 17 0;
#X connect 21 0 56 0;
#X connect 22 0 29 8;
#X connect 25 0 24 0;
#X connect 26 0 46 0;
#X connect 27 0 38 0;
#X connect 27 0 63 0;
#X connect 28 0 25 0;
#X connect 28 0 46 0;
#X connect 29 0 34 0;
#X connect 30 0 31 0;
#X connect 31 0 24 0;
#X connect 32 0 30 0;
#X connect 33 0 6 0;
#X connect 34 0 30 1;
#X connect 35 0 24 0;
#X connect 36 0 39 0;
#X connect 38 0 35 0;
#X connect 39 0 37 0;
#X connect 39 0 38 0;
#X connect 40 0 36 0;
#X connect 41 0 28 0;
#X connect 42 0 27 0;
#X connect 43 0 45 0;
#X connect 44 0 8 0;
#X connect 45 0 29 3;
#X connect 46 0 32 0;
#X connect 47 0 10 0;
#X connect 48 0 47 1;
#X connect 49 0 48 0;
#X connect 50 0 55 0;
#X connect 51 0 53 0;
#X connect 52 0 29 6;
#X connect 53 0 54 0;
#X connect 54 0 29 7;
#X connect 55 0 52 0;
#X connect 56 0 0 0;
#X connect 56 1 2 0;
#X connect 56 2 1 0;
#X connect 56 3 3 0;
#X connect 56 4 50 0;
#X connect 56 5 51 0;
#X connect 56 6 5 0;
#X connect 56 7 4 0;
#X connect 57 0 48 0;
#X connect 63 0 26 0;