#N canvas 277 17 964 714 10; #X obj 52 73 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1; #X obj 512 73 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1; #X obj 152 73 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1; #X obj 512 232 pack; #X obj 512 209 t f f; #X obj 52 347 unpack; #X obj 52 370 moses; #X msg 52 439 set \$1; #X obj 252 73 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1; #X obj 352 73 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1; #X text 510 44 Main:; #X obj 52 48 r \$0-set-s1; #X obj 52 209 s \$0-s1; #X obj 352 209 s \$0-s4; #X obj 252 209 s \$0-s3; #X obj 152 209 s \$0-s2; #X obj 152 48 r \$0-set-s2; #X obj 252 48 r \$0-set-s3; #X obj 352 48 r \$0-set-s4; #X obj 512 255 s \$0-main; #X obj 52 324 r \$0-main; #X obj 52 462 s \$0-set-s1; #X obj 132 347 v x1\$0; #X obj 52 393 expr x1\$0 = x1\$0 + ($f1 - $f2) * x1\$0 / $f2; #X obj 79 416 expr x1\$0 = x1\$0 + ($f1 - $f2) * (127 - x1\$0) / (1 - $f2); #X obj 52 531 unpack; #X obj 52 554 moses; #X msg 52 623 set \$1; #X obj 52 508 r \$0-main; #X obj 512 347 unpack; #X obj 512 370 moses; #X msg 512 439 set \$1; #X obj 512 324 r \$0-main; #X obj 512 531 unpack; #X obj 512 554 moses; #X msg 512 623 set \$1; #X obj 512 508 r \$0-main; #X obj 132 324 r \$0-s1; #X obj 592 324 r \$0-s2; #X obj 592 347 v x2\$0; #X obj 512 393 expr x2\$0 = x2\$0 + ($f1 - $f2) * x2\$0 / $f2; #X obj 539 416 expr x2\$0 = x2\$0 + ($f1 - $f2) * (127 - x2\$0) / (1 - $f2); #X obj 512 462 s \$0-set-s2; #X obj 132 508 r \$0-s3; #X obj 132 531 v x3\$0; #X obj 52 577 expr x3\$0 = x3\$0 + ($f1 - $f2) * x3\$0 / $f2; #X obj 79 600 expr x3\$0 = x3\$0 + ($f1 - $f2) * (127 - x3\$0) / (1 - $f2); #X obj 52 646 s \$0-set-s3; #X obj 592 508 r \$0-s4; #X obj 592 531 v x4\$0; #X obj 512 577 expr x4\$0 = x4\$0 + ($f1 - $f2) * x4\$0 / $f2; #X obj 539 600 expr x4\$0 = x4\$0 + ($f1 - $f2) * (127 - x4\$0) / (1 - $f2); #X obj 512 646 s \$0-set-s4; #X obj 662 51 bng 15 250 50 0 empty empty randomize 17 7 0 10 #fcfcfc #000000 #000000; #X msg 662 71 4; #X obj 662 94 until; #X obj 662 117 f; #X obj 692 117 + 1; #X obj 722 117 mod 4; #X obj 662 163 t b f; #X obj 662 186 random 128; #X obj 738 186 makefilename \$0-set-s%d; #X obj 662 209 s; #X obj 662 140 + 1; #X connect 0 0 12 0; #X connect 1 0 4 0; #X connect 2 0 15 0; #X connect 3 0 19 0; #X connect 4 0 3 1; #X connect 4 1 3 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 5 1 23 1; #X connect 5 1 24 1; #X connect 6 0 23 0; #X connect 6 1 24 0; #X connect 7 0 21 0; #X connect 8 0 14 0; #X connect 9 0 13 0; #X connect 11 0 0 0; #X connect 16 0 2 0; #X connect 17 0 8 0; #X connect 18 0 9 0; #X connect 20 0 5 0; #X connect 23 0 7 0; #X connect 24 0 7 0; #X connect 25 0 26 0; #X connect 25 1 26 1; #X connect 25 1 45 1; #X connect 25 1 46 1; #X connect 26 0 45 0; #X connect 26 1 46 0; #X connect 27 0 47 0; #X connect 28 0 25 0; #X connect 29 0 30 0; #X connect 29 1 30 1; #X connect 29 1 40 1; #X connect 29 1 41 1; #X connect 30 0 40 0; #X connect 30 1 41 0; #X connect 31 0 42 0; #X connect 32 0 29 0; #X connect 33 0 34 0; #X connect 33 1 34 1; #X connect 33 1 50 1; #X connect 33 1 51 1; #X connect 34 0 50 0; #X connect 34 1 51 0; #X connect 35 0 52 0; #X connect 36 0 33 0; #X connect 37 0 22 0; #X connect 38 0 39 0; #X connect 40 0 31 0; #X connect 41 0 31 0; #X connect 43 0 44 0; #X connect 45 0 27 0; #X connect 46 0 27 0; #X connect 48 0 49 0; #X connect 50 0 35 0; #X connect 51 0 35 0; #X connect 53 0 54 0; #X connect 54 0 55 0; #X connect 55 0 56 0; #X connect 56 0 57 0; #X connect 56 0 63 0; #X connect 57 0 58 0; #X connect 58 0 56 1; #X connect 59 0 60 0; #X connect 59 1 61 0; #X connect 60 0 62 0; #X connect 61 0 62 1; #X connect 63 0 59 0;