grada.pd 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262
  1. #N canvas 408 114 1029 598 10;
  2. #X declare -stdpath moonlib;
  3. #X declare -stdpath hcs;
  4. #X declare -stdpath ggee;
  5. #X declare -lib ../extra/s2f -lib ../extra/slist;
  6. #X declare -lib ../extra/getdir -lib ../extra/shell;
  7. #X declare -lib ../extra/comport;
  8. #X declare -lib ../extra/folder_list -lib ../extra/stat -lib ../extra/uname
  9. ;
  10. #X declare -stdpath zexy;
  11. #X declare -lib ../extra/zexy -lib zexy;
  12. #X declare -lib ../extra/getdir;
  13. #X declare -stdpath ggee;
  14. #X declare -lib ../extra/getdir;
  15. #X declare -stdpath ggee;
  16. #X declare -path extra/Fraise;
  17. #X obj 21 38 pied/pied 0 41424;
  18. #X obj 44 208 vsl 15 128 0 1 0 0 empty empty 0 0 -9 0 10 -262144 -1
  19. -1 0 1;
  20. #X msg 44 344 0 \$1;
  21. #X obj 60 392 unpack f f;
  22. #X obj 60 460 pack f f;
  23. #X obj 117 435 i;
  24. #X obj 82 208 vsl 15 128 0 1 0 0 empty empty 1 0 -9 0 10 -262144 -1
  25. -1 0 1;
  26. #X obj 120 208 vsl 15 128 0 1 0 0 empty empty 2 0 -9 0 10 -262144 -1
  27. -1 0 1;
  28. #X obj 158 208 vsl 15 128 0 1 0 0 empty empty 3 0 -9 0 10 -262144 -1
  29. -1 0 1;
  30. #X obj 195 209 vsl 15 128 0 1 0 0 empty empty 4 0 -9 0 10 -262144 -1
  31. -1 0 1;
  32. #X obj 233 209 vsl 15 128 0 1 0 0 empty empty 5 0 -9 0 10 -262144 -1
  33. -1 0 1;
  34. #X obj 271 209 vsl 15 128 0 1 0 0 empty empty 6 0 -9 0 10 -262144 -1
  35. -1 0 1;
  36. #X obj 309 209 vsl 15 128 0 1 0 0 empty empty 7 0 -9 0 10 -262144 -1
  37. -1 0 1;
  38. #X msg 82 344 1 \$1;
  39. #X msg 120 344 2 \$1;
  40. #X msg 158 344 3 \$1;
  41. #X msg 195 345 4 \$1;
  42. #X msg 233 345 5 \$1;
  43. #X msg 271 345 6 \$1;
  44. #X msg 309 345 7 \$1;
  45. #X msg 60 485 c 40 c \$1 i \$2;
  46. #X obj 14 222 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
  47. -1;
  48. #X obj 117 413 * 65535;
  49. #X obj 408 177 vsl 15 128 0 1 0 0 empty empty 7 0 -9 0 10 -262144 -1
  50. -1 0 1;
  51. #X obj 408 314 t b f;
  52. #X obj 408 362 pack f f;
  53. #X text 204 30 AC dimmer example for Versa1.0;
  54. #X text 205 65 Here main dimmer channel is set to 40 in firmware (see
  55. example1/main.c).;
  56. #X obj 498 112 vsl 15 128 0 1 0 0 empty empty 7 0 -9 0 10 -262144 -1
  57. -1 0 1;
  58. #X obj 490 283 line;
  59. #X obj 545 128 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  60. 1;
  61. #X obj 538 182 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
  62. 1;
  63. #X obj 538 204 * 0.3;
  64. #N canvas 65 433 466 443 DEBUG 0;
  65. #X floatatom 47 120 5 0 0 0 - - -, f 5;
  66. #X floatatom 82 120 5 0 0 0 - - -, f 5;
  67. #X floatatom 117 120 5 0 0 0 - - -, f 5;
  68. #X floatatom 152 120 5 0 0 0 - - -, f 5;
  69. #X floatatom 187 120 5 0 0 0 - - -, f 5;
  70. #X floatatom 222 120 5 0 0 0 - - -, f 5;
  71. #X floatatom 257 120 5 0 0 0 - - -, f 5;
  72. #X floatatom 292 120 5 0 0 0 - - -, f 5;
  73. #X obj 47 91 unpack f f f f f f f f;
  74. #X obj 47 68 list split 8;
  75. #X floatatom 46 193 5 0 0 0 - - -, f 5;
  76. #X floatatom 81 193 5 0 0 0 - - -, f 5;
  77. #X floatatom 116 193 5 0 0 0 - - -, f 5;
  78. #X floatatom 151 193 5 0 0 0 - - -, f 5;
  79. #X floatatom 186 193 5 0 0 0 - - -, f 5;
  80. #X floatatom 221 193 5 0 0 0 - - -, f 5;
  81. #X floatatom 256 193 5 0 0 0 - - -, f 5;
  82. #X floatatom 291 193 5 0 0 0 - - -, f 5;
  83. #X obj 46 164 unpack f f f f f f f f;
  84. #X obj 46 141 list split 8;
  85. #X floatatom 46 266 5 0 0 0 - - -, f 5;
  86. #X floatatom 81 266 5 0 0 0 - - -, f 5;
  87. #X floatatom 116 266 5 0 0 0 - - -, f 5;
  88. #X floatatom 151 266 5 0 0 0 - - -, f 5;
  89. #X floatatom 186 266 5 0 0 0 - - -, f 5;
  90. #X floatatom 221 266 5 0 0 0 - - -, f 5;
  91. #X floatatom 256 266 5 0 0 0 - - -, f 5;
  92. #X floatatom 291 266 5 0 0 0 - - -, f 5;
  93. #X obj 46 237 unpack f f f f f f f f;
  94. #X obj 46 214 list split 8;
  95. #X floatatom 75 300 5 0 0 0 - - -, f 5;
  96. #X obj 75 398 tgl 15 0 empty empty page -5 19 0 10 -262144 -1 -1 0
  97. 1;
  98. #X obj 114 397 tgl 15 0 empty empty pageInt -5 19 0 10 -262144 -1 -1
  99. 0 1;
  100. #X text 15 408 status:;
  101. #X text 328 194 follower_page0;
  102. #X text 326 264 follower_page1;
  103. #X text 329 120 sorted;
  104. #X obj 114 348 & 2;
  105. #X obj 75 348 & 1;
  106. #X obj 75 370 != 0;
  107. #X obj 114 370 != 0;
  108. #X obj 168 398 tgl 15 0 empty empty changed -5 19 0 10 -262144 -1 -1
  109. 0 1;
  110. #X obj 216 398 tgl 15 0 empty empty is60Hz -5 19 0 10 -262144 -1 -1
  111. 0 1;
  112. #X obj 168 370 != 0;
  113. #X obj 216 371 != 0;
  114. #X obj 75 326 t f f f f;
  115. #X obj 168 348 & 4;
  116. #X obj 216 349 & 8;
  117. #X obj 46 47 fruit/receive dimmer1;
  118. #X connect 8 0 0 0;
  119. #X connect 8 1 1 0;
  120. #X connect 8 2 2 0;
  121. #X connect 8 3 3 0;
  122. #X connect 8 4 4 0;
  123. #X connect 8 5 5 0;
  124. #X connect 8 6 6 0;
  125. #X connect 8 7 7 0;
  126. #X connect 9 0 8 0;
  127. #X connect 9 1 19 0;
  128. #X connect 18 0 10 0;
  129. #X connect 18 1 11 0;
  130. #X connect 18 2 12 0;
  131. #X connect 18 3 13 0;
  132. #X connect 18 4 14 0;
  133. #X connect 18 5 15 0;
  134. #X connect 18 6 16 0;
  135. #X connect 18 7 17 0;
  136. #X connect 19 0 18 0;
  137. #X connect 19 1 29 0;
  138. #X connect 28 0 20 0;
  139. #X connect 28 1 21 0;
  140. #X connect 28 2 22 0;
  141. #X connect 28 3 23 0;
  142. #X connect 28 4 24 0;
  143. #X connect 28 5 25 0;
  144. #X connect 28 6 26 0;
  145. #X connect 28 7 27 0;
  146. #X connect 29 0 28 0;
  147. #X connect 29 1 30 0;
  148. #X connect 30 0 45 0;
  149. #X connect 37 0 40 0;
  150. #X connect 38 0 39 0;
  151. #X connect 39 0 31 0;
  152. #X connect 40 0 32 0;
  153. #X connect 43 0 41 0;
  154. #X connect 44 0 42 0;
  155. #X connect 45 0 38 0;
  156. #X connect 45 1 37 0;
  157. #X connect 45 2 46 0;
  158. #X connect 45 3 47 0;
  159. #X connect 46 0 43 0;
  160. #X connect 47 0 44 0;
  161. #X connect 48 0 9 0;
  162. #X restore 414 414 pd DEBUG;
  163. #X obj 539 228 + 0.1;
  164. #X msg 492 259 \$1 20000;
  165. #X obj 539 155 metro 20000;
  166. #X msg 408 337 0 \, 1 \, 2 \, 3 \, 4 \, 5 \, 6 \, 7;
  167. #X msg 561 282;
  168. #X obj 20 142 fruit/fruit 1 dimmer1 10 dimmer1;
  169. #X obj 248 114 fruit/fruit 1 dimmer2 11 dimmer2;
  170. #X obj 60 508 fruit/send dimmer1;
  171. #X obj 659 208 vsl 15 128 0 1 0 0 empty empty 0 0 -9 0 10 -262144 -1
  172. -1 0 1;
  173. #X msg 659 344 0 \$1;
  174. #X obj 675 392 unpack f f;
  175. #X obj 675 460 pack f f;
  176. #X obj 732 435 i;
  177. #X obj 697 208 vsl 15 128 0 1 0 0 empty empty 1 0 -9 0 10 -262144 -1
  178. -1 0 1;
  179. #X obj 735 208 vsl 15 128 0 1 0 0 empty empty 2 0 -9 0 10 -262144 -1
  180. -1 0 1;
  181. #X obj 773 208 vsl 15 128 0 1 0 0 empty empty 3 0 -9 0 10 -262144 -1
  182. -1 0 1;
  183. #X msg 697 344 1 \$1;
  184. #X msg 735 344 2 \$1;
  185. #X msg 773 344 3 \$1;
  186. #X msg 675 485 c 40 c \$1 i \$2;
  187. #X obj 732 413 * 65535;
  188. #X obj 674 507 fruit/send dimmer2;
  189. #X obj 653 50 fruit/receive dimmer2;
  190. #X obj 653 72 route s;
  191. #X obj 653 94 route 0 1 2 3;
  192. #X obj 653 121 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
  193. 1;
  194. #X obj 675 119 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
  195. 1;
  196. #X obj 697 120 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
  197. 1;
  198. #X obj 719 118 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
  199. 1;
  200. #X text 646 137 sw1;
  201. #X text 673 137 sw2;
  202. #X text 697 136 sw3;
  203. #X text 724 136 sw4;
  204. #X obj 22 8 declare -path extra/Fraise;
  205. #X connect 1 0 2 0;
  206. #X connect 2 0 3 0;
  207. #X connect 3 0 4 0;
  208. #X connect 3 1 22 0;
  209. #X connect 4 0 20 0;
  210. #X connect 5 0 4 1;
  211. #X connect 6 0 13 0;
  212. #X connect 7 0 14 0;
  213. #X connect 8 0 15 0;
  214. #X connect 9 0 16 0;
  215. #X connect 10 0 17 0;
  216. #X connect 11 0 18 0;
  217. #X connect 12 0 19 0;
  218. #X connect 13 0 3 0;
  219. #X connect 14 0 3 0;
  220. #X connect 15 0 3 0;
  221. #X connect 16 0 3 0;
  222. #X connect 17 0 3 0;
  223. #X connect 18 0 3 0;
  224. #X connect 19 0 3 0;
  225. #X connect 20 0 41 0;
  226. #X connect 21 0 1 0;
  227. #X connect 22 0 5 0;
  228. #X connect 23 0 24 0;
  229. #X connect 24 0 37 0;
  230. #X connect 24 1 25 1;
  231. #X connect 25 0 3 0;
  232. #X connect 25 0 44 0;
  233. #X connect 28 0 35 0;
  234. #X connect 29 0 23 0;
  235. #X connect 30 0 36 0;
  236. #X connect 31 0 32 0;
  237. #X connect 32 0 34 0;
  238. #X connect 34 0 28 0;
  239. #X connect 35 0 29 0;
  240. #X connect 36 0 31 0;
  241. #X connect 37 0 25 0;
  242. #X connect 42 0 43 0;
  243. #X connect 43 0 44 0;
  244. #X connect 44 0 45 0;
  245. #X connect 44 1 54 0;
  246. #X connect 45 0 53 0;
  247. #X connect 46 0 45 1;
  248. #X connect 47 0 50 0;
  249. #X connect 48 0 51 0;
  250. #X connect 49 0 52 0;
  251. #X connect 50 0 44 0;
  252. #X connect 51 0 44 0;
  253. #X connect 52 0 44 0;
  254. #X connect 53 0 55 0;
  255. #X connect 54 0 46 0;
  256. #X connect 56 0 57 0;
  257. #X connect 57 0 58 0;
  258. #X connect 58 0 59 0;
  259. #X connect 58 1 60 0;
  260. #X connect 58 2 61 0;
  261. #X connect 58 3 62 0;