Hallo, Chris McCormick hat gesagt: // Chris McCormick wrote:

Actually for this kind of surface, you wouldn't need to go through the metro-banging to set borders anymore. (I'm not sure yet how to do this with arrays, though, as you ask in your other mail.)

Attached is a version, which uses the scaling of coordinates in structs to greatly simplify your patch. Note that I also avoided the constant traversal of the graphing subpatch, because that can be very expensive CPU-wise. I avoided it by auto-creating a little abstraction (ctl-parser.pd) that receives the pointer of the newly created graphical control object and caches this. This way, no traversal at all is done and you only get a little "spike" in CPU the moment, you create the new dots.

The other "trick" out of my bag is, that the struct doesn't have fields for "float x float y" at all, these two are always 0 here. Instead I use different fields for the coordinates of the dots: x0 and y0. These two are scaled with (a:b)(a+?:b+?) to keep the whole displayed graph inside of an area of 200x200. Note that the output isn't normalized. You could use for example [list-normalize] out of my [list]-abs collection for this.

Ciao

-- Frank Barknecht _ ______footils.org_ __goto10.org__

#N canvas 225 584 450 300 10; #X obj 119 155 pointer; #X obj 119 99 route \$1; #X obj 119 262 s \$2-result; #X text 234 49 args: id \, \$0; #X obj 119 70 r \$2-pointer; #X obj 133 134 r \$2-readout; #X obj 119 183 get \$2-controller id x0 y0; #X obj 119 228 pack 0 0 0; #X text 229 133 from metro; #X connect 0 0 6 0; #X connect 1 0 0 0; #X connect 4 0 1 0; #X connect 5 0 0 0; #X connect 6 0 7 0; #X connect 6 1 7 1; #X connect 6 2 7 2; #X connect 7 0 2 0;

#N struct 1010-controller float x0 float y0 float id; #N canvas 290 167 668 496 10; #X obj 65 325 print c1; #X obj 316 327 print c2; #X text 70 361 Output: Id (color) x \, y; #X obj 427 374 tgl 15 0 empty empty empty 0 -6 0 8 -1 -262131 -1 0 1; #X obj 426 429 hradio 15 1 0 6 empty empty empty 0 -6 0 8 -1 -262144 -262144 0; #X obj 427 404 bng 15 250 50 0 \$0-clear empty clear 0 -6 0 8 -233017 -1 -1; #X text 311 371 readout on/off:; #X text 311 398 clear all:; #X text 311 426 create more:; #X obj 316 63 control; #X obj 65 61 control; #X connect 9 0 1 0; #X connect 10 0 0 0;

#N canvas 342 32 786 583 10; #N canvas 109 550 751 371 controller 0; #X obj 603 213 makefilename pd-%s; #X msg 603 240 traverse \$1 \, bang; #X obj 603 183 symbol \$0-show; #X obj 603 261 pointer; #X obj 405 322 outlet; #X obj 405 146 inlet; #X obj 23 35 struct \$0-controller float x0 float y0 float id; #X msg 405 261 100 100 \$1; #X obj 405 205 t f b b b b; #X msg 433 171 1; #X obj 405 286 append \$0-controller x0 y0 id; #X obj 24 82 filledpolygon id 999 1 x0(0:200)(0:200) y0(0:200)(0:200) x0(0:200)(10:210) y0(0:200)(0:200) x0(0:200)(10:210) y0(0:200)(10:210) x0(0:200)(0:200) y0(0:200)(10:210); #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X connect 3 0 10 3; #X connect 5 0 8 0; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 4 2 0; #X connect 9 0 8 0; #X connect 10 0 4 0; #X restore 395 114 pd controller; #X obj 244 102 metro 100; #X obj 92 42 tgl 15 0 empty empty empty 0 -6 0 8 -1 -262131 -1 0 1 ; #N canvas 0 0 450 300 1007-pointer-pool 0; #X restore 340 449 pd \$0-pointer-pool; #X obj 589 284 makefilename pd-%s; #X obj 589 254 symbol \$0-pointer-pool; #X msg 654 226 bang; #X obj 395 62 hradio 15 1 0 8 empty empty make_new 0 -6 0 8 -262144 -1 -1 0; #X text 561 81 make colorful; #X obj 395 209 get \$0-controller id; #X obj 517 311 pack 0 \$0 s; #X msg 517 334 \; \$3 obj 100 100 ctl-parser \$1 \$2; #X msg 164 317 clear; #X obj 395 182 t p p; #X obj 395 314 s \$0-pointer; #X obj 395 279 pack 0 p; #X obj 395 238 t f f; #X obj 42 401 r \$0-result; #X obj 244 128 s \$0-readout; #X obj 589 225 loadbang; #N canvas 0 0 590 367 clear-all 0; #X msg 89 155 \; \$1 clear; #X obj 254 134 makefilename pd-%s; #X obj 254 104 symbol \$0-show; #X obj 89 133 makefilename pd-%s; #X obj 89 103 symbol \$0-pointer-pool; #X obj 89 72 t b b; #X obj 89 46 inlet; #X connect 1 0 0 0; #X connect 2 0 1 0; #X connect 3 0 0 0; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 5 1 2 0; #X connect 6 0 5 0; #X restore 164 361 pd clear-all; #X obj 170 338 loadbang; #X text 339 412 cache active pointers to speed up access and avoid frequent subpatch traversal:; #X obj 136 42 hradio 15 1 0 6 empty empty empty 0 -6 0 8 -1 -262144 -262144 0; #X obj 42 487 outlet; #X obj 115 42 bng 15 250 50 0 \$0-clear empty empty 0 -6 0 8 -233017 -1 -1; #X obj 235 338 r \$0-clear; #X obj 395 82 expr 5 * pow(2 \, $f1); #X obj 16 64 cnv 15 210 210 empty empty empty 20 12 0 14 -1 -66577 0; #N canvas 0 0 450 300 1007-show 0; #X coords 0 210 210 0 210 210 1; #X restore 15 64 pd \$0-show; #X obj 496 110 loadbang; #X obj 496 132 del 10; #X msg 496 155 0; #X connect 0 0 13 0; #X connect 1 0 18 0; #X connect 2 0 1 0; #X connect 4 0 10 2; #X connect 5 0 4 0; #X connect 6 0 5 0; #X connect 7 0 27 0; #X connect 9 0 16 0; #X connect 10 0 11 0; #X connect 12 0 20 0; #X connect 13 0 9 0; #X connect 13 1 15 1; #X connect 15 0 14 0; #X connect 16 0 15 0; #X connect 16 1 10 0; #X connect 17 0 24 0; #X connect 19 0 5 0; #X connect 21 0 20 0; #X connect 23 0 27 0; #X connect 26 0 20 0; #X connect 27 0 0 0; #X connect 30 0 31 0; #X connect 31 0 32 0; #X connect 32 0 0 0; #X coords 0 -1 1 1 220 250 1 10 30;