[PD-cvs] externals/iem/iemmatrix/abs mtx_ispeakb-help.pd, NONE, 1.1 mtx_ispeakb.pd, NONE, 1.1 mtx_ispeak-help.pd, 1.1, 1.2

[Franz Zotter]

Update of /cvsroot/pure-data/externals/iem/iemmatrix/abs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28593

Modified Files:
	mtx_ispeak-help.pd 
Added Files:
	mtx_ispeakb-help.pd mtx_ispeakb.pd 
Log Message:
improved version of mtx_ispeak finding peaks at the borders of the matrix.


--- NEW FILE: mtx_ispeakb-help.pd ---
#N canvas 83 338 841 379 10;
#X text 482 28 part of iemmatrix;
#X text 166 69 searches for peaks in the rows of a matrix. peak locations
are set to 1 \, others to 0;
#N canvas 0 0 450 300 convert2tablemsg 0;
#X obj 130 35 inlet;
#X obj 169 216 outlet;
#X obj 130 60 t a a;
#X obj 160 82 mtx_size;
#X obj 130 107 list split 3;
#X obj 220 107 change;
#X msg 220 129 resize \$1;
#X obj 169 154 list prepend 0;
#X connect 0 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 3 0;
#X connect 3 1 5 0;
#X connect 4 1 7 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X restore 33 284 pd convert2tablemsg;
#X obj 33 306 s view_peaks;
#N canvas 0 0 450 300 graph1 0;
#X array view_peaks 20 float 1;
#A 0 0 1 1 0 1 1 1 0 1 1 0 0 1 0 1 1 1 0 0 1;
#X coords 0 1 19 0 200 20 1;
#X restore 327 192 graph;
#N canvas 0 0 450 300 graph1 0;
#X array view_landscape 20 float 1;
#A 0 0 0 0 0 2 2 2 0 0 0 0 2 3 1 3 3 3 0 0 3;
#X coords 0 3 19 0 200 50 1;
#X restore 326 228 graph;
#N canvas 0 0 450 300 convert2tablemsg 0;
#X obj 130 35 inlet;
#X obj 169 216 outlet;
#X obj 130 60 t a a;
#X obj 160 82 mtx_size;
#X obj 130 107 list split 3;
#X msg 220 129 resize \$1;
#X obj 169 154 list prepend 0;
#X obj 220 107 change;
#X connect 0 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 3 0;
#X connect 3 1 7 0;
#X connect 4 1 6 0;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 5 0;
#X restore 172 284 pd convert2tablemsg;
#X obj 33 165 mtx_rand;
#X obj 172 306 s view_landscape;
#X text 268 138 inletA: matrix/vector containing values (landscape)
;
#X text 268 157 outletB: matrix/vector logical 1 at peaks;
#X obj 33 205 mtx_int;
#X obj 33 185 mtx_* 4;
#X msg 33 143 1 20;
#X text 43 34 [mtx_ispeakb];
#X text 301 307 (note: this is the improved version to [mtx_ispeak])
;
#X obj 33 242 mtx_ispeakb;
#X text 300 325 (better performance at the borders of the array);
#X connect 2 0 3 0;
#X connect 6 0 8 0;
#X connect 7 0 12 0;
#X connect 11 0 6 0;
#X connect 11 0 16 0;
#X connect 12 0 11 0;
#X connect 13 0 7 0;
#X connect 16 0 2 0;

Index: mtx_ispeak-help.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/abs/mtx_ispeak-help.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** mtx_ispeak-help.pd	17 Aug 2006 15:51:30 -0000	1.1
--- mtx_ispeak-help.pd	20 Aug 2006 17:32:31 -0000	1.2
***************
*** 1,3 ****
! #N canvas 83 338 841 379 10;
  #X text 482 28 part of iemmatrix;
  #X text 43 34 [mtx_ispeak];
--- 1,3 ----
! #N canvas 553 163 841 379 10;
  #X text 482 28 part of iemmatrix;
  #X text 43 34 [mtx_ispeak];
***************
*** 59,70 ****
  #X obj 33 185 mtx_* 4;
  #X msg 33 143 1 20;
- #X text 301 307 (note: bad performance at edges and larger peaks);
  #X obj 33 242 mtx_ispeak;
  #X connect 3 0 4 0;
  #X connect 7 0 9 0;
  #X connect 8 0 13 0;
  #X connect 12 0 7 0;
! #X connect 12 0 16 0;
  #X connect 13 0 12 0;
  #X connect 14 0 8 0;
! #X connect 16 0 3 0;
--- 59,73 ----
  #X obj 33 185 mtx_* 4;
  #X msg 33 143 1 20;
  #X obj 33 242 mtx_ispeak;
+ #X obj 535 325 mtx_ispeakb;
+ #X text 304 306 (note: bad performance at borders and larger peaks)
+ ;
+ #X text 308 326 for improved version see also:;
  #X connect 3 0 4 0;
  #X connect 7 0 9 0;
  #X connect 8 0 13 0;
  #X connect 12 0 7 0;
! #X connect 12 0 15 0;
  #X connect 13 0 12 0;
  #X connect 14 0 8 0;
! #X connect 15 0 3 0;

--- NEW FILE: mtx_ispeakb.pd ---
#N canvas 639 183 450 611 10;
#X obj 120 32 inlet;
#X obj 120 566 outlet;
#X obj 120 301 t a a;
#X obj 120 342 mtx_&&;
#X obj 180 322 mtx_<= 0;
#X obj 120 322 mtx_>= 0;
#X obj 120 280 mtx_diff row -1;
#X obj 180 303 mtx_roll 1;
#X text 277 252 searches;
#X text 270 277 matrix rows;
#X text 268 303 for peaks;
#X text 248 338 returns 1 at peak location;
#X text 297 360 0 elsewhere;
#X obj 120 75 t a a a a;
#X obj 188 75 mtx_size;
#X obj 249 75 - 1;
#X obj 232 123 mtx_slice;
#X msg 249 95 1 \$1 end \$1;
#X obj 139 147 mtx_concat row;
#X obj 120 174 mtx_slice 1 2 end 2;
#X obj 120 197 mtx_concat row;
#X obj 120 414 t a a;
#X obj 149 436 mtx_size;
#X obj 120 509 mtx_slice;
#X msg 200 477 1 2 end \$1;
#X obj 200 457 - 1;
#X connect 0 0 13 0;
#X connect 2 0 5 0;
#X connect 2 1 7 0;
#X connect 3 0 21 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X connect 6 0 2 0;
#X connect 7 0 4 0;
#X connect 13 0 19 0;
#X connect 13 1 18 0;
#X connect 13 2 16 0;
#X connect 13 3 14 0;
#X connect 14 1 15 0;
#X connect 15 0 17 0;
#X connect 16 0 18 1;
#X connect 17 0 16 1;
#X connect 18 0 20 1;
#X connect 19 0 20 0;
#X connect 20 0 6 0;
#X connect 21 0 23 0;
#X connect 21 1 22 0;
#X connect 22 1 25 0;
#X connect 23 0 1 0;
#X connect 24 0 23 1;
#X connect 25 0 24 0;