Pd-cvs January 2006

pd-cvs@lists.iem.at

13 participants
285 discussions

[PD-cvs] abstractions/pureunity pureunity.c, 1.1, 1.2 Makefile, 1.3, 1.4
by Mathieu Bouchard 02 Jan '06

02 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24885 Modified Files: pureunity.c Makefile Log Message: new external [rtimer] Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/Makefile,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Makefile 2 Jan 2006 01:28:18 -0000 1.3 --- Makefile 2 Jan 2006 07:20:49 -0000 1.4 *************** *** 2,5 **** --- 2,6 ---- #PD = pd PDFLAGS = -lib pureunity -noaudio -path generics -path specifics + CFLAGS = -Wall test:: built *************** *** 13,16 **** pureunity.pd_linux: pureunity.c Makefile ! $(CC) -shared -o pureunity.pd_linux pureunity.c --- 14,17 ---- pureunity.pd_linux: pureunity.c Makefile ! $(CC) $(CFLAGS) -shared -o pureunity.pd_linux pureunity.c Index: pureunity.c =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/pureunity.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** pureunity.c 2 Jan 2006 01:28:18 -0000 1.1 --- pureunity.c 2 Jan 2006 07:20:47 -0000 1.2 *************** *** 1,9 **** /*#include <m_pd.h>*/ #include "../../pd/src/m_pd.h" void pureunity_setup() { ! t_pd *m = &pd_objectmaker; ! class_addcreator((t_newmethod)getfn(m,gensym( "inlet" )),gensym("f.inlet" ),A_GIMME,0); ! class_addcreator((t_newmethod)getfn(m,gensym( "inlet~")),gensym("~.inlet" ),A_GIMME,0); ! class_addcreator((t_newmethod)getfn(m,gensym("outlet" )),gensym("f.outlet"),A_GIMME,0); ! class_addcreator((t_newmethod)getfn(m,gensym("outlet~")),gensym("~.outlet"),A_GIMME,0); } --- 1,40 ---- + #include <sys/time.h> /*#include <m_pd.h>*/ #include "../../pd/src/m_pd.h" + #define ALIAS(y,x) class_addcreator((t_newmethod)getfn(m,gensym(x)),gensym(y),A_GIMME,0); + + typedef struct { + t_text o; + struct timeval t0; + } t_rtimer; + + t_class *rtimer_class; + void rtimer_reset(t_rtimer *self) {gettimeofday(&self->t0,0);} + void *rtimer_new(t_symbol *s) { + t_rtimer *self = (t_rtimer *)pd_new(rtimer_class); + inlet_new((t_text *)self, (t_pd *)self, gensym("bang"), gensym("1_bang")); + outlet_new((t_text *)self, gensym("float")); + rtimer_reset(self); + return self; + } + + void rtimer_1_bang(t_rtimer *self) { + struct timeval t1; + gettimeofday(&t1,0); + outlet_float(self->o.ob_outlet, + (t1.tv_sec -self->t0.tv_sec )*1000.0 + + (t1.tv_usec-self->t0.tv_usec)/1000.0); + } + void pureunity_setup() { ! t_pd *m = &pd_objectmaker; ! ALIAS( "f.inlet","inlet" ); ! ALIAS( "~.inlet","inlet~" ); ! ALIAS("f.outlet","outlet" ); ! ALIAS("~.outlet","outlet~"); ! ALIAS( "f.swap","swap" ); ! rtimer_class = class_new(gensym("rtimer"),(t_newmethod)rtimer_new,0,sizeof(t_rtimer),0,0); ! class_addbang(rtimer_class,rtimer_reset); ! class_addmethod(rtimer_class, (t_method)rtimer_1_bang, gensym("1_bang"), 0); } +

1 0

abstractions/pureunity/generics commutator.pd, 1.3, 1.4 associator.pd, 1.3, 1.4 distributor.pd, 1.3, 1.4 invertor.pd, 1.4, 1.5
by Mathieu Bouchard 02 Jan '06

02 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity/generics In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18139 Modified Files: commutator.pd associator.pd distributor.pd invertor.pd Log Message: now support both floats and signals everywhere Index: invertor.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/invertor.pd,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** invertor.pd 2 Jan 2006 01:40:45 -0000 1.4 --- invertor.pd 2 Jan 2006 06:36:13 -0000 1.5 *************** *** 1,30 **** #N canvas 336 387 602 199 10; - #X obj 18 137 -; #X text 185 60 when the invertor is 0 the rule is respected.; #X text 185 83 see invertible-test.pd; #X text 19 174 invertor; #X text 149 174 antiinvertor; - #X obj 148 137 +; - #X obj 18 115 t a a; - #X obj 18 39 t a a; #X obj 18 19 \$1.inlet a; #X obj 101 19 \$1.inlet b; #X obj 18 156 \$1.outlet (ab)/b-a; #X obj 148 156 \$1.outlet (ab)/b+a; - #X obj 18 65 \$2; - #X obj 18 91 \$3; #X text 184 11 invertibility rule for operator \$2 with (presumed) right-inverse \$3 is:; #X text 184 45 (a \$2 b) \$3 b - a = 0; ! #X connect 0 0 10 0; ! #X connect 5 0 11 0; ! #X connect 6 0 0 0; ! #X connect 6 1 5 0; ! #X connect 7 0 12 0; ! #X connect 7 1 0 1; ! #X connect 7 1 5 1; ! #X connect 8 0 7 0; ! #X connect 9 0 12 1; ! #X connect 9 0 13 1; #X connect 12 0 13 0; ! #X connect 13 0 6 0; --- 1,30 ---- #N canvas 336 387 602 199 10; #X text 185 60 when the invertor is 0 the rule is respected.; #X text 185 83 see invertible-test.pd; #X text 19 174 invertor; #X text 149 174 antiinvertor; #X obj 18 19 \$1.inlet a; #X obj 101 19 \$1.inlet b; #X obj 18 156 \$1.outlet (ab)/b-a; #X obj 148 156 \$1.outlet (ab)/b+a; #X text 184 11 invertibility rule for operator \$2 with (presumed) right-inverse \$3 is:; #X text 184 45 (a \$2 b) \$3 b - a = 0; ! #X obj 18 39 \$1.taa; ! #X obj 18 65 \$1.do \$2; ! #X obj 18 91 \$1.do \$3; ! #X obj 18 115 \$1.taa; ! #X obj 18 137 \$1.do -; ! #X obj 148 137 \$1.do +; ! #X connect 4 0 10 0; ! #X connect 5 0 11 1; ! #X connect 5 0 12 1; ! #X connect 10 0 11 0; ! #X connect 10 1 14 1; ! #X connect 10 1 15 1; ! #X connect 11 0 12 0; #X connect 12 0 13 0; ! #X connect 13 0 14 0; ! #X connect 13 1 15 0; ! #X connect 14 0 6 0; ! #X connect 15 0 7 0; Index: distributor.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/distributor.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** distributor.pd 2 Jan 2006 01:40:45 -0000 1.3 --- distributor.pd 2 Jan 2006 06:36:13 -0000 1.4 *************** *** 1,46 **** ! #N canvas 441 449 580 241 10; ! #X obj 18 182 -; ! #X obj 18 61 unpack 0 0 0; ! #X obj 18 42 pack 0 0 0; ! #X obj 182 182 +; ! #X obj 18 153 t a a; ! #X text 185 123 see distributive-test.pd; ! #X text 185 100 when the distributor is 0 the rule is respected.; ! #X text 16 219 distributor; ! #X text 180 219 antidistributor; ! #X obj 116 113 \$2; ! #X obj 91 112 \$2; ! #X obj 95 133 \$1; ! #X obj 43 106 \$1; ! #X obj 18 106 \$2; ! #X obj 18 80 t a a a; #X obj 164 19 \$1.inlet c; #X obj 91 19 \$1.inlet b; #X obj 18 19 \$1.inlet a; ! #X obj 18 201 \$1.outlet a(bc)-(ab+ac); ! #X obj 182 201 \$1.outlet a(bc)+(ab+ac); ! #X text 184 71 distributivity rule for operator \$3 over operator \$2 is:; ! #X text 184 85 a \$3 (b \$2 c) - ((a \$3 b) \$2 (a \$3 c)) = 0; ! #X connect 0 0 18 0; ! #X connect 1 0 14 0; ! #X connect 1 1 10 1; ! #X connect 1 1 12 0; ! #X connect 1 2 9 1; ! #X connect 1 2 12 1; ! #X connect 2 0 1 0; ! #X connect 3 0 19 0; ! #X connect 4 0 0 0; ! #X connect 4 1 3 0; ! #X connect 9 0 11 1; ! #X connect 10 0 11 0; ! #X connect 11 0 3 1; ! #X connect 11 0 0 1; ! #X connect 12 0 13 1; ! #X connect 13 0 4 0; ! #X connect 14 0 13 0; ! #X connect 14 1 10 0; ! #X connect 14 2 9 0; ! #X connect 15 0 2 2; ! #X connect 16 0 2 1; ! #X connect 17 0 2 0; --- 1,46 ---- ! #N canvas 414 247 580 318 10; ! #X text 183 92 see distributive-test.pd; ! #X text 183 69 when the distributor is 0 the rule is respected.; ! #X text 16 269 distributor; ! #X text 180 269 antidistributor; #X obj 164 19 \$1.inlet c; #X obj 91 19 \$1.inlet b; #X obj 18 19 \$1.inlet a; ! #X obj 18 251 \$1.outlet a(bc)-(ab+ac); ! #X obj 182 251 \$1.outlet a(bc)+(ab+ac); ! #X text 182 40 distributivity rule for operator \$3 over operator \$2 is:; ! #X text 182 54 a \$3 (b \$2 c) - ((a \$3 b) \$2 (a \$3 c)) = 0; ! #X obj 18 169 \$1.do \$3; ! #X obj 25 146 \$1.do \$2; ! #X obj 124 184 \$1.do \$2; ! #X obj 184 184 \$1.do \$3; ! #X obj 124 165 \$1.do \$3; ! #X obj 182 232 \$1.do +; ! #X obj 18 232 \$1.do -; ! #X obj 18 193 \$1.taa; ! #X obj 18 80 \$1.taa; ! #X obj 55 99 \$1.taa; ! #X obj 18 61 \$1.packunpack3; ! #X connect 4 0 21 2; ! #X connect 5 0 21 1; ! #X connect 6 0 21 0; ! #X connect 11 0 18 0; ! #X connect 12 0 11 1; ! #X connect 13 0 16 1; ! #X connect 13 0 17 1; ! #X connect 14 0 13 1; ! #X connect 15 0 13 0; ! #X connect 16 0 8 0; ! #X connect 17 0 7 0; ! #X connect 18 0 17 0; ! #X connect 18 1 16 0; ! #X connect 19 0 11 0; ! #X connect 19 1 20 0; ! #X connect 20 0 15 0; ! #X connect 20 1 14 0; ! #X connect 21 0 19 0; ! #X connect 21 1 12 0; ! #X connect 21 1 15 1; ! #X connect 21 2 12 1; ! #X connect 21 2 14 1; Index: commutator.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/commutator.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** commutator.pd 2 Jan 2006 01:40:45 -0000 1.3 --- commutator.pd 2 Jan 2006 06:36:13 -0000 1.4 *************** *** 1,15 **** #N canvas 394 81 620 407 10; ! #X obj 18 210 -; ! #X obj 68 96 f; ! #X text 75 134 ba; ! #X text 33 103 ab; ! #X obj 18 38 t a b a; ! #X text 190 153 however \, this thing i call commutator is more general ; ! #X text 189 172 see commutative-test.pd; ! #X obj 18 141 t a a; ! #X obj 127 210 +; ! #X text 127 247 anticommutator; ! #X text 19 247 commutator; #X obj 18 19 \$1.inlet a; #X text 218 15 Say operator \$2 is *. Then the commutativity rule is: --- 1,10 ---- #N canvas 394 81 620 407 10; ! #X text 90 114 ba; ! #X text 33 93 ab; ! #X text 220 113 however \, this thing i call commutator is more general ; ! #X text 219 132 see commutative-test.pd; ! #X text 127 217 anticommutator; ! #X text 19 217 commutator; #X obj 18 19 \$1.inlet a; #X text 218 15 Say operator \$2 is *. Then the commutativity rule is: *************** *** 17,41 **** #X text 218 32 a*b=b*a which is also a*b-b*a = 0; #X text 218 48 the commutator is a*b - b*a; ! #X text 189 112 when \$2=+ this is also known as a "group commutator" ; ! #X text 189 132 when \$2=* this is also known as a "ring commutator" ; ! #X obj 18 229 \$1.outlet ab-ba; ! #X obj 127 229 \$1.outlet ab+ba; #X obj 93 19 \$1.inlet b; ! #X obj 68 115 \$2; ! #X obj 18 84 \$2; ! #X connect 0 0 17 0; ! #X connect 1 0 20 0; ! #X connect 4 0 21 0; ! #X connect 4 1 1 0; ! #X connect 4 2 20 1; ! #X connect 7 0 0 0; ! #X connect 7 1 8 1; ! #X connect 8 0 18 0; ! #X connect 11 0 4 0; ! #X connect 19 0 1 1; ! #X connect 19 0 21 1; ! #X connect 20 0 0 1; ! #X connect 20 0 8 0; ! #X connect 21 0 7 0; --- 12,41 ---- #X text 218 32 a*b=b*a which is also a*b-b*a = 0; #X text 218 48 the commutator is a*b - b*a; ! #X text 219 72 when \$2=+ this is also known as a "group commutator" ; ! #X text 219 92 when \$2=* this is also known as a "ring commutator" ; ! #X obj 18 199 \$1.outlet ab-ba; ! #X obj 127 199 \$1.outlet ab+ba; #X obj 93 19 \$1.inlet b; ! #X obj 80 74 \$1.swap; ! #X obj 80 98 \$1.do \$2; ! #X obj 18 74 \$1.do \$2; ! #X obj 18 121 \$1.taa; ! #X obj 18 38 \$1.taa; ! #X obj 18 180 \$1.do -; ! #X obj 127 180 \$1.do +; ! #X connect 6 0 19 0; ! #X connect 14 0 15 1; ! #X connect 14 0 17 1; ! #X connect 15 0 16 0; ! #X connect 15 1 16 1; ! #X connect 16 0 20 1; ! #X connect 16 0 21 0; ! #X connect 17 0 18 0; ! #X connect 18 0 20 0; ! #X connect 18 1 21 1; ! #X connect 19 0 17 0; ! #X connect 19 1 15 0; ! #X connect 20 0 12 0; ! #X connect 21 0 13 0; Index: associator.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/associator.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** associator.pd 2 Jan 2006 01:40:45 -0000 1.3 --- associator.pd 2 Jan 2006 06:36:13 -0000 1.4 *************** *** 1,40 **** #N canvas 574 54 580 317 10; - #X obj 18 182 -; - #X obj 18 61 unpack 0 0 0; - #X obj 18 42 pack 0 0 0; - #X obj 81 123 \$1; - #X obj 56 123 \$1; - #X obj 18 104 \$1; - #X obj 18 123 \$1; #X text 245 40 when the associator is 0 the rule is respected.; #X text 245 63 see associative-test.pd; - #X obj 168 182 +; #X text 16 219 associator; #X text 166 219 antiassociator; - #X obj 18 153 t a a; #X obj 18 19 \$1.inlet a; #X obj 91 19 \$1.inlet b; #X obj 164 19 \$1.inlet c; - #X text 244 11 associativity rule for operator *=$1 is:; #X text 244 25 (a*b)*c - a*(b*c) = 0; #X obj 18 201 \$1.outlet (ab)c-a(bc); #X obj 168 201 \$1.outlet (ab)c+a(bc); ! #X connect 0 0 18 0; ! #X connect 1 0 4 0; ! #X connect 1 0 5 0; ! #X connect 1 1 3 0; ! #X connect 1 1 5 1; ! #X connect 1 2 3 1; ! #X connect 1 2 6 1; ! #X connect 2 0 1 0; ! #X connect 3 0 4 1; ! #X connect 4 0 0 1; ! #X connect 4 0 9 1; ! #X connect 5 0 6 0; ! #X connect 6 0 12 0; ! #X connect 9 0 19 0; ! #X connect 12 0 0 0; ! #X connect 12 1 9 0; ! #X connect 13 0 2 0; ! #X connect 14 0 2 1; ! #X connect 15 0 2 2; --- 1,38 ---- #N canvas 574 54 580 317 10; #X text 245 40 when the associator is 0 the rule is respected.; #X text 245 63 see associative-test.pd; #X text 16 219 associator; #X text 166 219 antiassociator; #X obj 18 19 \$1.inlet a; #X obj 91 19 \$1.inlet b; #X obj 164 19 \$1.inlet c; #X text 244 25 (a*b)*c - a*(b*c) = 0; #X obj 18 201 \$1.outlet (ab)c-a(bc); #X obj 168 201 \$1.outlet (ab)c+a(bc); ! #X text 244 11 associativity rule for operator *=$2 is:; ! #X obj 102 108 \$1.do \$2; ! #X obj 102 134 \$1.do \$2; ! #X obj 18 104 \$1.do \$2; ! #X obj 18 123 \$1.do \$2; ! #X obj 18 153 \$1.taa; ! #X obj 18 182 \$1.do -; ! #X obj 168 182 \$1.do +; ! #X obj 18 61 \$1.packunpack3; ! #X connect 4 0 18 0; ! #X connect 5 0 18 1; ! #X connect 6 0 18 2; ! #X connect 11 0 12 1; ! #X connect 12 0 16 1; ! #X connect 12 0 17 1; ! #X connect 13 0 14 0; ! #X connect 14 0 15 0; ! #X connect 15 0 16 0; ! #X connect 15 1 17 0; ! #X connect 16 0 8 0; ! #X connect 17 0 9 0; ! #X connect 18 0 12 0; ! #X connect 18 0 13 0; ! #X connect 18 1 11 0; ! #X connect 18 1 13 1; ! #X connect 18 2 11 1; ! #X connect 18 2 14 1;

1 0

abstractions/pureunity/generics f.packunpack3.pd, NONE, 1.1 ~.packunpack3.pd, NONE, 1.1
by Mathieu Bouchard 02 Jan '06

02 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity/generics In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14972 Added Files: f.packunpack3.pd ~.packunpack3.pd Log Message: [$1.packunpack3] does [pack 0 0 0] -> [unpack 0 0 0] --- NEW FILE: ~.packunpack3.pd --- #N canvas 285 202 449 67 10; #X obj 13 14 inlet~; #X obj 13 34 outlet~; #X obj 73 14 inlet~; #X obj 73 34 outlet~; #X obj 133 14 inlet~; #X obj 133 34 outlet~; --- NEW FILE: f.packunpack3.pd --- #N canvas 285 202 449 125 10; #X obj 106 87 outlet; #X obj 105 14 inlet; #X obj 59 14 inlet; #X obj 60 87 outlet; #X obj 14 87 outlet; #X obj 13 14 inlet; #X obj 27 41 pack 0 0 0; #X obj 27 60 unpack 0 0 0; #X connect 1 0 6 2; #X connect 2 0 6 1; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 4 0; #X connect 7 1 3 0; #X connect 7 2 0 0;

1 0

abstractions/pureunity/generics f.taa.pd, NONE, 1.1 ~.taa.pd, NONE, 1.1
by Mathieu Bouchard 02 Jan '06

02 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity/generics In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12600 Added Files: f.taa.pd ~.taa.pd Log Message: [$1.taa] : [t a a] for floats, just wires for signals --- NEW FILE: f.taa.pd --- #N canvas 353 249 367 122 10; #X obj 19 14 inlet; #X obj 19 71 outlet; #X obj 19 33 t a a; #X obj 49 52 outlet; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 2 1 3 0; --- NEW FILE: ~.taa.pd --- #N canvas 353 249 367 122 10; #X obj 19 14 inlet~; #X obj 49 52 outlet~; #X obj 19 71 outlet~; #X connect 0 0 1 0; #X connect 0 0 2 0;

1 0

abstractions/pureunity/generics ~.swap.pd, NONE, 1.1 ~.do.pd, NONE, 1.1 f.do.pd, NONE, 1.1
by Mathieu Bouchard 02 Jan '06

02 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity/generics In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11524 Added Files: ~.swap.pd ~.do.pd f.do.pd Log Message: . --- NEW FILE: f.do.pd --- #N canvas 324 321 451 124 10; #X obj 19 18 inlet; #X obj 69 18 inlet; #X obj 19 50 \$1 \$2; #X obj 19 84 outlet; #X connect 0 0 2 0; #X connect 1 0 2 1; #X connect 2 0 3 0; --- NEW FILE: ~.do.pd --- #N canvas 338 329 450 125 10; #X obj 19 50 \$1~ \$2; #X obj 19 18 inlet~; #X obj 69 18 inlet~; #X obj 19 84 outlet~; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 2 0 0 1; --- NEW FILE: ~.swap.pd --- #N canvas 218 156 450 98 10; #X obj 14 11 inlet~; #X obj 74 11 inlet~; #X obj 14 61 outlet~; #X obj 74 61 outlet~; #X connect 0 0 3 0; #X connect 1 0 2 0;

1 0

abstractions/pureunity/generics commutator.pd, 1.2, 1.3 associator.pd, 1.2, 1.3 invertor.pd, 1.3, 1.4 distributor.pd, 1.2, 1.3
by Mathieu Bouchard 02 Jan '06

02 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity/generics In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10736 Modified Files: commutator.pd associator.pd invertor.pd distributor.pd Log Message: now using polymorphic inlets & outlets: [$1.inlet] [$1.outlet] Index: invertor.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/invertor.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** invertor.pd 31 Dec 2005 22:34:50 -0000 1.3 --- invertor.pd 2 Jan 2006 01:40:45 -0000 1.4 *************** *** 1,30 **** #N canvas 336 387 602 199 10; #X obj 18 137 -; - #X obj 18 19 inlet a; - #X obj 71 19 inlet b; - #X obj 18 65 \$1; - #X text 184 45 (a \$1 b) \$2 b - a = 0; #X text 185 60 when the invertor is 0 the rule is respected.; #X text 185 83 see invertible-test.pd; - #X obj 18 91 \$2; - #X obj 18 156 outlet (ab)/b-a; #X text 19 174 invertor; ! #X text 129 174 antiinvertor; ! #X obj 128 137 +; #X obj 18 115 t a a; - #X obj 128 156 outlet (ab)/b+a; - #X text 184 11 invertibility rule for operator \$1 with (presumed) - right-inverse \$2 is:; #X obj 18 39 t a a; ! #X connect 0 0 8 0; ! #X connect 1 0 15 0; ! #X connect 2 0 3 1; ! #X connect 2 0 7 1; ! #X connect 3 0 7 0; #X connect 7 0 12 0; ! #X connect 11 0 13 0; ! #X connect 12 0 0 0; ! #X connect 12 1 11 0; ! #X connect 15 0 3 0; ! #X connect 15 1 0 1; ! #X connect 15 1 11 1; --- 1,30 ---- #N canvas 336 387 602 199 10; #X obj 18 137 -; #X text 185 60 when the invertor is 0 the rule is respected.; #X text 185 83 see invertible-test.pd; #X text 19 174 invertor; ! #X text 149 174 antiinvertor; ! #X obj 148 137 +; #X obj 18 115 t a a; #X obj 18 39 t a a; ! #X obj 18 19 \$1.inlet a; ! #X obj 101 19 \$1.inlet b; ! #X obj 18 156 \$1.outlet (ab)/b-a; ! #X obj 148 156 \$1.outlet (ab)/b+a; ! #X obj 18 65 \$2; ! #X obj 18 91 \$3; ! #X text 184 11 invertibility rule for operator \$2 with (presumed) ! right-inverse \$3 is:; ! #X text 184 45 (a \$2 b) \$3 b - a = 0; ! #X connect 0 0 10 0; ! #X connect 5 0 11 0; ! #X connect 6 0 0 0; ! #X connect 6 1 5 0; #X connect 7 0 12 0; ! #X connect 7 1 0 1; ! #X connect 7 1 5 1; ! #X connect 8 0 7 0; ! #X connect 9 0 12 1; ! #X connect 9 0 13 1; ! #X connect 12 0 13 0; ! #X connect 13 0 6 0; Index: distributor.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/distributor.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** distributor.pd 31 Dec 2005 22:34:50 -0000 1.2 --- distributor.pd 2 Jan 2006 01:40:45 -0000 1.3 *************** *** 1,20 **** #N canvas 441 449 580 241 10; #X obj 18 182 -; - #X obj 18 19 inlet a; - #X obj 71 19 inlet b; - #X obj 124 19 inlet c; #X obj 18 61 unpack 0 0 0; #X obj 18 42 pack 0 0 0; ! #X obj 162 182 +; #X obj 18 153 t a a; ! #X text 185 73 see distributive-test.pd; ! #X text 184 21 distributivity rule for operator \$2 over operator \$1 ! is:; ! #X text 184 35 a \$2 (b \$1 c) - ((a \$2 b) \$1 (a \$2 c)) = 0; ! #X text 185 50 when the distributor is 0 the rule is respected.; #X text 16 219 distributor; ! #X text 160 219 antidistributor; ! #X obj 162 201 outlet a(bc)+(ab+ac); ! #X obj 18 201 outlet a(bc)-(ab+ac); #X obj 116 113 \$2; #X obj 91 112 \$2; --- 1,12 ---- #N canvas 441 449 580 241 10; #X obj 18 182 -; #X obj 18 61 unpack 0 0 0; #X obj 18 42 pack 0 0 0; ! #X obj 182 182 +; #X obj 18 153 t a a; ! #X text 185 123 see distributive-test.pd; ! #X text 185 100 when the distributor is 0 the rule is respected.; #X text 16 219 distributor; ! #X text 180 219 antidistributor; #X obj 116 113 \$2; #X obj 91 112 \$2; *************** *** 23,46 **** #X obj 18 106 \$2; #X obj 18 80 t a a a; ! #X connect 0 0 15 0; ! #X connect 1 0 5 0; ! #X connect 2 0 5 1; ! #X connect 3 0 5 2; ! #X connect 4 0 21 0; ! #X connect 4 1 17 1; ! #X connect 4 1 19 0; ! #X connect 4 2 16 1; ! #X connect 4 2 19 1; ! #X connect 5 0 4 0; ! #X connect 6 0 14 0; ! #X connect 7 0 0 0; ! #X connect 7 1 6 0; ! #X connect 16 0 18 1; ! #X connect 17 0 18 0; ! #X connect 18 0 6 1; ! #X connect 18 0 0 1; ! #X connect 19 0 20 1; ! #X connect 20 0 7 0; ! #X connect 21 0 20 0; ! #X connect 21 1 17 0; ! #X connect 21 2 16 0; --- 15,46 ---- #X obj 18 106 \$2; #X obj 18 80 t a a a; ! #X obj 164 19 \$1.inlet c; ! #X obj 91 19 \$1.inlet b; ! #X obj 18 19 \$1.inlet a; ! #X obj 18 201 \$1.outlet a(bc)-(ab+ac); ! #X obj 182 201 \$1.outlet a(bc)+(ab+ac); ! #X text 184 71 distributivity rule for operator \$3 over operator \$2 ! is:; ! #X text 184 85 a \$3 (b \$2 c) - ((a \$3 b) \$2 (a \$3 c)) = 0; ! #X connect 0 0 18 0; ! #X connect 1 0 14 0; ! #X connect 1 1 10 1; ! #X connect 1 1 12 0; ! #X connect 1 2 9 1; ! #X connect 1 2 12 1; ! #X connect 2 0 1 0; ! #X connect 3 0 19 0; ! #X connect 4 0 0 0; ! #X connect 4 1 3 0; ! #X connect 9 0 11 1; ! #X connect 10 0 11 0; ! #X connect 11 0 3 1; ! #X connect 11 0 0 1; ! #X connect 12 0 13 1; ! #X connect 13 0 4 0; ! #X connect 14 0 13 0; ! #X connect 14 1 10 0; ! #X connect 14 2 9 0; ! #X connect 15 0 2 2; ! #X connect 16 0 2 1; ! #X connect 17 0 2 0; Index: commutator.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/commutator.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** commutator.pd 31 Dec 2005 16:19:37 -0000 1.2 --- commutator.pd 2 Jan 2006 01:40:45 -0000 1.3 *************** *** 1,41 **** #N canvas 394 81 620 407 10; - #X obj 18 84 \$1; #X obj 18 210 -; - #X obj 68 115 \$1; #X obj 68 96 f; - #X obj 18 19 inlet a; - #X obj 84 32 inlet b; #X text 75 134 ba; #X text 33 103 ab; #X obj 18 38 t a b a; - #X text 218 15 commutativity rule for operator \$1 is: a \$1 b = b - \$1 a; - #X text 218 32 which is also a \$1 b - b \$1 a = 0; - #X text 218 48 the commutator is a \$1 b - b \$1 a; - #X obj 18 229 outlet ab-ba; - #X text 189 112 when \$1 = + this is also known as a "group commutator" - ; - #X text 189 132 when \$1 = * this is also known as a "ring commutator" - ; #X text 190 153 however \, this thing i call commutator is more general ; #X text 189 172 see commutative-test.pd; - #X obj 106 229 outlet ab+ba; #X obj 18 141 t a a; ! #X obj 106 210 +; ! #X text 106 247 anticommutator; #X text 19 247 commutator; ! #X connect 0 0 18 0; ! #X connect 1 0 12 0; ! #X connect 2 0 1 1; ! #X connect 2 0 19 0; ! #X connect 3 0 2 0; ! #X connect 4 0 8 0; ! #X connect 5 0 3 1; ! #X connect 5 0 0 1; ! #X connect 8 0 0 0; ! #X connect 8 1 3 0; ! #X connect 8 2 2 1; ! #X connect 18 0 1 0; ! #X connect 18 1 19 1; ! #X connect 19 0 17 0; --- 1,41 ---- #N canvas 394 81 620 407 10; #X obj 18 210 -; #X obj 68 96 f; #X text 75 134 ba; #X text 33 103 ab; #X obj 18 38 t a b a; #X text 190 153 however \, this thing i call commutator is more general ; #X text 189 172 see commutative-test.pd; #X obj 18 141 t a a; ! #X obj 127 210 +; ! #X text 127 247 anticommutator; #X text 19 247 commutator; ! #X obj 18 19 \$1.inlet a; ! #X text 218 15 Say operator \$2 is *. Then the commutativity rule is: ! ; ! #X text 218 32 a*b=b*a which is also a*b-b*a = 0; ! #X text 218 48 the commutator is a*b - b*a; ! #X text 189 112 when \$2=+ this is also known as a "group commutator" ! ; ! #X text 189 132 when \$2=* this is also known as a "ring commutator" ! ; ! #X obj 18 229 \$1.outlet ab-ba; ! #X obj 127 229 \$1.outlet ab+ba; ! #X obj 93 19 \$1.inlet b; ! #X obj 68 115 \$2; ! #X obj 18 84 \$2; ! #X connect 0 0 17 0; ! #X connect 1 0 20 0; ! #X connect 4 0 21 0; ! #X connect 4 1 1 0; ! #X connect 4 2 20 1; ! #X connect 7 0 0 0; ! #X connect 7 1 8 1; ! #X connect 8 0 18 0; ! #X connect 11 0 4 0; ! #X connect 19 0 1 1; ! #X connect 19 0 21 1; ! #X connect 20 0 0 1; ! #X connect 20 0 8 0; ! #X connect 21 0 7 0; Index: associator.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/associator.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** associator.pd 31 Dec 2005 16:19:21 -0000 1.2 --- associator.pd 2 Jan 2006 01:40:45 -0000 1.3 *************** *** 1,10 **** ! #N canvas 574 54 580 241 10; #X obj 18 182 -; - #X obj 18 19 inlet a; - #X obj 71 19 inlet b; - #X text 214 11 associativity rule for operator \$1 is:; - #X obj 124 19 inlet c; - #X text 214 25 (a \$1 b) \$1 c - a \$1 (b \$1 c) = 0; - #X obj 18 201 outlet (ab)c-a(bc); #X obj 18 61 unpack 0 0 0; #X obj 18 42 pack 0 0 0; --- 1,4 ---- ! #N canvas 574 54 580 317 10; #X obj 18 182 -; #X obj 18 61 unpack 0 0 0; #X obj 18 42 pack 0 0 0; *************** *** 13,40 **** #X obj 18 104 \$1; #X obj 18 123 \$1; ! #X text 215 40 when the associator is 0 the rule is respected.; ! #X text 215 63 see associative-test.pd; ! #X obj 148 182 +; #X text 16 219 associator; ! #X text 146 219 antiassociator; #X obj 18 153 t a a; ! #X obj 148 201 outlet (ab)c+a(bc); ! #X connect 0 0 6 0; ! #X connect 1 0 8 0; ! #X connect 2 0 8 1; ! #X connect 4 0 8 2; ! #X connect 7 0 10 0; ! #X connect 7 0 11 0; ! #X connect 7 1 9 0; ! #X connect 7 1 11 1; ! #X connect 7 2 9 1; ! #X connect 7 2 12 1; ! #X connect 8 0 7 0; ! #X connect 9 0 10 1; ! #X connect 10 0 0 1; ! #X connect 10 0 15 1; ! #X connect 11 0 12 0; ! #X connect 12 0 18 0; ! #X connect 15 0 19 0; ! #X connect 18 0 0 0; ! #X connect 18 1 15 0; --- 7,40 ---- #X obj 18 104 \$1; #X obj 18 123 \$1; ! #X text 245 40 when the associator is 0 the rule is respected.; ! #X text 245 63 see associative-test.pd; ! #X obj 168 182 +; #X text 16 219 associator; ! #X text 166 219 antiassociator; #X obj 18 153 t a a; ! #X obj 18 19 \$1.inlet a; ! #X obj 91 19 \$1.inlet b; ! #X obj 164 19 \$1.inlet c; ! #X text 244 11 associativity rule for operator *=$1 is:; ! #X text 244 25 (a*b)*c - a*(b*c) = 0; ! #X obj 18 201 \$1.outlet (ab)c-a(bc); ! #X obj 168 201 \$1.outlet (ab)c+a(bc); ! #X connect 0 0 18 0; ! #X connect 1 0 4 0; ! #X connect 1 0 5 0; ! #X connect 1 1 3 0; ! #X connect 1 1 5 1; ! #X connect 1 2 3 1; ! #X connect 1 2 6 1; ! #X connect 2 0 1 0; ! #X connect 3 0 4 1; ! #X connect 4 0 0 1; ! #X connect 4 0 9 1; ! #X connect 5 0 6 0; ! #X connect 6 0 12 0; ! #X connect 9 0 19 0; ! #X connect 12 0 0 0; ! #X connect 12 1 9 0; ! #X connect 13 0 2 0; ! #X connect 14 0 2 1; ! #X connect 15 0 2 2;

1 0

[PD-cvs] abstractions/pureunity pureunity.c, NONE, 1.1 Makefile, 1.2, 1.3
by Mathieu Bouchard 02 Jan '06

02 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8569 Modified Files: Makefile Added Files: pureunity.c Log Message: aliasing classes in order to exploit polymorphism Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/Makefile,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Makefile 31 Dec 2005 18:44:54 -0000 1.2 --- Makefile 2 Jan 2006 01:28:18 -0000 1.3 *************** *** 1,6 **** PD = /home/matju/pd_0_38_4/bin/pd -noaudio #PD = pd ! PDFLAGS = -noaudio -path generics -path specifics ! test:: $(PD) $(PDFLAGS) main.pd --- 1,16 ---- PD = /home/matju/pd_0_38_4/bin/pd -noaudio #PD = pd ! PDFLAGS = -lib pureunity -noaudio -path generics -path specifics ! test:: built $(PD) $(PDFLAGS) main.pd + + built: Makefile pureunity.pd_linux + # for z in associator commutator distributor invertor; do sed s/inlet/inlet~/ < generics/$$z.pd > generics/$$z~.pd; done + echo > built + + generic/%~.pd: generic/%.pd + + pureunity.pd_linux: pureunity.c Makefile + $(CC) -shared -o pureunity.pd_linux pureunity.c + --- NEW FILE: pureunity.c --- /*#include <m_pd.h>*/ #include "../../pd/src/m_pd.h" void pureunity_setup() { t_pd *m = &pd_objectmaker; class_addcreator((t_newmethod)getfn(m,gensym( "inlet" )),gensym("f.inlet" ),A_GIMME,0); class_addcreator((t_newmethod)getfn(m,gensym( "inlet~")),gensym("~.inlet" ),A_GIMME,0); class_addcreator((t_newmethod)getfn(m,gensym("outlet" )),gensym("f.outlet"),A_GIMME,0); class_addcreator((t_newmethod)getfn(m,gensym("outlet~")),gensym("~.outlet"),A_GIMME,0); }

1 0

externals/tb/erf~ erf~.c,NONE,1.1 makefile,NONE,1.1
by Tim Blechmann 01 Jan '06

01 Jan '06

Update of /cvsroot/pure-data/externals/tb/erf~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32661 Added Files: erf~.c makefile Log Message: adding error function --- NEW FILE: makefile --- NAME=erf~ CSYM=erf~ current: pd_linux # ----------------------- NT ----------------------- pd_nt: $(NAME).dll .SUFFIXES: .dll PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo VC="C:\Program Files\Microsoft Visual Studio\Vc98" PDNTINCLUDE = /I. /I..\..\src /I$(VC)\include PDNTLDIR = $(VC)\lib PDNTLIB = $(PDNTLDIR)\libc.lib \ $(PDNTLDIR)\oldnames.lib \ $(PDNTLDIR)\kernel32.lib \ ..\..\bin\pd.lib .c.dll: cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c link /dll /export:$(CSYM)_setup $*.obj $(PDNTLIB) # ----------------------- IRIX 5.x ----------------------- pd_irix5: $(NAME).pd_irix5 .SUFFIXES: .pd_irix5 SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2 SGIINCLUDE = -I../../src .c.pd_irix5: $(CC) $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o rm $*.o # ----------------------- IRIX 6.x ----------------------- pd_irix6: $(NAME).pd_irix6 .SUFFIXES: .pd_irix6 SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \ -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ -Ofast=ip32 .c.pd_irix6: $(CC) $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c ld -n32 -IPA -shared -rdata_shared -o $*.pd_irix6 $*.o rm $*.o # ----------------------- LINUX i386 ----------------------- pd_linux: $(NAME).pd_linux .SUFFIXES: .pd_linux LINUXCFLAGS = -DPD -O2 -fPIC -funroll-loops -fomit-frame-pointer \ -Wall -W -Wshadow -Wstrict-prototypes -Werror \ -Wno-unused -Wno-parentheses -Wno-switch LINUXINCLUDE = -I../../src LSTRIP = strip --strip-unneeded -R .note -R .comment .c.pd_linux: cc $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c cc -Wl,-export_dynamic --shared -o $*.pd_linux $*.o -lm $(LSTRIP) $*.pd_linux rm -f $*.o # ----------------------- Mac OSX ----------------------- pd_darwin: $(NAME).pd_darwin .SUFFIXES: .pd_darwin DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \ -Wno-unused -Wno-parentheses -Wno-switch .c.pd_darwin: $(CC) $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c $(CC) -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o rm -f $*.o # ---------------------------------------------------------- clean: rm -f *.o *.pd_* so_locations --- NEW FILE: erf~.c --- /* * * Error function for pd * Copyright (C) 2006 Tim Blechmann * * 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. * * 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. * * You should have received a copy of the GNU General Public License * along with this program; see the file COPYING. If not, write to * the Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ #include "m_pd.h" #include "math.h" static t_class *erf_class; typedef struct _erf { t_object x_obj; float x_f; } t_erf; static void *erf_new(void) { t_erf *x = (t_erf *)pd_new(erf_class); outlet_new(&x->x_obj, gensym("signal")); x->x_f = 0; return (x); } static t_int *erf_perform(t_int *w) { t_float *in = (t_float *)(w[1]); t_float *out = (t_float *)(w[2]); int n = (int)(w[3]); while (n--) *out++ = erff(*in++); return w+4; } static void erf_dsp(t_erf *x, t_signal **sp) { dsp_add(erf_perform, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); } void erf_tilde_setup(void) { erf_class = class_new(gensym("erf~"), (t_newmethod)erf_new, 0, sizeof(t_erf), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(erf_class, t_erf, x_f); class_addmethod(erf_class, (t_method)erf_dsp, gensym("dsp"), 0); }

1 0

externals/tb/erf~ - New directory
by Tim Blechmann 01 Jan '06

01 Jan '06

Update of /cvsroot/pure-data/externals/tb/erf~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18559/erf~ Log Message: Directory /cvsroot/pure-data/externals/tb/erf~ added to the repository

1 0

abstractions/pureunity/generics ~.norm.pd, NONE, 1.1 f.norm.pd, 1.1, 1.2
by Mathieu Bouchard 01 Jan '06

01 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity/generics In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9845 Modified Files: f.norm.pd Added Files: ~.norm.pd Log Message: . --- NEW FILE: ~.norm.pd --- #N canvas 462 350 544 148 10; #X obj 23 20 inlet~ f; #X obj 23 58 outlet f; #X text 101 18 \$1.norm takes a value of type \$1 and produces a nonnegative float \, normally using L2-norm formulas; #X obj 23 39 env~; #X connect 0 0 3 0; #X connect 3 0 1 0; Index: f.norm.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/f.norm.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** f.norm.pd 1 Jan 2006 03:29:29 -0000 1.1 --- f.norm.pd 1 Jan 2006 06:47:11 -0000 1.2 *************** *** 2,8 **** #X obj 23 20 inlet f; #X obj 23 58 outlet f; ! #X obj 23 39 abs; ! #X text 101 18 \$1norm takes a value of type \$1 and produces a nonnegative float \, normally using L2-norm formulas; ! #X connect 0 0 2 0; ! #X connect 2 0 1 0; --- 2,8 ---- #X obj 23 20 inlet f; #X obj 23 58 outlet f; ! #X text 101 18 \$1.norm takes a value of type \$1 and produces a nonnegative float \, normally using L2-norm formulas; ! #X obj 23 39 abs; ! #X connect 0 0 3 0; ! #X connect 3 0 1 0;

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs January 2006