[PD] dynamic abstractions

[sokratesla]

# Hi everybody,
# I want to make a "dynamic" abstraction. With "dynamic" I mean that the
patch of the abstraction will be built according to creation arguments. ie,
the number of steps of a sequencer will be a variable. (I attached such a
sequencer I made in "sampleAbstractionWithGOP.zip" But this example is
static. It have 16 steps. I thought that making a new abstraction for every
different step number is uncool.)
# So I made a patch which creates another patch, with a variable number of
toggles for steps. (attached in "dynpatch.zip") (I found the code for
creating and connecting object in patch, in an PDDP tutorial. "
23.EXERCISE-hmmm.pd") But I couldn't figure out how to activate the Graph on
Parent feature. And I wonder that whether there is another way than using
this patch-creator for creating a seq. abstraction for a given number of
steps and saving that automatically created patch and using it in an parent
patch by typing its name. Is it possible to just typing something like [seq
9] and an abstraction with 9 steps is created in the parent patch?
-ugur guney-
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20060716/60aaa9dc/attachment.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: sampleAbstractionWithGOP.zip
Type: application/zip
Size: 2012 bytes
Desc: not available
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20060716/60aaa9dc/attachment.zip>
-------------- next part --------------
#N canvas 109 295 687 523 12;
#X msg 258 120 \; pd filename u2.pd /tmp \; #N canvas \; #X pop 1 \;
;
#X obj 43 114 until;
#X obj 75 151 + 1;
#X obj 43 151 f;
#X obj 43 175 t f f f f;
#N canvas 0 0 462 312 createToggles 0;
#X obj 88 49 inlet;
#X obj 88 75 expr $f1*15+30;
#X obj 88 125 s pd-u2.pd;
#X msg 88 100 obj \$1 40 tgl;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X restore 110 209 pd createToggles;
#N canvas 0 0 458 308 createFloats 0;
#X obj 90 89 expr $f1*30+30;
#X msg 90 113 obj \$1 150 f 0;
#X obj 90 136 s pd-u2.pd;
#X obj 90 56 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X restore 87 233 pd createFloats;
#N canvas 0 0 462 312 connectTgl2Flt 0;
#X obj 61 70 expr 2*$f1 \; 2*$f1+1 \;;
#X obj 61 110 pack f f;
#X msg 61 135 connect \$1 0 \$2 1;
#X obj 61 186 s pd-u2.pd;
#X obj 61 23 inlet;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 0 0;
#X restore 65 255 pd connectTgl2Flt;
#X obj 99 124 r reset;
#X obj 200 100 s nTgl;
#X msg 200 65 7;
#X obj 43 85 r nTgl;
#N canvas 0 0 462 377 createSelect 0;
#X obj 82 175 sel;
#X obj 101 127 r nTgl;
#X obj 101 151 - 1;
#X obj 82 76 t f f;
#X msg 117 217 obj 30 100 select 0 1 2 3 4 5 6 0 1 2 3 4 5 6;
#X obj 82 34 inlet;
#X obj 117 250 t b a;
#X msg 174 172 set obj 30 100 select;
#X obj 174 150 r reset;
#X obj 152 276 s pd-u2.pd;
#X obj 117 299 outlet;
#X msg 117 102 add2 \$1;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 0 1;
#X connect 3 0 0 0;
#X connect 3 1 11 0;
#X connect 4 0 6 0;
#X connect 5 0 3 0;
#X connect 6 0 10 0;
#X connect 6 1 9 0;
#X connect 7 0 4 0;
#X connect 8 0 7 0;
#X connect 11 0 4 0;
#X restore 43 279 pd createSelect;
#N canvas 26 326 471 365 connectSel2Flt 0;
#X obj 118 4 inlet;
#X obj 118 58 f;
#X obj 137 31 r nTgl;
#X obj 118 82 until;
#X obj 118 116 t b b;
#X obj 153 149 f 0;
#X obj 184 149 + 1;
#X obj 118 310 s pd-u2.pd;
#X obj 118 149 f;
#X obj 118 196 expr 2*$f1 \; $f2 \; 2*$f2+1 \;;
#X obj 118 256 pack f f f;
#X msg 118 282 connect \$1 \$2 \$3 0;
#X obj 61 161 - 1;
#X obj 42 193 sel;
#X obj 43 311 outlet;
#X obj 172 118 r reset;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 0 12 0;
#X connect 2 0 1 1;
#X connect 2 0 8 1;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 4 1 5 0;
#X connect 5 0 6 0;
#X connect 5 0 9 1;
#X connect 5 0 13 0;
#X connect 6 0 5 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 9 2 10 2;
#X connect 10 0 11 0;
#X connect 11 0 7 0;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
#X connect 15 0 5 1;
#X restore 43 302 pd connectSel2Flt;
#N canvas 147 314 458 342 connectFlt2Out 0;
#X obj 166 13 inlet;
#X obj 166 280 s pd-u2.pd;
#X obj 166 90 until;
#X obj 166 66 f;
#X obj 185 40 r nTgl;
#X obj 166 131 f;
#X obj 218 89 r reset;
#X obj 198 131 + 1;
#X msg 166 237 connect \$1 0 \$2 0;
#X obj 166 215 pack f f;
#X obj 265 144 r nTgl;
#X obj 166 173 expr 2*$f1+1 \; 2*$f2+1;
#X obj 18 175 expr 2*$f1+1 \; 2*$f1+3 \;;
#X obj 18 212 pack f f;
#X msg 18 237 connect \$1 0 \$2 0;
#X connect 0 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 3 0 12 0;
#X connect 4 0 3 1;
#X connect 5 0 7 0;
#X connect 5 0 11 0;
#X connect 6 0 5 1;
#X connect 7 0 5 1;
#X connect 8 0 1 0;
#X connect 9 0 8 0;
#X connect 10 0 11 1;
#X connect 11 0 9 0;
#X connect 11 1 9 1;
#X connect 12 0 13 0;
#X connect 12 1 13 1;
#X connect 13 0 14 0;
#X connect 14 0 1 0;
#X restore 43 350 pd connectFlt2Out;
#N canvas 47 219 478 420 createinletOutlet 0;
#X obj 125 16 inlet;
#X obj 145 298 s pd-u2.pd;
#X msg 187 98 obj 30 70 inlet;
#X obj 164 153 r nTgl;
#X obj 145 178 f;
#X msg 145 274 connect \$1 0 \$2 0;
#X obj 145 207 expr 2*$f1+2 \; 2*$f1;
#X obj 145 249 pack f f;
#X obj 125 337 outlet;
#X msg 208 73 obj 30 200 sel 1;
#X obj 125 42 t b b b b b;
#X msg 166 124 obj 30 230 outlet;
#X obj 246 166 s pd-u2.pd;
#X connect 0 0 10 0;
#X connect 2 0 12 0;
#X connect 3 0 4 1;
#X connect 4 0 6 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 6 1 7 1;
#X connect 7 0 5 0;
#X connect 9 0 12 0;
#X connect 10 0 8 0;
#X connect 10 1 4 0;
#X connect 10 2 11 0;
#X connect 10 3 2 0;
#X connect 10 4 9 0;
#X connect 11 0 12 0;
#X restore 43 326 pd createinletOutlet;
#N canvas 0 0 454 304 reset 0;
#X obj 73 64 inlet;
#X obj 155 126 s pd-u2.pd;
#X msg 155 99 clear;
#X obj 155 68 r reset;
#X msg 73 89 0;
#X obj 73 114 s reset;
#X connect 0 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X restore 494 75 pd reset;
#X msg 494 48 reset;
#X obj 200 9 loadbang;
#X obj 200 33 t b b;
#X text 233 66 number of steps;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 2 0;
#X connect 3 0 4 0;
#X connect 4 0 12 0;
#X connect 4 1 7 0;
#X connect 4 2 6 0;
#X connect 4 3 5 0;
#X connect 8 0 3 1;
#X connect 10 0 9 0;
#X connect 11 0 1 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 15 0 14 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 19 0 10 0;
#X connect 19 1 0 0;