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;