array-insert-help.pd

#N canvas 364 185 835 312 10;
#X obj 37 262 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 69 263 <- bang when done;
#X msg 258 202 symbol array-insert-help;
#X obj 208 160 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 208 180 * -1;
#X floatatom 168 182 5 0 0 0 - - -, f 5;
#X text 56 27 Inlets \; 1 - List of values to insert (non-floats set
to 0) \; 2 \, 3 \, 4 - onset \, points \, and direction of range to
rotate. Defaults to entire array. \; 5 - array name \;;
#X obj 448 30 loadbang;
#X obj 575 185 array get array-insert-help;
#X obj 575 211 list prepend set;
#X obj 575 238 list trim;
#X obj 573 153 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 555 268;
#X obj 519 31 array define array-insert-help 14;
#X obj 37 227 array-insert array-insert-help;
#X msg 160 141 0;
#X msg 122 136 -1;
#X floatatom 117 183 5 0 0 0 - - -, f 5;
#X msg 33 147 0.5 0.25 0.4;
#X msg 488 56 \; array-insert-help 0 0 1 2 3 4 5 6 7 8 9 10 11 12 13
14;
#X connect 2 0 14 4;
#X connect 3 0 4 0;
#X connect 4 0 14 3;
#X connect 5 0 14 2;
#X connect 7 0 19 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 8 0;
#X connect 14 0 0 0;
#X connect 15 0 14 1;
#X connect 16 0 14 1;
#X connect 17 0 14 1;
#X connect 18 0 14 0;