blob: 510f50b43f236e90e80b2705d8d5bbf3a1aa96fb (
plain)
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
|
#N canvas 39 37 929 624 10;
#X obj 58 31 cnv 15 15 15 empty empty vasp.frames= 0 10 1 14 -262144
-1 0;
#N canvas 0 0 450 300 graph1 0;
#X array bufsfram1 88200 float 0;
#X coords 0 1 88199 -1 300 100 1;
#X restore 544 107 graph;
#N canvas 0 0 392 216 init 0;
#X obj 33 19 loadbang;
#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
1;
#X msg 33 45 symbol bufsfram1;
#X msg 140 45 symbol bufsfram2;
#X connect 0 0 2 0;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X restore 798 498 pd init;
#X obj 57 402 vasp.update;
#X text 113 443 abbreviation;
#N canvas 0 0 450 300 graph1 0;
#X array bufsfram2 88200 float 0;
#X coords 0 1 88199 -1 300 100 1;
#X restore 545 227 graph;
#X text 56 87 argument/right inlet: value in samples;
#X obj 57 442 vasp.f+;
#X obj 55 559 VASP-HELP;
#X obj 57 378 vasp.noise;
#X obj 58 200 vasp.update;
#X msg 58 153 vasp bufsfram1;
#X msg 57 261 vasp bufsfram1;
#X obj 57 284 vasp.frames= 0.7;
#X obj 58 176 vasp.= env -1 0 1 44100 -1 88200;
#X floatatom 148 305 12 0 0 0 - - -;
#X text 57 104 right outlet: frames relatively to the starting point
of the search;
#X text 147 319 since the search runs from the end to the left \, this
value is negative;
#X obj 57 356 vasp.-> bufsfram2;
#X obj 57 502 vasp.o=;
#X obj 190 148 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
-1;
#X text 222 148 1 generate a ramp;
#X obj 190 260 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
-1;
#X text 218 274 the value 0.7 appears in the ramp;
#X text 218 259 2 generate noise until the position \, where;
#N canvas 77 60 429 598 dir_and_target 0;
#X text 46 56 forward;
#X text 48 154 backward;
#X text 31 22 search direction;
#X text 58 369 both;
#X text 28 401 negative;
#X text 58 337 positive;
#X text 28 314 target slope;
#X text 46 99 both (nearest);
#X obj 185 228 vasp.noise;
#X obj 185 249 vasp.u;
#X msg 110 156 dir -1;
#X msg 111 121 dir 0;
#X msg 110 59 dir 1;
#X obj 185 90 t a b;
#X obj 210 111 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
-1 -1;
#X text 228 111 (clear);
#X floatatom 234 175 12 0 0 0 - - -;
#X msg 126 336 slope 1;
#X msg 110 367 slope 0;
#X msg 97 399 slope -1;
#X obj 239 355 t a b;
#X obj 264 376 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
-1 -1;
#X text 282 376 (clear);
#X floatatom 300 423 12 0 0 0 - - -;
#X text 29 290 find values with positive and/or negative slope;
#X obj 185 197 vasp.-> bufsfram2;
#X obj 239 481 vasp.noise;
#X obj 239 502 vasp.u;
#X obj 239 450 vasp.-> bufsfram2;
#X obj 239 400 vasp.f= 0.2;
#X obj 185 153 vasp.f= 0;
#X msg 185 71 vasp 44101 bufsfram1;
#X msg 239 336 vasp 0 bufsfram1;
#X connect 8 0 9 0;
#X connect 10 0 30 0;
#X connect 11 0 30 0;
#X connect 12 0 30 0;
#X connect 13 0 30 0;
#X connect 13 1 14 0;
#X connect 17 0 29 0;
#X connect 18 0 29 0;
#X connect 19 0 29 0;
#X connect 20 0 29 0;
#X connect 20 1 21 0;
#X connect 25 1 8 0;
#X connect 26 0 27 0;
#X connect 28 1 26 0;
#X connect 29 0 28 0;
#X connect 29 1 23 0;
#X connect 30 0 25 0;
#X connect 30 1 16 0;
#X connect 31 0 13 0;
#X connect 32 0 20 0;
#X restore 586 418 pd dir_and_target;
#X obj 538 415 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198
0;
#X msg 562 464 vasp bufsfram2;
#N canvas 249 259 328 183 clear 0;
#X obj 74 54 inlet;
#X obj 74 77 vasp.= 0;
#X obj 74 100 vasp.u;
#X obj 168 53 r \$0-clear;
#X msg 168 76 vasp bufsfram2;
#X obj 168 99 vasp.= 0;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X restore 562 490 pd clear;
#X text 537 398 3 more features!;
#X text 56 56 search for a value (starting at the end) and set the
length of the vasp according to it;
#X text 55 482 related objects:;
#X obj 139 502 vasp.f;
#X obj 204 502 vasp.s;
#X connect 9 0 3 0;
#X connect 11 0 14 0;
#X connect 12 0 13 0;
#X connect 13 0 18 0;
#X connect 13 1 15 0;
#X connect 14 0 10 0;
#X connect 18 1 9 0;
#X connect 20 0 11 0;
#X connect 22 0 12 0;
#X connect 27 0 28 0;
|
