From b55f64ad45b4d390f2f373abe54347739b17f26e Mon Sep 17 00:00:00 2001 From: Cyrille Henry Date: Wed, 10 Nov 2010 11:51:42 +0000 Subject: move editor to msd svn path=/trunk/externals/nusmuk/; revision=14364 --- msd/editor/make_circ.pd | 89 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 89 insertions(+) create mode 100644 msd/editor/make_circ.pd (limited to 'msd/editor/make_circ.pd') diff --git a/msd/editor/make_circ.pd b/msd/editor/make_circ.pd new file mode 100644 index 0000000..839f493 --- /dev/null +++ b/msd/editor/make_circ.pd @@ -0,0 +1,89 @@ +#N canvas 496 414 573 483 10; +#X obj 79 355 pack 0 0; +#X obj 79 388 outlet; +#X obj 235 67 unpack 0 0 0 0; +#X obj 235 233 s \$0-x0; +#X obj 274 205 s \$0-y0; +#X obj 312 173 s \$0-radius; +#X obj 352 150 s \$0-masses; +#X obj 235 43 inlet; +#X obj 79 34 inlet; +#X obj 130 332 + 0; +#X obj 149 304 r \$0-y0; +#X obj 79 330 + 0; +#X obj 95 304 r \$0-x0; +#N canvas 484 634 450 300 1028-turnme 0; +#X obj 119 48 inlet; +#X obj 119 243 outlet; +#X obj 135 77 r \$0-masses; +#X obj 254 169 r \$0-radius; +#X obj 119 195 expr $f2 * sin($f1) \; $f2 * cos($f1); +#X obj 119 102 / 1; +#X obj 254 242 outlet; +#X obj 119 134 * 6.28319; +#X text 192 132 2 * M_PI; +#X connect 0 0 5 0; +#X connect 2 0 5 1; +#X connect 3 0 4 1; +#X connect 4 0 1 0; +#X connect 4 1 6 0; +#X connect 5 0 7 0; +#X connect 7 0 4 0; +#X restore 79 122 pd \$0-turnme; +#N canvas 0 0 723 519 1028-count 0; +#X text 294 126 count y; +#N canvas 0 0 450 300 1028-count 0; +#X obj 112 28 inlet; +#X obj 116 96 f 0; +#X obj 156 98 + 1; +#X obj 178 52 inlet; +#X msg 175 73 0; +#X obj 118 122 outlet; +#X obj 112 66 until; +#X connect 0 0 6 0; +#X connect 1 0 2 0; +#X connect 1 0 5 0; +#X connect 2 0 1 1; +#X connect 3 0 4 0; +#X connect 4 0 1 1; +#X connect 6 0 1 0; +#X restore 237 228 pd \$0-count; +#X obj 237 103 inlet; +#X obj 237 371 outlet; +#X obj 237 130 t b b; +#X obj 262 176 r \$0-masses; +#X obj 237 197 f 1; +#X connect 1 0 3 0; +#X connect 2 0 4 0; +#X connect 4 0 6 0; +#X connect 4 1 1 1; +#X connect 5 0 6 1; +#X connect 6 0 1 0; +#X restore 79 80 pd \$0-count; +#X obj 235 125 f \$1; +#X obj 274 124 f \$2; +#X obj 312 124 f \$3; +#X obj 352 124 f \$4; +#X obj 352 67 loadbang; +#X connect 0 0 1 0; +#X connect 2 0 15 0; +#X connect 2 1 16 0; +#X connect 2 2 17 0; +#X connect 2 3 18 0; +#X connect 7 0 2 0; +#X connect 8 0 14 0; +#X connect 9 0 0 1; +#X connect 10 0 9 1; +#X connect 11 0 0 0; +#X connect 12 0 11 1; +#X connect 13 0 11 0; +#X connect 13 1 9 0; +#X connect 14 0 13 0; +#X connect 15 0 3 0; +#X connect 16 0 4 0; +#X connect 17 0 5 0; +#X connect 18 0 6 0; +#X connect 19 0 18 0; +#X connect 19 0 17 0; +#X connect 19 0 16 0; +#X connect 19 0 15 0; -- cgit v1.2.1