blob: 7b2900e54712b05cddff1cc1529ef011a8d8b086 (
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
|
#N canvas 621 82 570 531 10;
#X obj 3 798 cnv 15 552 21 empty empty empty 20 12 0 14 -233017 -33289
0;
#X obj 1 493 cnv 3 550 3 empty empty inlets 8 12 0 13 -228856 -1 0
;
#N canvas 592 275 371 239 META 0;
#X text 1 20 LICENSE SIBSD;
#X text 1 120 LIBRARY cyclone;
#X text 1 60 INLET_0 signal;
#X text 1 100 OUTLET_0 signal;
#X text 1 0 KEYWORDS signal kink distort phasor;
#X text 1 40 DESCRIPTION distort the output of a phasor~;
#X text 1 80 INLET_1 float signal;
#X text 0 139 VERSION 0.1-alpha57;
#X text 0 157 AUTHOR Krzysztof Czaja;
#X text 1 175 RELEASE_DATE 2002;
#X text 2 194 WEBSITE http://suita.chopin.edu.pl/~czaja/miXed/externs/cyclone.html
;
#X text 2 226 HELP_PATCH_AUTHORS Christoph Kummerer. Revised by Jonathan
Wilkes for Pd-extended 0.42 to conform to the PDDP template. Alex Cleveland
updated this patch for Pd-l2ork version 2013.05.28. Fred Jan Kraan
adapted the patch to pd-extended 2015-02-02;
#X restore 503 800 pd META;
#X obj 2 568 cnv 3 550 3 empty empty outlets 8 12 0 13 -228856 -1 0
;
#X obj 2 605 cnv 3 550 3 empty empty arguments 8 12 0 13 -228856 -1
0;
#X obj 2 647 cnv 3 550 3 empty empty more_info 8 12 0 13 -228856 -1
0;
#N canvas 307 406 428 109 Related_objects 0;
#X obj 0 0 cnv 15 425 20 empty empty empty 3 12 0 14 -204280 -1 0;
#X text 6 1 Related Objects;
#X restore 204 800 pd Related_objects;
#X obj 79 502 cnv 17 3 17 empty empty 0 5 9 0 16 -228856 -162280 0
;
#X obj 80 577 cnv 17 3 17 empty empty 0 5 9 0 16 -228856 -162280 0
;
#X obj 0 0 cnv 15 552 40 empty empty kink~ 3 12 0 18 -204280 -1 0;
#X obj 79 525 cnv 17 3 33 empty empty 1 5 9 0 16 -228856 -162280 0
;
#X obj 510 2 kink~;
#X text 12 22 Distort the output of a phasor~;
#X obj 179 194 +~;
#X msg 178 100 1 \, 10 180 10 120 1 700;
#X obj 178 129 line~ 1;
#X obj 266 355 cycle~;
#X floatatom 194 167 0 -11 20 0 - - -;
#X obj 126 51 phasor~ 440;
#X text 56 49 phase input;
#X text 309 353 use as table lookup;
#X text 110 501 signal;
#X text 179 501 - phasor to kink;
#X text 95 654 kink~ takes phasor~ values and distorts them according
to a slope factor. If the input times the slope is less than 0.5 \,
that value is output. Otherwise \, a complentary slope is used \, equal
to 0.5 at the same input value but equal to 1 when the input is 1 This
creates a bend or "kink" in the phase waveform when the slope is not
equal to 1 If you feed the output of kink~ into a cycle~ \, the result
is that the first part (before the kink) of the wavetable is scanned
much more quickly than the second part (after the kink). Can you say
CZ-101? Sure you can.;
#X text 110 525 float;
#X text 179 525 - slope input;
#X text 110 541 signal;
#X text 110 576 signal;
#X text 92 623 1) float;
#X text 179 624 - initial slope;
#X text 179 576 - distorted phasor output;
#X text 174 70 slope input (float or signal):;
#X obj 128 448 output~;
#X obj 178 346 metro 100;
#X obj 159 346 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X text 324 93 This ramps the slope from 1 to 10;
#X text 324 105 and then back to 1 Combine with;
#X text 324 117 an amplitude envelope to achieve;
#X text 324 129 BRASS ENS. 1 bliss.;
#X text 222 159 try different slope values (approx 1-20).;
#X text 222 171 Reset to 1 to use the envelope above.;
#X text 19 289 distorted;
#X text 19 301 phase output;
#X obj 159 326 loadbang;
#X obj 127 252 cyclone/kink~ 1.3;
#X text 179 541 - slope input;
#X obj 22 391 tabwrite~ \$0-kink;
#X obj 265 390 tabwrite~ \$0-kink-cycle;
#N canvas 585 566 450 300 show 0;
#X text 204 38 1;
#X text 197 167 -1;
#X text 9 234 The arrays are placed in a sub-patch to prevent audio
dropouts;
#X obj -7 4 cnv 15 425 20 empty empty empty 3 12 0 14 -204280 -1 0
;
#X obj 219 42 hsl 195 140 0 127 0 0 eliminate_outlet eliminate_inlet
empty -2 -8 0 10 -262144 -262144 -262144 0 1;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-kink-cycle 512 float 0;
#X coords 0 1 511 -1 200 140 1;
#X restore 216 42 graph;
#X obj -1 42 hsl 195 140 0 127 0 0 eliminate_outlet eliminate_inlet
empty -2 -8 0 10 -262144 -262144 -262144 0 1;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-kink 512 float 0;
#X coords 0 1 511 -1 200 140 1;
#X restore -4 42 graph;
#X text -4 5 View graph;
#X restore 226 416 pd show graphs;
#X obj 128 411 *~ 0;
#X obj 160 412 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 185 391 *~ 0;
#X obj 217 392 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X connect 13 0 44 1;
#X connect 14 0 15 0;
#X connect 15 0 13 0;
#X connect 16 0 47 0;
#X connect 16 0 51 0;
#X connect 17 0 13 1;
#X connect 18 0 44 0;
#X connect 33 0 46 0;
#X connect 33 0 47 0;
#X connect 34 0 33 0;
#X connect 43 0 34 0;
#X connect 44 0 46 0;
#X connect 44 0 16 1;
#X connect 44 0 49 0;
#X connect 49 0 32 0;
#X connect 49 0 32 1;
#X connect 50 0 49 1;
#X connect 51 0 32 1;
#X connect 52 0 51 1;
|
