Skip to content

GitLab

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
Hide whitespace changes
Inline Side-by-side
doc/1.manual/x5.htm
View file @ ac949c09
......@@ -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
......
doc/4.data.structures/14.partialtracer.pd
View file @ ac949c09
This source diff could not be displayed because it is too large. You can view the blob instead.
doc/4.data.structures/add-trace.pd
View file @ ac949c09
#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;
doc/4.data.structures/osc-voice.pd
View file @ ac949c09
#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;
doc/5.reference/print-help.pd
View file @ ac949c09
#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;
extra/expr-help.pd
View file @ ac949c09
#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;
......
extra/sigmund~/sigmund~-help.pd
View file @ ac949c09
#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;
......
extra/sigmund~/sigmund~.c
View file @ ac949c09
......@@ -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)