diff options
Diffstat (limited to 'gfsm/src/test-state.pd')
-rw-r--r-- | gfsm/src/test-state.pd | 427 |
1 files changed, 427 insertions, 0 deletions
diff --git a/gfsm/src/test-state.pd b/gfsm/src/test-state.pd new file mode 100644 index 0000000..2ee2b77 --- /dev/null +++ b/gfsm/src/test-state.pd @@ -0,0 +1,427 @@ +#N canvas 430 0 616 494 10; +#X obj 13 7 gfsm; +#X msg 23 84 automaton; +#X msg 21 43 automaton a1; +#X obj 51 6 zexy; +#X msg 22 62 automaton a2; +#X obj 30 285 r \$0-state; +#X obj 19 332 print STATE-1; +#X obj 136 76 s \$0-state; +#X msg 150 48 id; +#X msg 136 27 set \$1; +#X floatatom 153 9 5 0 0 0 - - -; +#X obj 19 308 gfsm_state a1; +#X obj 135 10 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X msg 218 11 degree; +#X obj 218 74 s \$0-state; +#X msg 25 147 arc_first; +#X msg 29 171 arc_next; +#X obj 243 314 gfsm_automaton a1; +#X obj 243 180 bng 15 250 50 0 empty empty empty 0 -6 0 8 -225280 -1 +-1; +#X obj 243 198 openpanel; +#X msg 243 264 load_bin \$1; +#X obj 243 335 print A1-1; +#X obj 254 293 r \$0-fsm; +#X obj 337 226 bng 20 250 50 0 \$0-draw-s empty DRAW 0 -6 0 8 -24198 +-1 -1; +#N canvas 0 0 466 454 draw 0; +#X obj 361 16 zexy; +#X obj 67 25 r \$0-draw-s; +#X obj 68 68 f \$0; +#X msg 176 74 save_bin \$1draw.gfst; +#X obj 176 98 s \$0-fsm; +#X obj 68 162 shell; +#X obj 68 47 t b; +#X obj 68 91 t f f; +#X msg 69 237 dotgv.sh \$1draw.dot; +#X obj 171 311 f \$0; +#X obj 172 291 t b; +#X obj 171 357 shell; +#X obj 172 20 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X msg 68 137 gfsmdraw \$1draw.gfst -F \$1draw.dot; +#X msg 171 334 rm -f \$1draw.gfst \$1draw.dot; +#X obj 142 270 shell; +#X msg 220 236 dotty \$1draw.dot; +#X obj 169 183 r \$0-drawmode-s; +#X obj 111 206 demux 0 1; +#X obj 110 163 t b; +#X obj 111 184 f \$0; +#X obj 284 182 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X connect 1 0 6 0; +#X connect 2 0 7 0; +#X connect 3 0 4 0; +#X connect 5 1 19 0; +#X connect 6 0 2 0; +#X connect 7 0 13 0; +#X connect 7 1 3 0; +#X connect 8 0 15 0; +#X connect 9 0 14 0; +#X connect 10 0 9 0; +#X connect 12 0 6 0; +#X connect 13 0 5 0; +#X connect 14 0 11 0; +#X connect 15 1 10 0; +#X connect 16 0 15 0; +#X connect 17 0 18 1; +#X connect 18 0 8 0; +#X connect 18 1 16 0; +#X connect 19 0 20 0; +#X connect 20 0 18 0; +#X connect 21 0 18 1; +#X restore 338 250 pd draw; +#X obj 365 226 tgl 20 0 \$0-drawmode-s empty mode 0 -6 0 8 -225271 +-1 -1 0 1; +#X msg 250 219 test3.gfst; +#X obj 243 242 symbol; +#X obj 115 141 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#N canvas 38 17 452 375 weight_sum 0; +#X obj 34 11 inlet; +#X msg 34 61 arc_first; +#X msg 46 88 arc_next; +#X obj 34 292 f 0; +#X obj 238 59 0; +#X obj 34 177 route arc_first arc_next; +#X obj 34 203 route bang; +#X obj 99 222 t b l; +#X obj 129 244 unpack 0 0 0 0; +#X obj 222 268 + 0; +#X obj 178 267 t f f; +#X obj 87 11 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 34 323 outlet; +#X obj 34 224 t b; +#X obj 34 143 gfsm_state a1 0; +#X obj 45 119 r \$0-state; +#X obj 88 323 s \$0-wsum-out; +#X obj 113 13 r \$0-wsum-in; +#X obj 71 250 delay 1; +#X obj 34 33 t b b b; +#X msg 290 56 stop; +#X floatatom 240 293 5 0 0 0 - - -; +#X obj 322 168 until; +#X connect 0 0 19 0; +#X connect 1 0 14 0; +#X connect 2 0 14 0; +#X connect 3 0 12 0; +#X connect 3 0 16 0; +#X connect 4 0 9 1; +#X connect 5 0 6 0; +#X connect 5 1 6 0; +#X connect 6 0 13 0; +#X connect 6 1 7 0; +#X connect 7 0 18 0; +#X connect 7 1 8 0; +#X connect 8 3 9 0; +#X connect 9 0 10 0; +#X connect 9 0 21 0; +#X connect 10 0 9 1; +#X connect 10 1 3 1; +#X connect 11 0 19 0; +#X connect 13 0 3 0; +#X connect 14 0 5 0; +#X connect 15 0 14 0; +#X connect 17 0 19 0; +#X connect 18 0 2 0; +#X connect 19 0 1 0; +#X connect 19 1 4 0; +#X connect 19 2 20 0; +#X connect 20 0 18 0; +#X restore 115 161 pd weight_sum; +#X obj 114 332 s \$0-state-out; +#X floatatom 114 182 8 0 0 0 - - -; +#X obj 114 224 print WSUM; +#X obj 252 97 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#N canvas 302 0 392 492 rand_arc 0; +#X obj 40 9 inlet; +#X obj 83 9 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1 +; +#X msg 41 56 arc_first; +#X msg 56 93 arc_next; +#X obj 41 177 route arc_first arc_next; +#X obj 41 203 route bang; +#X obj 150 244 unpack 0 0 0 0; +#X obj 41 451 outlet; +#X obj 41 143 gfsm_state a1 0; +#X obj 77 122 r \$0-state; +#X obj 257 73 s \$0-wsum-in; +#X obj 259 95 r \$0-wsum-out; +#X obj 259 142 random 131072; +#X obj 259 116 t b f; +#X obj 259 166 / 131072; +#X obj 259 190 * 1; +#X obj 41 224 t b; +#X obj 243 316 moses 0; +#X obj 259 213 * -1; +#X obj 243 271 + 0; +#X obj 243 294 t f f; +#X obj 242 335 t b b; +#X obj 128 403 spigot; +#X obj 165 381 0; +#X obj 192 381 1; +#X obj 106 306 spigot; +#X obj 106 222 t b l l; +#X obj 286 335 t b b; +#X obj 169 284 0; +#X obj 143 284 1; +#X obj 107 10 r \$0-randarc-in; +#X obj 92 451 s \$0-randarc-out; +#X obj 81 326 delay 1; +#X obj 41 30 t b b b; +#X msg 177 127 stop; +#X connect 0 0 33 0; +#X connect 1 0 33 0; +#X connect 2 0 8 0; +#X connect 3 0 8 0; +#X connect 4 0 5 0; +#X connect 4 1 5 0; +#X connect 5 0 16 0; +#X connect 5 1 26 0; +#X connect 6 3 19 0; +#X connect 8 0 4 0; +#X connect 9 0 8 0; +#X connect 11 0 13 0; +#X connect 12 0 14 0; +#X connect 13 0 12 0; +#X connect 13 1 15 1; +#X connect 14 0 15 0; +#X connect 15 0 18 0; +#X connect 16 0 7 0; +#X connect 16 0 31 0; +#X connect 17 0 21 0; +#X connect 17 1 27 0; +#X connect 18 0 19 1; +#X connect 19 0 20 0; +#X connect 20 0 17 0; +#X connect 20 1 19 1; +#X connect 21 0 29 0; +#X connect 21 1 23 0; +#X connect 22 0 7 0; +#X connect 22 0 31 0; +#X connect 23 0 22 1; +#X connect 24 0 22 1; +#X connect 25 0 32 0; +#X connect 26 0 25 0; +#X connect 26 1 22 0; +#X connect 26 2 6 0; +#X connect 27 0 24 0; +#X connect 27 1 28 0; +#X connect 28 0 25 1; +#X connect 29 0 25 1; +#X connect 30 0 33 0; +#X connect 32 0 3 0; +#X connect 33 0 2 0; +#X connect 33 1 10 0; +#X connect 33 2 34 0; +#X connect 34 0 32 0; +#X restore 252 116 pd rand_arc; +#X obj 395 113 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#N canvas 102 2 392 492 rand_incr 0; +#X obj 40 9 inlet; +#X obj 83 9 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1 +; +#X obj 41 54 s \$0-randarc-in; +#X obj 43 76 r \$0-randarc-out; +#X obj 42 98 route bang; +#X obj 41 30 t b; +#X obj 42 177 gfsm_automaton a1; +#X obj 209 157 unpack 0 0 0 0; +#X obj 55 154 r \$0-automaton; +#X msg 42 131 root; +#X obj 42 199 route root; +#X obj 42 221 route bang; +#X obj 107 336 outlet; +#X obj 211 337 outlet; +#X obj 271 335 outlet; +#X msg 8 247 root 0; +#X obj 107 254 t f f; +#X obj 137 295 s \$0-state; +#X msg 137 274 set \$1; +#X obj 326 336 outlet; +#X connect 0 0 5 0; +#X connect 1 0 5 0; +#X connect 3 0 4 0; +#X connect 4 0 9 0; +#X connect 4 1 7 0; +#X connect 5 0 2 0; +#X connect 6 0 10 0; +#X connect 7 0 16 0; +#X connect 7 1 13 0; +#X connect 7 2 14 0; +#X connect 7 3 19 0; +#X connect 8 0 6 0; +#X connect 9 0 6 0; +#X connect 10 0 11 0; +#X connect 11 0 15 0; +#X connect 11 1 16 0; +#X connect 15 0 6 0; +#X connect 16 0 12 0; +#X connect 16 1 18 0; +#X connect 18 0 17 0; +#X restore 395 132 pd rand_incr; +#X obj 254 157 print RAND_ARC; +#X obj 336 33 s \$0-state; +#X obj 326 54 s \$0-fsm; +#X obj 13 105 s \$0-automaton; +#X obj 326 12 r \$0-automaton; +#X obj 21 197 s \$0-state-a; +#X obj 19 262 r \$0-state-a; +#X obj 195 192 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 230 140 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 470 10 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X floatatom 493 10 5 0 0 0 - - -; +#X obj 471 30 metro 1000; +#X obj 417 300 gfsm_alphabet alph1; +#X obj 518 214 bng 15 250 50 0 empty empty empty 0 -6 0 8 -225280 -1 +-1; +#X obj 518 232 openpanel; +#X obj 518 254 symbol; +#X msg 518 275 load \$1; +#X obj 452 342 print RI-ATOM; +#X msg 419 273 char2atom \$1; +#X floatatom 436 245 5 0 0 0 - - -; +#X obj 452 321 fromsymbol; +#N canvas 0 0 450 300 ri_print 0; +#X obj 48 22 inlet; +#X obj 101 22 inlet; +#X obj 155 22 inlet; +#X obj 206 22 inlet; +#X obj 319 22 inlet; +#X obj 93 97 spigot; +#X obj 93 57 pack 0 0 0 0; +#X obj 93 122 unpack 0 0 0 0; +#X obj 124 196 print RI-LO; +#X obj 186 155 print RI-WT; +#X obj 155 175 print RI-HI; +#X obj 93 215 print RI-NXT; +#X connect 0 0 6 0; +#X connect 1 0 6 1; +#X connect 2 0 6 2; +#X connect 3 0 6 3; +#X connect 4 0 5 1; +#X connect 5 0 7 0; +#X connect 6 0 5 0; +#X connect 7 0 11 0; +#X connect 7 1 8 0; +#X connect 7 2 10 0; +#X connect 7 3 9 0; +#X restore 420 160 pd ri_print; +#X obj 488 131 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X obj 114 203 spigot; +#X obj 162 203 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X obj 253 138 spigot; +#X obj 301 138 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X obj 29 410 grattsdict; +#X obj 247 417 gvol~; +#X obj 246 454 dac~; +#X obj 470 51 t b b; +#X obj 475 100 spigot; +#X msg 506 80 0; +#X msg 534 80 1; +#X obj 548 456 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#N canvas 0 0 450 300 load_dict 0; +#X obj 31 16 inlet; +#X obj 31 38 t b; +#X msg 31 67 load /home/moocow/src/pd/externs/ratts/dict/beep-b.txt +cr; +#X obj 33 108 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 30 391 pd load_dict; +#X obj 31 371 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 366 367 gpratts~ 10 \$0p /gpratts; +#X obj 171 396 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X msg 171 417 \; pd dsp \$1; +#X obj 434 74 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 435 103 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 424 202 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 367 340 route 0; +#X connect 1 0 40 0; +#X connect 2 0 40 0; +#X connect 4 0 40 0; +#X connect 5 0 11 0; +#X connect 8 0 7 0; +#X connect 9 0 7 0; +#X connect 10 0 9 0; +#X connect 11 0 6 0; +#X connect 11 0 30 0; +#X connect 12 0 10 0; +#X connect 13 0 14 0; +#X connect 15 0 42 0; +#X connect 16 0 42 0; +#X connect 17 0 21 0; +#X connect 18 0 19 0; +#X connect 19 0 27 0; +#X connect 20 0 17 0; +#X connect 22 0 17 0; +#X connect 26 0 27 0; +#X connect 27 0 20 0; +#X connect 28 0 29 0; +#X connect 29 0 31 0; +#X connect 29 0 44 0; +#X connect 31 0 60 0; +#X connect 33 0 34 0; +#X connect 34 0 45 0; +#X connect 34 0 62 0; +#X connect 35 0 36 0; +#X connect 36 0 58 0; +#X connect 36 0 55 0; +#X connect 36 0 79 0; +#X connect 36 1 58 1; +#X connect 36 2 58 2; +#X connect 36 3 58 3; +#X connect 41 0 39 0; +#X connect 41 0 38 0; +#X connect 43 0 11 0; +#X connect 46 0 48 0; +#X connect 47 0 48 1; +#X connect 48 0 67 0; +#X connect 49 1 57 0; +#X connect 50 0 51 0; +#X connect 51 0 52 0; +#X connect 52 0 53 0; +#X connect 53 0 49 0; +#X connect 55 0 49 0; +#X connect 56 0 55 0; +#X connect 57 0 54 0; +#X connect 57 0 80 0; +#X connect 59 0 58 4; +#X connect 60 0 32 0; +#X connect 61 0 60 1; +#X connect 62 0 37 0; +#X connect 63 0 62 1; +#X connect 65 0 66 0; +#X connect 65 0 66 1; +#X connect 67 0 69 0; +#X connect 67 0 77 0; +#X connect 67 1 68 0; +#X connect 68 0 36 0; +#X connect 68 0 78 0; +#X connect 69 0 68 1; +#X connect 70 0 68 1; +#X connect 72 0 64 0; +#X connect 73 0 72 0; +#X connect 74 0 65 0; +#X connect 74 1 71 0; +#X connect 74 1 70 0; +#X connect 75 0 76 0; +#X connect 80 1 74 0; |