Skip to content

Commit

Permalink
update helps for abstractions
Browse files Browse the repository at this point in the history
  • Loading branch information
pierreguillot committed Aug 25, 2017
1 parent be183eb commit 78a58b8
Show file tree
Hide file tree
Showing 3 changed files with 212 additions and 11 deletions.
201 changes: 201 additions & 0 deletions pd/abs/2d/additive.pd
Original file line number Diff line number Diff line change
@@ -0,0 +1,201 @@
#N canvas 327 410 661 303 10;
#X obj 70 233 outlet;
#X obj 480 8 array define \$0-outputs;
#X obj 263 11 inlet;
#X obj 263 58 array size \$0-outputs;
#X obj 263 34 route nls;
#X obj 21 7 inlet gains;
#X obj 127 7 inlet spread;
#X obj 127 29 t f b;
#X msg 154 52 const 0;
#X obj 154 74 s \$0-outputs;
#N canvas 0 22 208 371 get.power 0;
#X obj 10 5 inlet;
#X obj 37 72 array size \$0-outputs;
#X obj 37 94 t f b, f 7;
#X obj 37 116 until;
#X obj 76 116 f 0;
#X obj 37 138 f, f 7;
#X obj 86 138 + 1;
#X obj 37 182 t f f;
#X obj 37 204 *, f 5;
#X obj 37 226 +, f 7;
#X obj 87 226 f;
#X obj 10 248 f, f 5;
#X obj 10 28 t b b;
#X obj 37 50 t b b, f 7;
#X obj 76 204 f 0;
#X obj 10 313 outlet;
#X msg 10 270 \$1 1;
#X obj 10 292 /;
#X obj 37 160 array get \$0-outputs 0 1;
#X connect 0 0 12 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 5 0 18 0;
#X connect 6 0 5 1;
#X connect 7 0 8 0;
#X connect 7 1 8 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 11 1;
#X connect 10 0 9 1;
#X connect 11 0 16 0;
#X connect 12 0 11 0;
#X connect 12 1 13 0;
#X connect 13 0 1 0;
#X connect 13 1 14 0;
#X connect 14 0 9 1;
#X connect 16 0 17 0;
#X connect 17 0 15 0;
#X connect 18 0 7 0;
#X restore 70 166 pd get.power;
#N canvas 0 22 450 300 do.normalize 0;
#X obj 56 66 array size \$0-outputs;
#X obj 56 88 t f b, f 7;
#X obj 56 110 until;
#X obj 95 110 f 0;
#X obj 56 132 f, f 7;
#X obj 105 132 + 1;
#X obj 56 44 t b f, f 7;
#X obj 56 196 *, f 7;
#X obj 56 174 array get \$0-outputs 0 1;
#X obj 56 218 array set \$0-outputs;
#X obj 56 154 t f f, f 10;
#X obj 17 24 t b f, f 7;
#X obj 17 2 inlet;
#X obj 17 242 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 10 0;
#X connect 5 0 4 1;
#X connect 6 0 0 0;
#X connect 6 1 7 1;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 10 0 8 0;
#X connect 10 1 9 1;
#X connect 11 0 13 0;
#X connect 11 1 6 0;
#X connect 12 0 11 0;
#X restore 70 189 pd do.normalize;
#N canvas 0 22 450 300 do.add 0;
#X obj 17 2 inlet;
#X obj 17 48 list split 1;
#X obj 97 48 list;
#X obj 56 93 f 0;
#X obj 17 115 f, f 7;
#X obj 66 115 + 1;
#X obj 17 25 t l b, f 7;
#X obj 17 156 array get \$0-outputs 0 1;
#X obj 17 202 array set \$0-outputs;
#X obj 17 136 t f f, f 10;
#X obj 17 178 +, f 5;
#X obj 17 70 t b f;
#X obj 17 93 t b b;
#X connect 0 0 6 0;
#X connect 1 0 11 0;
#X connect 1 1 2 1;
#X connect 2 0 1 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 4 1;
#X connect 6 0 1 0;
#X connect 6 1 3 0;
#X connect 7 0 10 0;
#X connect 9 0 7 0;
#X connect 9 1 8 1;
#X connect 10 0 8 0;
#X connect 11 0 12 0;
#X connect 11 1 10 1;
#X connect 12 0 2 0;
#X connect 12 1 10 1;
#X connect 12 1 4 0;
#X restore 48 52 pd do.add;
#X obj 70 211 array get \$0-outputs;
#N canvas 277 338 314 441 do.wide 0;
#X obj 56 196 array size \$0-outputs;
#X obj 56 218 t f b, f 7;
#X obj 56 240 until;
#X obj 95 240 f 0;
#X obj 56 262 f, f 7;
#X obj 105 262 + 1;
#X obj 56 304 array get \$0-outputs 0 1;
#X obj 56 348 array set \$0-outputs;
#X obj 56 284 t f f, f 10;
#X obj 17 2 inlet;
#X obj 17 372 outlet;
#X obj 17 174 t b b, f 7;
#X obj 56 326 +, f 7;
#X obj 95 24 t f f, f 6;
#X obj 95 2 inlet;
#X obj 128 46 > 70;
#X obj 95 46 - 70;
#X obj 95 68 / 30;
#X obj 95 90 t f f;
#X obj 95 112 *, f 5;
#X obj 95 134 * 10;
#X obj 95 156 *, f 6;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 8 0;
#X connect 5 0 4 1;
#X connect 6 0 12 0;
#X connect 8 0 6 0;
#X connect 8 1 7 1;
#X connect 9 0 11 0;
#X connect 11 0 10 0;
#X connect 11 1 0 0;
#X connect 12 0 7 0;
#X connect 13 0 16 0;
#X connect 13 1 15 0;
#X connect 14 0 13 0;
#X connect 15 0 21 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 19 1;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 12 1;
#X restore 70 144 pd do.wide;
#X obj 21 77 until;
#X obj 60 77 f 0;
#X obj 21 99 f, f 7;
#X obj 70 99 + 1;
#X obj 70 121 sel;
#X obj 21 29 t b l;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 19 1;
#X connect 5 0 20 0;
#X connect 6 0 7 0;
#X connect 7 0 14 1;
#X connect 7 1 8 0;
#X connect 7 1 16 0;
#X connect 8 0 9 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 13 0 0 0;
#X connect 14 0 10 0;
#X connect 15 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 18 0;
#X connect 18 0 17 1;
#X connect 18 0 19 0;
#X connect 19 0 14 0;
#X connect 20 0 15 0;
#X connect 20 1 12 0;
16 changes: 8 additions & 8 deletions pd/abs/p.mdap-help.pd
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
#N canvas 252 223 566 223 10;
#N canvas 252 223 662 221 10;
#X obj 13 111 text define -k \$0-angles;
#A set stereo 45 -45 \; square 0 90 180 270 \; octo 0 45 90 135 180
225 270 315 \; five 0 30 110 250 330 \; cube 45 35.3 135 35.3 225 35.3
Expand All @@ -13,16 +13,16 @@
#X text 9 14 Angle of the virtual source in degrees, f 21;
#X text 9 212 Gains of the loudspkeakers, f 13;
#X obj 11 49 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-262144 -1 -1 0 256;
-262144 -1 -1 43 256;
#X obj 11 142 list prepend set;
#X obj 11 164 list trim;
#X msg 11 186 0.515598 0.57099 0.478711 0.423042;
#X msg 11 186 0.696089 0.6697 0.178664 0.187194;
#X obj 230 47 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 250 45 print;
#X obj 11 98 pack f f, f 25;
#X obj 158 49 nbx 5 14 0 100 0 0 empty empty empty 0 -8 0 10 -262144
-1 -1 0 256;
-1 -1 78 256;
#X text 159 14 Spread factor in degrees (between 0 - 100), f 26;
#X obj 131 68 t b f;
#X obj 11 120 p.mdap 2d text \$0-angles square, f 37;
Expand All @@ -41,25 +41,25 @@
#X obj 11 11 cnv 15 65 18 empty empty p.mdap 2 8 0 14 -262144 -66577
0;
#X text 100 12 by Pierre Guillot - 2016 - 2017;
#X coords 0 -1 1 1 286 20 2 10 10;
#X coords 0 -1 1 1 313 20 2 10 10;
#X restore 9 7 pd header;
#N canvas 213 163 355 267 example.3d.dodecahedron 0;
#N canvas 213 163 405 258 example.3d.dodecahedron 0;
#X obj 25 138 list prepend set;
#X obj 25 160 list trim;
#X obj 244 79 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 25 182 0 0.102927 0 0.727 0.656301 0 0.173625 0 0 0 0 0;
#X msg 264 79 print;
#X obj 25 46 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-262144 -1 -1 57 256;
-262144 -1 -1 0 256;
#X obj 95 47 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-262144 -1 -1 0 256;
#X obj 95 66 t b f;
#X text 25 14 Angles of the virtual source in degrees, f 21;
#X text 23 202 Gains of the loudspkeakers, f 13;
#X obj 25 94 pack f f f, f 28;
#X obj 163 49 nbx 5 14 0 100 0 0 empty empty empty 0 -8 0 10 -262144
-1 -1 20 256;
-1 -1 0 256;
#X text 162 14 Spread factor in degrees (between 0 - 100), f 26;
#X obj 163 68 t b f;
#X obj 25 117 p.mdap 3d text \$0-angles dodecahedron;
Expand Down
6 changes: 3 additions & 3 deletions pd/abs/p.vbap-help.pd
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
#N canvas 458 131 569 280 10;
#N canvas 458 131 654 284 10;
#X text 10 34 An abstraction that computes the gains of a set of loudspeakers
for the spatialization of a virtual source using V. Pulkki's Vector
Base Amplitude Panning technique., f 90;
Expand Down Expand Up @@ -51,12 +51,12 @@ Base Amplitude Panning technique., f 90;
#X restore 13 181 pd example.3d.triangle;
#N canvas 0 22 324 203 example.2d.stereo 0;
#X obj 24 43 nbx 5 14 -45 45 0 0 empty \$0-angle empty 0 -8 0 10 -262144
-1 -1 0 256;
-1 -1 -45 256;
#X obj 24 84 list prepend set;
#X obj 24 106 list trim;
#X text 21 10 Angle of the virtual source in degrees, f 21;
#X text 24 149 Gains of the loudspkeakers, f 13;
#X msg 24 128 0.707107 0.707107;
#X msg 24 128 0 1;
#X obj 207 38 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 229 38 print;
Expand Down

0 comments on commit 78a58b8

Please sign in to comment.