#N canvas 97 150 726 601 10;
#X obj 77 396 -~;
#X obj 201 237 /~;
#X obj 218 214 clip~ 1 999999;
#X obj 93 267 *~;
#X obj 93 291 clip~ -0.5 0.5;
#X obj 93 315 *~ 1000;
#X obj 93 339 +~ 501;
#X obj 76 219 -~ 0.5;
#X obj 201 186 * 0.4;
#N canvas 388 124 826 683 transition-table 0;
#X obj 428 534 cos~;
#X obj 262 534 cos~;
#X obj 214 529 cos~;
#X msg 158 598 bang;
#X text 242 138 back the phase up one sample;
#X msg 312 445 -0.0005;
#X obj 262 508 *~ 3;
#X obj 427 510 *~ 5;
#X obj 262 559 *~ 0.33333;
#X obj 427 560 *~ -0.2;
#X obj 214 557 *~ -1;
#X msg 159 425 bang;
#X obj 213 488 phasor~ 22.05;
#X obj 214 590 *~ 0.57692;
#X obj 204 259 cos~;
#X obj 156 254 cos~;
#X msg 100 323 bang;
#X msg 247 166 -0.0005;
#X obj 204 233 *~ 3;
#X obj 204 284 *~ 0.33333;
#X obj 156 282 *~ -1;
#X msg 99 137 bang;
#X obj 155 193 phasor~ 22.05;
#X obj 156 315 *~ 0.75;
#X obj 214 617 tabwrite~ \$0-transition;
#X obj 156 342 tabwrite~ \$0-transition;
#X text 292 216 twice the table length;
#X text 280 193 period is 2000 samples \,;
#X text 80 369 This one is used - first and third harmonics only.;
#X text 28 644 This alternate one puts in harmonics 1 \, 3 \, and 5
;
#X text 537 179 ----- 1002 samples ----;
#X text 24 27 This network puts a half cycle of a band-limited square
wave into the table "array1.";
#X text 22 64 Logically the half-cycle is in samples 1 through 1000
\; samples 0 and 1001 are provided so that the 4-point interpolation
will work everywhere.;
#X obj 543 254 table \$0-transition 1002;
#X obj 478 83 f \$1;
#X obj 478 104 select 0 1;
#X obj 478 150 s \$0-harm0;
#X obj 511 126 s \$0-harm1;
#X obj 99 115 r \$0-harm0;
#X obj 159 405 r \$0-harm1;
#X obj 478 43 r \$0-nyquist;
#X obj 478 63 b;
#X obj 155 152 r \$0-nyquist;
#X obj 213 445 r \$0-nyquist;
#X obj 155 172 / 1000;
#X obj 213 467 / 1000;
#X obj 562 429 switch~;
#X obj 601 384 delay 100;
#X msg 601 404 0;
#X msg 562 383 1;
#X obj 562 357 t b b;
#X obj 562 314 r \$0-harm0;
#X obj 570 334 r \$0-harm1;
#X text 470 455 switch off as soon as the table is filled;
#X connect 0 0 9 0;
#X connect 1 0 8 0;
#X connect 2 0 10 0;
#X connect 3 0 24 0;
#X connect 5 0 12 1;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 13 0;
#X connect 9 0 13 0;
#X connect 10 0 13 0;
#X connect 11 0 5 0;
#X connect 11 0 3 0;
#X connect 12 0 2 0;
#X connect 12 0 6 0;
#X connect 12 0 7 0;
#X connect 13 0 24 0;
#X connect 14 0 19 0;
#X connect 15 0 20 0;
#X connect 16 0 25 0;
#X connect 17 0 22 1;
#X connect 18 0 14 0;
#X connect 19 0 23 0;
#X connect 20 0 23 0;
#X connect 21 0 17 0;
#X connect 21 0 16 0;
#X connect 22 0 15 0;
#X connect 22 0 18 0;
#X connect 23 0 25 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 35 1 37 0;
#X connect 38 0 21 0;
#X connect 39 0 11 0;
#X connect 40 0 41 0;
#X connect 41 0 34 0;
#X connect 42 0 44 0;
#X connect 43 0 45 0;
#X connect 44 0 22 0;
#X connect 45 0 12 0;
#X connect 47 0 48 0;
#X connect 48 0 46 0;
#X connect 49 0 46 0;
#X connect 50 0 49 0;
#X connect 50 1 47 0;
#X connect 51 0 50 0;
#X connect 52 0 50 0;
#X restore 347 273 pd transition-table;
#X obj 76 140 inlet~;
#X obj 76 441 outlet~;
#X obj 296 143 inlet~;
#X obj 77 418 +~ 0.5;
#X text 295 125 frequency of phasor;
#X obj 296 182 samphold~;
#X text 77 465 out: transition spliced \, bandlimited phasor from 0-1
;
#X text 74 117 in: phasor 0-1;
#X obj 488 69 loadbang;
#X obj 488 111 samplerate~;
#X obj 488 137 * 0.5;
#X obj 488 163 s \$0-nyquist;
#X obj 201 145 r \$0-nyquist;
#X obj 560 28 r pd;
#X obj 560 55 route dsp;
#X obj 560 81 select 1;
#X obj 93 363 tabread~ \$0-transition;
#X text 268 366 for best quality use tabread4~ here \, but tabread~
also works okay and is about twice as fast.;
#N canvas 228 198 627 317 LICENSE-BSD 0;
#X text 121 56 This software is copyrighted by Miller Puckette \, Reality
Jockey Ltd. and others. The terms (the "Standard Improved BSD License")
apply to all files associated with the software unless explicitly disclaimed
in individual files.;
#X text 123 148 See the file LICENSE.txt for the full license text.
;
#X restore 413 30 pd LICENSE-BSD;
#X connect 0 0 13 0;
#X connect 1 0 3 1;
#X connect 2 0 1 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 26 0;
#X connect 7 0 3 0;
#X connect 7 0 0 0;
#X connect 8 0 1 0;
#X connect 10 0 7 0;
#X connect 10 0 15 1;
#X connect 12 0 15 0;
#X connect 13 0 11 0;
#X connect 15 0 2 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 22 0 8 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 19 0;
#X connect 26 0 0 1;
