stepper.pd 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181
  1. #N canvas 350 241 1205 764 10;
  2. #X obj 60 19 r /fromOSC;
  3. #X floatatom 134 174 10 0 0 0 - - -, f 10;
  4. #X floatatom 135 192 10 0 0 0 - - -, f 10;
  5. #X floatatom 135 210 10 0 0 0 - - -, f 10;
  6. #X floatatom 135 228 10 0 0 0 - - -, f 10;
  7. #X text 88 173 current;
  8. #X text 95 192 target;
  9. #X text 101 210 speed;
  10. #X text 83 228 maxspeed;
  11. #X obj 518 250 pack s f f;
  12. #X obj 585 227 f \$1;
  13. #X obj 585 205 loadbang;
  14. #X obj 518 304 s /toOSC;
  15. #X obj 148 82 print stepper\$1;
  16. #X msg 657 146 setCurrentPosition 0;
  17. #X msg 584 112 currentPosition;
  18. #X msg 580 49 setSpeed \$1;
  19. #X floatatom 580 26 5 0 0 0 - - -, f 5;
  20. #X text 941 48 teensy + BED & 17hs16-2004s1;
  21. #X msg 944 67 maxSpeed 22000 \, acceleration 4000;
  22. #X obj 420 110 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
  23. -1 -1;
  24. #X msg 448 67 move 160000 \, setSpeed 3200;
  25. #X obj 846 173 metro 15000;
  26. #X obj 848 151 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  27. 1;
  28. #X obj 706 0 hsl 128 15 0 10000 0 0 empty empty empty -2 -8 0 10 -262144
  29. -1 -1 0 0;
  30. #X obj 703 60 i;
  31. #X msg 521 142 move 1.6e+06;
  32. #X msg 518 282 /\$1 \$3 \$2;
  33. #X msg 685 76 maxSpeed 25000 \, acceleration 200;
  34. #X obj 705 36 * 1;
  35. #X msg 771 22 -1;
  36. #X msg 809 34 1;
  37. #X obj 731 20 t b f;
  38. #X obj 21 387 steps2camrot;
  39. #X obj 90 312 r /target;
  40. #X obj 90 413 t f f;
  41. #N canvas 1 55 450 300 speedCalc 0;
  42. #X obj 110 35 inlet distance;
  43. #X obj 310 42 inlet time;
  44. #X obj 120 233 outlet speed;
  45. #X text 225 149 constant speed mode;
  46. #X obj 125 124 /;
  47. #X obj 214 98 t b f;
  48. #X connect 0 0 4 0;
  49. #X connect 1 0 5 0;
  50. #X connect 4 0 2 0;
  51. #X connect 5 0 4 0;
  52. #X connect 5 1 4 1;
  53. #X restore 142 441 pd speedCalc;
  54. #X obj 90 363 unpack f f;
  55. #X floatatom 196 463 15 0 0 0 - - -, f 15;
  56. #X text 161 365 # of turns \, time in seconds;
  57. #X msg 24 346;
  58. #X obj 159 500 print;
  59. #X obj 89 484 pack f f;
  60. #X obj 142 462 i;
  61. #N canvas 1 55 450 300 filter\$1 0;
  62. #X obj 60 41 t a a;
  63. #X obj 92 89 == \$1;
  64. #X obj 60 132 spigot;
  65. #X msg 92 67 \$1;
  66. #X obj 60 21 inlet;
  67. #X obj 60 153 outlet;
  68. #X connect 0 0 2 0;
  69. #X connect 0 1 3 0;
  70. #X connect 1 0 2 1;
  71. #X connect 2 0 5 0;
  72. #X connect 3 0 1 0;
  73. #X connect 4 0 0 0;
  74. #X restore 60 47 pd filter\$1;
  75. #N canvas 1 55 450 300 filter\$1 0;
  76. #X obj 60 41 t a a;
  77. #X obj 92 89 == \$1;
  78. #X obj 60 132 spigot;
  79. #X msg 92 67 \$1;
  80. #X obj 60 21 inlet;
  81. #X obj 60 153 outlet;
  82. #X connect 0 0 2 0;
  83. #X connect 0 1 3 0;
  84. #X connect 1 0 2 1;
  85. #X connect 2 0 5 0;
  86. #X connect 3 0 1 0;
  87. #X connect 4 0 0 0;
  88. #X restore 90 337 pd filter\$1;
  89. #X msg 697 221 getStatus 0;
  90. #X msg 208 253 \; /toOSC /driveMode 0 \$1;
  91. #X obj 89 601 pack s f f;
  92. #X obj 156 578 f \$1;
  93. #X obj 156 556 loadbang;
  94. #X obj 89 655 s /toOSC;
  95. #X msg 89 633 /\$1 \$3 \$2;
  96. #X msg 268 572 getStatus 0;
  97. #X msg 89 530 move \$1 \, setSpeed \$2 \, getStatus;
  98. #X obj 103 105 route /status;
  99. #N canvas 132 527 450 300 conversion 1;
  100. #X obj 97 9 inlet;
  101. #X obj 97 30 unpack f f f f f;
  102. #X obj 97 75 steps2camrot;
  103. #X obj 97 94 outlet;
  104. #X obj 120 115 steps2camrot;
  105. #X obj 120 134 outlet;
  106. #X obj 143 155 steps2camrot;
  107. #X obj 143 174 outlet;
  108. #X obj 166 195 steps2camrot;
  109. #X obj 166 214 outlet;
  110. #X obj 190 235 steps2camrot;
  111. #X obj 190 254 outlet;
  112. #X connect 0 0 1 0;
  113. #X connect 1 0 2 0;
  114. #X connect 1 1 4 0;
  115. #X connect 1 2 6 0;
  116. #X connect 1 3 8 0;
  117. #X connect 1 4 10 0;
  118. #X connect 2 0 3 0;
  119. #X connect 4 0 5 0;
  120. #X connect 6 0 7 0;
  121. #X connect 8 0 9 0;
  122. #X connect 10 0 11 0;
  123. #X restore 105 126 pd conversion;
  124. #X msg 24 325 1 30;
  125. #X obj 208 198 vradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144
  126. -1 -1 0;
  127. #X text 230 196 with acc;
  128. #X text 228 211 constant speed;
  129. #X text 229 226 manual speed;
  130. #X connect 0 0 44 0;
  131. #X connect 9 0 27 0;
  132. #X connect 10 0 9 2;
  133. #X connect 11 0 10 0;
  134. #X connect 14 0 9 0;
  135. #X connect 15 0 9 0;
  136. #X connect 16 0 9 0;
  137. #X connect 17 0 16 0;
  138. #X connect 20 0 21 0;
  139. #X connect 21 0 9 0;
  140. #X connect 22 0 26 0;
  141. #X connect 23 0 22 0;
  142. #X connect 24 0 29 0;
  143. #X connect 25 0 17 0;
  144. #X connect 26 0 9 0;
  145. #X connect 27 0 12 0;
  146. #X connect 28 0 9 0;
  147. #X connect 29 0 25 0;
  148. #X connect 30 0 32 0;
  149. #X connect 31 0 32 0;
  150. #X connect 32 0 29 0;
  151. #X connect 32 1 29 1;
  152. #X connect 33 1 35 0;
  153. #X connect 34 0 45 0;
  154. #X connect 35 0 42 0;
  155. #X connect 35 1 36 0;
  156. #X connect 36 0 38 0;
  157. #X connect 36 0 43 0;
  158. #X connect 37 0 33 1;
  159. #X connect 37 1 36 1;
  160. #X connect 42 0 54 0;
  161. #X connect 43 0 42 1;
  162. #X connect 44 0 13 0;
  163. #X connect 44 0 55 0;
  164. #X connect 45 0 37 0;
  165. #X connect 46 0 9 0;
  166. #X connect 48 0 52 0;
  167. #X connect 49 0 48 2;
  168. #X connect 50 0 49 0;
  169. #X connect 52 0 51 0;
  170. #X connect 53 0 48 0;
  171. #X connect 54 0 48 0;
  172. #X connect 55 0 56 0;
  173. #X connect 56 1 1 0;
  174. #X connect 56 2 2 0;
  175. #X connect 56 3 3 0;
  176. #X connect 56 4 4 0;
  177. #X connect 57 0 37 0;
  178. #X connect 57 0 40 0;
  179. #X connect 58 0 47 0;
  180. #X coords 0 -1 1 1 250 100 1 80 150;