1 files changed, 47 insertions, 0 deletions
diff --git a/sfruit/btn.pd b/sfruit/btn.pd
new file mode 100644
index 0000000..0d9051a
--- /dev/null
+++ b/sfruit/btn.pd
@@ -0,0 +1,47 @@
+#N canvas 361 196 433 465 10;
+#X declare -lib list-abs;
+#X text -117 -87 at size 11 letters are 7px wide;
+#X obj -50 348 hradio 15 1 0 4 \$0radio \$0radioR empty 0 -8 0 10 -262144
+-1 -1 0;
+#X obj -49 349 cnv 13 118 13 empty \$0canvas boobies 3 6 0 11 -233017
+-66577 0;
+#X text -118 -45 subtract difference add half to text xoffset;
+#X text -117 -67 div result + 2 \, then add 1 extra radio;
+#X obj -61 38 s2l-explode;
+#X msg -61 -2 boobies;
+#X obj -61 17 t a a;
+#X obj 65 17 s \$0canvas;
+#X obj -61 59 list-len;
+#X obj -61 80 * 7;
+#X obj -61 124 t a a;
+#X obj -34 146 div 15;
+#X obj -61 102 + 2;
+#X obj -34 168 + 1;
+#X msg 19 242 vis_size \$1 13;
+#X obj 19 201 * 15;
+#X obj 19 222 - 2;
+#X obj 19 263 s \$0canvas;
+#X obj -34 203 t a a;
+#X obj -22 17 prepent label;
+#X msg -34 291 number \$1;
+#X obj -34 314 s \$0radioR;
+#X floatatom 33 159 5 0 0 0 - - -;
+#X obj 185 -61 import list-abs;
+#X connect 5 0 9 0;
+#X connect 6 0 7 0;
+#X connect 7 0 5 0;
+#X connect 7 1 20 0;
+#X connect 9 0 10 0;
+#X connect 10 0 13 0;
+#X connect 11 1 12 0;
+#X connect 12 0 14 0;
+#X connect 13 0 11 0;
+#X connect 14 0 19 0;
+#X connect 15 0 18 0;
+#X connect 16 0 17 0;
+#X connect 17 0 15 0;
+#X connect 19 0 21 0;
+#X connect 19 1 16 0;
+#X connect 20 0 8 0;
+#X connect 21 0 22 0;
+#X connect 23 0 16 0;