Commit 5321cd5f authored by Ishan Kumar Kaler's avatar Ishan Kumar Kaler
Browse files

Upload pdcontrol test file

parent 039b9ba8
#N canvas -8 -8 1554 786 12;
#X obj 38 26 inlet;
#X obj 38 180 outlet;
#X msg 196 88 vis;
#X obj 196 115 canvasinfo 1;
#N canvas 415 257 450 300 \$0-dir 0;
#X obj 89 155 canvasinfo;
#X msg 89 117 dir;
#X obj 89 194 pack s s;
#X msg 89 223 symbol \$1/\$2;
#X obj 89 48 trigger bang anything bang;
#X obj 287 109 symbol;
#X obj 89 20 inlet;
#X obj 89 252 outlet;
#X obj 156 78 route float list;
#X obj 178 109 list split 1;
#X obj 218 144 route symbol;
#X obj 265 236 print error;
#X msg 265 205 pdcontrol: bad arguments;
#X obj 265 175 b;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 4 1 8 0;
#X connect 4 2 5 0;
#X connect 5 0 10 0;
#X connect 6 0 4 0;
#X connect 8 0 0 1;
#X connect 8 1 9 0;
#X connect 8 2 13 0;
#X connect 9 0 0 1;
#X connect 9 1 10 0;
#X connect 10 0 2 1;
#X connect 10 1 13 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X restore 119 115 pd \$0-dir;
#N canvas 193 66 574 534 \$0-args 0;
#X obj 55 434 canvasinfo;
#X msg 55 68 args;
#X obj 234 68 route float;
#X obj 308 92 b;
#X obj 55 10 inlet;
#X obj 55 463 outlet;
#X obj 234 355 canvasinfo;
#X msg 234 330 boxtext;
#X obj 234 382 list split 1;
#X obj 234 246 until;
#X obj 234 171 trigger anything bang;
#X obj 234 274 f;
#X obj 274 274 + 1;
#X obj 378 199 f 0;
#X obj 234 145 max 1;
#X obj 144 364 f;
#X obj 234 301 t b a a a;
#X obj 55 42 trigger bang bang anything;
#X obj 266 222 r \$0-args-br;
#X obj 315 468 s \$0-args-br;
#X obj 294 437 bang;
#X text 331 436 abstraction boundary;
#X text 327 382 toplevel boundary-- no box text;
#X obj 234 198 until;
#X obj 308 117 f 2;
#X obj 234 92 + 2;
#X text 347 13 A bit tricky... we set canvas level with the float arg
to [canvasinfo]. But for args \, the user doesn't want to specify canvas
level but rather "root" level as defined in canvas_getrootfor of g_canvas.c.
, f 30;
#X obj 234 407 select pd page;
#X text 411 167 To accommodate this \, we leverage the fact that "boxtext"
can only be "pd" or "page" for subpatches (graphs in Purr Data cannot
contain objects). This way we can climb the user-specified number of
"root" canvas + however many subpatches..., f 21;
#X text 95 306 total number of canvases to climb, f 14;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 25 0;
#X connect 2 1 3 0;
#X connect 3 0 24 0;
#X connect 4 0 17 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 27 0;
#X connect 8 2 19 0;
#X connect 9 0 11 0;
#X connect 10 0 23 0;
#X connect 10 1 13 0;
#X connect 11 0 16 0;
#X connect 12 0 11 1;
#X connect 13 0 11 1;
#X connect 14 0 10 0;
#X connect 15 0 0 1;
#X connect 16 0 7 0;
#X connect 16 1 6 1;
#X connect 16 2 12 0;
#X connect 16 3 15 1;
#X connect 17 0 1 0;
#X connect 17 1 15 0;
#X connect 17 2 2 0;
#X connect 18 0 9 1;
#X connect 20 0 19 0;
#X connect 23 0 9 0;
#X connect 24 0 14 0;
#X connect 25 0 14 0;
#X connect 27 2 20 0;
#X restore 38 115 pd \$0-args;
#X obj 38 55 route args dir isvisible browse;
#N canvas -8 -8 1538 803 \$0-browse 1;
#X obj 311 12 inlet;
#X obj 326 193 symbol https://google.com;
#N canvas 911 279 402 318 browse-patch 0;
#X obj 40 40 pddplink http://puredata.info -box;
#X obj 0 0 r open-page;
#X connect 1 0 0 0;
#X restore 758 51 pd browse-patch;
#X msg 503 128 \; pd-browse-patch clear;
#X obj 258 208 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 98 398 s open-page;
#X obj 185 283 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 97 361 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X msg 255 295 \; pd-browse-patch obj 0 0 r open-page;
#X msg 180 345 \; pd-browse-patch connect 1 0 0 0;
#X msg 343 251 \; pd-browse-patch obj 40 40 pddplink \$1 -box;
#X text 422 39 toggling from right to left;
#X msg 394 54;
#X obj 274 74 t b b b a b;
#X connect 0 0 12 0;
#X connect 0 0 13 0;
#X connect 1 0 10 0;
#X connect 4 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 5 0;
#X connect 13 0 7 0;
#X connect 13 1 6 0;
#X connect 13 2 4 0;
#X connect 13 3 1 0;
#X connect 13 4 3 0;
#X restore 323 114 pd \$0-browse;
#X connect 0 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 6 1 4 0;
#X connect 6 2 2 0;
#X connect 6 3 7 0;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment