1 files changed, 150 insertions, 0 deletions
diff --git a/abstractions/pt.animate.pd b/abstractions/pt.animate.pd
new file mode 100644
index 0000000..af1f33d
--- /dev/null
+++ b/abstractions/pt.animate.pd
@@ -0,0 +1,150 @@
+#N canvas 73 204 530 82 10;
+#X obj 1 1 cnv 5 528 80 empty empty Animate_Presets 6 13 1 12 -133153
+-1 0;
+#N canvas 349 89 765 585 interna 0;
+#X obj 9 22 cnv 15 600 450 empty empty empty 5 8 1 10 -260390 -1 0
+;
+#X obj 413 151 inlet;
+#X obj 445 294 r \$0-save;
+#X obj 430 223 r \$0-load;
+#X text 458 150 care-taker commands;
+#X obj 413 425 caretaker RRADICAL;
+#X obj 430 243 openpanel;
+#X obj 445 314 savepanel;
+#X msg 445 334 file \$1 \, save RRADICAL;
+#X msg 430 263 file \$1 \, load RRADICAL;
+#X obj 17 438 outlet;
+#X msg 17 416 numFrames \$1;
+#X obj 17 353 f \$1;
+#X obj 27 329 loadbang;
+#X text 10 7 Preset Animation;
+#X obj 165 299 + 1;
+#X obj 277 299 - 1;
+#X obj 165 237 r \$0-right;
+#X obj 277 237 r \$0-left;
+#X obj 194 151 inlet;
+#X text 194 130 Frame;
+#X obj 165 340 clip 0 \$1;
+#X obj 277 340 clip 0 \$1;
+#X obj 181 258 r \$0-slider-out;
+#X obj 293 258 r \$0-slider-out;
+#X obj 150 188 s \$0-slider-in;
+#X obj 165 360 s \$0-slider-in;
+#X obj 277 360 s \$0-slider-in;
+#X obj 277 279 f;
+#X obj 165 279 f;
+#X obj 277 319 int;
+#X obj 165 319 int;
+#X obj 274 123 r \$0-slider-out;
+#X obj 274 143 int;
+#X obj 274 185 s pt.currentPreset;
+#X obj 17 30 inlet;
+#X text 24 526 Simple scrubbing interface for states \, dynamic number
+of frames!;
+#X text 24 501 \$1 Argument Specifies the # of Frames/Presets;
+#X obj 111 437 s \$0-slider-in;
+#X msg 111 416 range 0 \$1;
+#X obj 17 61 route numKeys loopPos;
+#X obj 215 416 s \$0-numKeys;
+#X text 187 66 numFrames = NumKeys * 100 \, otherwise we're going at
+30keyframes/s! too fast. 3s per keyframe is better;
+#X obj 17 394 * 30;
+#X obj 150 99 expr int($f1/30);
+#N canvas 0 22 454 304 defaults 0;
+#X obj 37 26 loadbang;
+#X obj 37 49 f \$1;
+#X obj 37 71 select 0;
+#X obj 55 120 print pt.animate;
+#X msg 55 98 No arguments given. Using 10 Key-Frames.;
+#X msg 37 156 numKeys 10;
+#X obj 37 179 outlet;
+#X text 28 254 if (arg1 == "0" || not set) then sey numKeys 10;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 4 0;
+#X connect 2 0 5 0;
+#X connect 4 0 3 0;
+#X connect 5 0 6 0;
+#X restore 60 30 pd defaults;
+#X obj 274 164 change;
+#X obj 348 396 bang;
+#X text 385 397 Resend numFrames on load/save;
+#N canvas 349 89 462 312 OSC-stuff 0;
+#X obj 12 13 r pt.osc;
+#X obj 12 34 OSCroute /pt;
+#X obj 12 55 OSCroute /animate;
+#X obj 12 76 OSCroute /frame;
+#X text 172 16 How to register this OSC name?;
+#X obj 12 97 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X restore 182 31 pd OSC-stuff;
+#X text 274 32 Problem of registering this?;
+#X connect 1 0 5 0;
+#X connect 2 0 7 0;
+#X connect 2 0 47 0;
+#X connect 3 0 6 0;
+#X connect 3 0 47 0;
+#X connect 6 0 9 0;
+#X connect 7 0 8 0;
+#X connect 8 0 5 0;
+#X connect 9 0 5 0;
+#X connect 11 0 10 0;
+#X connect 12 0 39 0;
+#X connect 12 0 41 0;
+#X connect 12 0 43 0;
+#X connect 13 0 12 0;
+#X connect 15 0 31 0;
+#X connect 16 0 30 0;
+#X connect 17 0 29 0;
+#X connect 18 0 28 0;
+#X connect 19 0 25 0;
+#X connect 21 0 26 0;
+#X connect 22 0 27 0;
+#X connect 23 0 29 1;
+#X connect 24 0 28 1;
+#X connect 28 0 16 0;
+#X connect 29 0 15 0;
+#X connect 30 0 22 0;
+#X connect 31 0 21 0;
+#X connect 32 0 33 0;
+#X connect 33 0 46 0;
+#X connect 35 0 40 0;
+#X connect 39 0 38 0;
+#X connect 40 0 12 0;
+#X connect 40 0 21 2;
+#X connect 40 0 22 2;
+#X connect 40 1 44 0;
+#X connect 43 0 11 0;
+#X connect 44 0 25 0;
+#X connect 45 0 40 0;
+#X connect 46 0 34 0;
+#X connect 47 0 12 0;
+#X connect 49 0 25 0;
+#X restore 7 148 pd interna;
+#X obj 430 6 bng 15 250 50 0 \$0-save \$0 Save 20 8 1 9 -237178 -1
+-1;
+#X obj 480 6 bng 15 250 50 0 \$0-load \$0 Load 20 8 1 9 -237178 -1
+-1;
+#X obj 92 124 inlet;
+#X obj 7 172 outlet;
+#X text 4 104 Preset Animation;
+#X obj 10 26 hsl 510 30 0 10 0 0 \$0-slider-out \$0-slider-in empty
+-2 -6 0 8 -262144 -1 -1 0 0;
+#X obj 7 60 nbx 5 14 -1e+37 1e+37 0 0 \$0- pt.currentPreset Current-Key-Frame
+60 9 1 12 -262144 -1 -1 0 256;
+#X obj 466 60 nbx 5 14 -1e+37 1e+37 0 0 empty \$0-numKeys Number-of-Key-Frames
+-145 9 1 12 -262144 -1 -1 10 256;
+#X obj 221 6 bng 15 250 50 0 \$0-left \$0 << 18 8 1 12 -237178 -1 -1
+;
+#X obj 281 6 bng 15 250 50 0 \$0-right \$0 >> -17 8 1 12 -237178 -1
+-1;
+#X obj 47 124 inlet;
+#X obj 5 124 inlet;
+#X connect 1 0 5 0;
+#X connect 4 0 1 2;
+#X connect 12 0 1 1;
+#X connect 13 0 1 0;
+#X coords 0 0 1 1 530 82 1;