-
Notifications
You must be signed in to change notification settings - Fork 4
/
Machineomatic.pd
executable file
·1101 lines (1101 loc) · 29.2 KB
/
Machineomatic.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
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
#N canvas 699 383 627 425 10;
#N canvas 0 22 971 914 machineomatic 0;
#X obj 100 161 cnv 15 200 100 empty empty motor 20 12 1 16 -233017
-258699 0;
#X obj 300 161 cnv 15 200 100 empty empty gears 20 12 1 16 -233017
-258699 0;
#X obj 300 262 cnv 15 200 100 empty empty fan 20 12 1 16 -233017 -258699
0;
#X obj 100 262 cnv 15 200 100 empty empty engine 20 12 1 16 -233017
-258699 0;
#X obj 100 100 cnv 15 400 60 empty empty Delux-machine-o-matic 20 12
1 18 -233017 -62784 0;
#X obj 270 230 tgl 22 0 \$0-motor-mute empty empty 0 -6 0 8 -262144
-1 -1 0 1;
#X obj 267 328 tgl 22 0 \$0-engine-mute empty empty 0 -6 0 8 -262144
-1 -1 0 1;
#X obj 449 231 tgl 22 0 \$0-throb-mute empty empty 0 -6 0 8 -262144
-1 -1 0 1;
#X obj 328 202 hsl 100 12 0 1 0 1 \$0-throb-rattle \$0-throb-rattle-r
rattle 35 6 1 8 -262144 -1 -1 2100 1;
#X obj 328 190 hsl 100 12 0 1 0 1 \$0-throb-freq \$0-throb-freq-r speed
35 6 1 8 -262144 -1 -1 5200 1;
#X obj 328 214 hsl 100 12 0 1 0 1 \$0-throb-harm1 \$0-throb-harm1-r
harm1 35 6 1 8 -262144 -1 -1 2300 1;
#X obj 328 224 hsl 100 12 0 1 0 1 \$0-throb-harm2 \$0-throb-harm2-r
harm2 35 6 1 8 -262144 -1 -1 4500 1;
#X obj 328 234 hsl 100 12 0 1 0 1 \$0-throb-body \$0-throb-body-r body
35 6 1 8 -262144 -1 -1 5700 1;
#X obj 328 244 hsl 100 12 0 1 0 1 \$0-throb-vol \$0-throb-vol-r vol
35 6 1 8 -262144 -1 -1 3300 1;
#X obj 149 200 hsl 100 12 0 1 0 1 \$0-motor-brush \$0-motor-brush-r
brush 35 6 1 8 -262144 -1 -1 2600 1;
#X obj 149 188 hsl 100 12 0 1 0 1 \$0-motor-speed \$0-motor-speed-r
speed 35 6 1 8 -262144 -1 -1 400 1;
#X obj 149 212 hsl 100 12 0 1 0 1 \$0-motor-hard \$0-motor-hard-r hard
35 6 1 8 -262144 -1 -1 8400 1;
#X obj 149 222 hsl 100 12 0 1 0 1 \$0-motor-res \$0-motor-res-r res
35 6 1 8 -262144 -1 -1 5700 1;
#X obj 149 232 hsl 100 12 0.01 1 1 1 \$0-motor-harmonic \$0-motor-harmonic-r
harmonic 35 6 1 8 -262144 -1 -1 9900 1;
#X obj 149 244 hsl 100 12 0 1 0 1 \$0-motor-volume \$0-motor-volume-r
volume 35 6 1 8 -262144 -1 -1 8500 1;
#X obj 150 312 hsl 100 12 0 1 0 1 \$0-engine-capacity \$0-motor-capacity-r
capacity 35 6 1 8 -262144 -1 -1 0 1;
#X obj 150 300 hsl 100 12 0 1 0 1 \$0-engine-speed \$0-engine-speed-r
speed 35 6 1 8 -262144 -1 -1 3200 1;
#X obj 150 336 hsl 100 12 0 1 0 1 \$0-engine-volume \$0-engine-volume-r
volume 35 6 1 8 -262144 -1 -1 7000 1;
#X obj 150 324 hsl 100 12 0 1 0 1 \$0-engine-jitter \$0-engine-jitter-r
jitter 35 6 1 8 -262144 -1 -1 7300 1;
#X obj 455 328 tgl 22 0 \$0-fan-mute empty empty 0 -6 0 8 -262144 -1
-1 0 1;
#X obj 335 305 hsl 100 12 0 1 0 1 \$0-fan-size \$0-fan-size-r size
35 6 1 8 -262144 -1 -1 9400 1;
#X obj 335 293 hsl 100 12 0 1 0 1 \$0-fan-speed \$0-fan-speed-r speed
35 6 1 8 -262144 -1 -1 9600 1;
#X obj 335 341 hsl 100 12 0 1 0 1 \$0-fan-volume \$0-fan-volume-r volume
35 6 1 8 -262144 -1 -1 3200 1;
#X obj 335 317 hsl 100 12 0 1 0 1 \$0-fan-blade1 \$0-fan-blade1-r blade1
35 6 1 8 -262144 -1 -1 7000 1;
#X obj 335 329 hsl 100 12 0 1 0 1 \$0-fan-blade2 \$0-fan-blade2-r blade2
35 6 1 8 -262144 -1 -1 6400 1;
#X obj 123 132 hsl 128 15 0 1 0 1 \$0-speed \$0-speed-r masterspeed
33 7 1 8 -262144 -1 -1 6200 1;
#X obj 123 147 hsl 128 15 0 1 0 1 \$0-inertia \$0-inertia-r inertia
33 7 1 8 -262144 -1 -1 7600 1;
#N canvas 58 495 923 294 guts 0;
#X obj 77 105 dac~;
#X obj 93 79 *~ 0.4;
#N canvas 679 157 889 838 engine 0;
#X obj 215 40 *~;
#X obj 232 -24 line~;
#X obj 25 114 cos~;
#X obj 25 90 +~;
#X obj 232 -45 pack 0 50;
#X obj 232 -65 / 100;
#X obj 25 60 phasor~;
#X obj 215 18 osc~;
#X obj 232 -146 -;
#X obj 232 -126 abs;
#X obj 232 -166 line;
#X obj 25 251 clip~ 0 0.8;
#X obj 112 140 line~;
#X obj 58 185 *~;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-bell-curve 200 float 1;
#A 0 1.12535e-07 1.54727e-07 2.12059e-07 2.89706e-07 3.94519e-07 5.35535e-07
7.24633e-07 9.77371e-07 1.31404e-06 1.76105e-06 2.35258e-06 3.13275e-06
4.15832e-06 5.50199e-06 7.25659e-06 9.54016e-06 1.25023e-05 1.63317e-05
2.1266e-05 2.76026e-05 3.57128e-05 4.60584e-05 5.92113e-05 7.58768e-05
9.69224e-05 0.00012341 0.000156634 0.000198167 0.000249912 0.000314163
0.000393669 0.000491721 0.000612231 0.000759842 0.000940028 0.00115923
0.00142498 0.00174605 0.00213263 0.00259648 0.00315111 0.00381201 0.00459678
0.0055254 0.0066204 0.00790705 0.0094136 0.0111714 0.013215 0.0155826
0.0183156 0.0214592 0.0250621 0.0291763 0.0338573 0.0391639 0.0451575
0.0519019 0.0594631 0.0679081 0.0773047 0.0877205 0.0992216 0.111872
0.125732 0.140858 0.1573 0.1751 0.194291 0.214896 0.236928 0.260383
0.285247 0.311486 0.339053 0.367879 0.397882 0.428956 0.46098 0.493812
0.527292 0.561244 0.595473 0.62977 0.663916 0.697676 0.730811 0.763074
0.794216 0.823987 0.852144 0.878447 0.902668 0.924595 0.944027 0.960789
0.974725 0.985703 0.99362 0.998401 1 0.998401 0.99362 0.985703 0.974725
0.960789 0.944027 0.924595 0.902668 0.878447 0.852144 0.823987 0.794216
0.763074 0.730811 0.697676 0.663916 0.62977 0.595473 0.561244 0.527292
0.493812 0.46098 0.428956 0.397882 0.367879 0.339053 0.311486 0.285247
0.260383 0.236928 0.214896 0.194291 0.1751 0.1573 0.140858 0.125732
0.111872 0.0992216 0.0877205 0.0773047 0.0679081 0.0594631 0.0519019
0.0451575 0.0391639 0.0338573 0.0291763 0.0250621 0.0214592 0.0183156
0.0155826 0.013215 0.0111714 0.0094136 0.00790705 0.0066204 0.0055254
0.00459678 0.00381201 0.00315111 0.00259648 0.00213263 0.00174605 0.00142498
0.00115923 0.000940028 0.000759842 0.000612231 0.000491721 0.000393669
0.000314163 0.000249912 0.000198167 0.000156634 0.00012341 9.69224e-05
7.58768e-05 5.92113e-05 4.60584e-05 3.57128e-05 2.76026e-05 2.1266e-05
1.63317e-05 1.25023e-05 9.54016e-06 7.25659e-06 5.50199e-06 4.15832e-06
3.13275e-06 2.35258e-06 1.76105e-06 1.31404e-06 9.77371e-07 7.24633e-07
5.35535e-07 3.94519e-07 2.89706e-07 2.12059e-07 1.54727e-07;
#X coords 0 1 199 0 80 80 1;
#X restore 112 302 graph;
#N canvas 94 264 600 388 make-table 0;
#X msg 81 44 bang;
#X obj 81 73 t b b;
#X obj 159 142 f;
#X obj 197 142 + 1;
#X msg 175 112 0;
#X obj 81 102 until;
#X obj 161 177 t f f;
#X obj 76 306 tabwrite bell-curve;
#X obj 52 270 expr exp(-$f1*$f1);
#X obj 63 168 sel 199;
#X obj 51 241 expr ($f1-100)/25;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 2 0 9 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 2 0;
#X connect 6 0 10 0;
#X connect 6 1 7 1;
#X connect 8 0 7 0;
#X connect 9 0 5 1;
#X connect 10 0 8 0;
#X restore 111 269 pd make-table;
#X obj 58 162 cos~;
#X obj 58 139 -~ 0.25;
#X obj 58 208 +~ 100;
#X obj 58 113 *~ 0.5;
#X obj 24 285 *~;
#X obj 215 -3 + 0.1;
#X obj 232 -106 * 4;
#X obj 232 -86 + 10;
#X obj 112 94 / 2;
#X obj 24 312 hip~ 5;
#X obj 232 -187 pack \$1 130;
#X obj 112 117 pack 0 150;
#X text 275 -90 first difference of speed;
#X text 300 -12 advance/retard window;
#X text 86 60 primary oscil;
#X text 123 190 phase coherent window;
#X text 480 -113 <----;
#X text 481 -10 <----;
#X text 541 -61 Phase of exhaust to piston;
#X text 525 -98 |;
#X text 525 -78 |;
#X text 525 -44 |;
#X text 525 -25 |;
#X obj 24 336 *~ 0.4;
#X text 71 341 ajf;
#X obj 223 -590 inlet;
#X obj 24 362 *~;
#X obj 24 385 outlet~;
#X obj -71 4 *~;
#X obj -70 -41 r~ \$0-enginems;
#X obj -56 -20 sig~;
#X obj 224 -567 unpack f f f f;
#X obj 232 -209 + 0;
#X obj 202 -231 t f f;
#X obj 154 -315 line;
#X obj 204 -278 +;
#X obj 148 -383 env~;
#X msg 149 -338 \$1 20;
#X obj 148 -361 / 100;
#X obj 149 -406 lop~ 3;
#X obj 150 -428 noise~;
#X obj 227 -470 swap 1;
#X obj 229 -448 -;
#X obj 229 -423 * 1000;
#X obj 192 -500 t f f;
#X obj 185 -456 + 0.5;
#X obj 187 -476 * 3;
#X obj 192 -523 min 0.94;
#X text 204 -385 jitter machine;
#X obj -51 75 sqrt~;
#X obj -51 140 *~;
#X obj 204 -254 * 180;
#X obj 58 231 tabread4~ \$0-bell-curve;
#X connect 0 0 3 1;
#X connect 1 0 0 1;
#X connect 2 0 11 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 6 0 19 0;
#X connect 7 0 0 0;
#X connect 8 0 9 0;
#X connect 9 0 22 0;
#X connect 10 0 8 0;
#X connect 10 0 21 0;
#X connect 11 0 20 0;
#X connect 12 0 13 1;
#X connect 13 0 18 0;
#X connect 16 0 13 0;
#X connect 17 0 16 0;
#X connect 18 0 68 0;
#X connect 19 0 17 0;
#X connect 20 0 25 0;
#X connect 21 0 7 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 23 0 5 0;
#X connect 24 0 27 0;
#X connect 25 0 39 0;
#X connect 26 0 10 0;
#X connect 27 0 12 0;
#X connect 39 0 42 0;
#X connect 41 0 47 0;
#X connect 42 0 43 0;
#X connect 44 0 6 0;
#X connect 45 0 44 0;
#X connect 45 0 65 0;
#X connect 46 0 44 1;
#X connect 47 0 51 1;
#X connect 47 2 63 0;
#X connect 47 3 66 1;
#X connect 48 0 26 0;
#X connect 48 0 8 1;
#X connect 49 0 46 0;
#X connect 49 1 48 0;
#X connect 50 0 51 0;
#X connect 51 0 67 0;
#X connect 52 0 54 0;
#X connect 53 0 50 0;
#X connect 54 0 53 0;
#X connect 55 0 52 0;
#X connect 56 0 55 0;
#X connect 57 0 58 0;
#X connect 57 1 58 1;
#X connect 58 0 59 0;
#X connect 59 0 54 1;
#X connect 60 0 62 0;
#X connect 60 1 57 0;
#X connect 61 0 55 1;
#X connect 62 0 61 0;
#X connect 63 0 60 0;
#X connect 65 0 66 0;
#X connect 66 0 42 1;
#X connect 67 0 49 0;
#X connect 68 0 20 1;
#X restore 181 52 pd engine;
#N canvas 603 160 418 611 motor 0;
#X obj 171 432 vcf~ 1000 10009;
#X obj 171 384 +~;
#X obj 258 336 osc~ 100;
#X obj 169 301 *~;
#X obj 170 361 vcf~ 100 10;
#X obj 259 312 *~ 100;
#X obj 171 406 cos~;
#X obj 184 206 *~ 0.125;
#X obj 183 228 phasor~;
#X obj 184 254 *~;
#X obj 85 238 *~;
#X obj 86 263 +~;
#X obj 170 335 clip~ -1 1;
#X obj 184 276 *~;
#X obj 258 359 *~ 0.5;
#X obj 202 462 sqrt~;
#X obj 173 482 *~;
#X obj 173 527 *~;
#X obj 202 307 * -1;
#X obj 172 456 +~;
#X obj 113 238 sig~ 0.2;
#N canvas 0 22 906 686 metalnoise 0;
#X obj 351 143 noise~;
#X obj 351 164 hip~ 100;
#X obj 403 333 outlet~;
#X obj 339 103 * 6500;
#X obj 284 104 * 4200;
#X obj 399 105 * 9600;
#X obj 224 105 * 3300;
#X obj 165 105 * 2200;
#X obj 452 103 * 12000;
#X obj 123 231 bp~ 1 30;
#X obj 211 230 bp~ 1 30;
#X obj 295 229 bp~ 1 30;
#X obj 403 229 bp~ 1 30;
#X obj 496 229 bp~ 1 30;
#X obj 592 228 bp~ 1 30;
#X obj 318 44 inlet;
#X obj 403 306 *~ 0.15;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 1 0 10 0;
#X connect 1 0 11 0;
#X connect 1 0 12 0;
#X connect 1 0 13 0;
#X connect 1 0 14 0;
#X connect 3 0 12 1;
#X connect 4 0 11 1;
#X connect 5 0 13 1;
#X connect 6 0 10 1;
#X connect 7 0 9 1;
#X connect 8 0 14 1;
#X connect 9 0 16 0;
#X connect 10 0 16 0;
#X connect 11 0 16 0;
#X connect 12 0 16 0;
#X connect 13 0 16 0;
#X connect 14 0 16 0;
#X connect 15 0 7 0;
#X connect 15 0 6 0;
#X connect 15 0 4 0;
#X connect 15 0 3 0;
#X connect 15 0 5 0;
#X connect 15 0 8 0;
#X connect 16 0 2 0;
#X restore 84 206 pd metalnoise;
#X obj 173 504 *~ 0.2;
#X obj 87 20 inlet;
#X text 135 -29 motor unit;
#X text 87 -2 program params;
#X obj 87 134 * 2;
#X obj 146 146 swap 1;
#X obj 147 170 -;
#X obj 199 142 * 3;
#X obj 250 177 * 2;
#X obj 84 157 *~;
#X obj 113 122 line~;
#X msg 107 94 \$1 100;
#X obj 293 452 line~;
#X msg 293 430 \$1 100;
#X obj 292 499 *~;
#X obj 293 406 sqrt;
#X obj 86 46 unpack f f f f f f;
#X obj 173 551 outlet~;
#X obj 33 115 catch~ \$0-ms;
#X obj 17 138 *~;
#X obj 17 92 sig~ 1;
#X obj 107 69 * 10000;
#X connect 0 0 19 0;
#X connect 1 0 6 0;
#X connect 2 0 14 0;
#X connect 3 0 12 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 13 0;
#X connect 9 0 13 1;
#X connect 10 0 11 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 3 1;
#X connect 14 0 1 1;
#X connect 15 0 16 1;
#X connect 16 0 22 0;
#X connect 17 0 39 0;
#X connect 18 0 12 1;
#X connect 19 0 16 0;
#X connect 20 0 11 1;
#X connect 21 0 10 0;
#X connect 21 0 19 1;
#X connect 22 0 17 0;
#X connect 23 0 38 0;
#X connect 26 0 10 1;
#X connect 26 0 21 0;
#X connect 27 0 28 0;
#X connect 27 1 28 1;
#X connect 28 0 20 0;
#X connect 29 0 4 2;
#X connect 29 0 0 2;
#X connect 30 0 5 1;
#X connect 31 0 7 0;
#X connect 31 0 4 1;
#X connect 31 0 0 1;
#X connect 31 0 5 0;
#X connect 32 0 31 1;
#X connect 33 0 32 0;
#X connect 34 0 36 0;
#X connect 35 0 34 0;
#X connect 36 0 17 1;
#X connect 37 0 35 0;
#X connect 38 0 26 0;
#X connect 38 0 27 0;
#X connect 38 1 37 0;
#X connect 38 1 43 0;
#X connect 38 2 18 0;
#X connect 38 2 12 2;
#X connect 38 3 29 0;
#X connect 38 4 30 0;
#X connect 38 5 36 1;
#X connect 40 0 41 1;
#X connect 41 0 15 0;
#X connect 41 0 31 0;
#X connect 42 0 41 0;
#X connect 43 0 33 0;
#X restore 9 52 pd motor;
#X obj 180 83 dac~;
#N canvas 0 22 450 300 xfde 0;
#X obj 115 54 inlet;
#X obj 115 79 clip 0 1;
#X obj 145 140 swap 1;
#X obj 145 165 -;
#X obj 53 217 *~;
#X obj 81 216 *~;
#X obj 115 102 t f f;
#X obj 42 16 inlet~;
#X obj 91 16 inlet~;
#X obj 63 254 outlet~;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 5 1;
#X connect 4 0 9 0;
#X connect 5 0 9 0;
#X connect 6 0 4 1;
#X connect 6 1 2 0;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X restore 126 154 pd xfde;
#X obj 9 77 dac~;
#N canvas 217 122 1063 871 gears 0;
#X obj 434 608 vd~ \$0-o1;
#X obj 53 526 delwrite~ \$0-o1 90;
#X obj 207 527 delwrite~ \$0-o2 90;
#X obj 506 608 vd~ \$0-o2;
#X obj 53 502 osc~ 400;
#X obj 375 516 *~ 0.5;
#X obj 376 539 +~ 0.5;
#X obj 503 513 *~ 0.5;
#X obj 504 536 +~ 0.5;
#X obj 504 493 osc~ 89;
#X obj 207 502 osc~ 240;
#X obj 504 569 *~ 2;
#X obj 375 559 *~ 2;
#X obj 376 496 osc~ 345;
#X obj 247 288 * 0.5;
#X obj 322 288 * 0.5;
#X obj 502 356 * 0.5;
#X obj 334 257 t;
#X obj 464 667 +~;
#X obj 419 754 s~ $-fb;
#X obj 97 262 r~ $-fb;
#X obj 97 314 *~;
#X obj 509 667 *~;
#X obj 97 288 clip~ -1 1;
#X obj 508 691 *~ 0.5;
#X obj 486 756 outlet~;
#X text 203 138 f;
#X text 494 179 odd;
#X obj 115 149 * 0.7;
#X obj 228 217 t f f f f;
#X obj 536 278 t f f;
#X obj 422 243 t f f;
#X obj 355 212 t f f;
#X obj 368 159 * 2;
#X obj 564 188 * 50;
#X obj 487 714 *~;
#X obj 254 -31 inlet;
#X obj 253 -7 unpack f f f f f f f;
#X obj 464 42 t b f;
#X obj 559 691 line~;
#X msg 563 663 \$1 100;
#X obj 464 74 * 1;
#X obj 487 735 *~ 0.4;
#X obj 505 463 *~;
#X obj 505 424 sig~;
#X obj 378 467 *~;
#X obj 377 428 sig~;
#X obj 208 435 sig~;
#X obj 53 437 sig~;
#X floatatom 259 336 5 0 0 0 - - -;
#X obj 263 397 r~ \$0-gearsms;
#X obj 207 478 *~;
#X obj 52 480 *~;
#X obj 242 153 * 200;
#X connect 0 0 18 0;
#X connect 0 0 22 0;
#X connect 3 0 18 1;
#X connect 3 0 22 1;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 9 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 0 0;
#X connect 13 0 5 0;
#X connect 14 0 49 0;
#X connect 14 0 47 0;
#X connect 15 0 46 0;
#X connect 16 0 44 0;
#X connect 17 0 14 0;
#X connect 17 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 18 0 35 0;
#X connect 20 0 23 0;
#X connect 21 0 1 0;
#X connect 21 0 2 0;
#X connect 22 0 24 0;
#X connect 23 0 21 0;
#X connect 24 0 19 0;
#X connect 28 0 21 1;
#X connect 29 0 48 0;
#X connect 29 1 14 0;
#X connect 29 2 15 0;
#X connect 29 3 16 0;
#X connect 30 0 12 1;
#X connect 30 1 11 1;
#X connect 31 0 17 0;
#X connect 31 1 16 1;
#X connect 32 0 17 0;
#X connect 32 1 15 1;
#X connect 33 0 32 0;
#X connect 34 0 30 0;
#X connect 35 0 42 0;
#X connect 36 0 37 0;
#X connect 37 0 28 0;
#X connect 37 1 53 0;
#X connect 37 2 33 0;
#X connect 37 3 31 0;
#X connect 37 4 34 0;
#X connect 37 5 41 0;
#X connect 37 6 38 0;
#X connect 38 0 41 0;
#X connect 38 1 41 1;
#X connect 39 0 35 1;
#X connect 40 0 39 0;
#X connect 41 0 40 0;
#X connect 42 0 25 0;
#X connect 43 0 9 0;
#X connect 44 0 43 0;
#X connect 45 0 13 0;
#X connect 46 0 45 0;
#X connect 47 0 51 0;
#X connect 48 0 52 0;
#X connect 50 0 51 1;
#X connect 50 0 52 1;
#X connect 50 0 45 1;
#X connect 50 0 43 1;
#X connect 51 0 10 0;
#X connect 52 0 4 0;
#X connect 53 0 29 0;
#X restore 93 52 pd gears;
#N canvas 469 182 784 779 fan 0;
#X obj 117 263 noise~;
#X obj 230 567 bp~ 1000 5;
#X obj 241 545 bp~ 4000 5;
#X obj 191 33 inlet;
#X obj 208 709 outlet~;
#X obj 145 127 sig~;
#X obj 223 595 *~ 0.5;
#X obj 289 318 *~;
#X obj 401 331 + 1;
#N canvas 572 462 569 424 mpoint-triangle 0;
#X obj 129 85 phasor~;
#X obj 99 233 *~;
#X obj 129 119 *~ -1;
#X obj 129 167 +~ 1;
#X obj 100 263 min~;
#X obj 187 118 /~;
#X obj 233 147 sig~ 1;
#X obj 234 172 -~;
#X obj 217 196 /~;
#X obj 124 324 outlet~;
#X obj 130 56 inlet~ freq;
#X obj 165 234 *~;
#X obj 194 235 *~;
#X obj 166 264 min~;
#X obj 315 118 /~;
#X obj 316 85 sig~ 0.5;
#X obj 361 147 sig~ 1;
#X obj 362 172 -~;
#X obj 345 196 /~;
#X obj 384 84 *~ 0.5;
#X obj 125 295 min~;
#X obj 1 298 outlet~ phasor;
#X obj 128 234 *~;
#X obj 188 85 sig~ 0.5;
#X obj 256 84 *~ 0.5;
#X obj 256 16 inlet~ p1;
#X obj 384 16 inlet~ p2;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 0 0 11 1;
#X connect 0 0 21 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 12 1;
#X connect 3 0 22 0;
#X connect 4 0 20 0;
#X connect 5 0 1 1;
#X connect 6 0 7 0;
#X connect 7 0 8 1;
#X connect 8 0 22 1;
#X connect 10 0 0 0;
#X connect 11 0 13 0;
#X connect 12 0 13 1;
#X connect 13 0 20 1;
#X connect 14 0 11 0;
#X connect 15 0 14 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 12 0;
#X connect 19 0 17 1;
#X connect 19 0 14 1;
#X connect 20 0 9 0;
#X connect 22 0 4 1;
#X connect 23 0 5 0;
#X connect 23 0 8 0;
#X connect 24 0 7 1;
#X connect 24 0 5 1;
#X connect 25 0 24 0;
#X connect 26 0 19 0;
#X restore 101 203 pd mpoint-triangle;
#X obj 225 378 vcf~ 3 3;
#X obj 216 278 wrap~;
#X obj 212 305 cos~;
#X obj 189 497 *~;
#X obj 117 286 hip~ 100;
#X obj 117 307 hip~ 100;
#X obj 216 256 *~ 2;
#X obj 222 228 hip~ 0;
#X obj 271 499 * 10000;
#X obj 271 521 * 2;
#X obj 225 408 hip~ 200;
#X obj 162 548 *~ 0.6;
#X obj 225 651 hip~;
#X obj 359 568 * 500;
#X obj 305 294 * 400;
#X obj 341 589 +;
#X obj 384 256 swap 1;
#X obj 401 285 -;
#X obj 401 308 * 5;
#X obj 191 56 unpack f f f f f;
#X obj 224 625 *~;
#X obj 427 211 swap 1;
#X obj 444 240 -;
#X obj 307 581 *;
#X obj 316 556 t b f;
#X obj 444 342 cos;
#X obj 289 341 +~ 50;
#X obj 305 266 + 0.1;
#X obj 444 264 - 1;
#X obj 445 295 * 3.14159;
#X obj 445 320 / 2;
#X obj 164 150 clip 0.001 0.9999;
#X obj 215 169 clip 0.001 0.9999;
#X obj 295 108 t f f f f f;
#X text 262 649 ajf;
#X text 246 24 2 blade fan;
#X obj 100 162 *~;
#X obj 56 131 r~ \$0-fanms;
#X obj 50 205 env~;
#X obj 209 681 *~;
#X floatatom 6 233 5 0 0 0 - - -;
#X obj 50 324 *~;
#X obj 50 279 /~ 30;
#X obj 48 353 *~ 1;
#X obj 50 234 - 90;
#X obj 50 298 +~ 0.05;
#X obj 50 257 max 0.05;
#X obj 144 105 * 100;
#X connect 0 0 14 0;
#X connect 1 0 6 0;
#X connect 2 0 6 0;
#X connect 3 0 29 0;
#X connect 5 0 46 1;
#X connect 6 0 30 0;
#X connect 7 0 36 0;
#X connect 8 0 10 2;
#X connect 9 1 17 0;
#X connect 10 0 20 0;
#X connect 11 0 12 0;
#X connect 12 0 7 0;
#X connect 12 0 13 1;
#X connect 13 0 1 0;
#X connect 13 0 2 0;
#X connect 13 0 21 0;
#X connect 14 0 15 0;
#X connect 15 0 10 0;
#X connect 16 0 11 0;
#X connect 17 0 16 0;
#X connect 18 0 1 1;
#X connect 18 0 19 0;
#X connect 19 0 2 1;
#X connect 20 0 13 0;
#X connect 21 0 6 0;
#X connect 22 0 49 0;
#X connect 23 0 25 1;
#X connect 24 0 7 1;
#X connect 25 0 22 1;
#X connect 26 0 27 0;
#X connect 26 1 27 1;
#X connect 27 0 28 0;
#X connect 28 0 8 0;
#X connect 29 0 57 0;
#X connect 29 1 43 0;
#X connect 29 2 41 0;
#X connect 29 3 42 0;
#X connect 29 4 33 0;
#X connect 30 0 22 0;
#X connect 31 0 32 0;
#X connect 31 1 32 1;
#X connect 32 0 38 0;
#X connect 33 0 30 1;
#X connect 34 0 33 0;
#X connect 34 1 33 1;
#X connect 35 0 34 0;
#X connect 36 0 10 1;
#X connect 37 0 24 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 40 0 35 0;
#X connect 41 0 9 1;
#X connect 42 0 9 2;
#X connect 43 0 37 0;
#X connect 43 1 26 0;
#X connect 43 2 18 0;
#X connect 43 3 23 0;
#X connect 43 4 31 0;
#X connect 46 0 9 0;
#X connect 46 0 48 0;
#X connect 47 0 46 0;
#X connect 48 0 50 0;
#X connect 48 0 54 0;
#X connect 49 0 4 0;
#X connect 51 0 53 0;
#X connect 52 0 55 0;
#X connect 53 0 49 1;
#X connect 54 0 56 0;
#X connect 55 0 51 1;
#X connect 55 0 51 0;
#X connect 56 0 52 0;
#X connect 57 0 5 0;
#X connect 57 0 25 0;
#X restore 276 49 pd fan;
#X obj 277 73 dac~;
#N canvas 0 22 698 523 motor 0;
#X obj 42 22 r \$0-motor-brush;
#X obj 162 22 r \$0-motor-speed;
#X obj 42 82 r \$0-motor-hard;
#X obj 163 82 r \$0-motor-res;
#X obj 42 142 r \$0-motor-harmonic;
#X obj 185 142 r \$0-motor-volume;
#X obj 42 42 t b f;
#X obj 162 42 t b f;
#X obj 162 102 t b f;
#X obj 42 102 t b f;
#X obj 42 162 t b f;
#X obj 186 162 t b f;
#X obj 116 262 pack f f f f f f;
#X obj 113 294 outlet;
#X obj 301 20 r \$0-motor-mute;
#X obj 284 238 *;
#X obj 269 187 t b b f;
#X connect 0 0 6 0;
#X connect 1 0 7 0;
#X connect 2 0 9 0;
#X connect 3 0 8 0;
#X connect 4 0 10 0;
#X connect 5 0 11 0;
#X connect 6 1 12 0;
#X connect 7 0 12 0;
#X connect 7 1 12 1;
#X connect 8 0 12 0;
#X connect 8 1 12 3;
#X connect 9 0 12 0;
#X connect 9 1 12 2;
#X connect 10 0 12 0;
#X connect 10 1 12 4;
#X connect 11 0 12 0;
#X connect 11 1 15 0;
#X connect 12 0 13 0;
#X connect 14 0 16 0;
#X connect 15 0 12 5;
#X connect 16 0 12 0;
#X connect 16 1 15 0;
#X connect 16 2 15 1;
#X restore 9 31 pd motor if;
#N canvas 0 22 683 483 gears 0;
#X obj 66 43 r \$0-throb-rattle;
#X obj 80 65 r \$0-throb-freq;
#X obj 92 87 r \$0-throb-harm1;
#X obj 108 110 r \$0-throb-harm2;
#X obj 142 130 r \$0-throb-body;
#X obj 157 157 r \$0-throb-vol;
#X obj 85 183 t b;
#X obj 76 270 outlet;
#X obj 189 180 r \$0-throb-mute;
#X obj 73 237 pack f f f f f f f;
#X connect 0 0 9 0;
#X connect 1 0 6 0;
#X connect 1 0 9 1;
#X connect 2 0 6 0;
#X connect 2 0 9 2;
#X connect 3 0 6 0;
#X connect 3 0 9 3;
#X connect 4 0 6 0;
#X connect 4 0 9 4;
#X connect 5 0 6 0;
#X connect 5 0 9 5;
#X connect 6 0 9 0;
#X connect 8 0 9 6;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X restore 93 30 pd gears if;
#N canvas 0 22 783 549 engine 0;
#X obj 32 62 r \$0-engine-speed;
#X obj 161 62 r \$0-engine-capacity;
#X obj 33 88 t b f;
#X obj 162 86 t b f;
#X obj 458 84 t b f;
#X obj 458 60 r \$0-engine-volume;
#X obj 133 296 outlet;
#X obj 592 61 r \$0-engine-mute;
#X obj 507 125 *;
#X obj 592 85 t b b f;
#X obj 132 267 pack f f f f;
#X obj 313 91 t b f;
#X obj 310 62 r \$0-engine-jitter;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 1 10 0;
#X connect 3 0 10 0;
#X connect 3 1 10 1;
#X connect 4 0 10 0;
#X connect 4 1 8 0;
#X connect 5 0 4 0;
#X connect 7 0 9 0;
#X connect 8 0 10 3;
#X connect 9 0 10 0;
#X connect 9 1 8 0;
#X connect 9 2 8 1;
#X connect 10 0 6 0;
#X connect 11 0 10 0;
#X connect 11 1 10 2;
#X connect 12 0 11 0;
#X restore 181 29 pd engine if;
#N canvas 331 335 848 307 fan 0;
#X obj 33 88 t b f;
#X obj 162 86 t b f;
#X obj 559 85 t b f;
#X obj 133 296 outlet;
#X obj 608 126 *;
#X obj 693 86 t b b f;
#X obj 265 92 t b f;
#X obj 32 62 r \$0-fan-speed;
#X obj 161 62 r \$0-fan-size;
#X obj 559 61 r \$0-fan-volume;
#X obj 693 62 r \$0-fan-mute;
#X obj 262 63 r \$0-fan-blade1;
#X obj 385 93 t b f;
#X obj 382 64 r \$0-fan-blade2;
#X obj 132 267 pack f f f f f;
#X connect 0 1 14 0;
#X connect 1 0 14 0;
#X connect 1 1 14 1;
#X connect 2 0 14 0;
#X connect 2 1 4 0;
#X connect 4 0 14 4;
#X connect 5 0 14 0;
#X connect 5 1 4 0;
#X connect 5 2 4 1;
#X connect 6 0 14 0;
#X connect 6 1 14 2;
#X connect 7 0 0 0;
#X connect 8 0 1 0;
#X connect 9 0 2 0;
#X connect 10 0 5 0;
#X connect 11 0 6 0;
#X connect 12 0 14 0;
#X connect 12 1 14 3;
#X connect 13 0 12 0;
#X connect 14 0 3 0;
#X restore 276 28 pd fan if;
#N canvas 738 155 450 300 mainif 0;
#X obj 163 135 line~;
#X obj 13 172 throw~ \$0-ms;
#X obj 113 171 s~ \$0-gearsms;
#X obj 211 170 s~ \$0-enginems;
#X obj 315 170 s~ \$0-fanms;
#X obj 164 49 r \$0-speed;
#X obj 215 68 r \$0-inertia;
#X obj 164 112 pack f f;
#X obj 215 90 * 5000;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 0 0;
#X connect 8 0 7 1;
#X restore 348 27 pd mainif;
#N canvas 506 420 622 161 preset 0;
#N canvas 26 409 1148 347 catcher 0;
#X obj 44 38 r \$0-motor-brush;
#X obj 37 16 r \$0-motor-speed;
#X obj 48 60 r \$0-motor-hard;
#X obj 53 81 r \$0-motor-res;
#X obj 47 104 r \$0-motor-harmonic;
#X obj 62 128 r \$0-motor-volume;
#X obj 187 14 r \$0-throb-rattle;
#X obj 201 36 r \$0-throb-freq;
#X obj 213 58 r \$0-throb-harm1;
#X obj 222 78 r \$0-throb-harm2;
#X obj 239 99 r \$0-throb-body;
#X obj 246 120 r \$0-throb-vol;
#X obj 255 141 r \$0-throb-mute;
#X obj 373 11 r \$0-engine-speed;
#X obj 377 33 r \$0-engine-capacity;
#X obj 398 79 r \$0-engine-volume;
#X obj 386 55 r \$0-engine-jitter;
#X obj 547 10 r \$0-fan-speed;
#X obj 557 34 r \$0-fan-size;
#X obj 598 106 r \$0-fan-volume;
#X obj 569 58 r \$0-fan-blade1;
#X obj 579 82 r \$0-fan-blade2;
#X obj 88 266 pack s f f f f f f f f f f f f f f f f f f f f f f;
#X obj 89 298 outlet;
#X obj -43 14 inlet set;
#X connect 0 0 22 2;
#X connect 1 0 22 1;
#X connect 2 0 22 3;
#X connect 3 0 22 4;
#X connect 4 0 22 5;
#X connect 5 0 22 6;
#X connect 6 0 22 7;
#X connect 7 0 22 8;
#X connect 8 0 22 9;
#X connect 9 0 22 10;
#X connect 10 0 22 11;
#X connect 11 0 22 12;
#X connect 12 0 22 13;
#X connect 13 0 22 14;
#X connect 14 0 22 15;
#X connect 15 0 22 17;
#X connect 16 0 22 16;
#X connect 17 0 22 18;
#X connect 18 0 22 19;
#X connect 19 0 22 22;
#X connect 20 0 22 20;
#X connect 21 0 22 21;
#X connect 22 0 23 0;
#X connect 24 0 22 0;
#X restore 18 37 pd catcher;
#X obj 18 -2 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 0 22 859 748 sender 0;
#X obj 54 287 s \$0-motor-speed-r;
#X obj 62 309 s \$0-motor-brush-r;
#X obj 65 331 s \$0-motor-hard-r;
#X obj 70 352 s \$0-motor-res-r;
#X obj 73 374 s \$0-motor-harmonic-r;
#X obj 79 399 s \$0-motor-volume-r;
#X obj 204 285 s \$0-throb-rattle-r;
#X obj 218 307 s \$0-throb-freq-r;
#X obj 230 329 s \$0-throb-harm1-r;
#X obj 239 349 s \$0-throb-harm2-r;
#X obj 256 370 s \$0-throb-body-r;
#X obj 263 391 s \$0-throb-vol-r;
#X obj 272 412 s \$0-throb-mute-r;
#X obj 390 282 s \$0-engine-speed-r;
#X obj 394 304 s \$0-engine-capacity-r;
#X obj 403 326 s \$0-engine-jitter-r;
#X obj 414 350 s \$0-engine-volume-r;
#X obj 564 281 s \$0-fan-speed-r;
#X obj 574 305 s \$0-fan-size-r;
#X obj 586 329 s \$0-fan-blade1-r;
#X obj 595 353 s \$0-fan-blade2-r;
#X obj 615 377 s \$0-fan-volume-r;
#X obj -61 286 s \$0-patchname;
#X obj -59 263 symbol;
#X obj 78 196 unpack s f f f f f f f f f f f f f f f f f f f f f f
;
#X obj 93 15 inlet;
#X connect 23 0 22 0;
#X connect 24 0 23 0;
#X connect 24 1 0 0;
#X connect 24 2 1 0;
#X connect 24 3 2 0;