[PD] mod~ ??? (FIXED)

[Thomas Ouellet Fredericks]

I fixed it so it works. Solution is attached. If you are interested in
samplers, loading multiple samples, having smooth loop points, sending
to multiple targets, etc, you should also check out the "sample"
section of the pdmtl abstractions:

http://wiki.dataflow.ws/PdMtlAbstractions/Contents#head-sample

Tom

CORRECTED variable_loop_point-new.pd

#N canvas 315 27 897 843 10;
#X text 240 13 0 - 127;
#X text 574 6 0 - 255;
#X text 581 45 127 = normal;
#X text 580 31 255 = lowest;
#X text 584 61 0 = highest;
#X obj 92 535 phasor~;
#X obj 92 348 expr 1 / ($f1 * 1 / 1000);
#X obj 92 441 sig~;
#X text 115 241 number of samples in glitch;
#X obj 268 116 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 1800 1;
#X text 241 39 127 = whole sample;
#X text 244 60 0 = smallest fraction;
#X obj 251 146 / 127;
#X obj 78 225 *;
#X obj 452 124 hsl 128 15 0 255 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 8500 1;
#X floatatom 458 193 5 0 0 0 - - -;
#X obj 581 229 / 127;
#X obj 622 134 hsl 128 15 0 255 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 5700 1;
#X floatatom 595 272 5 0 0 0 - - -;
#X obj 598 196 abs;
#X obj 599 172 - 255;
#X obj 250 175 t b f;
#X floatatom 324 163 5 0 0 0 - - -;
#X text 416 14 0 - 127;
#X obj 434 153 / 255;
#X obj 551 383 table test_zample;
#X obj 29 21 openpanel;
#X obj 30 -8 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 29 49 read -resize \$1 test_zample;
#X obj 28 76 soundfiler;
#X obj 240 85 inlet loop length;
#X obj 393 86 inlet loop offset;
#X obj 552 85 inlet loop pitch;
#X text 419 33 127 = table start;
#X text 420 60 0 = table end;
#X text 159 607 offset loop from start of table;
#X text 164 577 multiply phasor~ by loop length;
#X text 278 348 convert ms to frequency in Hz;
#N canvas 0 22 835 552 wraparound~ 0;
#X obj 87 29 inlet~;
#X obj 87 260 outlet~;
#X obj 85 162 wrap~;
#X obj 373 258 outlet~;
#X obj 86 126 +~ 0;
#X obj 689 49 inlet offset;
#X obj 87 224 *~ 1;
#X obj 417 31 inlet total num of samples in FILE;
#X obj 166 30 inlet loop_size;
#X obj 86 90 *~ 1;
#X connect 0 0 9 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 4 1;
#X connect 6 0 1 0;
#X connect 7 0 6 1;
#X connect 8 0 9 1;
#X connect 9 0 4 0;
#X restore 92 669 pd wraparound~;
#X msg 77 -5 symbol ~/loops;
#X obj 93 705 tabread4~ test_zample;
#X obj 36 264 t f f b;
#X obj 129 287 samplerate~;
#X obj 92 321 /;
#X text 213 289 YOU WILL AUTOMATICALLY GET THE PROPER SAMPLERATE WITH
THIS OBJECT.;
#X obj 303 716 snapshot~;
#X obj 307 660 loadbang;
#X obj 312 686 metro 50;
#X obj 307 738 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 10277 1;
#X floatatom 75 128 5 0 0 0 - - -;
#X obj 270 660 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 93 470 *~ 1;
#X obj 252 473 snapshot~;
#X obj 256 417 loadbang;
#X obj 261 443 metro 50;
#X obj 327 497 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 12391 1;
#X obj 329 413 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 80 761 dac~;
#X obj 138 313 / 1000;
#X text 443 737 <- This is the part of the file being read.;
#X connect 5 0 52 0;
#X connect 5 0 38 0;
#X connect 6 0 7 0;
#X connect 7 0 51 0;
#X connect 9 0 12 0;
#X connect 9 0 22 0;
#X connect 12 0 21 0;
#X connect 13 0 41 0;
#X connect 14 0 24 0;
#X connect 15 0 38 3;
#X connect 16 0 18 0;
#X connect 16 0 51 1;
#X connect 17 0 20 0;
#X connect 19 0 16 0;
#X connect 20 0 19 0;
#X connect 21 0 13 0;
#X connect 21 1 13 1;
#X connect 21 1 38 1;
#X connect 24 0 15 0;
#X connect 26 0 28 0;
#X connect 27 0 26 0;
#X connect 28 0 29 0;
#X connect 29 0 13 0;
#X connect 29 0 49 0;
#X connect 29 0 38 2;
#X connect 30 0 12 0;
#X connect 31 0 24 0;
#X connect 32 0 20 0;
#X connect 38 0 40 0;
#X connect 38 1 45 0;
#X connect 39 0 26 0;
#X connect 40 0 57 0;
#X connect 40 0 57 1;
#X connect 41 1 43 0;
#X connect 41 2 42 0;
#X connect 42 0 58 0;
#X connect 43 0 6 0;
#X connect 45 0 48 0;
#X connect 46 0 47 0;
#X connect 47 0 45 0;
#X connect 50 0 47 0;
#X connect 51 0 5 0;
#X connect 52 0 55 0;
#X connect 53 0 54 0;
#X connect 54 0 52 0;
#X connect 56 0 54 0;
#X connect 58 0 43 1;