[PD-cvs] abstractions/rradical/memento dynamic-commun-help.pd, NONE, 1.1 dynamic-commun.pd, NONE, 1.1 prepent.pd, NONE, 1.1 rrad.f.pd, NONE, 1.1 rrad.symbol.pd, NONE, 1.1 scale-commun.pd, 1.3, 1.4 sr-commun.pd, NONE, 1.1 OSCprepend.pd, 1.1, 1.2 README.txt, 1.1.1.1, 1.2 careGUI.pd, 1.1.1.1, 1.2 careOSC.pd, 1.2, 1.3 caretaker.pd, 1.1.1.1, 1.2 commun.pd, 1.1.1.1, 1.2 memento-help.pd, 1.1, 1.2 netcontrol.pd, 1.1.1.1, 1.2 originator.pd, 1.2, 1.3 rradical.state.pd, 1.1.1.1, 1.2

Frank Barknecht fbar at users.sourceforge.net
Sat Apr 28 09:45:02 CEST 2007


Update of /cvsroot/pure-data/abstractions/rradical/memento
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24725

Modified Files:
	OSCprepend.pd README.txt careGUI.pd careOSC.pd caretaker.pd 
	commun.pd memento-help.pd netcontrol.pd originator.pd 
	rradical.state.pd 
Added Files:
	dynamic-commun-help.pd dynamic-commun.pd prepent.pd rrad.f.pd 
	rrad.symbol.pd scale-commun.pd sr-commun.pd 
Log Message:
removed more externals from Memento. only OSCroute and pool are left.

Index: careGUI.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/rradical/memento/careGUI.pd,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** careGUI.pd	23 Apr 2004 16:21:52 -0000	1.1.1.1
--- careGUI.pd	28 Apr 2007 07:44:59 -0000	1.2
***************
*** 7,11 ****
  -1 -1;
  #X obj 19 1 inlet;
! #X obj 203 30 bng 40 250 50 0 empty empty FILE 0 -6 0 8 -262131 -1
  -1;
  #N canvas 497 329 693 405 guts 0;
--- 7,11 ----
  -1 -1;
  #X obj 19 1 inlet;
! #X obj 187 30 bng 40 250 50 0 empty empty FILE 0 -6 0 8 -262131 -1
  -1;
  #N canvas 497 329 693 405 guts 0;
***************
*** 25,28 ****
--- 25,33 ----
  #X obj 351 139 savepanel;
  #X msg 350 242 savex bla.xml;
+ #X msg 198 306 set;
+ #X obj 191 337 s SET_ALL_RRADICALS;
+ #X obj 261 282 spigot;
+ #X obj 287 260 r \$0-auto;
+ #X obj 172 277 r \$0-set;
  #X connect 0 0 3 0;
  #X connect 1 0 4 0;
***************
*** 31,34 ****
--- 36,40 ----
  #X connect 4 0 6 0;
  #X connect 6 0 9 0;
+ #X connect 6 0 17 0;
  #X connect 6 1 8 0;
  #X connect 11 0 8 0;
***************
*** 36,47 ****
  #X connect 13 0 12 0;
  #X connect 14 0 8 0;
  #X restore 78 0 pd guts;
  #X obj 169 0 outlet;
! #X obj 263 47 bng 15 250 50 0 empty empty reset 0 -6 0 8 -250685 -1
  -1;
! #X msg 260 67 reset;
! #X obj 90 43 bng 15 250 50 0 empty empty print 0 -6 0 8 -261689 -1
  -1;
- #X msg 81 60 print;
  #X connect 1 0 5 0;
  #X connect 2 0 5 1;
--- 42,61 ----
  #X connect 13 0 12 0;
  #X connect 14 0 8 0;
+ #X connect 15 0 16 0;
+ #X connect 17 0 15 0;
+ #X connect 18 0 17 1;
+ #X connect 19 0 15 0;
  #X restore 78 0 pd guts;
  #X obj 169 0 outlet;
! #X obj 243 57 bng 12 250 50 0 empty empty reset 0 -6 0 8 -250685 -1
  -1;
! #X msg 258 75 reset;
! #X obj 84 25 bng 15 250 50 0 empty empty print 0 -6 0 8 -261689 -1
! -1;
! #X msg 103 72 print;
! #X obj 244 24 tgl 15 1 \$0-auto \$0-auto autoload 0 -6 0 8 -260818
! -1 -1 1 1;
! #X obj 84 58 bng 15 250 50 0 \$0-set \$0-set set 0 -6 0 8 -258699 -1
  -1;
  #X connect 1 0 5 0;
  #X connect 2 0 5 1;

Index: caretaker.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/rradical/memento/caretaker.pd,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** caretaker.pd	23 Apr 2004 16:21:52 -0000	1.1.1.1
--- caretaker.pd	28 Apr 2007 07:44:59 -0000	1.2
***************
*** 1,4 ****
  #N canvas 0 0 450 300 10;
- #X obj 198 219 pool;
  #X obj 123 147 symbol \$1;
  #X msg 199 119 pool \$1;
--- 1,3 ----
***************
*** 18,41 ****
  #X msg 326 74 printroot;
  #X obj 148 33 route file save load print;
! #X connect 1 0 4 0;
  #X connect 2 0 0 0;
! #X connect 3 0 1 0;
! #X connect 3 1 2 0;
! #X connect 4 0 0 0;
! #X connect 5 0 6 0;
! #X connect 6 0 0 0;
! #X connect 7 0 0 0;
! #X connect 8 0 17 0;
! #X connect 9 0 5 0;
! #X connect 9 1 7 0;
! #X connect 10 0 1 1;
! #X connect 10 0 5 1;
! #X connect 11 0 3 0;
! #X connect 12 0 9 0;
! #X connect 13 0 0 0;
! #X connect 15 0 0 0;
! #X connect 16 0 0 0;
! #X connect 17 0 10 0;
! #X connect 17 1 11 0;
! #X connect 17 2 12 0;
! #X connect 17 3 16 0;
--- 17,41 ----
  #X msg 326 74 printroot;
  #X obj 148 33 route file save load print;
! #X obj 198 219 pool RRADICAL;
! #X connect 0 0 3 0;
! #X connect 1 0 17 0;
  #X connect 2 0 0 0;
! #X connect 2 1 1 0;
! #X connect 3 0 17 0;
! #X connect 4 0 5 0;
! #X connect 5 0 17 0;
! #X connect 6 0 17 0;
! #X connect 7 0 16 0;
! #X connect 8 0 4 0;
! #X connect 8 1 6 0;
! #X connect 9 0 0 1;
! #X connect 9 0 4 1;
! #X connect 10 0 2 0;
! #X connect 11 0 8 0;
! #X connect 12 0 17 0;
! #X connect 14 0 17 0;
! #X connect 15 0 17 0;
! #X connect 16 0 9 0;
! #X connect 16 1 10 0;
! #X connect 16 2 11 0;
! #X connect 16 3 15 0;

--- NEW FILE: prepent.pd ---
#N canvas 0 0 450 300 10;
#X obj 90 88 inlet;
#X obj 90 205 outlet;
#X obj 90 132 list prepend \$1;
#X obj 90 157 list trim;
#X obj 190 87 inlet;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 2 1;

Index: originator.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/rradical/memento/originator.pd,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** originator.pd	18 Oct 2004 14:35:04 -0000	1.2
--- originator.pd	28 Apr 2007 07:44:59 -0000	1.3
***************
*** 1,3 ****
! #N canvas 260 166 978 591 10;
  #X text 425 22 responsibilities:;
  #X text 98 10 ORIGINATOR (the mixing engineer);
--- 1,3 ----
! #N canvas 221 42 978 591 10;
  #X text 425 22 responsibilities:;
  #X text 98 10 ORIGINATOR (the mixing engineer);
***************
*** 78,83 ****
  #X obj 309 341 symbol;
  #X obj 156 440 t b b;
- #X msg 620 389 set \$1;
- #X obj 563 460 s \$2-in;
  #X obj 197 418 r \$0-set;
  #X obj 148 472 s \$0-set;
--- 78,81 ----
***************
*** 93,99 ****
  #X text 443 248 \$2-RRADICAL-MEMENTO is sent by commun objects;
  #X obj 777 413 s \$2-RRADICAL-OSC;
! #X obj 563 419 prepend RRADICAL.dummy;
  #X obj 385 520 outlet;
! #X obj 235 196 prepend get;
  #N canvas 468 415 450 300 ch2subs 0;
  #X obj 92 39 inlet;
--- 91,97 ----
  #X text 443 248 \$2-RRADICAL-MEMENTO is sent by commun objects;
  #X obj 777 413 s \$2-RRADICAL-OSC;
! #X obj 563 419 prepent RRADICAL.dummy;
  #X obj 385 520 outlet;
! #X obj 235 196 prepent get;
  #N canvas 468 415 450 300 ch2subs 0;
  #X obj 92 39 inlet;
***************
*** 142,147 ****
  #X obj 235 177 t a b;
  #X obj 287 175 s \$0-get-ON;
! #X msg 505 463 set \$1;
! #X obj 448 493 prepend RRADICAL.dummy;
  #X obj 385 493 spigot;
  #X obj 448 544 outlet;
--- 140,144 ----
  #X obj 235 177 t a b;
  #X obj 287 175 s \$0-get-ON;
! #X obj 448 493 prepent RRADICAL.dummy;
  #X obj 385 493 spigot;
  #X obj 448 544 outlet;
***************
*** 175,250 ****
  #X msg 818 270 set \$1;
  #X obj 818 298 s \$2-parentstate;
! #X obj 535 300 prepend set;
  #X obj 764 437 OSCroute /preset /substate;
  #X msg 745 513 /preset \$1;
! #X connect 5 0 66 0;
! #X connect 10 0 54 0;
! #X connect 11 0 61 1;
! #X connect 12 0 66 0;
! #X connect 13 0 66 0;
! #X connect 14 0 31 0;
  #X connect 16 0 17 0;
! #X connect 16 0 81 0;
! #X connect 17 0 27 0;
  #X connect 18 0 20 0;
  #X connect 19 0 20 0;
! #X connect 21 0 65 0;
! #X connect 22 0 26 0;
  #X connect 22 1 19 0;
! #X connect 23 0 36 0;
! #X connect 25 0 6 0;
! #X connect 31 0 35 0;
! #X connect 31 0 80 0;
! #X connect 33 0 61 0;
! #X connect 33 0 79 0;
! #X connect 36 0 24 0;
! #X connect 38 0 40 0;
! #X connect 39 0 28 0;
! #X connect 40 0 28 0;
! #X connect 40 1 39 0;
! #X connect 41 0 36 0;
! #X connect 42 0 49 0;
! #X connect 43 0 42 1;
! #X connect 43 0 48 1;
! #X connect 43 1 41 1;
! #X connect 44 0 38 0;
! #X connect 44 1 45 0;
! #X connect 46 0 47 0;
! #X connect 47 0 42 0;
! #X connect 48 0 37 0;
! #X connect 53 0 67 0;
! #X connect 53 1 52 0;
! #X connect 54 0 41 0;
! #X connect 54 0 47 0;
! #X connect 54 0 48 0;
! #X connect 54 1 23 0;
! #X connect 54 1 46 0;
! #X connect 54 2 11 0;
! #X connect 55 0 70 0;
! #X connect 55 1 69 0;
! #X connect 56 0 58 0;
! #X connect 57 0 58 0;
! #X connect 61 0 59 0;
! #X connect 62 0 63 0;
! #X connect 64 0 66 0;
! #X connect 65 0 18 0;
! #X connect 65 1 22 0;
! #X connect 65 2 6 0;
! #X connect 66 0 4 0;
! #X connect 66 1 15 0;
! #X connect 66 2 44 0;
! #X connect 66 3 53 0;
! #X connect 66 4 21 0;
! #X connect 66 4 55 0;
! #X connect 68 0 56 0;
! #X connect 69 0 57 0;
! #X connect 70 0 71 0;
! #X connect 70 1 68 0;
! #X connect 71 0 21 0;
! #X connect 73 0 66 0;
! #X connect 75 0 77 0;
! #X connect 77 0 78 0;
! #X connect 79 0 54 0;
! #X connect 80 0 62 0;
! #X connect 80 1 62 0;
! #X connect 81 0 61 0;
--- 172,248 ----
  #X msg 818 270 set \$1;
  #X obj 818 298 s \$2-parentstate;
! #X obj 535 300 prepent set;
  #X obj 764 437 OSCroute /preset /substate;
  #X msg 745 513 /preset \$1;
! #X obj 756 325 r RRADICAL-OSC;
! #X obj 563 443 s \$2-RRADICAL-OSC;
! #X connect 5 0 63 0;
! #X connect 10 0 51 0;
! #X connect 11 0 58 1;
! #X connect 12 0 63 0;
! #X connect 13 0 63 0;
! #X connect 14 0 29 0;
  #X connect 16 0 17 0;
! #X connect 16 0 78 0;
! #X connect 17 0 25 0;
  #X connect 18 0 20 0;
  #X connect 19 0 20 0;
! #X connect 21 0 62 0;
! #X connect 22 0 24 0;
  #X connect 22 1 19 0;
! #X connect 23 0 6 0;
! #X connect 29 0 33 0;
! #X connect 29 0 77 0;
! #X connect 31 0 58 0;
! #X connect 31 0 76 0;
! #X connect 34 0 80 0;
! #X connect 36 0 38 0;
! #X connect 37 0 26 0;
! #X connect 38 0 26 0;
! #X connect 38 1 37 0;
! #X connect 39 0 34 0;
! #X connect 40 0 46 0;
! #X connect 41 0 40 1;
! #X connect 41 0 45 1;
! #X connect 41 1 39 1;
! #X connect 42 0 36 0;
! #X connect 42 1 43 0;
! #X connect 44 0 40 0;
! #X connect 45 0 35 0;
! #X connect 50 0 64 0;
! #X connect 50 1 49 0;
! #X connect 51 0 39 0;
! #X connect 51 0 44 0;
! #X connect 51 0 45 0;
! #X connect 51 1 34 1;
! #X connect 51 1 44 1;
! #X connect 51 2 11 0;
! #X connect 52 0 67 0;
! #X connect 52 1 66 0;
! #X connect 53 0 55 0;
! #X connect 54 0 55 0;
! #X connect 58 0 56 0;
! #X connect 59 0 60 0;
! #X connect 61 0 63 0;
! #X connect 62 0 18 0;
! #X connect 62 1 22 0;
! #X connect 62 2 6 0;
! #X connect 63 0 4 0;
! #X connect 63 1 15 0;
! #X connect 63 2 42 0;
! #X connect 63 3 50 0;
! #X connect 63 4 21 0;
! #X connect 63 4 52 0;
! #X connect 65 0 53 0;
! #X connect 66 0 54 0;
! #X connect 67 0 68 0;
! #X connect 67 1 65 0;
! #X connect 68 0 21 0;
! #X connect 70 0 63 0;
! #X connect 72 0 74 0;
! #X connect 74 0 75 0;
! #X connect 76 0 51 0;
! #X connect 77 0 59 0;
! #X connect 77 1 59 0;
! #X connect 78 0 58 0;
! #X connect 79 0 29 0;

Index: memento-help.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/rradical/memento/memento-help.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** memento-help.pd	18 Oct 2004 14:35:04 -0000	1.1
--- memento-help.pd	28 Apr 2007 07:44:59 -0000	1.2
***************
*** 3,8 ****
  a slash and will be the general name of a state. arg2 is used to communicate
  with commun objects.;
- #X text 10 225 caretakers are independent of these: They can collect
- all currently actuve states and save them.;
  #N canvas 121 22 1029 567 originator-help 0;
  #X obj 42 182 originator /name \$0;
--- 3,6 ----
***************
*** 87,91 ****
  #X floatatom 97 116 5 0 0 0 - - -;
  #X floatatom 141 116 5 0 0 0 - - -;
- #X obj 233 212 symbol;
  #X obj 233 186 commun /asymbol \$0;
  #X symbolatom 233 159 10 0 0 0 - - -;
--- 85,88 ----
***************
*** 94,98 ****
  #X obj 233 127 r \$0-thesymbol;
  #X obj 233 238 s \$0-thesymbol;
- #X text 282 211 unfortunatly this is necessary.;
  #X connect 0 0 1 0;
  #X connect 1 0 0 0;
--- 91,94 ----
***************
*** 102,112 ****
  #X connect 4 0 2 0;
  #X connect 5 0 4 0;
! #X connect 6 0 11 0;
! #X connect 7 0 13 0;
  #X connect 8 0 7 0;
! #X connect 9 0 8 0;
! #X connect 11 0 4 0;
! #X connect 11 1 4 1;
! #X connect 12 0 9 0;
  #X restore 16 379 pd commun-help;
  #X text 14 278 Detailed help on [originator];
--- 98,107 ----
  #X connect 4 0 2 0;
  #X connect 5 0 4 0;
! #X connect 6 0 10 0;
! #X connect 7 0 12 0;
  #X connect 8 0 7 0;
! #X connect 10 0 4 0;
! #X connect 10 1 4 1;
! #X connect 11 0 8 0;
  #X restore 16 379 pd commun-help;
  #X text 14 278 Detailed help on [originator];
***************
*** 161,162 ****
--- 156,159 ----
  use: communs will talk to all originators \, whose arg2 equals its
  own arg2.;
+ #X text 10 225 caretakers are independent of these: They can collect
+ all currently active states and save them.;

--- NEW FILE: dynamic-commun.pd ---
#N canvas 505 274 742 456 10;
#N canvas 0 0 450 300 1006-dynamic-communs 0;
#X restore 509 83 pd \$0-dynamic-communs;
#X obj 282 312 f \$1;
#X obj 513 224 makefilename pd-%s;
#X obj 513 196 symbol \$0-dynamic-communs;
#X obj 513 253 s \$0-sub;
#X obj 325 336 r \$0-sub;
#X obj 513 168 loadbang;
#X obj 282 289 loadbang;
#X obj 409 183 f 0;
#X obj 139 16 inlet;
#X msg 97 175 \; \$1 clear;
#X obj 97 115 r \$0-sub;
#X obj 97 148 symbol;
#X obj 576 372 print sub;
#X msg 425 160 0;
#X msg 584 170 bang;
#X obj 442 183 + 20;
#X msg 51 117 bang;
#X msg 218 328 \$1;
#X obj 239 239 makefilename \$1-%s;
#X msg 237 214 symbol \$2;
#X obj 260 183 makefilename \$1-%s;
#X msg 256 158 symbol \$3;
#X obj 218 359 pack s s s f f s;
#X obj 139 36 route # init;
#X obj 218 119 t a a a b;
#X msg 218 397 \; \$6 obj 10 \$5 sr-commun \$1 \$2 \$3 \$4;
#X text 262 23 Required Argument is Dollar-Zero ($0) from parent.;
#X connect 1 0 23 3;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 5 0 23 5;
#X connect 6 0 3 0;
#X connect 7 0 1 0;
#X connect 8 0 16 0;
#X connect 8 0 23 4;
#X connect 9 0 24 0;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 14 0 8 1;
#X connect 15 0 3 0;
#X connect 16 0 8 1;
#X connect 17 0 12 0;
#X connect 18 0 23 0;
#X connect 19 0 23 1;
#X connect 20 0 19 0;
#X connect 21 0 23 2;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 1 14 0;
#X connect 24 1 17 0;
#X connect 24 2 25 0;
#X connect 25 0 18 0;
#X connect 25 1 20 0;
#X connect 25 2 22 0;
#X connect 25 3 8 0;

--- NEW FILE: rrad.symbol.pd ---
#N canvas 0 0 450 300 10;
#X obj 161 87 inlet;
#X obj 103 51 inlet;
#X obj 103 172 outlet;
#X obj 355 148 outlet;
#X obj 355 93 inlet;
#X obj 248 122 originator \$1 \$0;
#X text 233 60 arg 2 is default value;
#X obj 200 175 commun /s \$0;
#X obj 103 123 symbol \$2;
#X text 204 22 rrad.symbol;
#X text 211 40 symbol object for rradical;
#X obj 200 196 symbol;
#X connect 0 0 8 1;
#X connect 1 0 8 0;
#X connect 4 0 5 1;
#X connect 5 2 3 0;
#X connect 7 0 11 0;
#X connect 8 0 2 0;
#X connect 8 0 7 0;
#X connect 11 0 8 0;

--- NEW FILE: dynamic-commun-help.pd ---
#N canvas 427 96 725 630 10;
#X obj 71 375 originator /h \$0;
#X obj 63 289 dynamic-commun \$0;
#X msg 93 220 init;
#X obj 63 196 t b b;
#X msg 63 173 bang;
#X text 63 15 Dynamic commun generator:;
#X text 71 39 1) Send "init" to clear commun area;
#X text 71 59 2) For every thing you want to save \, send a list of
target name \, sender name and receiver name. Target has to start with
slash \, sender and receiver will internally get replaced with a "$0-NAME".
;
#X msg 178 348 /h/preset \$1;
#X obj 178 327 hradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -1
-1 1;
#X obj 539 211 s \$0-w;
#X obj 542 190 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 4000 1;
#X obj 547 281 hsl 128 15 0 127 0 0 \$0-t \$0-t send/rec-inside -2
-6 0 8 -262144 -1 -1 7900 1;
#X obj 539 368 r \$0-d;
#X obj 539 411 s \$0-d-s;
#X text 289 266 use send/rec. like this;
#X floatatom 539 391 5 0 0 0 - - -;
#X obj 63 150 loadbang;
#X obj 539 167 r \$0-w-r;
#X msg 63 246 list /what w w-r \, list /that t t \, list /dis d-s d
;
#X msg 281 353 /h/what \$1;
#X obj 284 328 hsl 128 15 0 127 0 0 empty empty testOSC-/what -2 -6
0 8 -262144 -1 -1 6200 1;
#X obj 178 405 print;
#X floatatom 531 498 5 0 0 0 - - -;
#X obj 531 518 s \$0-more-s;
#X obj 531 475 r \$0-more-r;
#X msg 334 478 list /more more-s more-r;
#X obj 334 510 s \$0-more-communs;
#X obj 96 269 r \$0-more-communs;
#X connect 0 2 22 0;
#X connect 2 0 1 0;
#X connect 3 0 19 0;
#X connect 3 1 2 0;
#X connect 4 0 3 0;
#X connect 8 0 0 1;
#X connect 9 0 8 0;
#X connect 11 0 10 0;
#X connect 13 0 16 0;
#X connect 16 0 14 0;
#X connect 17 0 4 0;
#X connect 18 0 11 0;
#X connect 19 0 1 0;
#X connect 20 0 0 1;
#X connect 21 0 20 0;
#X connect 23 0 24 0;
#X connect 25 0 23 0;
#X connect 26 0 27 0;
#X connect 28 0 1 0;

--- NEW FILE: sr-commun.pd ---
#N canvas 288 268 450 300 10;
#X obj 132 125 commun \$1 \$4;
#X obj 132 77 r \$2;
#X obj 132 173 s \$3;
#X connect 0 0 2 0;
#X connect 1 0 0 0;

--- NEW FILE: rrad.f.pd ---
#N canvas 0 0 450 300 10;
#X obj 126 81 inlet;
#X obj 103 51 inlet;
#X obj 103 172 outlet;
#X obj 355 148 outlet;
#X obj 355 93 inlet;
#X obj 131 149 commun /f \$0;
#X text 204 22 rrad.f;
#X text 211 42 float object for rradical;
#X obj 103 123 f \$2;
#X obj 248 122 originator \$1 \$0;
#X text 233 60 arg 2 is default value;
#X obj 246 265 pool OSC;
#X obj 246 177 r \$0-RRADMIN;
#X obj 246 212 OSCprepend \$1;
#X msg 244 238 set \$1 \$2;
#X connect 0 0 8 1;
#X connect 1 0 8 0;
#X connect 4 0 9 1;
#X connect 5 0 8 0;
#X connect 8 0 2 0;
#X connect 8 0 5 0;
#X connect 9 2 3 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 11 0;

--- NEW FILE: scale-commun.pd ---
#N canvas 0 0 450 300 10;
#X obj 153 133 commun \$1 \$2;
#X obj 153 92 rrad.scale 0 127 \$3 \$4;
#X obj 153 57 inlet;
#X obj 153 189 outlet;
#X obj 153 158 rrad.scale \$3 \$4 0 127;
#X obj 309 129 outlet;
#X connect 0 0 4 0;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 4 0 3 0;

Index: OSCprepend.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/rradical/memento/OSCprepend.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** OSCprepend.pd	10 Dec 2004 20:56:58 -0000	1.1
--- OSCprepend.pd	28 Apr 2007 07:44:59 -0000	1.2
***************
*** 1,16 ****
! #N canvas 457 273 505 389 10;
! #X msg 304 166 set \$1%s;
! #X obj 150 83 inlet;
! #X obj 304 86 inlet;
! #X obj 150 283 outlet;
! #X obj 304 117 symbol;
! #X obj 150 205 tosymbol;
! #X obj 150 248 fromsymbol;
! #X obj 150 226 makefilename \$1%s;
! #X connect 0 0 7 0;
! #X connect 1 0 5 0;
! #X connect 2 0 4 0;
! #X connect 4 0 0 0;
! #X connect 5 0 7 0;
! #X connect 6 0 3 0;
! #X connect 7 0 6 0;
--- 1,30 ----
! #N canvas 511 144 636 444 10;
! #X obj 45 131 list split 1;
! #X msg 94 90 /a 1 2 3;
! #X obj 45 276 list append;
! #X obj 45 299 list trim;
! #X obj 45 239 makefilename \$1%s;
! #X obj 45 188 route symbol;
! #X obj 45 89 inlet;
! #X obj 45 319 outlet;
! #X text 215 99 "Prepends" first argument to an OSC message list.;
! #X text 221 126 Example: with \$1 being "/synth" the message "/set
! x 1 2" will become "/synth/set x 1 2".;
! #X text 223 163 Right inlet lets you change the prepended argument
! ;
! #X msg 146 209 set \$1%s;
! #X obj 146 185 symbol;
! #X obj 146 163 inlet;
! #X text 224 189 Lists not starting with a symbol are filtered out!
! ;
! #X connect 0 0 5 0;
! #X connect 0 1 2 1;
! #X connect 1 0 0 0;
! #X connect 2 0 3 0;
! #X connect 3 0 7 0;
! #X connect 4 0 2 0;
! #X connect 5 0 4 0;
! #X connect 6 0 0 0;
! #X connect 11 0 4 0;
! #X connect 12 0 11 0;
! #X connect 13 0 12 0;

Index: rradical.state.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/rradical/memento/rradical.state.pd,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** rradical.state.pd	23 Apr 2004 16:21:52 -0000	1.1.1.1
--- rradical.state.pd	28 Apr 2007 07:44:59 -0000	1.2
***************
*** 11,15 ****
  #X msg 400 287 getdir;
  #X obj 168 240 outlet;
! #X obj 597 323 prepend get;
  #X msg 456 172 getall;
  #X obj 526 239 s \$0-substate;
--- 11,15 ----
  #X msg 400 287 getdir;
  #X obj 168 240 outlet;
! #X obj 597 323 prepent get;
  #X msg 456 172 getall;
  #X obj 526 239 s \$0-substate;
***************
*** 44,48 ****
  #X obj 345 177 t b b s;
  #X obj 415 201 s \$0-memento;
! #X obj 555 168 prepend set;
  #X obj 6 111 print pool;
  #X obj 345 94 route state getstate getall substate set get;
--- 44,48 ----
  #X obj 345 177 t b b s;
  #X obj 415 201 s \$0-memento;
! #X obj 555 168 prepent set;
  #X obj 6 111 print pool;
  #X obj 345 94 route state getstate getall substate set get;

Index: netcontrol.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/rradical/memento/netcontrol.pd,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** netcontrol.pd	23 Apr 2004 16:21:52 -0000	1.1.1.1
--- netcontrol.pd	28 Apr 2007 07:44:59 -0000	1.2
***************
*** 1,33 ****
! #N canvas 363 400 167 71 10;
  #X symbolatom 12 39 10 0 0 2 whereTo? - -;
! #X obj 65 180 pack s 0;
  #X floatatom 105 39 5 0 0 2 what? - -;
! #X msg 65 204 send \$1 \$2;
! #X obj 129 80 t b f;
! #X obj 65 230 outlet;
! #X obj 67 104 makesymbol \$1/%s;
! #X obj 260 64 loadbang;
  #X obj 264 132 route float;
  #X msg 264 157 bang;
- #X obj 260 90 any \$2;
  #X obj 301 189 symbol unknown;
  #X obj 13 7 inlet;
  #X obj 105 6 inlet;
  #X obj 54 149 symbol;
! #X connect 0 0 6 0;
  #X connect 1 0 3 0;
  #X connect 2 0 4 0;
  #X connect 3 0 5 0;
! #X connect 4 0 14 0;
  #X connect 4 1 1 1;
! #X connect 6 0 14 1;
! #X connect 7 0 10 0;
  #X connect 8 0 9 0;
! #X connect 8 1 11 0;
! #X connect 9 0 11 0;
! #X connect 10 0 8 0;
! #X connect 11 0 0 0;
! #X connect 12 0 0 0;
! #X connect 13 0 2 0;
! #X connect 14 0 1 0;
! #X coords 0 0 1 1 200 50 1;
--- 1,33 ----
! #N canvas 363 400 647 296 10;
  #X symbolatom 12 39 10 0 0 2 whereTo? - -;
! #X obj 54 179 pack s 0;
  #X floatatom 105 39 5 0 0 2 what? - -;
! #X msg 54 203 send \$1 \$2;
! #X obj 105 76 t b f;
! #X obj 54 229 outlet;
! #X obj 264 64 loadbang;
  #X obj 264 132 route float;
  #X msg 264 157 bang;
  #X obj 301 189 symbol unknown;
  #X obj 13 7 inlet;
  #X obj 105 6 inlet;
  #X obj 54 149 symbol;
! #X obj 264 90 list append \$2;
! #X obj 91 122 makefilename \$1/%s;
! #X connect 0 0 14 0;
  #X connect 1 0 3 0;
  #X connect 2 0 4 0;
  #X connect 3 0 5 0;
! #X connect 4 0 12 0;
  #X connect 4 1 1 1;
! #X connect 6 0 13 0;
! #X connect 7 0 8 0;
! #X connect 7 1 9 0;
  #X connect 8 0 9 0;
! #X connect 9 0 0 0;
! #X connect 10 0 0 0;
! #X connect 11 0 2 0;
! #X connect 12 0 1 0;
! #X connect 13 0 7 0;
! #X connect 14 0 12 1;
! #X coords 0 -1 1 1 200 50 1 0 10;

Index: commun.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/rradical/memento/commun.pd,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** commun.pd	23 Apr 2004 16:21:52 -0000	1.1.1.1
--- commun.pd	28 Apr 2007 07:44:59 -0000	1.2
***************
*** 1,18 ****
! #N canvas 329 264 450 300 10;
  #X obj 162 41 inlet;
! #X obj 161 240 outlet;
! #X obj 162 72 prepend \$1;
  #X obj 161 158 r \$2-in;
  #X obj 161 208 route \$1;
  #X obj 69 207 OSCroute \$1;
! #X text 22 262 Read \$2-OSC (== \$0-OSC) \, filter by argument \$1
  ;
! #X obj 162 99 s \$2-RRADICAL-MEMENTO;
! #X text 95 123 RRADICAL_MEMENTO is also in originator;
  #X obj 69 183 r \$2-RRADICAL-OSC;
! #X connect 0 0 2 0;
! #X connect 2 0 7 0;
! #X connect 3 0 4 0;
! #X connect 4 0 1 0;
! #X connect 5 0 1 0;
! #X connect 9 0 5 0;
--- 1,23 ----
! #N canvas 329 264 504 374 10;
  #X obj 162 41 inlet;
! #X obj 161 270 outlet;
  #X obj 161 158 r \$2-in;
  #X obj 161 208 route \$1;
  #X obj 69 207 OSCroute \$1;
! #X text 22 292 Read \$2-OSC (== \$0-OSC) \, filter by argument \$1
  ;
! #X obj 162 109 s \$2-RRADICAL-MEMENTO;
! #X text 95 133 RRADICAL_MEMENTO is also in originator;
  #X obj 69 183 r \$2-RRADICAL-OSC;
! #X obj 162 62 list prepend \$1;
! #X obj 162 84 list trim;
! #X obj 161 244 list;
! #X text 202 246 convert according to Pd's type rules;
! #X connect 0 0 9 0;
! #X connect 2 0 3 0;
! #X connect 3 0 11 0;
! #X connect 4 0 11 0;
! #X connect 8 0 4 0;
! #X connect 9 0 10 0;
! #X connect 10 0 6 0;
! #X connect 11 0 1 0;

Index: README.txt
===================================================================
RCS file: /cvsroot/pure-data/abstractions/rradical/memento/README.txt,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** README.txt	23 Apr 2004 16:21:52 -0000	1.1.1.1
--- README.txt	28 Apr 2007 07:44:59 -0000	1.2
***************
*** 1,5 ****
  _ Memento _
  
! ver. 0.4
  
  This is a work-in-progress collection of a unified preset system for Pd
--- 1,5 ----
  _ Memento _
  
! ver. 0.5
  
  This is a work-in-progress collection of a unified preset system for Pd
***************
*** 72,75 ****
--- 72,83 ----
  _ ChangeLog _
  
+ 0.5
+ * removed all prepend from cyclone again and instead use [prepent] with is just
+   [list prepend]-[list trim]
+ * replace OSCprepend with a Miller Vanilla version.
+ * added [list] to commun's outlet to get automatic type conversions. 
+   commun now will output proper list-messages. This may result in 
+   subtle bugs with older patches however!
+ 
  0.4
  * Wrote a tutorial, yeah.

Index: careOSC.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/rradical/memento/careOSC.pd,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** careOSC.pd	26 Oct 2004 17:00:37 -0000	1.2
--- careOSC.pd	28 Apr 2007 07:44:59 -0000	1.3
***************
*** 1,3 ****
! #N canvas 159 71 136 70 10;
  #N canvas 108 9 1009 776 guts 0;
  #X msg 136 235 chdir;
--- 1,3 ----
! #N canvas 159 71 427 210 10;
  #N canvas 108 9 1009 776 guts 0;
  #X msg 136 235 chdir;
***************
*** 22,26 ****
  #X obj 40 40;
  #X obj 361 279 outlet;
! #X obj 299 138 prepend add;
  #X connect 0 0 16 0;
  #X connect 2 0 10 0;
--- 22,26 ----
  #X obj 40 40;
  #X obj 361 279 outlet;
! #X obj 299 138 prepent add;
  #X connect 0 0 16 0;
  #X connect 2 0 10 0;
***************
*** 66,70 ****
  #X obj 38 48 symbol;
  #X obj 361 279 outlet;
! #X obj 309 148 prepend add;
  #X connect 0 0 16 0;
  #X connect 2 0 10 0;
--- 66,70 ----
  #X obj 38 48 symbol;
  #X obj 361 279 outlet;
! #X obj 309 148 prepent add;
  #X connect 0 0 16 0;
  #X connect 2 0 10 0;
***************
*** 105,125 ****
  #X obj 469 149 until;
  #X msg 219 98 1;
! #X obj 584 327 prepend chdir;
  #X msg 526 330 getall;
  #X obj 542 275 t b a a;
! #X obj 779 378 symbol;
! #X msg 776 358 \$1;
! #X obj 739 293 prepend list;
  #X obj 781 322 t a a;
  #X msg 700 404 \$2;
! #X msg 757 436 set \$1;
! #X obj 761 479 prepend nothing;
! #X obj 783 408 makefilename %s/preset;
! #X obj 549 557 prepend nothing;
  #X obj 605 468 makefilename;
- #X msg 586 532 set \$1;
  #X msg 629 444 set \$1%s;
  #X obj 693 648 textfile;
! #X obj 689 611 prepend add;
  #X msg 797 571 clear;
  #X msg 62 401 print;
--- 105,122 ----
  #X obj 469 149 until;
  #X msg 219 98 1;
! #X obj 584 327 prepent chdir;
  #X msg 526 330 getall;
  #X obj 542 275 t b a a;
! #X obj 811 383 symbol;
! #X msg 811 363 \$1;
  #X obj 781 322 t a a;
  #X msg 700 404 \$2;
! #X obj 711 459 prepent nothing;
! #X obj 811 411 makefilename %s/preset;
! #X obj 549 557 prepent nothing;
  #X obj 605 468 makefilename;
  #X msg 629 444 set \$1%s;
  #X obj 693 648 textfile;
! #X obj 689 611 prepent add;
  #X msg 797 571 clear;
  #X msg 62 401 print;
***************
*** 130,134 ****
  #X text 47 75 bang for save!;
  #X text 907 615 write file;
! #X obj 865 586 prepend write;
  #X obj 863 529 r \$0-save;
  #X obj 78 146 r \$0-create;
--- 127,131 ----
  #X text 47 75 bang for save!;
  #X text 907 615 write file;
! #X obj 865 586 prepent write;
  #X obj 863 529 r \$0-save;
  #X obj 78 146 r \$0-create;
***************
*** 146,152 ****
  #X obj 323 616 inlet;
  #X obj 323 642 s \$0-loadfile;
! #X connect 0 0 40 0;
  #X connect 1 0 14 0;
! #X connect 1 2 40 0;
  #X connect 2 0 1 0;
  #X connect 3 0 1 0;
--- 143,150 ----
  #X obj 323 616 inlet;
  #X obj 323 642 s \$0-loadfile;
! #X obj 781 292 list;
! #X connect 0 0 37 0;
  #X connect 1 0 14 0;
! #X connect 1 2 37 0;
  #X connect 2 0 1 0;
  #X connect 3 0 1 0;
***************
*** 154,173 ****
  #X connect 4 1 3 0;
  #X connect 4 1 17 1;
! #X connect 4 2 40 0;
  #X connect 5 0 4 0;
  #X connect 6 0 8 0;
  #X connect 7 0 4 0;
! #X connect 8 0 40 0;
! #X connect 9 0 40 0;
  #X connect 10 0 9 0;
  #X connect 11 0 13 0;
  #X connect 12 0 18 0;
! #X connect 13 0 37 0;
  #X connect 13 1 3 0;
  #X connect 13 2 2 0;
  #X connect 13 3 0 0;
! #X connect 13 3 36 0;
  #X connect 15 0 16 0;
! #X connect 16 1 38 0;
  #X connect 16 2 17 0;
  #X connect 16 3 5 0;
--- 152,171 ----
  #X connect 4 1 3 0;
  #X connect 4 1 17 1;
! #X connect 4 2 37 0;
  #X connect 5 0 4 0;
  #X connect 6 0 8 0;
  #X connect 7 0 4 0;
! #X connect 8 0 37 0;
! #X connect 9 0 37 0;
  #X connect 10 0 9 0;
  #X connect 11 0 13 0;
  #X connect 12 0 18 0;
! #X connect 13 0 34 0;
  #X connect 13 1 3 0;
  #X connect 13 2 2 0;
  #X connect 13 3 0 0;
! #X connect 13 3 33 0;
  #X connect 15 0 16 0;
! #X connect 16 1 35 0;
  #X connect 16 2 17 0;
  #X connect 16 3 5 0;
***************
*** 175,222 ****
  #X connect 17 0 7 0;
  #X connect 18 0 9 0;
! #X connect 19 0 41 0;
! #X connect 20 0 41 0;
  #X connect 21 0 20 0;
  #X connect 21 1 19 0;
! #X connect 21 2 24 0;
! #X connect 22 0 29 0;
! #X connect 22 0 33 0;
  #X connect 23 0 22 0;
  #X connect 24 0 25 0;
  #X connect 25 0 26 0;
! #X connect 25 1 23 0;
! #X connect 26 0 28 0;
! #X connect 27 0 28 0;
! #X connect 28 0 35 0;
! #X connect 29 0 27 0;
! #X connect 30 0 35 0;
! #X connect 31 0 32 0;
! #X connect 32 0 30 0;
  #X connect 33 0 31 0;
! #X connect 34 0 48 0;
! #X connect 34 1 49 1;
! #X connect 35 0 34 0;
! #X connect 36 0 34 0;
! #X connect 37 0 34 0;
! #X connect 38 0 17 1;
! #X connect 40 1 1 1;
! #X connect 40 1 4 1;
! #X connect 41 0 30 0;
! #X connect 41 1 31 0;
! #X connect 44 0 34 0;
! #X connect 45 0 47 0;
! #X connect 46 0 11 0;
! #X connect 47 0 44 0;
! #X connect 49 0 34 0;
! #X connect 50 0 51 0;
! #X connect 51 0 52 0;
! #X connect 52 0 53 0;
! #X connect 53 0 49 0;
! #X connect 53 1 54 0;
! #X connect 53 2 34 0;
! #X connect 54 0 34 0;
! #X connect 57 0 52 0;
! #X connect 58 0 59 0;
! #X restore 23 4 pd guts;
  #X obj 13 28 bng 24 250 50 0 \$0-create \$0-create create 0 -6 0 8
  -24198 -1 -1;
--- 173,218 ----
  #X connect 17 0 7 0;
  #X connect 18 0 9 0;
! #X connect 19 0 38 0;
! #X connect 20 0 38 0;
  #X connect 21 0 20 0;
  #X connect 21 1 19 0;
! #X connect 21 2 57 0;
! #X connect 22 0 27 0;
! #X connect 22 0 30 0;
  #X connect 23 0 22 0;
  #X connect 24 0 25 0;
+ #X connect 24 1 23 0;
  #X connect 25 0 26 0;
! #X connect 26 0 32 0;
! #X connect 27 0 26 1;
! #X connect 28 0 32 0;
! #X connect 29 0 28 1;
! #X connect 30 0 29 0;
! #X connect 31 0 45 0;
! #X connect 31 1 46 1;
! #X connect 32 0 31 0;
  #X connect 33 0 31 0;
! #X connect 34 0 31 0;
! #X connect 35 0 17 1;
! #X connect 37 1 1 1;
! #X connect 37 1 4 1;
! #X connect 38 0 28 0;
! #X connect 38 1 29 0;
! #X connect 41 0 31 0;
! #X connect 42 0 44 0;
! #X connect 43 0 11 0;
! #X connect 44 0 41 0;
! #X connect 46 0 31 0;
! #X connect 47 0 48 0;
! #X connect 48 0 49 0;
! #X connect 49 0 50 0;
! #X connect 50 0 46 0;
! #X connect 50 1 51 0;
! #X connect 50 2 31 0;
! #X connect 51 0 31 0;
! #X connect 54 0 49 0;
! #X connect 55 0 56 0;
! #X connect 57 0 24 0;
! #X restore 209 71 pd guts;
  #X obj 13 28 bng 24 250 50 0 \$0-create \$0-create create 0 -6 0 8
  -24198 -1 -1;
***************
*** 225,231 ****
  #X obj 98 29 bng 24 250 50 0 \$0-load \$0-load load 0 -6 0 8 -258699
  -1 -1;
! #X obj 49 49 outlet;
! #X obj 92 5 inlet;
  #X connect 0 0 4 0;
  #X connect 5 0 0 0;
! #X coords 0 0 1 1 120 60 1;
--- 221,227 ----
  #X obj 98 29 bng 24 250 50 0 \$0-load \$0-load load 0 -6 0 8 -258699
  -1 -1;
! #X obj 209 96 outlet;
! #X obj 209 42 inlet;
  #X connect 0 0 4 0;
  #X connect 5 0 0 0;
! #X coords 0 -1 1 1 120 60 1 6 5;





More information about the Pd-cvs mailing list