OSCstepperCtl.pd 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280
  1. #N canvas 551 118 1032 703 10;
  2. #N canvas 112 146 817 472 SerialOSC 0;
  3. #X obj 99 6 inlet;
  4. #X obj 99 362 outlet;
  5. #X obj 99 200 comport;
  6. #X msg 124 159 devices;
  7. #X obj 112 329 s /fromOSC;
  8. #X obj 130 32 r /toOSC;
  9. #X obj 429 50 route 0 1;
  10. #X msg 429 132 close;
  11. #X obj 99 231 mrpeach/slipdec 65536;
  12. #X obj 99 291 mrpeach/unpackOSC;
  13. #X obj 99 57 mrpeach/packOSC;
  14. #X obj 99 122 mrpeach/slipenc 65536;
  15. #X obj 48 240 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  16. 1;
  17. #X obj 429 31 r serialConnect;
  18. #X obj 540 28 r serialDevice;
  19. #X obj 462 80 symbol;
  20. #X obj 540 49 symbol;
  21. #X obj 301 51 tgl 60 0 serialConnect empty connect 2 30 0 14 -24198
  22. -166441 -262144 1 1;
  23. #X obj 13 75 loadbang;
  24. #X obj 13 116 metro 200;
  25. #X msg 13 137 info;
  26. #X obj 291 213 route open;
  27. #X obj 13 96 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
  28. ;
  29. #X obj 290 243 s serialIsOpen;
  30. #N canvas 1 55 450 300 \$0-colors 0;
  31. #X obj 129 33 r serialIsOpen;
  32. #X obj 129 54 route 0 1;
  33. #X obj 138 179 outlet;
  34. #X floatatom 243 160 5 0 0 0 - - -, f 5;
  35. #X msg 243 180 color \$1 \$1 \$1;
  36. #X msg 101 107 color 13 13 0 \, label connect \, set 0;
  37. #X msg 141 127 color 16 1 0 \, label connect;
  38. #X connect 0 0 1 0;
  39. #X connect 1 0 5 0;
  40. #X connect 1 1 6 0;
  41. #X connect 3 0 4 0;
  42. #X connect 4 0 2 0;
  43. #X connect 5 0 2 0;
  44. #X connect 6 0 2 0;
  45. #X restore 303 12 pd \$0-colors;
  46. #X msg 459 110 devicename \$1 \, baud 115200 \, pollintervall 1 \,
  47. verbose 1 \, retries 0;
  48. #X obj 362 51 cnv 20 22 60 empty serialSend S 4 12 0 20 -233017 -233017
  49. 0;
  50. #X obj 362 70 cnv 20 22 30 empty serialReceive R 4 12 0 20 -233017
  51. -233017 0;
  52. #X obj 99 78 t a b;
  53. #N canvas 1 55 450 300 serialSendGUI 0;
  54. #X obj 70 23 inlet;
  55. #X obj 70 44 t b b;
  56. #X obj 70 81 delay 50;
  57. #X obj 72 163 s serialSend;
  58. #X floatatom 178 68 5 0 0 0 - - -, f 5;
  59. #X msg 151 90 color 10 10 11;
  60. #X msg 59 124 color 10 10 10;
  61. #X connect 0 0 1 0;
  62. #X connect 1 0 2 0;
  63. #X connect 1 1 5 0;
  64. #X connect 2 0 6 0;
  65. #X connect 4 0 5 0;
  66. #X connect 5 0 3 0;
  67. #X connect 6 0 3 0;
  68. #X restore 128 99 pd serialSendGUI;
  69. #X obj 99 252 t a b;
  70. #N canvas 1 55 450 300 serialReceiveGUI 0;
  71. #X obj 70 23 inlet;
  72. #X obj 70 44 t b b;
  73. #X obj 70 81 delay 50;
  74. #X floatatom 178 68 5 0 0 0 - - -, f 5;
  75. #X msg 151 90 color 10 10 11;
  76. #X msg 59 124 color 10 10 10;
  77. #X obj 72 163 s serialReceive;
  78. #X connect 0 0 1 0;
  79. #X connect 1 0 2 0;
  80. #X connect 1 1 4 0;
  81. #X connect 2 0 5 0;
  82. #X connect 3 0 4 0;
  83. #X connect 4 0 6 0;
  84. #X connect 5 0 6 0;
  85. #X restore 142 268 pd serialReceiveGUI;
  86. #X obj 664 429 print OSCin;
  87. #X obj 662 295 r /fromOSC;
  88. #X obj 662 317 t a a;
  89. #X obj 662 408 spigot;
  90. #X msg 694 343 \$1;
  91. #X obj 694 365 == 3;
  92. #X obj 365 94 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
  93. -1;
  94. #X connect 0 0 10 0;
  95. #X connect 2 0 8 0;
  96. #X connect 2 1 21 0;
  97. #X connect 3 0 2 0;
  98. #X connect 5 0 10 0;
  99. #X connect 6 0 7 0;
  100. #X connect 6 1 15 0;
  101. #X connect 7 0 2 0;
  102. #X connect 8 0 30 0;
  103. #X connect 9 0 1 0;
  104. #X connect 9 0 4 0;
  105. #X connect 10 0 28 0;
  106. #X connect 11 0 2 0;
  107. #X connect 13 0 6 0;
  108. #X connect 14 0 16 0;
  109. #X connect 15 0 25 0;
  110. #X connect 16 0 15 1;
  111. #X connect 18 0 22 0;
  112. #X connect 19 0 20 0;
  113. #X connect 20 0 2 0;
  114. #X connect 21 0 23 0;
  115. #X connect 22 0 19 0;
  116. #X connect 24 0 17 0;
  117. #X connect 25 0 2 0;
  118. #X connect 28 0 11 0;
  119. #X connect 28 1 29 0;
  120. #X connect 30 0 9 0;
  121. #X connect 30 1 31 0;
  122. #X connect 33 0 34 0;
  123. #X connect 34 0 35 0;
  124. #X connect 34 1 36 0;
  125. #X connect 35 0 32 0;
  126. #X connect 36 0 37 0;
  127. #X connect 37 0 35 1;
  128. #X connect 38 0 3 0;
  129. #X coords 0 -1 1 1 85 61 1 300 50;
  130. #X restore 801 47 pd SerialOSC;
  131. #N canvas 979 217 792 755 syncControl 0;
  132. #X floatatom 17 578 5 0 0 0 - - -, f 5;
  133. #X floatatom 183 533 5 0 0 0 - - -, f 5;
  134. #X obj 23 640 t f f;
  135. #X obj 23 681 abs;
  136. #X obj 23 702 s /stepper/0/manualSpeed;
  137. #X obj 123 649 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  138. 1;
  139. #X obj 70 657 > 0;
  140. #X obj 70 678 s /stepper/0/manualDirection;
  141. #X obj 242 645 t f f;
  142. #X obj 242 686 abs;
  143. #X obj 342 654 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  144. 1;
  145. #X obj 289 662 > 0;
  146. #X obj 289 683 s /stepper/1/manualDirection;
  147. #X obj 242 707 s /stepper/1/manualSpeed;
  148. #X obj 22 278 tgl 15 0 empty empty MANUEL 17 7 0 10 -262144 -1 -1 0
  149. 1;
  150. #X msg 301 301 \; /stepper/0/manualDrive \$1 \; /stepper/1/manualDrive
  151. \$1;
  152. #X obj 219 41 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
  153. -1;
  154. #X msg 208 81 \; /stepper/0/move/go bang \; /stepper/1/move/go bang
  155. ;
  156. #X text 239 41 moveInSync;
  157. #X obj 25 218 bng 40 250 50 0 empty empty empty 17 7 0 10 -258113 -1
  158. -1;
  159. #X msg 192 217 \; /stepper/0/stop bang \; /stepper/1/stop bang;
  160. #X obj 25 174 bng 40 250 50 0 empty empty empty 17 7 0 10 -204786 -1
  161. -1;
  162. #X msg 182 180 \; /stepper/0/sequencer/go bang \; /stepper/1/sequencer/go
  163. bang;
  164. #X obj 25 86 bng 40 250 50 0 empty empty empty 17 7 0 10 -262144 -1
  165. -1;
  166. #X text 70 98 goto_startPos;
  167. #X msg 192 130 \; /stepper/0/move/gotoStart bang \; /stepper/1/move/gotoStart
  168. bang;
  169. #X obj 25 42 bng 40 250 50 0 empty empty empty 17 7 0 10 -203904 -1
  170. -1;
  171. #X text 30 54 HOME;
  172. #X obj 422 67 f;
  173. #X obj 437 44 r speedLimit;
  174. #X msg 422 88 \; /toOSC /home \$1;
  175. #X text 71 47 reset absolute;
  176. #X text 72 61 position;
  177. #X obj 25 130 bng 40 250 50 0 empty empty empty 17 7 0 10 -4034 -1
  178. -1;
  179. #X text 72 186 PLAY SEQUENCES;
  180. #X text 70 142 PLAY MOVE;
  181. #X text 71 231 STOP ALL;
  182. #X msg 91 276 goto 100 100;
  183. #X obj 24 531 moses -0.1;
  184. #X obj 81 551 moses 0.1;
  185. #X msg 64 573 0;
  186. #X obj 222 535 moses -0.1;
  187. #X obj 279 555 moses 0.1;
  188. #X msg 275 574 0;
  189. #X obj 276 613 f;
  190. #X connect 2 0 3 0;
  191. #X connect 2 1 6 0;
  192. #X connect 3 0 4 0;
  193. #X connect 6 0 5 0;
  194. #X connect 6 0 7 0;
  195. #X connect 8 0 9 0;
  196. #X connect 8 1 11 0;
  197. #X connect 9 0 13 0;
  198. #X connect 11 0 10 0;
  199. #X connect 11 0 12 0;
  200. #X connect 14 0 15 0;
  201. #X connect 14 0 37 0;
  202. #X connect 16 0 17 0;
  203. #X connect 19 0 20 0;
  204. #X connect 21 0 22 0;
  205. #X connect 23 0 25 0;
  206. #X connect 26 0 28 0;
  207. #X connect 28 0 30 0;
  208. #X connect 29 0 28 1;
  209. #X connect 38 0 2 0;
  210. #X connect 38 1 39 0;
  211. #X connect 39 0 40 0;
  212. #X connect 39 1 2 0;
  213. #X connect 40 0 2 0;
  214. #X connect 41 0 44 0;
  215. #X connect 41 1 42 0;
  216. #X connect 42 0 43 0;
  217. #X connect 42 1 44 0;
  218. #X connect 43 0 44 0;
  219. #X connect 44 0 8 0;
  220. #X coords 0 -1 1 1 180 300 1 10 10;
  221. #X restore 801 117 pd syncControl;
  222. #N canvas 417 245 901 633 settings 0;
  223. #X obj 100 100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
  224. -1 -1;
  225. #X obj 100 178 text define -k settings;
  226. #A set accLimit 2 \; speedLimit 10 \; microstepping 4 \; serialDevice
  227. /dev/ttyACM0 \;;
  228. #X msg 100 150 click;
  229. #X obj 417 249 r accLimit;
  230. #X floatatom 417 270 5 0 0 0 - - -, f 5;
  231. #X floatatom 531 206 5 0 0 0 - - -, f 5;
  232. #X obj 531 185 r speedLimit;
  233. #X floatatom 410 413 5 0 0 0 - - -, f 5;
  234. #X obj 410 392 r microstepping;
  235. #X symbolatom 407 492 40 0 0 0 - - -, f 40;
  236. #X obj 229 203 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
  237. -1 -1;
  238. #X msg 229 223 line 0 \, bang;
  239. #X obj 261 356 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
  240. -1 -1;
  241. #X obj 229 242 text sequence settings -g;
  242. #X obj 407 444 r serialDevice;
  243. #X obj 407 465 symbol;
  244. #X msg 226 150 write ./settings;
  245. #X obj 231 33 loadbang;
  246. #X obj 231 54 t b b;
  247. #X obj 100 115 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
  248. -1 -1;
  249. #X text 118 114 reload;
  250. #X msg 258 77 read ./settings;
  251. #X msg 530 239 \; /stepper/0/speedLimit \$1 \; /stepper/1/speedLimit
  252. \$1 \;;
  253. #X msg 550 408 \; /stepper/0/accLimit \$1 \; /stepper/1/accLimit \$1
  254. \;;
  255. #X connect 0 0 2 0;
  256. #X connect 1 1 16 0;
  257. #X connect 1 1 10 0;
  258. #X connect 2 0 1 0;
  259. #X connect 3 0 4 0;
  260. #X connect 3 0 23 0;
  261. #X connect 6 0 5 0;
  262. #X connect 6 0 22 0;
  263. #X connect 8 0 7 0;
  264. #X connect 10 0 11 0;
  265. #X connect 11 0 13 0;
  266. #X connect 13 1 12 0;
  267. #X connect 14 0 15 0;
  268. #X connect 15 0 9 0;
  269. #X connect 16 0 1 0;
  270. #X connect 17 0 18 0;
  271. #X connect 18 0 11 0;
  272. #X connect 18 1 21 0;
  273. #X connect 19 0 18 0;
  274. #X connect 21 0 1 0;
  275. #X coords 0 -1 1 1 85 30 1 100 100;
  276. #X restore 801 13 pd settings;
  277. #X text 888 91 list;
  278. #X obj 12 12 kostepper 1;
  279. #X obj 12 347 kostepper 0;