From 0727bfcaf2bd48bf501a7fa95515c400a1996902 Mon Sep 17 00:00:00 2001 From: Bryan Jurish Date: Thu, 2 Feb 2006 12:49:19 +0000 Subject: initial cvs import svn path=/trunk/externals/moocow/; revision=4536 --- gfsm/src/test-state2.pd | 415 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 415 insertions(+) create mode 100644 gfsm/src/test-state2.pd (limited to 'gfsm/src/test-state2.pd') diff --git a/gfsm/src/test-state2.pd b/gfsm/src/test-state2.pd new file mode 100644 index 0000000..a9983d0 --- /dev/null +++ b/gfsm/src/test-state2.pd @@ -0,0 +1,415 @@ +#N canvas 346 27 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 19 164 arc_first; +#X msg 23 188 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 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 486 0 310 377 weight_sum 1; +#X obj 34 11 inlet; +#X msg 34 104 arc_next; +#X obj 34 309 f 0; +#X obj 209 82 0; +#X obj 99 228 unpack 0 0 0 0; +#X obj 193 252 + 0; +#X obj 98 253 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 340 outlet; +#X obj 34 157 gfsm_state a1 0; +#X obj 70 136 r \$0-state; +#X obj 88 340 s \$0-wsum-out; +#X obj 113 13 r \$0-wsum-in; +#X obj 34 80 until; +#X obj 34 204 route bang; +#X obj 34 225 t b b; +#X obj 34 182 route arc_next; +#X obj 34 33 t b b b b; +#X msg 101 104 arc_reset; +#X connect 0 0 17 0; +#X connect 1 0 9 0; +#X connect 2 0 8 0; +#X connect 2 0 11 0; +#X connect 3 0 5 1; +#X connect 4 3 5 0; +#X connect 5 0 6 0; +#X connect 6 0 5 1; +#X connect 6 1 2 1; +#X connect 7 0 17 0; +#X connect 9 0 16 0; +#X connect 10 0 9 0; +#X connect 12 0 17 0; +#X connect 13 0 1 0; +#X connect 14 0 15 0; +#X connect 14 1 4 0; +#X connect 15 0 2 0; +#X connect 15 1 13 1; +#X connect 16 0 14 0; +#X connect 17 0 13 0; +#X connect 17 1 3 0; +#X connect 17 2 18 0; +#X connect 17 3 13 1; +#X connect 18 0 9 0; +#X restore 115 161 pd weight_sum; +#X obj 114 332 s \$0-state-out; +#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 298 9 405 465 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 98 arc_next; +#X obj 136 266 unpack 0 0 0 0; +#X obj 41 415 outlet; +#X obj 41 163 gfsm_state a1 0; +#X obj 76 140 r \$0-state; +#X obj 243 97 s \$0-wsum-in; +#X obj 245 119 r \$0-wsum-out; +#X obj 245 166 random 131072; +#X obj 245 140 t b f; +#X obj 245 190 / 131072; +#X obj 245 214 * 1; +#X obj 229 334 moses 0; +#X obj 245 237 * -1; +#X obj 229 289 + 0; +#X obj 229 312 t f f; +#X obj 106 327 spigot; +#X obj 143 304 0; +#X obj 170 304 1; +#X obj 107 10 r \$0-randarc-in; +#X obj 92 415 s \$0-randarc-out; +#X obj 41 76 until; +#X obj 41 220 route bang; +#X obj 106 244 t l l; +#X obj 228 353 t b; +#X obj 272 353 t b; +#X obj 106 348 t l b; +#X obj 41 348 t b b; +#X obj 41 197 route arc_next; +#X msg 107 97 arc_reset; +#X obj 41 30 t b b b b; +#X connect 0 0 31 0; +#X connect 1 0 31 0; +#X connect 2 0 5 0; +#X connect 3 3 15 0; +#X connect 5 0 29 0; +#X connect 6 0 5 0; +#X connect 8 0 10 0; +#X connect 9 0 11 0; +#X connect 10 0 9 0; +#X connect 10 1 12 1; +#X connect 11 0 12 0; +#X connect 12 0 14 0; +#X connect 13 0 25 0; +#X connect 13 1 26 0; +#X connect 14 0 15 1; +#X connect 15 0 16 0; +#X connect 16 0 13 0; +#X connect 16 1 15 1; +#X connect 17 0 27 0; +#X connect 18 0 17 1; +#X connect 19 0 17 1; +#X connect 20 0 31 0; +#X connect 22 0 2 0; +#X connect 23 0 28 0; +#X connect 23 1 24 0; +#X connect 24 0 17 0; +#X connect 24 1 3 0; +#X connect 25 0 18 0; +#X connect 26 0 19 0; +#X connect 27 0 21 0; +#X connect 27 0 4 0; +#X connect 27 1 22 1; +#X connect 28 0 4 0; +#X connect 28 0 21 0; +#X connect 28 1 22 1; +#X connect 29 0 23 0; +#X connect 30 0 5 0; +#X connect 31 0 22 0; +#X connect 31 1 30 0; +#X connect 31 2 7 0; +#X connect 31 3 22 1; +#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 13 214 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 481 375 print RI-ATOM; +#X msg 419 273 char2atom \$1; +#X floatatom 436 245 5 0 0 0 - - -; +#X obj 482 332 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 181 spigot; +#X obj 162 181 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 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 243 365 gpratts~ 10 \$0p /gpratts; +#X obj 30 432 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X msg 30 453 \; pd dsp \$1; +#X obj 434 74 bng 15 250 20 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 msg 202 284 info; +#X msg 13 141 arc_reset; +#X msg 250 219 markov.gfst; +#X msg 538 211 markov.lab; +#X floatatom 114 204 8 0 0 0 - - -; +#X obj 481 355 spigot; +#X obj 533 354 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X obj 145 359 ms8a~ p gpr; +#X connect 1 0 38 0; +#X connect 2 0 38 0; +#X connect 4 0 38 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 29 0; +#X connect 12 0 10 0; +#X connect 13 0 14 0; +#X connect 15 0 40 0; +#X connect 16 0 40 0; +#X connect 17 0 21 0; +#X connect 18 0 19 0; +#X connect 19 0 26 0; +#X connect 20 0 17 0; +#X connect 22 0 17 0; +#X connect 26 0 20 0; +#X connect 27 0 28 0; +#X connect 31 0 32 0; +#X connect 32 0 60 0; +#X connect 33 0 34 0; +#X connect 34 0 56 0; +#X connect 34 0 53 0; +#X connect 34 1 56 1; +#X connect 34 2 56 2; +#X connect 34 3 56 3; +#X connect 39 0 37 0; +#X connect 39 0 36 0; +#X connect 41 0 11 0; +#X connect 44 0 46 0; +#X connect 45 0 46 1; +#X connect 46 0 63 0; +#X connect 47 1 55 0; +#X connect 48 0 49 0; +#X connect 49 0 50 0; +#X connect 50 0 51 0; +#X connect 51 0 47 0; +#X connect 53 0 47 0; +#X connect 54 0 53 0; +#X connect 55 0 76 0; +#X connect 55 0 82 0; +#X connect 57 0 56 4; +#X connect 58 0 81 0; +#X connect 59 0 58 1; +#X connect 60 0 35 0; +#X connect 61 0 60 1; +#X connect 63 0 65 0; +#X connect 63 1 64 0; +#X connect 64 0 34 0; +#X connect 65 0 64 1; +#X connect 66 0 64 1; +#X connect 68 0 62 0; +#X connect 69 0 68 0; +#X connect 70 0 84 0; +#X connect 70 0 84 1; +#X connect 70 1 66 0; +#X connect 71 0 72 0; +#X connect 76 1 70 0; +#X connect 77 0 17 0; +#X connect 78 0 40 0; +#X connect 79 0 26 0; +#X connect 80 0 50 0; +#X connect 81 0 30 0; +#X connect 82 0 52 0; +#X connect 83 0 82 1; -- cgit v1.2.1