-
Notifications
You must be signed in to change notification settings - Fork 0
/
saturate~.pd
60 lines (60 loc) · 1.52 KB
/
saturate~.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
#N canvas 572 96 537 362 12;
#X obj 30 198 expr~ tanh($v1);
#X obj 31 159 *~, f 9;
#X msg 249 70 \$1 10;
#X obj 249 99 line~;
#X obj 29 227 *~, f 17;
#X obj 249 41 expr ($f1/127 * 999 + 1) / 100;
#X obj 29 255 outlet~;
#X obj 32 14 inlet~;
#X obj 89 14 inlet~;
#X obj 89 73 abs~;
#X obj 89 98 *~ 1000;
#X obj 90 127 +~, f 9;
#X obj 89 44 *~;
#X msg 147 64 \$1 10;
#X obj 147 93 line~;
#X obj 311 117 hsl 128 15 0 127 0 0 \$0-drive \$0-driverestore drive
2 8 0 10 #fcfcfc #7c7c7c #000000 0 1;
#X obj 311 137 hsl 128 15 0 127 0 0 \$0-drivecv \$0-drivecvrestore
drive-cv 2 8 0 10 #ffffff #000000 #ff8300 0 1;
#X obj 145 198 expr~ 1/tanh($v1);
#X obj 383 215 f;
#X obj 383 240 pack f f;
#X obj 291 241 savestate;
#X obj 291 266 unpack f f;
#X obj 354 291 s \$0-drivecvrestore;
#X obj 291 321 s \$0-driverestore;
#X obj 147 15 r \$0-drivecv;
#X obj 249 15 r \$0-drive;
#X obj 401 190 r \$0-drive;
#X obj 436 215 r \$0-drivecv;
#X obj 147 40 / 127;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 11 1;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 7 0 1 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 1 1;
#X connect 11 0 17 0;
#X connect 12 0 9 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 17 0 4 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 18 0;
#X connect 21 0 23 0;
#X connect 21 1 22 0;
#X connect 24 0 28 0;
#X connect 25 0 5 0;
#X connect 26 0 18 1;
#X connect 27 0 19 1;
#X connect 28 0 13 0;
#X coords 0 -1 1 1 148 60 1 300 100;