periodic-help.pd

#N canvas 788 528 379 378 12;
#X floatatom 154 120 5 0 15 0 - - - 0;
#X floatatom 154 182 5 0 0 0 - - - 0;
#X obj 125 31 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 154 149 periodic 16 60 24;
#X floatatom 21 275 5 0 0 0 - - - 0;
#N canvas 0 22 450 278 (subpatch) 0;
#X array array1 16 float 3;
#A 0 84.2 82.3094 60.7142 68.5711 72.1424 74.9995 67.8569 68.5711 76.428
71.4282 69.9996 62.1427 66.4283 58.5714 52.1431 82.389;
#X coords 0 120 16 20 200 140 1 0 0;
#X restore 155 221 graph;
#X obj 21 306 array set array1;
#X obj 75 275 mod 16;
#X obj 21 240 periodic 8 1 0.2;
#X text 274 97 range;
#X text 222 97 centre;
#X text 178 96 steps;
#X msg 231 119 84;
#X msg 270 119 12;
#X msg 196 120 8;
#X obj 125 58 tempo 140 0.5;
#X text 18 7 Stepped simple harmonic motion;
#X text 59 120 Count or bang;
#X floatatom 270 186 5 0 0 1 Glide - - 0;
#X connect 0 0 3 0;
#X connect 0 0 7 0;
#X connect 0 0 8 0;
#X connect 1 0 8 2;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 3 1 18 0;
#X connect 4 0 6 0;
#X connect 7 0 6 1;
#X connect 8 0 4 0;
#X connect 12 0 3 2;
#X connect 13 0 3 3;
#X connect 14 0 3 1;
#X connect 15 1 0 0;