blob: 313af8f4830d06c537ad7d2bcc51d9cbdff9530e (
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
|
#N canvas 1122 202 897 641 10;
#X declare -lib cyclone;
#X msg 470 359 triglevel 0.01;
#X msg 421 358 4 64;
#X text 51 -9 Distort the output of a phasor~;
#X obj 199 211 - 1;
#X obj 182 257 +~;
#X msg 286 201 1 \, 10 180 10 120 1 700;
#X obj 286 230 line~ 1;
#X obj 52 449 dac~;
#X obj 52 390 *~ 0.05;
#X obj 52 361 cycle~;
#X floatatom 199 188 0 0 0 0 - - -;
#X obj 80 249 phasor~ 440;
#X text 52 16 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 168 285 slope input (float or signal);
#X text 10 279 phase input;
#X text 89 317 distorted phase output;
#X text 89 345 use as table lookup;
#X text 195 300 argument sets initial slope value (default 1.0);
#X obj 540 13 import cyclone;
#X obj 80 297 kink~ 1.3;
#X obj 218 489 Scope~ 130 130 4 3 128 -1 1 0 0 0 0 102 255 51 135 135
135 0;
#X obj 215 350 Scope~ 130 130 4 3 128 -1 1 0 0 0 0.01 102 255 51 135
135 135 0;
#X obj 426 335 loadbang;
#X text 440 197 This ramps the slope from 1 to 10 and then back to
1 Combine with an amplitude envelope to achieve BRASS ENS. 1 bliss.
;
#X text 74 150 try different slope values (approx 1-20). Reset to 1
to use the envelope at right.;
#X connect 0 0 21 0;
#X connect 1 0 20 0;
#X connect 1 0 21 0;
#X connect 3 0 4 1;
#X connect 4 0 19 1;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 8 0 7 0;
#X connect 8 0 7 1;
#X connect 9 0 8 0;
#X connect 9 0 20 0;
#X connect 10 0 3 0;
#X connect 11 0 19 0;
#X connect 19 0 9 1;
#X connect 19 0 21 0;
#X connect 22 0 1 0;
#X connect 22 0 0 0;
|
