-
Notifications
You must be signed in to change notification settings - Fork 0
/
AM_Signal-Generator.pd
112 lines (112 loc) · 3.28 KB
/
AM_Signal-Generator.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
#N canvas 787 167 861 693 12;
#X obj 407 646 dac~;
#X obj 406 486 osc~;
#X floatatom 26 250 10 0 0 0 - carrier_freq -, f 10;
#X obj 519 67 osc~;
#X floatatom 133 250 10 0 0 0 - signal_freq -, f 10;
#X obj 570 435 *~;
#X obj 406 543 *~;
#X floatatom 240 250 10 0 0 0 - modulation_depth -, f 10;
#X obj 406 598 *~;
#X obj 522 355 +~ 1;
#X obj 522 395 *~ 0.5;
#X obj 570 465 -~ 1;
#X obj 691 141 expr~ $v1>0;
#X obj 406 458 receive carrier_freq;
#X obj 519 36 receive signal_freq;
#X obj 618 365 receive modulation_depth;
#X obj 132 297 vradio 20 0 0 3 signal_type reset_signal_type Signal\ type
0 -8 0 10 -262144 -1 -1 0;
#X text 156 297 Sine;
#X text 155 317 Square;
#X text 155 337 DC;
#X obj 538 112 receive signal_type;
#X obj 538 140 == 0;
#X obj 520 167 *~;
#X obj 521 248 +~;
#X obj 709 60 receive signal_type;
#X obj 691 112 *~;
#X obj 709 88 == 1;
#X obj 540 272 receive signal_type;
#X obj 540 300 == 0;
#X obj 522 327 +~;
#X obj 26 41 vsl 15 200 100 20000 0 0 carrier_freq reset_carrier_freq
Carrier\ Hz -1 -10 0 10 -262144 -1 -1 15900 1;
#X floatatom 46 42 10 0 0 0 - - reset_carrier_freq, f 10;
#X obj 133 41 vsl 15 200 0 10 0 0 signal_freq reset_signal_freq Signal\ Hz
0 -9 0 10 -262144 -1 -1 83 1;
#X floatatom 153 43 10 0 0 0 - - reset_signal_freq, f 10;
#X obj 241 41 vsl 15 200 0 1 0 0 modulation_depth reset_modulation_depth
Modulation\ depth 0 -9 0 10 -262144 -1 -1 11940 1;
#X obj 367 44 vsl 15 200 0 1 0 0 output_level reset_output_level Output\ level
0 -9 0 10 -262144 -1 -1 19900 1;
#X floatatom 265 41 10 0 0 0 - - reset_modulation_depth, f 10;
#X floatatom 366 253 10 0 0 0 - output_level -, f 10;
#X floatatom 387 45 10 0 0 0 - - reset_output_level, f 10;
#X obj 424 568 receive output_level;
#X obj 598 297 receive signal_type;
#X obj 600 395 *;
#X obj 691 167 *~ 2;
#X obj 599 338 != 2;
#X floatatom 151 107 10 0 0 0 - - period_seconds, f 10;
#X text 153 81 Period (1/f);
#X obj 627 512 receive period_seconds;
#X obj 627 540 expr 1/$f1;
#X obj 627 570 send reset_signal_freq;
#X obj 300 459 loadbang;
#X obj 27 291 bng 15 250 50 0 reset empty Reset 17 7 0 13 -262144 -1
-1;
#X obj 35 463 receive reset;
#X msg 35 507 16000;
#X msg 88 507 1;
#X msg 126 507 0.6;
#X msg 169 507 1;
#X obj 36 639 send reset_carrier_freq;
#X obj 300 494 send reset;
#X obj 89 613 send reset_signal_freq;
#X obj 126 587 send reset_modulation_depth;
#X obj 169 562 send reset_output_level;
#X msg 211 506 0;
#X obj 211 536 send reset_signal_type;
#X connect 1 0 6 0;
#X connect 3 0 22 0;
#X connect 3 0 25 0;
#X connect 5 0 11 0;
#X connect 6 0 8 0;
#X connect 8 0 0 0;
#X connect 8 0 0 1;
#X connect 9 0 10 0;
#X connect 10 0 5 0;
#X connect 11 0 6 1;
#X connect 12 0 42 0;
#X connect 13 0 1 0;
#X connect 14 0 3 0;
#X connect 15 0 41 1;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 23 0 29 0;
#X connect 24 0 26 0;
#X connect 25 0 12 0;
#X connect 26 0 25 1;
#X connect 27 0 28 0;
#X connect 28 0 29 1;
#X connect 29 0 9 0;
#X connect 39 0 8 1;
#X connect 40 0 43 0;
#X connect 41 0 5 1;
#X connect 42 0 23 1;
#X connect 43 0 41 0;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 49 0 57 0;
#X connect 51 0 52 0;
#X connect 51 0 53 0;
#X connect 51 0 54 0;
#X connect 51 0 55 0;
#X connect 51 0 61 0;
#X connect 52 0 56 0;
#X connect 53 0 58 0;
#X connect 54 0 59 0;
#X connect 55 0 60 0;
#X connect 61 0 62 0;