#N canvas 257 128 333 328 10; #N canvas 0 0 655 649 oscillator 0; #N canvas 314 100 514 407 number_of_harmonics_allowed 0; #X obj 135 68 / 2; #X obj 45 172 /; #X obj 15 205 int; #X obj 135 44 samplerate~; #X obj 15 272 * 0.5; #X obj 15 292 int; #X obj 15 313 * 2; #X obj 15 252 - 1; #X obj 15 336 + 1; #X obj 15 359 change; #X obj 15 230 change; #X obj 45 119 t b f; #X text 241 49 sr / 2 = nyquist frequency; #X obj 15 384 outlet; #X obj 14 18 inlet~; #X obj 45 142 f; #X obj 135 21 loadbang; #X text 119 216 harmonics never should exceed the nyquist frequency ; #X obj 15 49 snapshot~; #X obj 78 21 bang~; #X obj 15 72 change; #X obj 15 95 sel 0; #X obj 15 140 f; #X connect 0 0 15 1; #X connect 0 0 22 1; #X connect 1 0 2 0; #X connect 2 0 10 0; #X connect 3 0 0 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 8 0; #X connect 7 0 4 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 10 0 7 0; #X connect 11 0 15 0; #X connect 11 1 1 1; #X connect 14 0 18 0; #X connect 15 0 1 0; #X connect 16 0 3 0; #X connect 18 0 20 0; #X connect 19 0 18 0; #X connect 20 0 21 0; #X connect 21 0 22 0; #X connect 21 1 11 0; #X connect 22 0 2 0; #X restore 150 113 pd number_of_harmonics_allowed; #N canvas 499 174 190 222 raw_square 0; #X obj 19 13 inlet~; #X obj 19 180 outlet~; #X obj 102 18 inlet; #X obj 102 43 switch~; #X obj 19 122 -~; #X obj 19 48 -~ 0.5; #X obj 18 76 wrap~; #X obj 18 99 -~ 0.5; #X obj 19 148 *~ 2; #X connect 0 0 5 0; #X connect 2 0 3 0; #X connect 4 0 8 0; #X connect 5 0 6 0; #X connect 5 0 4 1; #X connect 6 0 7 0; #X connect 7 0 4 0; #X connect 8 0 1 0; #X restore 29 404 pd raw_square; #N canvas 0 0 448 226 bandlimited_square 0; #X obj 16 31 inlet~; #X obj 71 33 inlet; #X obj 261 34 inlet; #X obj 17 192 outlet~; #X msg 71 96 set \$1; #X obj 261 124 switch~; #X obj 347 36 inlet; #X text 69 14 choose table; #X text 346 17 set phase; #X text 256 14 switch dsp; #X obj 71 71 makefilename BLSQUARE%d; #X obj 17 134 tabosc4~; #X connect 0 0 11 0; #X connect 1 0 10 0; #X connect 2 0 5 0; #X connect 4 0 11 0; #X connect 6 0 11 1; #X connect 10 0 4 0; #X connect 11 0 3 0; #X restore 155 405 pd bandlimited_square; #X obj 166 192 * 2; #X obj 297 374 snapshot~; #X obj 150 143 t f f f; #X obj 202 273 == 0; #X obj 202 377 f; #X obj 202 356 sel 1; #X obj 249 319 change; #X obj 297 348 sel 1; #X obj 548 178 inlet; #X text 550 151 phase; #X text 350 346 sync phase \, when switching dsp on; #X text 188 221 switch to raw square \, when number of allowed harmonics exceeds num_of_tables*2; #X obj 397 91 s BLSQUARE; #X obj 397 111 r BLSQUARE; #X obj 397 132 route num_of_tables; #X obj 29 272 phasor~; #X text 185 81 get the number of tables ->; #X obj 150 223 >; #X obj 30 7 inlet~; #X obj 28 456 outlet~; #X text 33 494 number of harmononics; #X text 32 512 without exceeding nyquist; #X text 31 531 at given frequeny:; #X text 251 520 best method:; #X text 245 595 raw square; #X text 246 563 bandlimited square; #X text 227 496 |; #X text 227 505 |; #X text 227 514 |; #X text 227 523 |; #X text 227 533 |; #X text 227 542 |; #X text 227 551 |; #X text 227 560 |; #X text 227 567 |; #X text 227 576 |; #X text 227 585 |; #X text 227 594 |; #X text 227 604 |; #X text 25 541 __________________________________________________; #X text 25 575 __________________________________________________; #X text 40 596 n > num_of_tables*2; #X text 32 565 0 < n < num_of_tables*2; #X obj 149 83 abs~; #X msg 397 69 get_num_of_tables; #X obj 397 37 r \$0.loadbang.3; #X connect 0 0 5 0; #X connect 1 0 22 0; #X connect 2 0 22 0; #X connect 3 0 20 1; #X connect 4 0 2 3; #X connect 5 0 20 0; #X connect 5 1 7 1; #X connect 6 0 8 0; #X connect 6 0 9 0; #X connect 7 0 2 1; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 9 0 2 2; #X connect 10 0 4 0; #X connect 11 0 2 3; #X connect 11 0 18 1; #X connect 16 0 17 0; #X connect 17 0 3 0; #X connect 18 0 1 0; #X connect 18 0 4 0; #X connect 20 0 1 1; #X connect 20 0 6 0; #X connect 21 0 18 0; #X connect 21 0 2 0; #X connect 21 0 46 0; #X connect 46 0 0 0; #X connect 47 0 15 0; #X connect 48 0 47 0; #X restore 20 188 pd oscillator; #X obj 19 161 inlet~; #X obj 106 161 inlet; #X obj 20 214 outlet~; #N canvas 555 327 594 370 lookup-table-creation 0; #N canvas 535 94 265 461 bandlimited_square_sinesum 0; #X obj 43 67 until; #X obj 21 38 t b f b; #X obj 84 67 1; #X obj 43 99 f 1; #X obj 84 99 + 1; #X obj 43 125 t f f; #X obj 43 153 % 2; #X obj 43 176 sel 0 1; #X obj 43 203 0; #X obj 69 203 f; #X obj 69 227 t b f; #X obj 69 249 pack 1 f; #X obj 69 274 /; #X obj 43 334 list prepend; #X obj 142 335 list; #X obj 21 363 list; #X obj 154 252 b; #X obj 21 408 list trim; #X obj 21 16 inlet; #X obj 21 430 outlet; #X obj 21 386 list prepend sinesum 512; #X obj 69 299 * 1.27324; #X text 145 298 = 4 / pi; #X connect 0 0 3 0; #X connect 1 0 15 0; #X connect 1 1 0 0; #X connect 1 2 2 0; #X connect 1 2 16 0; #X connect 2 0 3 1; #X connect 3 0 4 0; #X connect 3 0 5 0; #X connect 4 0 3 1; #X connect 5 0 6 0; #X connect 5 1 9 1; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 7 1 9 0; #X connect 8 0 13 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 11 0 12 0; #X connect 12 0 21 0; #X connect 13 0 14 0; #X connect 13 0 15 1; #X connect 14 0 13 1; #X connect 15 0 20 0; #X connect 16 0 15 1; #X connect 16 0 13 1; #X connect 17 0 19 0; #X connect 18 0 1 0; #X connect 20 0 17 0; #X connect 21 0 13 0; #X restore 16 305 pd bandlimited_square_sinesum; #X obj 16 58 until; #X obj 51 80 + 1; #X obj 16 101 * 2; #X obj 16 123 - 1; #X obj 81 208 pack f s; #X obj 81 180 * 10; #X obj 16 145 t b f f; #X obj 16 270 f; #X msg 81 237 obj 10 \$1 table \$2 515; #X obj 132 181 makefilename BLSQUARE%d; #X text 132 77 for synthesizing a square only odd numbers of harmonics ; #X text 132 94 occur. ( 1 \, 3 \, 5 \, 7 \, etc.); #X text 283 237 create the necessary tables; #X text 239 302 fill each table with the appropriate sinesum \,; #X text 238 320 respectively the appropriate number of harmonics.; #X obj 81 259 s pd-\$0-lookup-tables-square; #X obj 16 331 flow.send; #X obj 16 80 1; #X obj 16 14 r \$0.create_tables; #X connect 0 0 17 0; #X connect 1 0 18 0; #X connect 2 0 18 1; #X connect 3 0 4 0; #X connect 4 0 7 0; #X connect 5 0 9 0; #X connect 6 0 5 0; #X connect 7 0 8 0; #X connect 7 1 6 0; #X connect 7 2 8 1; #X connect 7 2 10 0; #X connect 8 0 0 0; #X connect 9 0 16 0; #X connect 10 0 5 1; #X connect 10 0 17 1; #X connect 18 0 2 0; #X connect 18 0 3 0; #X connect 19 0 1 0; #X restore 21 70 pd lookup-table-creation; #N canvas 647 5 291 900 \$0-lookup-tables-square 0; #X restore 21 105 pd \$0-lookup-tables-square; #X text 158 286 Author: Roman Haefeli; #X msg 210 255 version 0.1.1; #N canvas 402 20 247 234 singleton-communication 0; #X obj 7 8 loadbang; #N canvas 0 0 214 242 get_num_of_tables 0; #X msg 13 186 num_of_tables \$1; #X obj 13 56 spigot; #X obj 13 80 route get_num_of_tables; #X obj 50 35 r \$0.enable; #X obj 44 128 route num_of_tables; #X obj 13 155 f; #X obj 13 14 r BLSQUARE; #X obj 13 213 s BLSQUARE; #X obj 44 107 r BLSQUARE; #X connect 0 0 7 0; #X connect 1 0 2 0; #X connect 2 0 5 0; #X connect 3 0 1 1; #X connect 4 0 5 1; #X connect 5 0 0 0; #X connect 6 0 1 0; #X connect 8 0 4 0; #X restore 7 184 pd get_num_of_tables; #N canvas 379 355 499 470 become_singleton 0; #X obj 37 185 spigot; #X obj 74 164 r \$0.enable; #X msg 38 66 singletonthere?; #X obj 37 143 route singletonthere?; #X msg 37 206 yesthere; #X obj 37 275 route yesthere; #X obj 16 31 t b b b; #X obj 37 295 b; #X obj 16 341 f; #X obj 16 403 s \$0.enable; #X text 69 348 if no singleton is existent \, enable communication \, which in return creates the necessary lookup-tables and makes itself to the singleton instance.; #X obj 16 8 r \$0.loadbang.1; #X obj 60 317 1; #X obj 37 317 0; #X obj 270 18 flow.send.destroy \$0.destroyed; #X obj 270 45 r \$0.destroyed; #X obj 270 93 spigot; #X obj 307 72 r \$0.enable; #X msg 270 117 createnewsingleton; #X obj 38 87 s BLSQUARE; #X obj 37 121 r BLSQUARE; #X obj 37 228 s BLSQUARE; #X obj 37 253 r BLSQUARE; #X obj 270 138 s BLSQUARE; #X connect 0 0 4 0; #X connect 1 0 0 1; #X connect 2 0 19 0; #X connect 3 0 0 0; #X connect 4 0 21 0; #X connect 5 0 7 0; #X connect 6 0 8 0; #X connect 6 1 2 0; #X connect 6 2 12 0; #X connect 7 0 13 0; #X connect 8 0 9 0; #X connect 11 0 6 0; #X connect 12 0 8 1; #X connect 13 0 8 1; #X connect 15 0 16 0; #X connect 16 0 18 0; #X connect 17 0 16 1; #X connect 18 0 23 0; #X connect 20 0 3 0; #X connect 22 0 5 0; #X restore 7 164 pd become_singleton; #N canvas 272 171 481 368 how_many_tables_to_create 0; #X obj 11 160 sel 1; #X obj 11 182 f; #X obj 11 114 t f f f; #X obj 12 296 moses 1; #X obj 11 64 spigot; #X msg 105 267 num_of_tables \$1; #X obj 48 39 r \$0.enable; #X obj 233 36 \$1; #X obj 233 57 sel 0; #X obj 233 79 40; #X obj 11 137 >; #X obj 11 92 route needtables; #X obj 12 272 -; #X obj 13 330 s \$0.create_tables; #X text 59 186 if new value is bigger \, use increased number_of_tables and create additional tables; #X obj 233 16 r \$0.loadbang.2; #X msg 233 100 needtables \$1; #X obj 11 9 r BLSQUARE; #X obj 105 295 s BLSQUARE; #X obj 233 121 s BLSQUARE; #X connect 0 0 1 0; #X connect 1 0 5 0; #X connect 1 0 10 1; #X connect 1 0 12 1; #X connect 2 0 10 0; #X connect 2 1 1 1; #X connect 2 2 12 0; #X connect 3 1 13 0; #X connect 4 0 11 0; #X connect 5 0 18 0; #X connect 6 0 4 1; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 8 1 16 0; #X connect 9 0 16 0; #X connect 10 0 0 0; #X connect 11 0 2 0; #X connect 12 0 3 0; #X connect 15 0 7 0; #X connect 16 0 19 0; #X connect 17 0 4 0; #X restore 7 204 pd how_many_tables_to_create; #X obj 7 128 s \$0.loadbang.3; #X obj 29 107 s \$0.loadbang.2; #X obj 51 86 s \$0.loadbang.1; #X obj 7 63 t b b b; #X obj 70 29 route createnewsingleton; #X obj 70 7 r BLSQUARE; #X connect 0 0 7 0; #X connect 7 0 4 0; #X connect 7 1 5 0; #X connect 7 2 6 0; #X connect 8 0 7 0; #X connect 9 0 8 0; #X restore 21 36 pd singleton-communication; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 2 0 0 1;