C_Vieille_OSCstepperPd/stepper.pd

#N canvas 245 233 1205 764 10;
#X obj 60 19 r /fromOSC;
#X obj 60 156 route /stepper/status;
#X obj 60 178 unpack f f f f f;
#X floatatom 83 198 5 0 0 0 - - -, f 5;
#X floatatom 106 216 5 0 0 0 - - -, f 5;
#X floatatom 129 234 5 0 0 0 - - -, f 5;
#X floatatom 153 255 5 0 0 0 - - -, f 5;
#X text 37 197 current;
#X text 66 216 target;
#X text 95 234 speed;
#X text 101 255 maxspeed;
#X obj 518 250 pack s f f;
#X obj 585 227 f \$1;
#X obj 585 205 loadbang;
#X obj 518 304 s /toOSC;
#X obj 105 132 print stepper\$1;
#X msg 657 146 setCurrentPosition 0;
#X msg 584 112 currentPosition;
#X msg 580 49 setSpeed \$1;
#X floatatom 580 26 5 0 0 0 - - -, f 5;
#X text 941 48 teensy + BED & 17hs16-2004s1;
#X msg 944 67 maxSpeed 22000 \, acceleration 4000;
#X obj 420 110 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 448 67 move 160000 \, setSpeed 3200;
#X obj 846 173 metro 15000;
#X obj 848 151 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 706 0 hsl 128 15 0 10000 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 0;
#X obj 703 60 i;
#X msg 521 142 move 1.6e+06;
#X msg 518 282 /\$1 \$3 \$2;
#X msg 685 76 maxSpeed 25000 \, acceleration 200;
#X obj 705 36 * 1;
#X msg 771 22 -1;
#X msg 809 34 1;
#X obj 731 20 t b f;
#X obj 21 387 steps2camrot;
#X obj 90 312 r /target;
#X obj 90 413 t f f;
#N canvas 1 55 450 300 speedCalc 0;
#X obj 110 35 inlet distance;
#X obj 310 42 inlet time;
#X obj 120 233 outlet speed;
#X text 225 149 constant speed mode;
#X obj 125 124 /;
#X obj 214 98 t b f;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 5 1 4 1;
#X restore 142 441 pd speedCalc;
#X obj 90 363 unpack f f;
#X floatatom 196 463 15 0 0 0 - - -, f 15;
#X text 161 365 # of turns \, time in seconds;
#X msg 24 346;
#X msg 89 530 \; /toOSC /move 0 \$1 \, /setSpeed 0 \$2;
#X obj 159 500 print;
#X obj 89 484 pack f f;
#X obj 142 462 i;
#X msg 24 325 -0.5 20;
#N canvas 1 55 450 300 filter\$1 0;
#X obj 60 41 t a a;
#X obj 92 89 == \$1;
#X obj 60 132 spigot;
#X msg 92 67 \$1;
#X obj 60 21 inlet;
#X obj 60 153 outlet;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 2 1;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X restore 60 47 pd filter\$1;
#N canvas 1 55 450 300 filter\$1 0;
#X obj 60 41 t a a;
#X obj 92 89 == \$1;
#X obj 60 132 spigot;
#X msg 92 67 \$1;
#X obj 60 21 inlet;
#X obj 60 153 outlet;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 2 1;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X restore 90 337 pd filter\$1;
#X connect 0 0 48 0;
#X connect 1 0 2 0;
#X connect 2 1 3 0;
#X connect 2 2 4 0;
#X connect 2 3 5 0;
#X connect 2 4 6 0;
#X connect 11 0 29 0;
#X connect 12 0 11 2;
#X connect 13 0 12 0;
#X connect 16 0 11 0;
#X connect 17 0 11 0;
#X connect 18 0 11 0;
#X connect 19 0 18 0;
#X connect 22 0 23 0;
#X connect 23 0 11 0;
#X connect 24 0 28 0;
#X connect 25 0 24 0;
#X connect 26 0 31 0;
#X connect 27 0 19 0;
#X connect 28 0 11 0;
#X connect 29 0 14 0;
#X connect 30 0 11 0;
#X connect 31 0 27 0;
#X connect 32 0 34 0;
#X connect 33 0 34 0;
#X connect 34 0 31 0;
#X connect 34 1 31 1;
#X connect 35 1 37 0;
#X connect 36 0 49 0;
#X connect 37 0 45 0;
#X connect 37 1 38 0;
#X connect 38 0 40 0;
#X connect 38 0 46 0;
#X connect 39 0 35 1;
#X connect 39 1 38 1;
#X connect 45 0 43 0;
#X connect 46 0 45 1;
#X connect 47 0 39 0;
#X connect 47 0 42 0;
#X connect 48 0 1 0;
#X connect 49 0 39 0;