stepper.pd 6.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265
  1. #N canvas 714 178 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 539 667 pack s f f;
  12. #X obj 606 644 f \$1;
  13. #X obj 606 622 loadbang;
  14. #X obj 539 721 s /toOSC;
  15. #X obj 148 82 print stepper\$1;
  16. #X msg 678 563 setCurrentPosition 0;
  17. #X msg 605 529 currentPosition;
  18. #X msg 601 466 setSpeed \$1;
  19. #X floatatom 601 443 5 0 0 0 - - -, f 5;
  20. #X text 962 465 teensy + BED & 17hs16-2004s1;
  21. #X msg 965 484 maxSpeed 22000 \, acceleration 4000;
  22. #X obj 441 527 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
  23. -1 -1;
  24. #X msg 469 484 move 160000 \, setSpeed 3200;
  25. #X obj 867 590 metro 15000;
  26. #X obj 869 568 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  27. 1;
  28. #X obj 727 417 hsl 128 15 0 10000 0 0 empty empty empty -2 -8 0 10
  29. -262144 -1 -1 0 0;
  30. #X obj 724 477 i;
  31. #X msg 542 559 move 1.6e+06;
  32. #X msg 539 699 /\$1 \$3 \$2;
  33. #X msg 706 493 maxSpeed 25000 \, acceleration 200;
  34. #X obj 726 453 * 1;
  35. #X msg 792 439 -1;
  36. #X msg 830 451 1;
  37. #X obj 752 437 t b f;
  38. #X obj 90 312 r /target;
  39. #X obj 90 413 t f f;
  40. #N canvas 1 55 450 300 speedCalc 0;
  41. #X obj 110 35 inlet distance;
  42. #X obj 310 42 inlet time;
  43. #X obj 120 233 outlet speed;
  44. #X text 225 149 constant speed mode;
  45. #X obj 125 124 /;
  46. #X obj 214 98 t b f;
  47. #X connect 0 0 4 0;
  48. #X connect 1 0 5 0;
  49. #X connect 4 0 2 0;
  50. #X connect 5 0 4 0;
  51. #X connect 5 1 4 1;
  52. #X restore 142 441 pd speedCalc;
  53. #X obj 90 363 unpack f f;
  54. #X floatatom 196 463 15 0 0 0 - - -, f 15;
  55. #X text 161 365 # of turns \, time in seconds;
  56. #X msg 24 346;
  57. #X obj 159 500 print;
  58. #X obj 89 484 pack f f;
  59. #X obj 142 462 i;
  60. #N canvas 1 55 450 300 filter\$1 0;
  61. #X obj 60 41 t a a;
  62. #X obj 92 89 == \$1;
  63. #X obj 60 132 spigot;
  64. #X msg 92 67 \$1;
  65. #X obj 60 21 inlet;
  66. #X obj 60 153 outlet;
  67. #X connect 0 0 2 0;
  68. #X connect 0 1 3 0;
  69. #X connect 1 0 2 1;
  70. #X connect 2 0 5 0;
  71. #X connect 3 0 1 0;
  72. #X connect 4 0 0 0;
  73. #X restore 60 47 pd filter\$1;
  74. #N canvas 1 55 450 300 filter\$1 0;
  75. #X obj 60 41 t a a;
  76. #X obj 92 89 == \$1;
  77. #X obj 60 132 spigot;
  78. #X msg 92 67 \$1;
  79. #X obj 60 21 inlet;
  80. #X obj 60 153 outlet;
  81. #X connect 0 0 2 0;
  82. #X connect 0 1 3 0;
  83. #X connect 1 0 2 1;
  84. #X connect 2 0 5 0;
  85. #X connect 3 0 1 0;
  86. #X connect 4 0 0 0;
  87. #X restore 90 337 pd filter\$1;
  88. #X msg 718 638 getStatus 0;
  89. #X obj 89 601 pack s f f;
  90. #X obj 156 578 f \$1;
  91. #X obj 156 556 loadbang;
  92. #X obj 89 655 s /toOSC;
  93. #X msg 89 633 /\$1 \$3 \$2;
  94. #X msg 268 572 getStatus 0;
  95. #X msg 89 530 move \$1 \, setSpeed \$2 \, getStatus;
  96. #N canvas 132 527 450 300 conversion 0;
  97. #X obj 97 9 inlet;
  98. #X obj 97 30 unpack f f f f f;
  99. #X obj 97 94 outlet;
  100. #X obj 120 134 outlet;
  101. #X obj 143 174 outlet;
  102. #X obj 166 214 outlet;
  103. #X obj 190 254 outlet;
  104. #X obj 97 75 steps2camrot;
  105. #X obj 120 115 steps2camrot;
  106. #X obj 143 155 steps2camrot;
  107. #X obj 166 195 steps2camrot;
  108. #X obj 190 235 steps2camrot;
  109. #X connect 0 0 1 0;
  110. #X connect 1 0 7 0;
  111. #X connect 1 1 8 0;
  112. #X connect 1 2 9 0;
  113. #X connect 1 3 10 0;
  114. #X connect 1 4 11 0;
  115. #X connect 7 0 2 0;
  116. #X connect 8 0 3 0;
  117. #X connect 9 0 4 0;
  118. #X connect 10 0 5 0;
  119. #X connect 11 0 6 0;
  120. #X restore 105 126 pd conversion;
  121. #X obj 208 198 vradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144
  122. -1 -1 1;
  123. #X text 230 196 with acc;
  124. #X text 228 211 constant speed;
  125. #X text 229 226 manual speed;
  126. #X obj 103 105 route /status /onTarget;
  127. #X obj 207 175 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
  128. -1 -1;
  129. #X msg 24 325 1 40;
  130. #X obj 210 264 t b f;
  131. #X obj 208 327 s /toOSC;
  132. #X obj 325 445 print;
  133. #X obj 209 285 pack \$1 0;
  134. #X msg 209 306 /driveMode \$1 \$2;
  135. #X obj 343 166 vsl 12 60 0 20000 0 0 empty empty empty 0 -9 0 10 -262144
  136. -1 -1 0 1;
  137. #X obj 342 327 i;
  138. #X obj 342 307 * 1;
  139. #X obj 368 291 t b f;
  140. #X obj 342 409 s /toOSC;
  141. #X obj 339 233 hradio 10 1 0 2 empty empty empty 0 -8 0 10 -262144
  142. -1 -1 1;
  143. #X obj 339 248 route 0 1;
  144. #X msg 339 269 -1;
  145. #X msg 368 269 1;
  146. #X obj 342 346 t b f;
  147. #X obj 342 367 pack \$1 0;
  148. #X msg 342 388 /setSpeed \$1 \$2;
  149. #X obj 447 309 pack \$1 0 0;
  150. #X floatatom 441 180 5 0 0 0 tours - -, f 5;
  151. #X msg 447 330 /move \$1 \$2 \, /setSpeed \$1 \$3 \, /getStatus \$1
  152. ;
  153. #X obj 499 166 vsl 12 60 0 0.7 0 0 empty empty empty 0 -9 0 10 -262144
  154. -1 -1 5900 1;
  155. #X floatatom 619 281 20 0 0 0 - - -, f 20;
  156. #X obj 442 228 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
  157. -1 -1;
  158. #X obj 447 351 s /toOSC;
  159. #X obj 472 274 steps2camrot;
  160. #X obj 499 234 / 60;
  161. #X obj 647 146 tof/menubutton 100 25 \$0-mbS \$0-mbR 1 grey90 black
  162. grey95 black -1 \, test (autre copie).move \, test.move \, test (3e copie).move
  163. \, test (4e copie).move \, test (copie).move;
  164. #X obj 649 81 list prepend add;
  165. #X obj 649 102 list trim;
  166. #X obj 322 62 ofGetPatchDirectory;
  167. #X obj 322 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
  168. -1;
  169. #X text 343 37 get the list of file names in a directory.;
  170. #X msg 646 29 symbol \$1/moves;
  171. #X symbolatom 322 83 50 0 0 0 - - -, f 50;
  172. #X obj 811 100 print;
  173. #X obj 654 59 ofGetDirectoryFileNames move;
  174. #X floatatom 540 309 5 0 0 0 - - -, f 5;
  175. #X obj 21 387 steps2camrot;
  176. #X obj 489 247 steps2camrot;
  177. #X connect 0 0 43 0;
  178. #X connect 9 0 27 0;
  179. #X connect 10 0 9 2;
  180. #X connect 11 0 10 0;
  181. #X connect 14 0 9 0;
  182. #X connect 15 0 9 0;
  183. #X connect 16 0 9 0;
  184. #X connect 17 0 16 0;
  185. #X connect 20 0 21 0;
  186. #X connect 21 0 9 0;
  187. #X connect 22 0 26 0;
  188. #X connect 23 0 22 0;
  189. #X connect 24 0 29 0;
  190. #X connect 25 0 17 0;
  191. #X connect 26 0 9 0;
  192. #X connect 27 0 12 0;
  193. #X connect 28 0 9 0;
  194. #X connect 29 0 25 0;
  195. #X connect 30 0 32 0;
  196. #X connect 31 0 32 0;
  197. #X connect 32 0 29 0;
  198. #X connect 32 1 29 1;
  199. #X connect 33 0 44 0;
  200. #X connect 34 0 41 0;
  201. #X connect 34 1 35 0;
  202. #X connect 35 0 37 0;
  203. #X connect 35 0 42 0;
  204. #X connect 36 0 98 1;
  205. #X connect 36 1 35 1;
  206. #X connect 41 0 52 0;
  207. #X connect 42 0 41 1;
  208. #X connect 43 0 13 0;
  209. #X connect 43 0 58 0;
  210. #X connect 44 0 36 0;
  211. #X connect 45 0 9 0;
  212. #X connect 46 0 50 0;
  213. #X connect 47 0 46 2;
  214. #X connect 48 0 47 0;
  215. #X connect 50 0 49 0;
  216. #X connect 51 0 46 0;
  217. #X connect 52 0 46 0;
  218. #X connect 53 1 1 0;
  219. #X connect 53 2 2 0;
  220. #X connect 53 3 3 0;
  221. #X connect 53 4 4 0;
  222. #X connect 54 0 61 0;
  223. #X connect 58 0 53 0;
  224. #X connect 58 1 59 0;
  225. #X connect 60 0 36 0;
  226. #X connect 60 0 39 0;
  227. #X connect 61 0 64 0;
  228. #X connect 61 1 64 1;
  229. #X connect 64 0 65 0;
  230. #X connect 65 0 62 0;
  231. #X connect 66 0 68 0;
  232. #X connect 67 0 75 0;
  233. #X connect 68 0 67 0;
  234. #X connect 69 0 68 0;
  235. #X connect 69 1 68 1;
  236. #X connect 71 0 72 0;
  237. #X connect 72 0 73 0;
  238. #X connect 72 1 74 0;
  239. #X connect 73 0 69 0;
  240. #X connect 74 0 69 0;
  241. #X connect 75 0 76 0;
  242. #X connect 75 1 76 1;
  243. #X connect 76 0 77 0;
  244. #X connect 77 0 70 0;
  245. #X connect 78 0 80 0;
  246. #X connect 79 0 85 1;
  247. #X connect 80 0 84 0;
  248. #X connect 81 0 86 0;
  249. #X connect 83 0 78 0;
  250. #X connect 85 1 97 0;
  251. #X connect 85 1 78 1;
  252. #X connect 86 0 99 1;
  253. #X connect 88 0 89 0;
  254. #X connect 89 0 87 0;
  255. #X connect 90 0 93 0;
  256. #X connect 90 0 94 0;
  257. #X connect 91 0 90 0;
  258. #X connect 93 0 96 0;
  259. #X connect 96 0 88 0;
  260. #X connect 96 0 95 0;
  261. #X connect 98 1 34 0;
  262. #X connect 99 1 82 0;
  263. #X connect 99 1 78 2;
  264. #X coords 0 -1 1 1 500 100 1 80 150;