-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathextra.pd
1425 lines (1425 loc) · 35.4 KB
/
extra.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 846 379 928 535 12;
#N canvas 1067 239 648 541 sequence 0;
#X floatatom 283 73 8 0 0 0 - - - 0;
#X msg 38 209 300;
#X msg 75 209 8;
#X msg 279 241 6;
#X msg 215 238 250;
#X obj 128 154 bang;
#X msg 227 30 stop;
#X obj 138 60 bang;
#X msg 137 31 start;
#X obj 78 122 delay;
#X obj 202 187 delay;
#X obj 269 145 / 2;
#X obj 328 166 / 2;
#X text 388 229 You can define here your own sequence of frequencies
and beats, f 29;
#X obj 180 90 metro;
#X obj 537 17 loadbang;
#X msg 542 77 5000;
#X text 586 76 ms;
#X msg 433 24 5;
#X obj 488 148 * 1000;
#X text 485 65 s;
#X floatatom 442 66 5 0 0 0 - - - 0;
#X obj 228 327 s Beat_Frequency_knob;
#X obj 36 329 s Main_Frequency_knob;
#X connect 0 0 11 0;
#X connect 0 0 12 0;
#X connect 0 0 14 1;
#X connect 1 0 23 0;
#X connect 2 0 22 0;
#X connect 3 0 22 0;
#X connect 4 0 23 0;
#X connect 5 0 10 0;
#X connect 6 0 14 0;
#X connect 7 0 14 0;
#X connect 7 0 1 0;
#X connect 7 0 2 0;
#X connect 8 0 7 0;
#X connect 9 0 2 0;
#X connect 9 0 1 0;
#X connect 9 0 5 0;
#X connect 10 0 3 0;
#X connect 10 0 4 0;
#X connect 11 0 9 1;
#X connect 12 0 10 1;
#X connect 14 0 9 0;
#X connect 15 0 16 0;
#X connect 15 0 18 0;
#X connect 16 0 0 0;
#X connect 18 0 21 0;
#X connect 19 0 0 0;
#X connect 21 0 19 0;
#X restore 502 347 pd sequence;
#N canvas 494 172 1277 827 sequence2 0;
#X obj 208 623 qlist;
#X msg 630 372 tempo \$1 \, rewind \, bang;
#X floatatom 550 318 5 0.25 5 0 - - - 0;
#X msg 717 189 1;
#X msg 718 233 2;
#X msg 653 188 0.75;
#X msg 602 189 0.4;
#X obj 59 617 qlist;
#X obj 332 626 qlist;
#X msg 507 189 0.1;
#X msg 550 189 0.2;
#X floatatom 346 183 5 0 200 0 - - - 0;
#X floatatom 346 247 5 0 0 0 - - - 0;
#X obj 346 218 / 100;
#X obj 364 567 r read_seq_info;
#X obj 630 421 s read_seq_info;
#X floatatom 740 561 5 0 200 0 - - - 0;
#X floatatom 740 622 5 0 0 0 - - - 0;
#X obj 740 593 / 100;
#X msg 740 527 50;
#X msg 685 662 tempo \$1 \, rewind \, bang;
#X msg 607 535 read seq05.txt;
#X obj 275 723 print;
#X msg 346 152 100;
#X msg 83 530 read seq01.txt;
#X msg 202 531 read seq02.txt;
#X obj 532 678 qlist;
#X msg 538 599 read seq03.txt;
#X msg 340 531 read seq04.txt;
#X obj 114 152 delay 150;
#X obj 258 327 delay 170;
#X obj 249 94 delay 180;
#X obj 636 569 qlist;
#X obj 408 335 delay 160;
#X text 435 122 load sequences for altering volumes and filters;
#X obj 939 248 s engine02_volume;
#X msg 887 139 0;
#X obj 934 179 s noise_volume_knob;
#X obj 938 216 s sine_volume_knob;
#X obj 989 76 s FM_volume_knob;
#X obj 1057 141 s phasor_volume_knob;
#X obj 1040 103 s square_volume_knob;
#X obj 838 77 delay 100;
#X obj 138 55 bang;
#X msg 140 15 start;
#X connect 1 0 15 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 2 0;
#X connect 9 0 2 0;
#X connect 10 0 2 0;
#X connect 11 0 13 0;
#X connect 12 0 2 0;
#X connect 13 0 12 0;
#X connect 14 0 0 0;
#X connect 14 0 7 0;
#X connect 14 0 8 0;
#X connect 14 0 32 0;
#X connect 14 0 26 0;
#X connect 16 0 18 0;
#X connect 17 0 20 0;
#X connect 18 0 17 0;
#X connect 19 0 16 0;
#X connect 21 0 32 0;
#X connect 23 0 11 0;
#X connect 24 0 7 0;
#X connect 24 0 22 0;
#X connect 25 0 0 0;
#X connect 27 0 26 0;
#X connect 28 0 8 0;
#X connect 29 0 24 0;
#X connect 29 0 25 0;
#X connect 30 0 28 0;
#X connect 30 0 21 0;
#X connect 31 0 23 0;
#X connect 33 0 27 0;
#X connect 36 0 35 0;
#X connect 36 0 39 0;
#X connect 36 0 41 0;
#X connect 36 0 40 0;
#X connect 36 0 37 0;
#X connect 36 0 38 0;
#X connect 42 0 36 0;
#X connect 43 0 29 0;
#X connect 43 0 31 0;
#X connect 43 0 30 0;
#X connect 43 0 33 0;
#X connect 43 0 42 0;
#X connect 44 0 43 0;
#X restore 603 347 pd sequence2;
#N canvas 0 164 1846 876 sequence3 0;
#X obj 90 51 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X msg 45 140 mfk 73.42;
#X obj 304 44 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 371 292 print;
#X obj 436 285 send;
#X floatatom 321 213 5 0 0 0 - - - 0;
#X obj 336 125 metro;
#X obj 418 71 + 1;
#X floatatom 422 148 5 0 0 0 - - - 0;
#X obj 605 1117 s phase_cutoff_knob;
#X obj 110 1073 s phase_resonance_knob;
#X msg 173 608 bang;
#X obj 162 680 metro;
#X floatatom 241 677 5 0 0 0 - - - 0;
#X msg 290 628 500;
#X obj 110 765 + 2;
#X msg 360 641 200;
#X obj 242 733 random 400;
#X msg 225 586 stop;
#N canvas 54 372 450 461 randomize 0;
#X obj 85 18 inlet;
#X obj 94 210 outlet;
#X obj 179 58 metro;
#X floatatom 258 55 5 0 0 0 - - - 0;
#X obj 356 76 + 300;
#X obj 127 143 + 12;
#X obj 73 97 random 4;
#X obj 259 111 random 1500;
#X obj 246 175 inlet;
#X connect 0 0 2 0;
#X connect 2 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 7 0 4 0;
#X connect 8 0 5 1;
#X restore 441 942 pd randomize;
#X msg 436 572 bang;
#N canvas 32 247 450 369 randomize 0;
#X obj 85 18 inlet;
#X obj 179 58 metro;
#X floatatom 258 55 5 0 0 0 - - - 0;
#X obj 356 76 + 300;
#X obj 73 97 random 12;
#X obj 222 172 inlet;
#X obj 118 444 outlet;
#X floatatom 163 232 5 0 0 0 - - - 0;
#X obj 158 322 line;
#X floatatom 260 299 5 0 0 0 - - - 0;
#X msg 157 270 \$1 700;
#X obj 224 410 spigot;
#X obj 127 143 + 45;
#X obj 259 111 random 1400;
#X obj 264 378 r random_noise;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 0 13 0;
#X connect 2 0 1 1;
#X connect 3 0 2 0;
#X connect 4 0 12 0;
#X connect 5 0 12 1;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 10 0 8 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 7 0;
#X connect 13 0 3 0;
#X connect 14 0 11 1;
#X restore 523 836 pd randomize;
#X obj 669 1009 s noise_cutoff_knob;
#X msg 397 903 stop;
#X msg 609 797 stop;
#X obj 546 511 metro;
#X msg 629 480 500;
#X obj 543 441 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 456 1090 spigot;
#X obj 172 933 spigot;
#X floatatom 376 975 5 0 0 0 - - - 0;
#X obj 371 1065 line;
#X floatatom 473 1042 5 0 0 0 - - - 0;
#X msg 370 1013 \$1 700;
#X floatatom 81 799 5 0 0 0 - - - 0;
#X obj 76 889 line;
#X msg 75 837 \$1 700;
#X obj 56 719 random 10;
#X obj 327 694 + 400;
#X obj 411 633 vsl 20 100 100 800 0 1 empty empty empty 0 -9 0 10 #c4fcc4
#000000 #000000 7000 1;
#X obj 171 737 vsl 20 100 1 95 0 1 empty rand_beat_freq empty 0 -9
0 10 #c4fcc4 #000000 #000000 182 1;
#X obj 553 906 vsl 20 100 1 150 0 1 empty empty empty 0 -9 0 10 #c4fcc4
#000000 #000000 8100 1;
#X obj 665 724 vsl 20 100 1 100 0 1 empty rand_noise_cutoff empty 0
-9 0 10 #c4fcc4 #000000 #000000 7300 1;
#X floatatom 226 866 5 0 0 0 - - - 0;
#X obj 936 428 s Frequency01;
#X obj 905 34 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 967 197 metro;
#X obj 1036 145 + 1;
#X floatatom 1040 222 5 0 0 0 - - - 0;
#X obj 1070 93 random 4;
#X obj 452 19 random 4;
#N canvas 403 130 549 409 randlist2 0;
#X obj 17 102 random;
#X obj 19 40 inlet;
#X obj 16 75 t b;
#X obj 19 256 outlet;
#X obj 162 20 inlet;
#X msg 287 105 clear;
#X obj 167 54 t a a b;
#X obj 186 108 list length;
#X obj 17 128 t b f;
#X msg 17 148 0;
#X text 39 294 https://forum.pdpatchrepo.info/topic/10903/pick-random-elements-from-a-list/3
;
#X obj 55 72 r \$0-range-2;
#X obj 186 128 s \$0-range-2;
#X obj 287 125 text define \$0-list-2;
#X obj 166 176 text set \$0-list-2 0;
#X obj 16 195 text get \$0-list-2;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 4 0 6 0;
#X connect 5 0 13 0;
#X connect 6 0 14 0;
#X connect 6 1 5 0;
#X connect 6 1 7 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 1 15 1;
#X connect 9 0 15 0;
#X connect 11 0 0 1;
#X connect 15 0 3 0;
#X restore 1026 291 pd randlist2;
#X msg 984 22 stop;
#X msg 598 37 stop;
#X obj 1108 633 line~;
#X obj 1013 676 *~;
#X obj 981 832 dac~;
#X msg 1108 609 1 \, 0 50;
#X obj 988 638 osc~;
#X obj 988 600 line~;
#X text 1097 827 kick;
#X text 1138 710 http://impala.utopia.free.fr/pd/patchs/doc_tut_workshop/Fr_Workshop_giair/2.synthese/fotils_pddrums/pddrums.html
;
#X obj 1474 383 noise~;
#X obj 1565 386 line~;
#X obj 1474 449 *~;
#X obj 1465 599 dac~;
#X obj 1278 598 hsl 128 15 0 1 0 0 empty drum_volume Volume_0-1 -2
-6 0 8 #fcfcfc #000000 #000000 0 1;
#X obj 1474 473 lop~ 400;
#X floatatom 1601 444 5 0 0 0 - - - 0;
#X obj 1556 409 *~;
#X obj 1537 440 *~;
#X msg 1565 358 1 \, 0 95;
#X text 1618 503 snare;
#X obj 1213 346 metro;
#X floatatom 1454 170 5 0 0 0 - - - 0;
#X obj 1550 310 bng 15 250 50 0 empty empty empty 0 -6 0 8 #e8e828
#000000 #000000;
#X obj 1024 481 bng 15 250 50 0 empty empty empty 0 -6 0 8 #e8e828
#000000 #000000;
#X msg 1037 602 0.85;
#X obj 1530 246 metro;
#X msg 1447 136 1200;
#X floatatom 1607 184 5 0 0 0 - - - 0;
#X obj 440 102 * 400;
#X obj 1058 176 * 200;
#X msg 273 821 1;
#X obj 999 759 *~;
#X obj 1473 572 *~;
#X msg 1605 137 3000;
#X obj 186 86 s random_noise;
#X obj 211 158 s random_FM;
#X msg 151 49 1;
#X obj 151 198 delay 8000;
#X obj 218 268 s drum_volume;
#X obj 28 341 s engine02_volume;
#X msg 74 281 0.15;
#X obj 949 685 *~;
#X obj 924 647 osc~;
#X obj 929 762 *~;
#X msg 934 586 1.1;
#X obj 879 551 line~;
#X msg 878 528 218 \, 50 20;
#X msg 988 577 228 \, 50 20;
#X msg 172 248 0.8;
#X obj 1564 645 * 1.9;
#X obj 75 243 delay 4000;
#X obj 21 448 s phasor_volume_knob;
#X msg 22 408 20;
#X floatatom 928 301 5 0 0 0 - - - 0;
#X floatatom 896 380 5 0 0 0 - - - 0;
#X floatatom 952 334 5 1 2 0 - - - 0;
#X obj 910 350 * 2;
#X msg 522 164 list key-D key-F key-G key-As key-D key-octave-0 key-octave-1
;
#X msg 1135 229 58.01 148.5 148.5 165 198 232.03 297;
#X obj 483 303 s Main_Frequency_knob;
#N canvas 379 365 549 409 randlist 0;
#X obj 17 102 random;
#X obj 55 72 r \$0-range;
#X obj 19 40 inlet;
#X obj 16 75 t b;
#X obj 19 256 outlet;
#X obj 162 20 inlet;
#X obj 287 125 text define \$0-list;
#X msg 287 105 clear;
#X obj 166 176 text set \$0-list 0;
#X obj 167 54 t a a b;
#X obj 186 108 list length;
#X obj 186 128 s \$0-range;
#X obj 16 195 text get \$0-list;
#X obj 17 128 t b f;
#X msg 17 148 0;
#X text 39 294 https://forum.pdpatchrepo.info/topic/10903/pick-random-elements-from-a-list/3
;
#X connect 0 0 13 0;
#X connect 1 0 0 1;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 5 0 9 0;
#X connect 7 0 6 0;
#X connect 9 0 8 0;
#X connect 9 1 7 0;
#X connect 9 1 10 0;
#X connect 10 0 11 0;
#X connect 12 0 4 0;
#X connect 13 0 14 0;
#X connect 13 1 12 1;
#X connect 14 0 12 0;
#X restore 495 252 pd randlist;
#X msg 399 215 pd randlist sample;
#X text 721 114 <- put your sequence there;
#X obj 1713 39 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 1775 202 metro;
#X obj 1844 150 + 1;
#X floatatom 1848 227 5 0 0 0 - - - 0;
#X msg 1792 27 stop;
#X floatatom 1736 306 5 0 0 0 - - - 0;
#X floatatom 1704 385 5 0 0 0 - - - 0;
#X floatatom 1760 339 5 1 4 0 - - - 0;
#X obj 1744 433 s Frequency03;
#N canvas 26 483 549 409 randlist3 0;
#X obj 17 102 random;
#X obj 19 40 inlet;
#X obj 16 75 t b;
#X obj 19 256 outlet;
#X obj 162 20 inlet;
#X msg 287 105 clear;
#X obj 167 54 t a a b;
#X obj 186 108 list length;
#X obj 17 128 t b f;
#X msg 17 148 0;
#X text 39 294 https://forum.pdpatchrepo.info/topic/10903/pick-random-elements-from-a-list/3
;
#X obj 16 195 text get \$0-list-3;
#X obj 166 176 text set \$0-list-3 0;
#X obj 287 131 text define \$0-list-3;
#X obj 55 72 r \$0-range-3;
#X obj 186 135 s \$0-range-3;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 4 0 6 0;
#X connect 5 0 13 0;
#X connect 6 0 12 0;
#X connect 6 1 5 0;
#X connect 6 1 7 0;
#X connect 7 0 15 0;
#X connect 8 0 9 0;
#X connect 8 1 11 1;
#X connect 9 0 11 0;
#X connect 11 0 3 0;
#X connect 14 0 0 1;
#X restore 1834 296 pd randlist3;
#X obj 1878 98 random 4;
#X obj 1866 181 * 800;
#X msg 499 114 44 44 51.56 58.01 74.25 99;
#X msg 1282 74 44 58.01 74.25 88 88 116.02 148.5;
#X obj 223 336 delay 8000;
#X obj 236 425 s bell_volume;
#X text 1525 75 <- put your sequence there;
#X obj 1718 355 * 4;
#X obj 360 444 s bell_volume;
#X obj 342 370 delay 1000;
#X msg 358 399 0.3;
#X msg 235 380 0.12;
#X msg 159 5 start;
#X obj 265 14 bang;
#X obj 285 582 bang;
#X obj 624 434 bang;
#X msg 668 380 start;
#X connect 0 0 1 0;
#X connect 2 0 128 0;
#X connect 2 0 6 0;
#X connect 2 0 45 0;
#X connect 2 0 79 0;
#X connect 2 0 86 0;
#X connect 2 0 116 0;
#X connect 2 0 129 0;
#X connect 5 0 4 0;
#X connect 6 0 50 0;
#X connect 6 0 113 0;
#X connect 7 0 81 0;
#X connect 8 0 6 1;
#X connect 11 0 12 0;
#X connect 12 0 17 0;
#X connect 12 0 37 0;
#X connect 12 0 83 0;
#X connect 13 0 12 1;
#X connect 14 0 13 0;
#X connect 15 0 34 0;
#X connect 16 0 13 0;
#X connect 17 0 38 0;
#X connect 18 0 12 0;
#X connect 19 0 30 0;
#X connect 20 0 19 0;
#X connect 20 0 21 0;
#X connect 20 0 11 0;
#X connect 21 0 22 0;
#X connect 23 0 19 0;
#X connect 24 0 21 0;
#X connect 25 0 20 0;
#X connect 26 0 25 1;
#X connect 27 0 25 0;
#X connect 28 0 9 0;
#X connect 29 0 10 0;
#X connect 30 0 33 0;
#X connect 31 0 28 0;
#X connect 33 0 31 0;
#X connect 33 0 32 0;
#X connect 34 0 36 0;
#X connect 35 0 29 0;
#X connect 36 0 35 0;
#X connect 37 0 15 0;
#X connect 38 0 13 0;
#X connect 39 0 38 1;
#X connect 40 0 15 1;
#X connect 40 0 37 1;
#X connect 41 0 19 1;
#X connect 42 0 21 1;
#X connect 43 0 29 1;
#X connect 43 0 28 1;
#X connect 45 0 46 0;
#X connect 45 0 73 0;
#X connect 45 0 78 0;
#X connect 46 0 51 0;
#X connect 46 0 49 0;
#X connect 47 0 82 0;
#X connect 48 0 46 1;
#X connect 49 0 47 0;
#X connect 50 0 7 0;
#X connect 51 0 106 0;
#X connect 52 0 46 0;
#X connect 53 0 6 0;
#X connect 54 0 55 1;
#X connect 54 0 94 1;
#X connect 55 0 84 0;
#X connect 57 0 54 0;
#X connect 58 0 55 0;
#X connect 59 0 58 0;
#X connect 62 0 64 0;
#X connect 63 0 69 0;
#X connect 63 0 69 1;
#X connect 64 0 67 0;
#X connect 66 0 84 1;
#X connect 66 0 96 1;
#X connect 66 0 102 0;
#X connect 67 0 85 0;
#X connect 68 0 67 1;
#X connect 69 0 70 0;
#X connect 69 0 70 1;
#X connect 70 0 64 1;
#X connect 71 0 63 0;
#X connect 73 0 76 0;
#X connect 74 0 73 1;
#X connect 75 0 71 0;
#X connect 76 0 57 0;
#X connect 76 0 100 0;
#X connect 76 0 77 0;
#X connect 76 0 97 0;
#X connect 76 0 99 0;
#X connect 77 0 58 1;
#X connect 78 0 75 0;
#X connect 79 0 74 0;
#X connect 80 0 78 1;
#X connect 81 0 8 0;
#X connect 82 0 48 0;
#X connect 83 0 43 0;
#X connect 84 0 56 1;
#X connect 85 0 65 0;
#X connect 85 0 65 1;
#X connect 86 0 80 0;
#X connect 89 0 87 0;
#X connect 89 0 88 0;
#X connect 90 0 101 0;
#X connect 90 0 103 0;
#X connect 93 0 92 0;
#X connect 94 0 96 0;
#X connect 95 0 94 0;
#X connect 96 0 56 0;
#X connect 97 0 95 1;
#X connect 98 0 95 0;
#X connect 99 0 98 0;
#X connect 100 0 59 0;
#X connect 101 0 91 0;
#X connect 102 0 85 1;
#X connect 103 0 93 0;
#X connect 103 0 130 0;
#X connect 105 0 104 0;
#X connect 106 0 109 0;
#X connect 107 0 44 0;
#X connect 108 0 109 1;
#X connect 109 0 107 0;
#X connect 113 0 112 0;
#X connect 114 0 4 0;
#X connect 114 0 4 1;
#X connect 116 0 117 0;
#X connect 117 0 125 0;
#X connect 117 0 126 0;
#X connect 118 0 127 0;
#X connect 119 0 117 1;
#X connect 120 0 117 0;
#X connect 121 0 133 0;
#X connect 122 0 124 0;
#X connect 123 0 133 1;
#X connect 125 0 121 0;
#X connect 126 0 118 0;
#X connect 127 0 119 0;
#X connect 128 0 51 1;
#X connect 128 0 113 1;
#X connect 129 0 125 1;
#X connect 130 0 137 0;
#X connect 130 0 135 0;
#X connect 133 0 122 0;
#X connect 135 0 136 0;
#X connect 136 0 134 0;
#X connect 137 0 131 0;
#X connect 138 0 139 0;
#X connect 139 0 2 0;
#X connect 139 0 89 0;
#X connect 139 0 90 0;
#X connect 140 0 14 0;
#X connect 141 0 26 0;
#X connect 141 0 25 0;
#X connect 142 0 141 0;
#X restore 708 348 pd sequence3;
#X obj 389 222 droidparty_main;
#N canvas 258 281 1197 780 engine_02 0;
#X obj 548 90 s Frequency01;
#X floatatom 562 35 5 0 0 0 - - - 0;
#N canvas 415 127 450 323 square~ 0;
#X obj 111 45 phasor~;
#X obj 94 6 inlet;
#X obj 124 157 outlet~;
#X obj 127 100 expr~ $v1 > $v2;
#X obj 225 54 r square_pwm;
#X obj 229 76 / 100;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X restore 488 192 pd square~;
#X obj 551 129 r Frequency01;
#X obj 474 455 *~, f 8;
#N canvas 827 106 450 323 square~ 0;
#X obj 111 45 phasor~;
#X obj 94 6 inlet;
#X obj 124 157 outlet~;
#X obj 127 100 expr~ $v1 > $v2;
#X obj 225 54 r square_pwm;
#X obj 229 76 / 100;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X restore 27 352 pd square~;
#X obj 75 385 r sine_volume;
#X obj 34 441 *~;
#X obj 698 253 osc~ 120;
#X obj 20 289 osc~ 120;
#N canvas 399 117 877 871 output 0;
#X obj 353 490 t b;
#X obj 353 437 f;
#X obj 353 515 f;
#X msg 467 514 0;
#X obj 353 467 moses 1;
#X obj 467 486 t b f;
#X obj 433 447 moses 1;
#X obj 29 97 dbtorms;
#X obj 85 170 inlet~;
#X msg 287 315 \; pd dsp 1;
#X obj 29 170 line~;
#X obj 64 242 *~;
#X obj 64 272 dac~;
#X obj 29 127 pack 0 50;
#X text 209 141 audio in;
#X text 138 464 test if less than 1 -->;
#X text 104 491 if true convert to bang -->;
#X text 183 99 <-- convert from dB to linear units;
#X floatatom 323 219 3 0 100 0 dB - - 0;
#X obj 350 240 bng 15 250 50 0 empty empty mute -38 7 0 12 #fcfcfc
#000000 #000000;
#X text 191 125 <-- make a ramp to avoid clicks or zipper noise;
#X obj 148 170 inlet~;
#X obj 154 241 *~;
#X text 373 378 MUTE logic:;
#X obj 323 174 r \$0-master-lvl;
#X obj 353 541 s \$0-master-lvl;
#X obj 323 279 s \$0-master-out;
#X obj 29 71 r \$0-master-out;
#X obj 435 408 r \$0-master-out;
#X text 60 10 Level control abstraction \, used in many of the Pd example
patches. The "level" and "mute" controls show up on the parent \, calling
patch.;
#X text 66 517 previous nonzero master-lvl -->;
#X text 138 421 recall previous;
#X text 138 439 value of master-lvl -->;
#X text 39 319 automatically start DSP -->;
#X obj 85 192 hip~ 3;
#X obj 147 192 hip~ 3;
#X obj 478 176 loadbang;
#X msg 480 222 85;
#X obj 564 193 r master_volume;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 25 0;
#X connect 3 0 25 0;
#X connect 4 0 0 0;
#X connect 4 1 5 0;
#X connect 5 0 3 0;
#X connect 6 1 2 1;
#X connect 7 0 13 0;
#X connect 8 0 34 0;
#X connect 10 0 22 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 13 0 10 0;
#X connect 18 0 9 0;
#X connect 18 0 26 0;
#X connect 19 0 1 0;
#X connect 21 0 35 0;
#X connect 22 0 12 1;
#X connect 24 0 18 0;
#X connect 27 0 7 0;
#X connect 28 0 1 1;
#X connect 28 0 6 0;
#X connect 34 0 11 1;
#X connect 35 0 22 1;
#X connect 36 0 37 0;
#X connect 37 0 18 0;
#X connect 38 0 18 0;
#X coords 0 -1 1 1 65 55 1 300 200;
#X restore 327 499 pd output;
#X text 27 30 This one is for extra instruments;
#X obj 156 332 phasor~;
#X obj 239 416 bob~;
#X obj 265 196 mtof;
#X obj 271 294 pack 0 50;
#X floatatom 267 243 7 0 0 0 - - - 0;
#X obj 268 150 r phase_cutoff;
#X obj 283 332 line;
#X obj 182 142 / 25;
#X obj 126 214 line~;
#X obj 269 88 r phase_resonance;
#X floatatom 646 437 4 0 0 0 - - - 0;
#X obj 673 528 *~;
#X text 723 500 modulation;
#X text 723 514 depth;
#X floatatom 702 489 4 0 0 0 - - - 0;
#X obj 654 576 +~;
#X text 721 562 frequency;
#X text 721 548 carrier;
#X floatatom 733 383 5 0 0 0 - - - 0;
#X obj 897 405 r FM_mod_depth;
#X obj 794 347 r FM_Freq;
#X text 663 380 frequency;
#X text 664 365 modulation;
#X msg 810 524 \; table1 sinesum 512 0.5 0.5 0.5 0.5 \; table2 cosinesum
512 0 1;
#N canvas 0 0 450 300 (subpatch) 0;
#X array pitchmod15 131 float 1;
#A 0 -0.423689 -0.345228 -0.313844 -0.298151 0.659075 0.721844 0.784613
0.800305 0.831689 0.831689 0.831689 0.831689 0.847381 0.847381 0.847381
0.847381 0.847381 0.847381 0.831689 0.815997 0.800305 0.784613 0.76892
0.76892 0.753228 0.753228 0.737536 0.721844 0.706151 0.706151 0.674767
0.659075 0.580616 0.533539 0.533539 0.455078 0.428924 0.40277 0.376616
0.345232 0.313848 0.282463 0.266771 0.580616 0.596308 0.612 0.612 0.612
0.612 0.0470752 0.0470752 0.0627675 0.0784599 0.0941522 0.109845 0.125537
0.156922 0.172614 0.188306 0.219691 0.251076 0.266768 0.28246 0.329538
0.360922 0.392307 0.470769 0.486461 0.141229 0.156922 0.172614 0.188306
0.219691 0.251076 0.28246 0.313845 0.34523 0.376615 0.407999 0.439384
0.486461 0.533538 0.580615 0.612 0.659077 0.345232 0.345232 0.345232
0.345232 0.345232 0.345232 0.345232 0.345232 0.345232 0.345232 0.345232
0.360924 0.36877 0.376616 0.376616 0.392309 0.408001 0.408001 0.408001
0.423693 0.431539 0.439385 0.455078 0.47077 0.486462 0.486462 0.517847
0.549231 0.596308 0.627692 0.674769 0.721846 0.690459 0.690459 0.706151
0.721844 0.737536 0.753228 0.753228 0.76892 0.784613 0.800305 0.815997
0.831689 0.847381 0.878766;
#X coords 0 1.02 130 -1.02 258 130 1;
#X restore 760 45 graph;
#X obj 693 435 tabosc4~ pitchmod15;
#X floatatom 527 369 4 0 0 0 - - - 0;
#X obj 561 588 osc~ 128;
#X obj 125 261 r Frequency01;
#X obj 287 366 * 2.5, f 8;
#X obj 108 419 / 2, f 8;
#X obj 412 491 /~ 2, f 8;
#X obj 361 432 *~;
#X obj 287 -104 r sine_volume;
#X obj 287 -104 r sine_volume;
#X obj 287 -104 r sine_volume;
#X obj 287 -104 r sine_volume;
#X obj 258 452 /~ 1.1, f 8;
#X obj 557 447 print;
#X obj 547 312 * 1.1;
#X floatatom 425 369 4 0 0 0 - - - 0;
#X obj 371 225 r engine02_volume;
#X obj 628 173 r engine02_volume;
#X obj 411 315 / 1, f 8;
#X obj 685 210 / 1, f 8;
#X floatatom 908 197 4 0 20 0 - - - 0;
#X obj 904 226 / 10, f 8;
#X floatatom 455 252 4 0 20 0 - - - 0;
#X obj 451 281 / 10, f 8;
#X floatatom 815 198 4 0 20 0 - - - 0;
#X obj 816 235 / 10, f 8;
#X obj 818 276 * 1.1;
#X floatatom 648 20 5 0 0 0 - - - 0;
#X obj 629 58 s engine02_volume;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 3 0 8 0;
#X connect 3 0 22 0;
#X connect 4 0 43 0;
#X connect 5 0 7 0;
#X connect 6 0 42 0;
#X connect 12 0 13 0;
#X connect 13 0 49 0;
#X connect 14 0 16 0;
#X connect 15 0 18 0;
#X connect 16 0 15 0;
#X connect 17 0 14 0;
#X connect 18 0 41 0;
#X connect 19 0 20 0;
#X connect 20 0 13 2;
#X connect 21 0 19 0;
#X connect 22 0 27 1;
#X connect 23 0 27 0;
#X connect 26 0 23 1;
#X connect 27 0 39 0;
#X connect 30 0 37 0;
#X connect 31 0 26 0;
#X connect 32 0 30 0;
#X connect 37 0 23 0;
#X connect 38 0 4 1;
#X connect 39 0 4 0;
#X connect 40 0 5 0;
#X connect 40 0 9 0;
#X connect 40 0 12 0;
#X connect 41 0 13 1;
#X connect 42 0 7 1;
#X connect 43 0 10 1;
#X connect 44 0 10 0;
#X connect 49 0 44 0;
#X connect 51 0 38 0;
#X connect 52 0 44 1;
#X connect 53 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 52 0;
#X connect 56 0 51 0;
#X connect 57 0 58 0;
#X connect 58 0 63 1;
#X connect 59 0 60 0;
#X connect 60 0 55 1;
#X connect 61 0 62 0;
#X connect 62 0 63 0;
#X connect 64 0 65 0;
#X restore 626 101 pd engine_02;
#N canvas 726 524 1098 478 engine_03 0;
#X obj 306 418 dac~;
#N canvas 876 606 701 290 bell1 0;
#N canvas 0 98 350 192 envelopes 0;
#X obj 238 82 / 9;
#X obj 187 82 / 7;
#X obj 71 85 * 0.9;
#X msg 120 58 600;
#X obj 135 83 / 2;
#X obj 12 85 * 1.2;
#X obj 120 33 inlet;
#X obj 12 136 outlet;
#X obj 71 133 outlet;
#X obj 135 132 outlet;
#X obj 187 132 outlet;
#X obj 238 132 outlet;
#X text 98 10 envelope ratios;
#X connect 0 0 11 0;
#X connect 1 0 10 0;
#X connect 2 0 8 0;
#X connect 3 0 0 0;
#X connect 3 0 1 0;
#X connect 3 0 2 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 7 0;
#X connect 6 0 3 0;
#X restore 251 50 pd envelopes;
#N canvas 543 182 406 316 part_fund+sub 0;
#X obj 156 54 osc~;
#X obj 71 78 osc~;
#X text 6 112 suboctave hum;
#X text 129 105 fundamental;
#X obj 197 258 *~;
#X obj 214 179 line~;
#X msg 216 136 1 \, 0 \$1;
#X obj 259 12 inlet;
#X obj 198 289 outlet~;
#X obj 93 10 r \$0-fundamental1;
#X obj 71 172 *~ 1e-05;
#X obj 70 51 * 0.500001;
#X obj 157 221 *~ 1.01;
#X connect 0 0 12 0;
#X connect 1 0 10 0;
#X connect 4 0 8 0;
#X connect 5 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 9 0 0 0;
#X connect 9 0 11 0;
#X connect 10 0 12 0;
#X connect 11 0 1 0;
#X connect 12 0 4 0;
#X restore 21 116 pd part_fund+sub;
#N canvas 1010 324 327 465 part 0;
#X obj 21 163 osc~;
#X obj 154 165 osc~;
#X obj 79 169 osc~;
#X text 147 192 Nominal;
#X text 82 192 "Quint";
#X obj 160 368 *~;
#X obj 226 277 line~;
#X obj 46 269 *~ 0.2;
#X text 8 194 Octave;
#X msg 228 234 1 \, 0 \$1;
#X obj 246 38 inlet;
#X obj 160 396 outlet~;
#X text 79 11 primary overtones;
#X obj 65 38 r \$0-fundamental1;
#X obj 165 135 * 1.5;
#X obj 133 97 * 2;
#X obj 21 140 * 2.0002;
#X obj 88 140 * 5.0001;
#X obj 95 268 *~ 0.1;
#X obj 146 268 *~ 0.1;
#X obj 94 302 *~ 0.05;
#X connect 0 0 7 0;
#X connect 1 0 19 0;
#X connect 2 0 18 0;
#X connect 5 0 11 0;
#X connect 6 0 5 1;
#X connect 7 0 20 0;
#X connect 9 0 6 0;
#X connect 10 0 9 0;
#X connect 13 0 15 0;
#X connect 13 0 16 0;
#X connect 14 0 1 0;
#X connect 15 0 14 0;
#X connect 15 0 17 0;
#X connect 16 0 0 0;
#X connect 17 0 2 0;
#X connect 18 0 20 0;
#X connect 19 0 20 0;
#X connect 20 0 5 0;
#X restore 145 116 pd part primaries;
#N canvas 0 158 289 383 secondaries 0;
#X obj 80 104 osc~;
#X text 19 142 12th overtone;
#X obj 80 79 * 11;
#X obj 151 110 osc~;
#X obj 151 85 * 1.714;
#X text 149 142 12/7;
#X obj 13 105 osc~;
#X obj 13 80 * 1.6666;
#X obj 109 314 *~;
#X obj 173 223 line~;
#X obj 173 255 *~;
#X msg 173 196 1 \, 0 \$1;
#X obj 99 53 * 1.5;
#X obj 172 280 *~;
#X obj 72 254 *~ 0.2;
#X obj 72 210 *~ 0.2;
#X obj 23 210 *~ 0.1;
#X obj 118 209 *~ 0.1;
#X text 203 262 cubic;
#X obj 238 18 inlet;
#X obj 109 347 outlet~;
#X obj 80 19 r \$0-fundamental1;
#X connect 0 0 15 0;
#X connect 2 0 0 0;
#X connect 3 0 17 0;
#X connect 4 0 3 0;
#X connect 6 0 16 0;
#X connect 7 0 6 0;
#X connect 8 0 20 0;
#X connect 9 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 10 0 13 1;
#X connect 11 0 9 0;
#X connect 12 0 4 0;
#X connect 12 0 7 0;
#X connect 13 0 8 1;
#X connect 14 0 8 0;
#X connect 15 0 14 0;
#X connect 16 0 14 0;
#X connect 17 0 14 0;
#X connect 19 0 11 0;
#X connect 21 0 2 0;
#X connect 21 0 12 0;
#X restore 275 116 pd secondaries;
#N canvas 1410 439 389 416 circulars 0;
#X obj 145 106 osc~;
#X obj 40 103 osc~;
#X text 109 140 1st circular;
#X text 1 139 60 degree mode;
#X obj 40 80 * 3;
#X obj 145 82 * 6.242;
#X text 25 155 "Tierce";
#X obj 218 105 osc~;
#X obj 218 81 * 12.483;
#X text 220 142 2nd circular;
#X obj 162 325 *~;
#X obj 228 234 line~;
#X obj 227 263 *~;
#X obj 146 237 *~ 0.05;
#X obj 81 189 *~ 0.1;
#X text 262 267 square;