#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;