From 35994ca3a4ef6a136a16cac63b4f68540d0434e1 Mon Sep 17 00:00:00 2001
From: Frank Barknecht <fbar@users.sourceforge.net>
Date: Fri, 23 Apr 2004 16:22:42 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r1630, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/abstractions/rradical/; revision=1631
---
 control/preseter.pd | 146 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 146 insertions(+)
 create mode 100644 control/preseter.pd

(limited to 'control/preseter.pd')

diff --git a/control/preseter.pd b/control/preseter.pd
new file mode 100644
index 0000000..086c028
--- /dev/null
+++ b/control/preseter.pd
@@ -0,0 +1,146 @@
+#N canvas 375 403 142 128 10;
+#X obj 2 18 cnv 15 138 108 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 197 64 select 31;
+#X obj 197 87 spigot;
+#X obj 267 69 r \$0-auto;
+#N canvas 612 130 450 300 counter 0;
+#X obj 167 89 inlet;
+#X obj 167 260 outlet;
+#X obj 167 151 int 0;
+#X obj 215 151 + 1;
+#X obj 186 186 select 7;
+#X msg 186 117 0;
+#X obj 218 129 r \$0-preset-sel;
+#X obj 264 158 r \$0-preset-repeat;
+#X obj 167 212 mod 8;
+#X obj 264 215 + 1;
+#X connect 0 0 2 0;
+#X connect 2 0 8 0;
+#X connect 3 0 2 1;
+#X connect 4 0 5 0;
+#X connect 5 0 2 1;
+#X connect 6 0 3 0;
+#X connect 7 0 4 1;
+#X connect 7 0 9 0;
+#X connect 8 0 1 0;
+#X connect 8 0 4 0;
+#X connect 9 0 8 1;
+#X restore 236 109 pd counter;
+#X obj 96 60 tgl 16 0 \$0-auto \$0-auto-r auto 0 -6 0 8 -262144 -1
+-1 1 1;
+#X obj 10 36 hradio 10 0 0 8 \$0-preset-repeat \$0-preset-repeat preset-repeat
+0 -6 0 8 -233017 -1 -1 1;
+#X obj 10 59 hradio 10 0 0 8 \$0-preset-sel \$0-preset-sel preset-sel
+0 -6 0 8 -225271 -1 -1 1;
+#X obj 9 82 hradio 10 1 0 10 \$0-preset-folder \$0-preset-folder-r
+preset-folder 0 -6 0 8 -261681 -1 -1 0;
+#X obj 236 131 s \$0-preset-sel;
+#X obj 237 158 r \$0-preset-folder;
+#X obj 237 183 * 8;
+#X obj 195 212 + 0;
+#N canvas 586 27 218 188 tempomap 0;
+#X obj 30 11 inlet;
+#X obj 95 164 outlet;
+#X obj 75 13 r \$0-resolution;
+#X obj 30 116 nroute b1 1;
+#X obj 76 71 makefilename b%d;
+#X msg 76 95 \$1;
+#X obj 30 140 unpack s 0;
+#X obj 75 52 expr pow(2 \, $f1);
+#X obj 75 32 int;
+#X obj 141 106 s \$0-res;
+#X connect 0 0 3 0;
+#X connect 2 0 8 0;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 3 1;
+#X connect 6 1 1 0;
+#X connect 7 0 4 0;
+#X connect 7 0 9 0;
+#X connect 8 0 7 0;
+#X restore 197 24 pd tempomap;
+#X obj 11 105 hsl 28 15 0 5 0 0 \$0-resolution \$0-resolution resol
+-2 -6 0 8 -128992 -143491 -1 2100 1;
+#X obj 45 106 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-res empty 0 -6 0
+8 -195568 -143491 -1 8 256;
+#X obj 195 259 outlet;
+#X msg 195 234 /*/preset \$1;
+#X obj 79 108 nbx 2 12 0 31 0 0 \$0-last \$0-last last 0 -6 0 8 -195568
+-143491 -1 31 256;
+#X obj 285 11 r \$0-last;
+#X obj 197 1 inlet;
+#X obj 198 44 mod 32;
+#X obj 287 35 + 1;
+#X obj 465 31 inlet OSC;
+#N canvas 232 333 981 424 saves 0;
+#X msg 15 103 set;
+#X msg 45 104 substate \$1;
+#X obj 15 78 t b f;
+#X obj 45 160 originator \$1 \$0;
+#X obj 152 132 inlet OSC;
+#X obj 47 55 r \$0-substate;
+#X obj 15 13 inlet substate;
+#X obj 15 35 route substate;
+#X obj 159 55 r \$0-copy;
+#X msg 159 76 copy;
+#X obj 243 50 r \$0-paste;
+#X msg 241 71 paste;
+#X text 154 15 This is the originator \, including some ready to use
+standard functionality.;
+#X text 507 56 Put your commun sends here \, if you like.;
+#X obj 507 86 r \$0-last;
+#X obj 507 110 commun /last \$0;
+#X obj 507 135 s \$0-last;
+#X obj 508 162 r \$0-preset-repeat;
+#X obj 508 186 commun /preset-repeat \$0;
+#X obj 508 211 s \$0-preset-repeat;
+#X obj 508 308 r \$0-preset-folder;
+#X obj 508 332 commun /preset-folder \$0;
+#X obj 508 356 s \$0-preset-folder-r;
+#X obj 507 237 r \$0-resolution;
+#X obj 507 261 commun /resol \$0;
+#X obj 507 286 s \$0-resolution;
+#X connect 0 0 3 0;
+#X connect 1 0 3 0;
+#X connect 2 0 0 0;
+#X connect 2 1 1 0;
+#X connect 4 0 3 1;
+#X connect 5 0 2 0;
+#X connect 6 0 7 0;
+#X connect 7 0 2 0;
+#X connect 7 1 3 0;
+#X connect 8 0 9 0;
+#X connect 9 0 3 0;
+#X connect 10 0 11 0;
+#X connect 11 0 3 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 23 0 24 0;
+#X connect 24 0 25 0;
+#X restore 414 56 pd saves;
+#X obj 415 8 r \$0-restore;
+#X obj 97 33 bng 15 250 50 0 \$0-restore \$0-restore restore 0 -6 0
+8 -260818 -1 -1;
+#X connect 1 0 2 0;
+#X connect 2 0 4 0;
+#X connect 3 0 2 1;
+#X connect 4 0 9 0;
+#X connect 4 0 12 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 1;
+#X connect 12 0 17 0;
+#X connect 13 0 21 0;
+#X connect 17 0 16 0;
+#X connect 19 0 1 1;
+#X connect 19 0 22 0;
+#X connect 20 0 13 0;
+#X connect 21 0 1 0;
+#X connect 22 0 21 1;
+#X connect 23 0 24 1;
+#X connect 25 0 24 0;
+#X coords 0 0 1 1 140 128 1;
-- 
cgit v1.2.1