From ingo, 4 Months ago, written in Plain Text.
Embed
  1. #N canvas 277 17 964 714 10;
  2. #X obj 52 73 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 #fcfcfc
  3. #000000 #000000 0 1;
  4. #X obj 512 73 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc
  5. #000000 #000000 0 1;
  6. #X obj 152 73 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 #fcfcfc
  7. #000000 #000000 0 1;
  8. #X obj 512 232 pack;
  9. #X obj 512 209 t f f;
  10. #X obj 52 347 unpack;
  11. #X obj 52 370 moses;
  12. #X msg 52 439 set \$1;
  13. #X obj 252 73 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 #fcfcfc
  14. #000000 #000000 0 1;
  15. #X obj 352 73 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 #fcfcfc
  16. #000000 #000000 0 1;
  17. #X text 510 44 Main:;
  18. #X obj 52 48 r \$0-set-s1;
  19. #X obj 52 209 s \$0-s1;
  20. #X obj 352 209 s \$0-s4;
  21. #X obj 252 209 s \$0-s3;
  22. #X obj 152 209 s \$0-s2;
  23. #X obj 152 48 r \$0-set-s2;
  24. #X obj 252 48 r \$0-set-s3;
  25. #X obj 352 48 r \$0-set-s4;
  26. #X obj 512 255 s \$0-main;
  27. #X obj 52 324 r \$0-main;
  28. #X obj 52 462 s \$0-set-s1;
  29. #X obj 132 347 v x1\$0;
  30. #X obj 52 393 expr x1\$0 = x1\$0 + ($f1 - $f2) * x1\$0 / $f2;
  31. #X obj 79 416 expr x1\$0 = x1\$0 + ($f1 - $f2) * (127 - x1\$0) / (1
  32. - $f2);
  33. #X obj 52 531 unpack;
  34. #X obj 52 554 moses;
  35. #X msg 52 623 set \$1;
  36. #X obj 52 508 r \$0-main;
  37. #X obj 512 347 unpack;
  38. #X obj 512 370 moses;
  39. #X msg 512 439 set \$1;
  40. #X obj 512 324 r \$0-main;
  41. #X obj 512 531 unpack;
  42. #X obj 512 554 moses;
  43. #X msg 512 623 set \$1;
  44. #X obj 512 508 r \$0-main;
  45. #X obj 132 324 r \$0-s1;
  46. #X obj 592 324 r \$0-s2;
  47. #X obj 592 347 v x2\$0;
  48. #X obj 512 393 expr x2\$0 = x2\$0 + ($f1 - $f2) * x2\$0 / $f2;
  49. #X obj 539 416 expr x2\$0 = x2\$0 + ($f1 - $f2) * (127 - x2\$0) / (1
  50. - $f2);
  51. #X obj 512 462 s \$0-set-s2;
  52. #X obj 132 508 r \$0-s3;
  53. #X obj 132 531 v x3\$0;
  54. #X obj 52 577 expr x3\$0 = x3\$0 + ($f1 - $f2) * x3\$0 / $f2;
  55. #X obj 79 600 expr x3\$0 = x3\$0 + ($f1 - $f2) * (127 - x3\$0) / (1
  56. - $f2);
  57. #X obj 52 646 s \$0-set-s3;
  58. #X obj 592 508 r \$0-s4;
  59. #X obj 592 531 v x4\$0;
  60. #X obj 512 577 expr x4\$0 = x4\$0 + ($f1 - $f2) * x4\$0 / $f2;
  61. #X obj 539 600 expr x4\$0 = x4\$0 + ($f1 - $f2) * (127 - x4\$0) / (1
  62. - $f2);
  63. #X obj 512 646 s \$0-set-s4;
  64. #X obj 662 51 bng 15 250 50 0 empty empty randomize 17 7 0 10 #fcfcfc
  65. #000000 #000000;
  66. #X msg 662 71 4;
  67. #X obj 662 94 until;
  68. #X obj 662 117 f;
  69. #X obj 692 117 + 1;
  70. #X obj 722 117 mod 4;
  71. #X obj 662 163 t b f;
  72. #X obj 662 186 random 128;
  73. #X obj 738 186 makefilename \$0-set-s%d;
  74. #X obj 662 209 s;
  75. #X obj 662 140 + 1;
  76. #X connect 0 0 12 0;
  77. #X connect 1 0 4 0;
  78. #X connect 2 0 15 0;
  79. #X connect 3 0 19 0;
  80. #X connect 4 0 3 1;
  81. #X connect 4 1 3 0;
  82. #X connect 5 0 6 0;
  83. #X connect 5 1 6 1;
  84. #X connect 5 1 23 1;
  85. #X connect 5 1 24 1;
  86. #X connect 6 0 23 0;
  87. #X connect 6 1 24 0;
  88. #X connect 7 0 21 0;
  89. #X connect 8 0 14 0;
  90. #X connect 9 0 13 0;
  91. #X connect 11 0 0 0;
  92. #X connect 16 0 2 0;
  93. #X connect 17 0 8 0;
  94. #X connect 18 0 9 0;
  95. #X connect 20 0 5 0;
  96. #X connect 23 0 7 0;
  97. #X connect 24 0 7 0;
  98. #X connect 25 0 26 0;
  99. #X connect 25 1 26 1;
  100. #X connect 25 1 45 1;
  101. #X connect 25 1 46 1;
  102. #X connect 26 0 45 0;
  103. #X connect 26 1 46 0;
  104. #X connect 27 0 47 0;
  105. #X connect 28 0 25 0;
  106. #X connect 29 0 30 0;
  107. #X connect 29 1 30 1;
  108. #X connect 29 1 40 1;
  109. #X connect 29 1 41 1;
  110. #X connect 30 0 40 0;
  111. #X connect 30 1 41 0;
  112. #X connect 31 0 42 0;
  113. #X connect 32 0 29 0;
  114. #X connect 33 0 34 0;
  115. #X connect 33 1 34 1;
  116. #X connect 33 1 50 1;
  117. #X connect 33 1 51 1;
  118. #X connect 34 0 50 0;
  119. #X connect 34 1 51 0;
  120. #X connect 35 0 52 0;
  121. #X connect 36 0 33 0;
  122. #X connect 37 0 22 0;
  123. #X connect 38 0 39 0;
  124. #X connect 40 0 31 0;
  125. #X connect 41 0 31 0;
  126. #X connect 43 0 44 0;
  127. #X connect 45 0 27 0;
  128. #X connect 46 0 27 0;
  129. #X connect 48 0 49 0;
  130. #X connect 50 0 35 0;
  131. #X connect 51 0 35 0;
  132. #X connect 53 0 54 0;
  133. #X connect 54 0 55 0;
  134. #X connect 55 0 56 0;
  135. #X connect 56 0 57 0;
  136. #X connect 56 0 63 0;
  137. #X connect 57 0 58 0;
  138. #X connect 58 0 56 1;
  139. #X connect 59 0 60 0;
  140. #X connect 59 1 61 0;
  141. #X connect 60 0 62 0;
  142. #X connect 61 0 62 1;
  143. #X connect 63 0 59 0;