#N canvas 421 23 570 657 10;
#X declare -stdpath ./;
#X obj 7 626 cnv 15 552 21 empty empty empty 20 12 0 14 #e0e0e0 #202020 0;
#X obj 6 495 cnv 3 550 3 empty empty inlets 8 12 0 13 #dcdcdc #000000 0;
#X obj 7 554 cnv 3 550 3 empty empty outlets 8 12 0 13 #dcdcdc #000000 0;
#X obj 7 591 cnv 3 550 3 empty empty arguments 8 12 0 13 #dcdcdc #000000 0;
#X obj 104 504 cnv 17 3 17 empty empty 0 5 9 0 16 #dcdcdc #9c9c9c 0;
#X obj 105 563 cnv 17 3 17 empty empty 0 5 9 0 16 #dcdcdc #9c9c9c 0;
#X obj 104 527 cnv 17 3 17 empty empty 1 5 9 0 16 #dcdcdc #9c9c9c 0;
#X text 171 503 signal;
#X text 171 562 signal;
#X text 159 600 1) float;
#X text 234 562 - distorted phasor output;
#X obj 229 155 hsl 128 15 0.5 100 1 0 empty empty empty -2 -8 0 10 #dcdcdc #000000 #000000 0 1;
#X obj 127 267 cos~;
#X text 135 527 float/signal;
#X text 22 244 kinked phase =>;
#X text 234 503 - phasor signal to be distorted by kinking it;
#X text 277 154 slope;
#X text 76 90 Distort [phasor~] with [kink~]. If the phase input times the slope is less than 0.5 \, the value is output. Otherwise \, a complentary slope is used that goes from 0.5 to 1 (creating a bend or a "kink").;
#X text 234 527 - slope (minimum 0);
#X text 234 600 - slope (default 1 - minimum 0);
#X obj 127 167 phasor~ 220;
#X obj 127 198 cyclone/kink~ 0.5;
#X obj 226 176 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 #dcdcdc #000000 #000000 0 256;
#X obj 499 69 cyclone/dsponoff~;
#X obj 127 336 output~;
#X obj 3 3 ./header kink~;
#X text 22 61 Phase distortion;
#X obj 420 160 declare -stdpath ./;
#X obj 330 204 cnv 19 199 79 empty empty empty 20 12 0 12 #e0e0e0 #404040 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-kink 441 float 0;
#X coords 0 1 440 0 201 81 1 0 0;
#X restore 329 203 graph;
#X obj 177 245 metro 250;
#X obj 177 224 loadbang;
#X obj 184 281 tabwrite~ \$0-kink;
#X obj 177 306 tabwrite~ \$0-cos;
#X obj 330 314 cnv 19 199 79 empty empty empty 20 12 0 12 #e0e0e0 #404040 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-cos 441 float 0;
#X coords 0 1 440 -1 201 81 1 0 0;
#X restore 329 313 graph;
#X text 54 438 see also:;
#X obj 402 466 open-else;
#X text 473 424 click;
#X msg 402 419 function;
#X text 124 433 Plugdata users or those with ELSE can also use [else/function~] and [else/function] as an alternative, f 43;
#X msg 412 440 function~;
#X connect 11 0 22 0;
#X connect 12 0 24 0;
#X connect 12 0 33 0;
#X connect 20 0 21 0;
#X connect 21 0 12 0;
#X connect 21 0 32 0;
#X connect 22 0 21 1;
#X connect 30 0 32 0;
#X connect 30 0 33 0;
#X connect 31 0 30 0;
#X connect 39 0 37 0;
#X connect 41 0 37 0;
