blob: 955db385433a1fd0074f88aafcbb6e74786da9d7 (
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
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
|
#N canvas 0 0 555 619 10;
#X obj 0 595 cnv 15 552 21 empty \$0-pddp.cnv.footer empty 20 12 0
14 -228856 -66577 0;
#X obj 0 0 cnv 15 552 40 empty \$0-pddp.cnv.header loop~ 3 12 0 18
-204280 -1 0;
#X obj 0 343 cnv 3 550 3 empty \$0-pddp.cnv.inlets inlets 8 12 0 13
-228856 -1 0;
#N canvas 52 243 494 344 META 0;
#X text 12 105 PLATFORM windows macosx gnulinux;
#X text 12 205 LIBRARY internal;
#X text 12 245 WEBSITE http://crca.ucsd.edu/~msp/;
#X text 12 65 LICENSE SIBSD;
#X text 12 225 AUTHOR Miller Puckette;
#X text 12 305 HELP_PATCH_AUTHORS Jonathan Wilkes revised the patch
to conform to the PDDP template for Pd version 0.42.;
#X text 12 5 GENRE help;
#X text 12 45 KEYWORDS signal;
#X text 12 85 DESCRIPTION phase generator for looping samplers;
#X text 12 25 NAME loop~;
#X text 12 125 INLET_0 float signal bang set;
#X text 12 165 OUTLET_0 signal;
#X text 12 145 INLET_1 signal float;
#X text 12 185 OUTLET_1 signal;
#X text 12 265 RELEASE_DATE 1997;
#X text 12 285 RELEASE_VERSION;
#X restore 500 597 pd META;
#X obj 0 497 cnv 3 550 3 empty \$0-pddp.cnv.outlets outlets 8 12 0
13 -228856 -1 0;
#X obj 0 544 cnv 3 550 3 empty \$0-pddp.cnv.argument argument 8 12
0 13 -228856 -1 0;
#X obj 0 569 cnv 3 550 3 empty \$0-pddp.cnv.more_info more_info 8 12
0 13 -228856 -1 0;
#X obj 78 352 cnv 17 3 95 empty \$0-pddp.cnv.let.0 0 5 9 0 16 -228856
-162280 0;
#X text 98 548 (none);
#N canvas 81 440 428 149 Related_objects 0;
#X obj 253 43 powtodb~;
#X obj 23 102 mtof;
#X obj 68 102 ftom;
#X obj 111 102 dbtorms;
#X obj 176 102 rmstodb;
#X obj 242 102 dbtopow;
#X obj 304 102 powtodb;
#X text 20 79 Control objects for conversion:;
#X obj 23 43 mtof~;
#X obj 70 43 ftom~;
#X obj 118 43 dbtorms~;
#X obj 187 43 rmstodb~;
#X obj 1 1 cnv 15 425 20 empty \$0-pddp.cnv.subheading empty 3 12 0
14 -204280 -1 0;
#X text 8 2 [loop~] Related Objects;
#X restore 102 597 pd Related_objects;
#X text 98 351 signal;
#X obj 78 504 cnv 17 3 17 empty \$0-pddp.cnv.let.0 0 5 9 0 16 -228856
-162280 0;
#X text 98 504 signal;
#X obj 481 3 loop~;
#X obj 455 20 pddp/pddplink http://wiki.puredata.info/en/loop~ -text
pdpedia: loop~;
#X obj 78 456 cnv 17 3 35 empty \$0-pddp.cnv.let.1 1 5 9 0 16 -228856
-162280 0;
#X text 98 379 float;
#X text 98 407 bang;
#X text 98 425 set;
#X text 98 455 signal;
#X text 98 475 float;
#X text 11 23 phase generator for looping samplers;
#X text 168 351 - signal input sets the transposition level (1 is normal
\, 2 is up an octave \, etc.).;
#X text 168 379 - a float sets the transposition level (1 is normal
\, 2 is up an octave \, etc.).;
#X text 168 407 - reset the phase to zero.;
#X text 168 425 - the set message followed by a number sets the phase
(e.g. \, "set 0.5").;
#X text 168 455 - set the window size in samples.;
#X text 168 475 - set the window size in samples.;
#X floatatom 33 46 0 0 0 0 - - -;
#X obj 270 210 print~;
#X msg 270 180 bang;
#X obj 33 171 loop~;
#X floatatom 60 117 0 0 0 0 - - -;
#X msg 47 93 bang;
#X obj 199 210 print~;
#X msg 199 180 bang;
#X obj 32 210 *~;
#X obj 32 321 dac~;
#X obj 32 298 hip~ 5;
#X obj 78 214 samphold~;
#X obj 32 233 +~;
#X floatatom 78 139 0 0 0 0 - - -;
#X obj 78 162 *~ 1000;
#X msg 39 70 set 0.5;
#X text 96 69 set phase (0 to 1);
#X text 96 94 reset phase to 0;
#X text 96 116 right signal input is window size in samples;
#X text 116 138 here's how to handle onsets;
#X obj 32 277 *~;
#X floatatom 158 244 0 0 0 0 - - -;
#X obj 158 313 line~;
#X obj 158 267 dbtorms;
#X obj 158 290 pack 0 50;
#X text 184 243 output level 0-100;
#X text 203 159 print outputs;
#X text 61 45 transposition (1 is normal \, 2 is up an octave \, etc)
;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-array 150000 float 0;
#X coords 0 1 150000 -1 100 75 1;
#X restore 390 127 graph;
#X obj 308 321 soundfiler;
#N canvas 100 385 428 186 About_[loop~] 0;
#X obj 1 1 cnv 15 425 20 empty \$0-pddp.cnv.subheading empty 3 12 0
14 -204280 -1 0;
#X text 8 2 [loop~] More info;
#X text 20 108 You can send "bang" or "set" message to force the phase
to zero--you should mute the output before doing so. This may be desirable
if you've set a large window size but then want to decrease it without
waiting for the next phase crossing.;
#X text 20 38 [loop~] takes input signals to set a window size and
transposition \, and outputs a phase and a sampled window size. The
window size only changes at phase zero crossings and the phase output
is adjusted so that changing window size doesn't change the transposition.
;
#X restore 102 575 pd About_[loop~];
#X obj 4 597 pddp/pddplink pddp/help.pd -text help;
#X obj 455 51 pddp/dsp-reminder;
#X obj 78 524 cnv 17 3 17 empty \$0-pddp.cnv.let.1 1 5 9 0 16 -228856
-162280 0;
#X text 98 524 signal;
#X obj 32 256 tabread4~ \$0-array;
#X msg 390 210 resize 150000;
#X obj 390 232 s \$0-array;
#X obj 308 235 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 308 255 f \$0;
#X msg 308 277 read ../doc/sound/bell.aiff \$1-array;
#X obj 338 235 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 338 255 f \$0;
#X msg 318 299 read ../doc/sound/vocal.aiff \$1-array;
#X connect 28 0 31 0;
#X connect 30 0 29 0;
#X connect 31 0 34 0;
#X connect 31 0 36 0;
#X connect 31 0 39 1;
#X connect 31 1 29 0;
#X connect 31 1 36 1;
#X connect 32 0 31 1;
#X connect 33 0 31 0;
#X connect 35 0 34 0;
#X connect 36 0 40 0;
#X connect 38 0 37 0;
#X connect 38 0 37 1;
#X connect 39 0 40 1;
#X connect 40 0 63 0;
#X connect 41 0 42 0;
#X connect 42 0 39 0;
#X connect 43 0 31 0;
#X connect 48 0 38 0;
#X connect 49 0 51 0;
#X connect 50 0 48 1;
#X connect 51 0 52 0;
#X connect 52 0 50 0;
#X connect 63 0 48 0;
#X connect 64 0 65 0;
#X connect 66 0 67 0;
#X connect 67 0 68 0;
#X connect 68 0 57 0;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 71 0 57 0;
|
