From 74120e8f072582c0754da39b489e5b81c393eb21 Mon Sep 17 00:00:00 2001 From: Travis CI Date: Sat, 27 Mar 2021 22:56:33 +0000 Subject: Gem beb70a86ad03d4ac460a416f7ad2f3fd0127228d osx/i386 built 'master:beb70a86ad03d4ac460a416f7ad2f3fd0127228d' for osx/i386 --- Gem/examples/13.recursion/05.n-ary_tree.pd | 120 ++++++++++++++--------------- 1 file changed, 59 insertions(+), 61 deletions(-) (limited to 'Gem/examples/13.recursion/05.n-ary_tree.pd') diff --git a/Gem/examples/13.recursion/05.n-ary_tree.pd b/Gem/examples/13.recursion/05.n-ary_tree.pd index 308f5e5..7c21b45 100644 --- a/Gem/examples/13.recursion/05.n-ary_tree.pd +++ b/Gem/examples/13.recursion/05.n-ary_tree.pd @@ -1,7 +1,7 @@ -#N canvas 6 61 600 605 10; +#N canvas 788 283 600 605 10; #X declare -lib Gem; #X obj 14 66 gemwin; -#X obj 14 9 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1 +#X obj 14 9 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 ; #X msg 48 10 create; #X msg 55 33 destroy; @@ -9,75 +9,73 @@ #X text 170 17 A tutorial on recursion in Gem; #X text 170 37 (GPL) 2007 Claude Heiland-Allen ; -#X obj 30 159 r \$0-recurse; -#X obj 68 133 v \$0-depth; -#X obj 14 113 t a b; -#X floatatom 84 70 5 0 0 2 max-depth - -; -#X obj 14 187 t a a; -#X obj 60 188 circle; -#X obj 14 325 separator; -#X obj 36 536 s \$0-recurse; -#X obj 14 416 t b a b; -#X obj 99 446 v \$0-depth; -#X obj 99 466 - 1; -#X obj 99 486 max 0; -#X obj 99 506 v \$0-depth; -#X obj 36 516 spigot; -#X obj 14 446 v \$0-depth; -#X obj 14 486 v \$0-depth; -#X obj 14 466 + 1; -#X obj 68 113 f 4; -#X obj 14 346 rotate 0 0 0 1; -#X obj 126 303 * 72; -#X obj 14 366 translate 2 0 1 0; -#X obj 14 386 scale 0.35; -#X obj 14 270 nrepeat 5; -#X obj 119 236 t f f; -#X floatatom 118 196 5 0 0 2 count - -; -#X obj 149 259 swap 360; -#X obj 149 282 /; -#X obj 118 215 clip 1 16; -#X obj 84 89 clip 1 6; -#X text 170 77 Recursion can be combined with iteration to make complex +#X obj 30 239 r \$0-recurse; +#X obj 68 213 v \$0-depth; +#X obj 14 193 t a b; +#X floatatom 83 170 5 1 6 2 max-depth - -; +#X obj 14 267 t a a; +#X obj 14 375 separator; +#X obj 36 586 s \$0-recurse; +#X obj 14 466 t b a b; +#X obj 99 496 v \$0-depth; +#X obj 99 516 - 1; +#X obj 99 536 max 0; +#X obj 99 556 v \$0-depth; +#X obj 36 566 spigot; +#X obj 14 496 v \$0-depth; +#X obj 14 536 v \$0-depth; +#X obj 14 516 + 1; +#X obj 68 193 f 4; +#X obj 14 396 rotate 0 0 0 1; +#X obj 156 353 * 72; +#X obj 14 416 translate 2 0 1 0; +#X obj 149 286 t f f; +#X floatatom 149 266 5 1 16 2 count - -; +#X obj 179 309 swap 360; +#X obj 179 332 /; +#X text 230 57 Recursion can be combined with iteration to make complex structures. However \, using the [repeat] from Zexy is no longer enough. Trying to use it with an external counter leads to re-entrancy bugs \, because the [repeat] is retriggered before the counter has finished \, which messes up the counter's internal state. [nrepeat] is a "repeat with a built in counter" \, which is re-entrancy safe.; #X obj 440 9 declare -lib Gem; +#X obj 14 320 nrepeat 4; +#X obj 14 133 scaleXYZ 0.02 0.02 1; +#X obj 60 268 square 0.8; +#X obj 14 113 rotate 20 1 0 0; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 0 0; -#X connect 4 0 9 0; +#X connect 4 0 36 0; #X connect 7 0 11 0; #X connect 9 0 11 0; -#X connect 9 1 24 0; -#X connect 10 0 35 0; -#X connect 11 0 29 0; -#X connect 11 1 12 0; -#X connect 13 0 25 0; -#X connect 15 0 21 0; -#X connect 15 1 20 0; -#X connect 15 2 16 0; +#X connect 9 1 23 0; +#X connect 10 0 23 1; +#X connect 11 0 33 0; +#X connect 11 1 35 0; +#X connect 12 0 24 0; +#X connect 14 0 20 0; +#X connect 14 1 19 0; +#X connect 14 2 15 0; +#X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 17 0 18 0; -#X connect 18 0 19 0; -#X connect 18 0 20 1; -#X connect 20 0 14 0; -#X connect 21 0 23 0; -#X connect 23 0 22 0; -#X connect 24 0 8 0; -#X connect 25 0 27 0; -#X connect 26 0 25 1; -#X connect 27 0 28 0; -#X connect 28 0 15 0; -#X connect 29 0 13 0; -#X connect 29 1 26 0; -#X connect 30 0 29 1; -#X connect 30 1 32 0; -#X connect 31 0 34 0; -#X connect 32 0 33 0; -#X connect 32 1 33 1; -#X connect 33 0 26 1; -#X connect 34 0 30 0; -#X connect 35 0 24 1; +#X connect 17 0 19 1; +#X connect 19 0 13 0; +#X connect 20 0 22 0; +#X connect 22 0 21 0; +#X connect 23 0 8 0; +#X connect 24 0 26 0; +#X connect 25 0 24 1; +#X connect 26 0 14 0; +#X connect 27 0 33 1; +#X connect 27 1 29 0; +#X connect 28 0 27 0; +#X connect 29 0 30 0; +#X connect 29 1 30 1; +#X connect 30 0 25 1; +#X connect 33 0 12 0; +#X connect 33 1 25 0; +#X connect 34 0 9 0; +#X connect 36 0 34 0; -- cgit v1.2.1