aboutsummaryrefslogtreecommitdiff
path: root/nqpoly4/nqpoly4.pd
blob: aaf1cc60cc80f02f2c1029fd0e63a0be8ffa829c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
#N canvas 30 116 975 454 10;
#X obj 16 20 inlet;
#X obj 114 321 outlet;
#X obj 290 198 symbol \$0-poly;
#X obj 93 13 namecanvas \$0-poly;
#X obj 255 167 t b b;
#X obj 289 248 t f f;
#X obj 314 271 + 1;
#X obj 256 143 until;
#X obj 147 234 symbol \$0-poly;
#X obj 172 293 pack s f;
#X msg 169 336 \; \$1 connect \$2 0 1 0;
#X obj 451 197 symbol \$2;
#X obj 547 197 symbol \$3;
#X obj 607 198 symbol \$4;
#X obj 671 197 symbol \$5;
#X obj 736 198 symbol \$6;
#X obj 260 101 - 1;
#X obj 255 123 moses 1;
#X obj 214 20 loadbang;
#X obj 255 77 \$1;
#X obj 415 199 + 1;
#X obj 286 227 f;
#X obj 392 199 f 1;
#X text 294 9 usage: nqpoly <number of objects> <abstraction name>
<up to 4 creation args>;
#X text 680 24 - don't edit a version of this patch that has been instantiated
with any arguments (best to just open the nqpoly.pd file directly)
;
#X text 680 91 - recreate the "t b b b b" object and the nqpwrap object
(in that order) by clicking in them and adding a space at the end.
;
#X text 297 38 don't save this patch unless you follow the instructions
to the right.;
#X text 673 4 editing:;
#X text 684 137 - increment the indicated numbers if you add any objects
;
#X text 176 188 obj index of nqpwrap;
#X text 212 209 increment;
#X text 350 221 index of "t b b b b" (increment);
#X text 336 390 the first argument to the last connect message must
be the index of the "t b b b b" object (increment);
#X text 679 70 - delete the connection coming from nqpwrap's outlet
;
#X text 313 88 your abstraction is ultimately called with the parameters:
<index> <number of objects> <arg1> <arg2> <arg3> <arg4>;
#X obj 294 295 pack f f s s f f s s s s;
#X text 18 410 nqpoly (v4) - pix.test.at;
#X obj 517 198 \$1;
#X obj 188 209 42;
#X obj 316 220 + 41;
#X msg 302 327 \; \$3 obj 5 100 nqpwrap4 \$4 \$5 \$6 \$7 \$8 \$9 \$10
\; \$3 connect \$1 0 \$2 0 \; \$3 connect 41 0 \$2 1;
#X obj 216 48 t b b b b;
#X obj 19 117 nqpwrap4 \$2 0 \$1 \$3 \$4 \$5 \$6;
#X connect 0 0 42 0;
#X connect 2 0 35 2;
#X connect 4 0 21 0;
#X connect 4 1 11 0;
#X connect 4 1 12 0;
#X connect 4 1 13 0;
#X connect 4 1 14 0;
#X connect 4 1 2 0;
#X connect 4 1 15 0;
#X connect 4 1 22 0;
#X connect 4 1 37 0;
#X connect 5 0 35 0;
#X connect 5 1 6 0;
#X connect 6 0 9 1;
#X connect 6 0 35 1;
#X connect 7 0 4 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 11 0 35 3;
#X connect 12 0 35 6;
#X connect 13 0 35 7;
#X connect 14 0 35 8;
#X connect 15 0 35 9;
#X connect 16 0 17 0;
#X connect 17 1 7 0;
#X connect 18 0 41 0;
#X connect 19 0 16 0;
#X connect 20 0 22 1;
#X connect 21 0 5 0;
#X connect 22 0 20 0;
#X connect 22 0 35 4;
#X connect 22 0 39 0;
#X connect 35 0 40 0;
#X connect 37 0 35 5;
#X connect 38 0 9 1;
#X connect 39 0 21 1;
#X connect 41 0 42 1;
#X connect 41 1 8 0;
#X connect 41 2 19 0;
#X connect 41 3 38 0;