From 3f05771340e68450a712681277a6ab28fc73a32c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Mon, 26 Jun 2006 08:58:38 +0000 Subject: remove duplicate symbols svn path=/trunk/externals/zexy/; revision=5301 --- abs/uniqsym-help.pd | 29 +++++++++++++++++ abs/uniqsym.pd | 91 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 120 insertions(+) create mode 100644 abs/uniqsym-help.pd create mode 100644 abs/uniqsym.pd (limited to 'abs') diff --git a/abs/uniqsym-help.pd b/abs/uniqsym-help.pd new file mode 100644 index 0000000..64fb04f --- /dev/null +++ b/abs/uniqsym-help.pd @@ -0,0 +1,29 @@ +#N canvas 145 -43 722 431 10; +#X text 564 24 part of zexy; +#X text 97 30 remove duplicate symbols from a list or a stream; +#X obj 45 268 uniqsym; +#X obj 35 29 uniqsym; +#X obj 45 302 print uniq; +#X msg 73 165 bang; +#X msg 45 87 reset; +#X text 39 69 clear the current list of values; +#X text 57 110 add symbols to the list of values; +#X text 76 149 remove duplicate values \, sort the entire list and +output it; +#X msg 56 126 symbol trigger \, symbol pang \, symbol pang; +#X msg 100 188 list chitty chitty pang pang; +#X msg 117 243 mode \$1; +#X obj 117 223 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X text 187 244 output as list (0=default) \, or as stream of single +symbols (1); +#X text 529 411 updated for zexy-2.2; +#X obj 44 369 uniqsym 1; +#X text 131 368 you can specify the mode with a creation argument; +#X connect 2 0 4 0; +#X connect 5 0 2 0; +#X connect 6 0 2 0; +#X connect 10 0 2 0; +#X connect 11 0 2 0; +#X connect 12 0 2 0; +#X connect 13 0 12 0; diff --git a/abs/uniqsym.pd b/abs/uniqsym.pd new file mode 100644 index 0000000..4f3d0b0 --- /dev/null +++ b/abs/uniqsym.pd @@ -0,0 +1,91 @@ +#N canvas 144 0 541 589 10; +#X obj 26 104 inlet; +#X obj 123 178 symbol; +#X msg 26 246 compact \, sort \, bang \, dump; +#X msg 123 199 add \$1; +#X msg 74 269 reset; +#X obj 26 219 t b; +#X obj 26 322 index; +#X obj 26 294 nop; +#X obj 26 537 outlet; +#X obj 74 221 t b; +#X text 21 11 filter out duplicate names; +#X text 21 37 any symbol that comes in \, gets added to a list of symbols. +; +#X text 20 51 when "bang" is received \, the symbols are output as +a sorted list with uniqs removed.; +#X text 22 79 "reset" cleans the entire list; +#X obj 26 345 route list float; +#X text 403 156 part of zexy; +#X obj 245 202 repack 1; +#X obj 220 177 t b l b; +#X obj 79 468 spigot; +#X obj 26 468 spigot; +#X obj 122 447 == 0; +#X obj 87 427 t f f; +#X obj 79 497 repack; +#N canvas 0 0 653 431 LICENSE 0; +#X text 195 60 forum::fuer::umlaeute; +#X text 195 79 institute of electronic music and acoustics \, IEM; +#X text 197 95 university of music and dramatic arts \, graz \, austria +; +#X text 19 165 This program is free software \; you can redistribute +it and/or modify it under the terms of the GNU General Public License +as published by the Free Software Foundation \; either version 2 of +the License \, or (at your option) any later version.; +#X text 19 246 This program is distributed in the hope that it will +be useful \, but WITHOUT ANY WARRANTY \; without even the implied warranty +of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +General Public License for more details.; +#X text 20 326 You should have received a copy of the GNU General Public +License along with this program \; if not \, write to the Free Software +Foundation \, Inc. \, 51 Franklin St \, Fifth Floor \, Boston \, MA +02110-1301 USA; +#X text 17 42 copyright (C) 2006 IOhannes m zmoelnig; +#X text 175 118 zmoelnig iem.at; +#X text 239 117 @; +#X restore 405 180 pd LICENSE; +#X obj 220 154 list; +#X floatatom 140 431 5 0 0 0 - - -; +#X obj 87 407 i \$1; +#X obj 26 366 symbol; +#X obj 26 387 t s b; +#X obj 26 446 t s s; +#X obj 26 127 route bang reset add symbol list mode; +#X obj 268 152 t f; +#X connect 0 0 30 0; +#X connect 1 0 3 0; +#X connect 2 0 7 0; +#X connect 3 0 7 0; +#X connect 4 0 7 0; +#X connect 5 0 2 0; +#X connect 6 0 14 0; +#X connect 7 0 6 0; +#X connect 9 0 4 0; +#X connect 14 0 27 0; +#X connect 14 1 22 1; +#X connect 16 0 1 0; +#X connect 17 0 5 0; +#X connect 17 1 16 0; +#X connect 17 2 4 0; +#X connect 18 0 22 0; +#X connect 19 0 8 0; +#X connect 20 0 18 1; +#X connect 21 0 19 1; +#X connect 21 1 20 0; +#X connect 22 0 8 0; +#X connect 24 0 17 0; +#X connect 26 0 21 0; +#X connect 26 0 25 0; +#X connect 27 0 28 0; +#X connect 28 0 29 0; +#X connect 28 1 26 0; +#X connect 29 0 19 0; +#X connect 29 1 18 0; +#X connect 30 0 5 0; +#X connect 30 1 9 0; +#X connect 30 2 1 0; +#X connect 30 3 1 0; +#X connect 30 4 24 0; +#X connect 30 5 31 0; +#X connect 31 0 26 1; -- cgit v1.2.1