Commit ac949c09 authored by Miller Puckette's avatar Miller Puckette
Browse files

dirty flag not set withn reloading saved abstractions

working on new dialog windows
updates to 14.partialtracer and sigmund~
parent 2090825f
......@@ -22,6 +22,10 @@
<P> ------------------ 0.42 ---------------------------
<P> print takes "-n" flag to supperss "print:" in output
<P> "clear" button in Pd output window
<P> ".pdrc" loading suppressed if pd is started with "-noprefs".
<P> Bug fix in pipe object: if sending a list to pipe, it didn't update the
......
This source diff could not be displayed because it is too large. You can view the blob instead.
#N canvas 222 113 821 785 10;
#X obj 405 551 r amp;
#X obj 466 531 element trace-template bazoo;
#X obj 365 578 set point-template y amp;
#X obj 382 454 r pitch;
#X obj 366 496 f;
#X obj 366 520 * -4;
#X obj 442 417 pointer;
#X obj 443 608 f 1;
#X obj 326 252 f;
#X obj 326 191 f;
#X obj 326 215 sel 0;
#X floatatom 201 220 0;
#X obj 24 72 r add-to-trace;
#X obj 326 143 r start-new-trace;
#X obj 341 305 r nframe;
#X floatatom 203 100 0;
#X obj 22 419 r pitch;
#X obj 75 245 r frequency;
#X obj 68 561 r amp;
#X text 141 200 current pitch;
#X obj 24 262 mtof;
#X obj 24 190 sel 1;
#X obj 24 214 t b b;
#X obj 24 286 -;
#X obj 24 310 abs;
#X obj 24 334 <;
#X obj 79 314 r f-threshold;
#X obj 24 358 sel 1;
#X obj 21 461 f;
#X obj 59 268 f;
#X obj 24 238 f;
#X text 34 374 if this happens \, add to the trace;
#X obj 533 114 r done-adding-traces;
#X obj 533 165 sel 0;
#X obj 583 89 - 1;
#X obj 14 45 f 2;
#X obj 13 385 t b b;
#X obj 203 34 r clear-traces;
#X obj 203 58 f 0;
#X obj 24 166 f;
#X obj 533 141 f;
#X obj 93 403 pointer;
#X text 160 397 current trace;
#N canvas 188 44 862 681 12;
#X obj 538 553 element trace-template bazoo;
#X obj 439 617 set point-template y amp;
#X obj 516 456 pointer;
#X obj 549 350 r nframe;
#X obj 114 406 pointer;
#X text 141 385 current trace;
#X obj 115 454 getsize trace-template bazoo;
#X obj 155 504 + 1;
#X obj 155 528 setsize trace-template bazoo;
#X obj 126 557 element trace-template bazoo;
#X obj 115 478 t f f;
#X obj 21 586 set point-template y amp;
#X obj 93 427 t b p p;
#X obj 21 485 * -4;
#X obj 13 633 s added-to-trace;
#X obj 13 609 f 1;
#X obj 40 97 r added-to-trace;
#X obj 24 118 f;
#X obj 24 142 sel 0;
#X obj 342 170 r started-new-trace;
#X obj 326 276 sel 0;
#X obj 443 633 s started-new-trace;
#X text 535 482 last trace in list;
#X text 514 411 reentrancy protection \; should go away;
#X obj 541 464 s last-in-list;
#X obj 615 350 r last-in-list;
#X obj 443 474 t b b p;
#X obj 465 507 f 0;
#X obj 326 357 * 5;
#X obj 326 332 f;
#X obj 292 300 f 2;
#X text 238 52 "state" -- 0 if free \, 1 if making a trace \, and 2 if we've added a point for the current frame;
#X obj 546 307 f \$1;
#X text 585 306 voice number;
#X obj 442 391 append trace-template x voiceno;
#X obj 516 278 t f b;
#X connect 0 0 2 1;
#X connect 1 0 2 2;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 11 0;
#X connect 5 0 2 0;
#X connect 6 0 63 0;
#X connect 6 0 41 1;
#X connect 7 0 58 0;
#X connect 8 0 57 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 30 1;
#X connect 12 0 54 0;
#X connect 13 0 9 0;
#X connect 14 0 66 1;
#X connect 15 0 39 1;
#X connect 15 0 40 1;
#X connect 15 0 8 1;
#X connect 16 0 28 1;
#X connect 17 0 29 1;
#X connect 18 0 48 1;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 30 0;
#X connect 22 1 29 0;
#X text 677 519 last trace in list;
#X text 588 450 reentrancy protection \; should go away;
#X obj 683 501 s last-in-list;
#X obj 730 401 r last-in-list;
#X obj 538 529 f 0;
#X obj 516 374 * 5;
#X obj 516 349 f;
#X obj 668 403 f \$1;
#X text 626 375 voice number;
#X obj 516 405 t f b;
#X obj 588 38 r track-out;
#X obj 588 64 route \$1;
#X obj 588 91 unpack 0 0 0;
#X obj 576 127 ftom;
#X obj 576 153 swap;
#X obj 628 150 rmstodb;
#X obj 576 179 pack 0 0 0;
#X obj 576 207 route 0 1;
#X text 548 324 start new trace;
#X obj 439 565 unpack;
#X text 582 15 voiceno \, freq \, amp \, newflag;
#X text 656 180 newflag \, pitch \, db;
#X obj 487 318 t l b;
#X obj 538 503 t b p;
#X text 36 297 add to trace;
#X obj 91 328 t l b;
#X obj 33 514 unpack;
#X obj 114 430 t p p;
#X obj 337 150 r add-trace-clear;
#X obj 334 252 spigot;
#X obj 373 209 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 337 177 0;
#X msg 373 181 1;
#X text 336 110 only add to trace;
#X text 335 125 if one exists;
#X obj 516 430 append trace-template x y voiceno;
#X connect 0 0 1 2;
#X connect 2 0 4 1;
#X connect 2 0 35 0;
#X connect 3 0 18 1;
#X connect 4 0 39 0;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 9 0 11 2;
#X connect 10 0 9 0;
#X connect 10 1 7 0;
#X connect 15 0 47 3;
#X connect 16 0 0 0;
#X connect 17 0 21 0;
#X connect 18 0 17 0;
#X connect 19 0 47 2;
#X connect 21 0 47 0;
#X connect 21 1 19 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 27 0;
#X connect 26 0 25 1;
#X connect 27 0 36 0;
#X connect 28 0 50 0;
#X connect 28 0 11 0;
#X connect 29 0 23 1;
#X connect 30 0 20 0;
#X connect 32 0 40 0;
#X connect 33 1 34 0;
#X connect 34 0 15 0;
#X connect 35 0 15 0;
#X connect 36 0 35 0;
#X connect 36 0 52 0;
#X connect 36 1 41 0;
#X connect 24 1 27 0;
#X connect 24 2 26 1;
#X connect 25 0 26 0;
#X connect 26 0 28 0;
#X connect 26 1 28 1;
#X connect 27 0 28 2;
#X connect 28 0 29 0;
#X connect 29 0 41 0;
#X connect 29 1 34 0;
#X connect 29 1 44 0;
#X connect 31 0 1 0;
#X connect 31 1 1 1;
#X connect 34 0 31 0;
#X connect 34 1 18 0;
#X connect 35 0 16 0;
#X connect 35 1 0 1;
#X connect 35 1 14 0;
#X connect 37 0 38 0;
#X connect 38 0 15 0;
#X connect 39 0 21 0;
#X connect 40 0 33 0;
#X connect 41 0 49 0;
#X connect 43 0 47 0;
#X connect 44 0 45 0;
#X connect 46 0 48 2;
#X connect 47 0 46 0;
#X connect 47 1 44 0;
#X connect 49 0 28 0;
#X connect 49 1 43 0;
#X connect 49 2 45 1;
#X connect 49 2 46 1;
#X connect 50 0 48 0;
#X connect 52 0 51 0;
#X connect 53 0 54 1;
#X connect 54 0 55 0;
#X connect 55 0 39 0;
#X connect 56 0 9 1;
#X connect 57 0 66 0;
#X connect 57 0 67 0;
#X connect 62 0 71 2;
#X connect 63 0 4 0;
#X connect 63 0 7 0;
#X connect 63 1 64 0;
#X connect 63 2 1 1;
#X connect 63 2 61 0;
#X connect 64 0 1 0;
#X connect 65 0 72 0;
#X connect 66 0 65 0;
#X connect 67 0 15 0;
#X connect 69 0 71 1;
#X connect 71 0 6 0;
#X connect 72 0 71 0;
#X connect 72 1 69 0;
#X connect 37 1 4 0;
#X connect 38 0 11 0;
#X connect 38 1 11 1;
#X connect 39 0 6 0;
#X connect 39 1 9 1;
#X connect 39 1 8 1;
#X connect 40 0 43 0;
#X connect 41 0 37 0;
#X connect 42 0 41 1;
#X connect 43 0 42 0;
#X connect 44 0 42 0;
#X connect 47 0 2 0;
#N canvas 230 103 972 643 10;
#N canvas 339 254 722 644 12;
#X obj 261 279 element trace-template bazoo;
#X floatatom 320 207 0;
#X obj 297 163 getsize trace-template bazoo;
#X obj 429 466 line~;
#X obj 276 49 inlet;
#X obj 342 6 inlet;
#X obj 424 357 dbtorms;
#X obj 264 396 mtof;
#X obj 264 476 phasor~;
#X obj 258 513 cos~;
#X obj 265 547 *~;
#X obj 265 587 throw~ osc-sum;
#X obj 260 437 mtof;
#X obj 260 496 *~;
#X obj 260 524 throw~ osc-sum;
#X obj 185 163 f;
#X obj 245 167 + 1;
#X obj 229 163 + 1;
#X obj 262 240 moses;
#X obj 261 319 get point-template y amp;
#X obj 426 401 pack 0 30;
#X msg 356 432 0 30;
#X obj 276 89 t b p;
#X msg 225 120 0;
#X obj 265 92 t b p;
#X msg 203 138 0;
#X obj 96 60 r osc-tick;
#X obj 264 356 * -0.25;
#X obj 81 307 print no;
#X obj 264 436 sig~;
#X msg 609 357 0;
#X obj 616 326 r osc-stop;
#X connect 0 0 14 0;
#X connect 1 0 13 1;
#X connect 2 0 1 0;
#X connect 3 0 9 1;
#X connect 4 0 17 0;
#X connect 5 0 15 0;
#X connect 6 0 22 0;
#X connect 7 0 8 0;
#X msg 505 369 0;
#X obj 507 341 r osc-stop;
#X obj 519 161 get trace-template y;
#X obj 261 357 +;
#X msg 366 369 0;
#X obj 260 466 osc~;
#X obj 556 412 r osc-speed;
#X obj 296 197 - 1;
#X obj 125 318 >=;
#X obj 125 342 sel 1;
#X obj 342 32 route 1;
#X obj 343 57 unpack 0 p;
#X obj 136 384 f;
#X text 162 385 track ID;
#X obj 136 412 s osc-noteoff;
#X text 394 3 on/off \, track-id \, pointer;
#X text 61 434 when done \, send track id;
#X text 59 449 back to poly object so it;
#X text 58 466 can reuse us;
#X connect 0 0 11 0;
#X connect 1 0 23 0;
#X connect 1 0 24 1;
#X connect 2 0 6 1;
#X connect 3 0 26 0;
#X connect 4 0 12 0;
#X connect 5 0 21 0;
#X connect 6 0 7 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 11 0 12 0;
#X connect 11 0 13 0;
#X connect 12 0 11 1;
#X connect 13 0 0 0;
#X connect 13 1 16 0;
#X connect 14 0 20 0;
#X connect 14 1 5 0;
#X connect 15 0 3 0;
#X connect 16 0 3 0;
#X connect 17 0 18 0;
#X connect 17 1 0 1;
#X connect 17 1 2 0;
#X connect 18 0 11 1;
#X connect 19 0 11 0;
#X connect 20 0 6 0;
#X connect 22 0 7 0;
#X connect 23 0 15 0;
#X connect 24 0 23 0;
#X connect 8 0 10 0;
#X connect 8 0 24 0;
#X connect 9 0 8 1;
#X connect 10 0 0 0;
#X connect 10 1 20 0;
#X connect 11 0 19 0;
#X connect 11 1 4 0;
#X connect 12 0 2 0;
#X connect 13 0 14 0;
#X connect 13 1 0 1;
#X connect 13 1 1 0;
#X connect 13 1 18 0;
#X connect 14 0 8 1;
#X connect 15 0 8 0;
#X connect 16 0 12 0;
#X connect 17 0 16 0;
#X connect 18 0 19 1;
#X connect 19 0 5 0;
#X connect 20 0 12 0;
#X connect 21 0 6 0;
#X connect 22 0 12 1;
#X connect 23 0 10 1;
#X connect 24 0 25 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 28 1;
#X connect 27 1 13 0;
#X connect 28 0 30 0;
#N canvas 349 65 615 247 12;
#N canvas 349 65 546 306 12;
#X msg 102 52 walk the dog;
#X msg 29 51 bang;
#X msg 70 51 234;
......@@ -7,9 +7,14 @@
#X text 29 130 Print prints out the messages it receives on the "terminal
window" that Pd is run from.;
#X text 73 10 -- print messages to terminal window;
#X text 309 221 updated for Pd version 0.40.;
#X text 27 167 Long symbol arguments are truncated to 78 characters
and marked with "*" (but message selectors are printed in full.);
#X obj 100 267 print -n;
#X text 27 202 With the special "-n" argument the "print:" prefix is
suppressed:;
#X text 333 282 updated for Pd version 0.42;
#X floatatom 101 244 5 0 0 0 - - -;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 11 0 8 0;
#N canvas 70 36 1012 579 10;
#N canvas 165 94 1012 579 12;
#X text 66 10 expression evaluation family - expr \, expr~ \, fexpr~
;
#X text 63 239 Syntyax:;
......@@ -37,34 +37,34 @@ semicolon is used to separates the expressions.;
#X text 635 309 $y1 -> $y1[-1] $y2 -> $y2[-1] .....;
#N canvas 0 0 828 385 Examples 0;
#X obj 33 151 expr 1;
#X floatatom 197 119 0 0 0;
#X floatatom 33 181 0 0 0;
#X floatatom 197 119 0 0 0 0 - - -;
#X floatatom 33 181 0 0 0 0 - - -;
#X msg 33 123 bang;
#X obj 101 149 expr 2 + 3;
#X msg 101 122 bang;
#X floatatom 101 177 0 0 0;
#X floatatom 196 177 0 0 0;
#X floatatom 101 177 0 0 0 0 - - -;
#X floatatom 196 177 0 0 0 0 - - -;
#X obj 196 149 expr 2+$f1;
#X floatatom 34 220 0 0 0;
#X floatatom 34 277 0 0 0;
#X floatatom 34 220 0 0 0 0 - - -;
#X floatatom 34 277 0 0 0 0 - - -;
#X obj 34 249 expr $f1 * $f2;
#X floatatom 113 220 0 0 0;
#N canvas 0 0 450 300 graph1 0;
#X floatatom 113 220 0 0 0 0 - - -;
#N canvas 0 0 450 300 (subpatch) 0;
#X array array1 10 float 0;
#X coords 0 10 10 0 200 150 1;
#X restore 584 180 graph;
#X floatatom 35 315 0 0 0;
#X floatatom 35 371 0 0 0;
#X floatatom 194 219 0 0 0;
#X floatatom 194 276 0 0 0;
#X floatatom 35 315 0 0 0 0 - - -;
#X floatatom 35 371 0 0 0 0 - - -;
#X floatatom 194 219 0 0 0 0 - - -;
#X floatatom 194 276 0 0 0 0 - - -;
#X obj 194 248 expr $s2[$f1];
#X msg 267 220 symbol array1;
#X obj 35 343 expr sin(2 * 3.14159 * $f1 / 360);
#X msg 330 281 \; array1 1 4 2 8 5 6 1 4 2 8 5 6;
#X floatatom 310 184 5 0 0;
#X floatatom 395 186 5 0 0;
#X floatatom 480 184 5 0 0;
#X floatatom 310 105 5 0 0;
#X floatatom 310 184 5 0 0 0 - - -;
#X floatatom 395 186 5 0 0 0 - - -;
#X floatatom 480 184 5 0 0 0 - - -;
#X floatatom 310 105 5 0 0 0 - - -;
#X obj 310 132 expr $f1 \; if ($f1 > 0 \, $f1 * 2 \, 0) \; if ($f1
<= 0 \, $f1 / 2 \, 0);
#X text 34 56 Examples of expr object;
......@@ -94,15 +94,15 @@ semicolon is used to separates the expressions.;
#X obj -24 355 print~;
#X msg 13 334 bang;
#X obj -24 276 sig~ 440;
#X floatatom 49 293 0 0 0;
#X floatatom -24 253 0 0 0;
#X floatatom 49 293 0 0 0 0 - - -;
#X floatatom -24 253 0 0 0 0 - - -;
#X obj -24 316 expr~ $v1*$f2;
#X obj 85 356 print~;
#X msg 101 335 bang;
#X floatatom 85 268 0 0 0;
#X floatatom 158 270 0 0 0;
#X floatatom 357 291 0 0 0;
#X floatatom 244 267 0 0 0;
#X floatatom 85 268 0 0 0 0 - - -;
#X floatatom 158 270 0 0 0 0 - - -;
#X floatatom 357 291 0 0 0 0 - - -;
#X floatatom 244 267 0 0 0 0 - - -;
#X obj 244 294 osc~;
#X msg 369 47 \; pd dsp 0;
#X msg 291 49 \; pd dsp 1;
......@@ -114,9 +114,9 @@ semicolon is used to separates the expressions.;
#X text 241 245 frequency;
#X text 373 273 amplitude;
#X obj 85 315 expr~ $v1*$v2;
#X floatatom 207 471 5 0 0;
#X floatatom 207 471 5 0 0 0 - - -;
#X obj -40 520 tabsend~ a1;
#N canvas 0 0 450 300 graph4 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array a1 64 float 0;
#X coords 0 1 63 -1 200 140 1;
#X restore -39 542 graph;
......@@ -134,20 +134,20 @@ $i1 \, this may change in later releases;
#X obj 417 522 tabsend~ a2;
#X obj 580 518 tabsend~ a3;
#X obj 417 439 osc~ 2756.25;
#N canvas 0 0 450 300 graph1 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array a2 64 float 1;
#A 0 -0.419198 -0.487122 -0.481805 -0.400382 -0.252053 -0.0571681 0.155563
0.353314 0.504227 0.582557 0.573016 0.473664 0.296682 0.0669659 -0.18137
-0.410083 -0.582709 -0.670415 -0.656787 -0.540803 -0.337462 -0.0758923
0.204826 0.461522 0.653623 0.74958 0.732042 0.600932 0.373867 0.0838359
-0.225617 -0.506972 -0.716061 -0.819026 -0.797803 -0.653251 -0.405409
-0.0906877 0.243486 0.545852 0.769218 0.877835 0.853191 0.697093 0.431698
0.096368 -0.258195 -0.577642 -0.812367 -0.925245 -0.897515 -0.731894
-0.452386 -0.100793 0.269551 0.601932 0.844984 0.960659 0.930205 0.757204
0.467199 0.103913 -0.277405 -0.618414;
#A 0 -0.797042 -0.728354 -0.551199 -0.29486 -5.74798e-08 0.28779 0.525076
0.677165 0.723186 0.658973 0.49724 0.265198 -5.86755e-06 -0.257244
-0.467812 -0.601285 -0.639938 -0.581051 -0.436842 -0.232108 -4.49318e-08
0.223344 0.404462 0.517604 0.548393 0.495593 0.370771 0.195993 -4.2964e-06
-0.186556 -0.335875 -0.427214 -0.449737 -0.4037 -0.299884 -0.157342
-3.00576e-08 0.14734 0.262927 0.331275 0.34523 0.306564 0.225106 0.116645
-2.503e-06 -0.106219 -0.186565 -0.231035 -0.236249 -0.205455 -0.147412
-0.0744387 -1.36289e-08 0.0637127 0.10778 0.127799 0.124205 0.101679
0.0677997 0.0312617 -5.8003e-07 -0.0203835 -0.0275998 -0.0229047;
#X coords 0 1 63 -1 200 140 1;
#X restore 347 554 graph;
#N canvas 0 0 450 300 graph2 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array a3 64 float 0;
#X coords 0 1 63 -1 200 140 1;
#X restore 569 554 graph;
......@@ -184,17 +184,17 @@ $i1 \, this may change in later releases;
#X msg 428 84 \; pd dsp 1;
#X text 426 64 audio on;
#X text 518 65 audio off;
#X floatatom 126 304 0 0 0;
#X floatatom 259 323 0 0 0;
#X floatatom 126 304 0 0 0 0 - - -;
#X floatatom 259 323 0 0 0 0 - - -;
#X msg 226 283 -10;
#X text 53 103 fexpr~ examples:;
#X obj 125 571 print~;
#X msg 247 552 bang;
#X floatatom 125 475 0 0 0;
#X floatatom 125 475 0 0 0 0 - - -;
#X obj 126 347 fexpr~ ($x1[$f2]+$x1)/2;
#X obj 125 532 fexpr~ $x1+$y[-1];
#X floatatom 635 366 0 0 0;
#X floatatom 795 387 0 0 0;
#X floatatom 635 366 0 0 0 0 - - -;
#X floatatom 795 387 0 0 0 0 - - -;
#X obj 630 456 dac~;
#X obj 632 407 fexpr~ ($x1[$f2/1000]+$x1)/2;
#X msg 864 317 0 10000;
......@@ -329,15 +329,15 @@ output;
#X obj 176 67 v pr;
#X obj 307 68 v r;
#X obj 233 69 v b;
#X floatatom 176 38 5 0 0;
#X floatatom 307 40 5 0 0;
#X floatatom 176 38 5 0 0 0 - - -;
#X floatatom 307 40 5 0 0 0 - - -;
#X msg 177 13 10;
#X obj 231 10 expr 8./3;
#X msg 128 136 set 1.2 2.3 4.4;
#X floatatom 233 39 7 0 0;
#X floatatom 233 39 7 0 0 0 - - -;
#X msg 75 46 stop;
#X msg 75 67 start;
#X floatatom 399 40 5 0 0;
#X floatatom 399 40 5 0 0 0 - - -;
#X obj 399 69 v dt;
#X msg 310 12 18;
#X msg 395 13 0.01;
......@@ -366,15 +366,15 @@ which generate chotic signals;
#X obj 128 298 tabsend~ lorenz1a;
#X obj 234 278 tabsend~ lorenz2a;
#X obj 339 259 tabsend~ lorenz3a;
#N canvas 0 0 450 300 graph1 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array lorenz1a 64 float 0;
#X coords 0 1 63 -1 200 140 1;
#X restore 73 437 graph;
#N canvas 0 0 450 300 graph2 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array lorenz2a 64 float 0;
#X coords 0 1 63 -1 200 140 1;
#X restore 331 435 graph;
#N canvas 0 0 450 300 graph3 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array lorenz3a 64 float 0;
#X coords 0 1 63 -1 200 140 1;
#X restore 592 436 graph;
......@@ -413,27 +413,27 @@ which generate chotic signals;
#X obj 176 67 v pr;
#X obj 307 68 v r;
#X obj 233 69 v b;
#X floatatom 176 38 5 0 0;
#X floatatom 307 40 5 0 0;
#X floatatom 176 38 5 0 0 0 - - -;
#X floatatom 307 40 5 0 0 0 - - -;
#X msg 177 13 10;
#X obj 231 10 expr 8./3;
#N canvas 0 0 450 300 graph1 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array lorenz1 2048 float 0;
#X coords 0 -1 2047 1 200 140 1;
#X restore 82 357 graph;
#N canvas 0 0 450 300 graph2 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array lorenz2 2048 float 0;
#X coords 0 -1 2047 1 200 140 1;
#X restore 327 353 graph;
#N canvas 0 0 450 300 graph3 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array lorenz3 2048 float 0;
#X coords 0 -1 2047 1 200 140 1;
#X restore 570 347 graph;
#X msg 128 136 set 1.2 2.3 4.4;
#X floatatom 233 39 7 0 0;
#X floatatom 233 39 7 0 0 0 - - -;
#X msg 75 46 stop;
#X msg 75 67 start;
#X floatatom 399 40 5 0 0;
#X floatatom 399 40 5 0 0 0 - - -;
#X obj 399 69 v dt;
#X msg 310 12 18;
#X msg 395 13 0.01;
......
#N canvas 193 41 580 617 12;
#N canvas 167 -7 580 617 12;
#X text 42 4 sigmund~ - sinusoidal analysis and pitch tracking;
#N canvas 432 117 573 597 using-with-tables 0;
#X obj 29 368 print peak;
......@@ -90,7 +90,7 @@ of a note at or near the previously output pitch.;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X restore 330 531 pd setting-parameters;
#N canvas 149 65 641 815 sinusoid-tracking 0;
#N canvas 67 29 641 815 sinusoid-tracking 0;
#X obj 124 267 sigmund~ -npeak 10 peaks;
#X obj 124 214 phasor~;
#X obj 124 144 loadbang;
......
......@@ -13,9 +13,6 @@
and usable in other contexts. The one external requirement is a real
single-precision FFT, invoked as in the Mayer one: */
#if (defined(NT) && defined(PD)) /* ignore this, it's just Microsoft nonsense */
__declspec(dllimport) extern
#endif
void mayer_realfft(int npoints, float *buf);
/* this routine is passed a buffer of npoints values, and returns the
......@@ -26,7 +23,7 @@ for example, defines this in the file d_fft_mayer.c or d_fft_fftsg.c. */
#include <math.h>
#include <stdio.h>
#include <string.h>
#ifdef NT
#ifdef MSW
#include <malloc.h>
#else
#include <alloca.h>
......@@ -572,13 +569,15 @@ static void notefinder_doit(t_notefinder *x, float freq, float power,
int oldhistphase, i, k;
if (stableperiod > NHISTPOINT - 1)
stableperiod = NHISTPOINT - 1;