Pd-cvs June 2006

pd-cvs@lists.iem.at

13 participants
225 discussions

[PD-cvs] externals/zexy/src configure.ac, 1.17, 1.18 Make.config.in, 1.2, 1.3 Makefile, 1.9, 1.10
by IOhannes m zmölnig 06 Jun '06

06 Jun '06

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3326 Modified Files: configure.ac Make.config.in Makefile Log Message: added build (and configure) target for compilation as single externals (as opposed to 1 big library) Index: configure.ac =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/configure.ac,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** configure.ac 24 Jan 2006 21:34:48 -0000 1.17 --- configure.ac 6 Jun 2006 11:52:20 -0000 1.18 *************** *** 17,21 **** AC_SUBST(STRIP) AC_SUBST(STRIPFLAGS) ! AC_SUBST(ZEXY_VERSION) AC_SUBST(REFERENCEPATH) AC_SUBST(PDLIBDIR) --- 17,22 ---- AC_SUBST(STRIP) AC_SUBST(STRIPFLAGS) ! AC_SUBST(LIBRARY_VERSION) ! AC_SUBST(BUILDLIBRARY) AC_SUBST(REFERENCEPATH) AC_SUBST(PDLIBDIR) *************** *** 36,39 **** --- 37,42 ---- fi + AC_ARG_ENABLE(library,[ --disable-library split the library into single externals]) + if test "x" = "x${enable_PIC}" ; then enable_PIC="${with_PIC}" *************** *** 52,55 **** --- 55,64 ---- fi + if test "xno" != "x${enable_library}" ; then + dnl LATER: find a more generic way to generate the .._LIBRARY define + BUILDLIBRARY="-DZEXY_LIBRARY" + fi + + dnl Checks for libraries. dnl Replace `main' with a function in -lc: *************** *** 185,191 **** - DFLAGS="-DZEXY_LIBRARY" - - dnl Checks for pd-version, to set the correct help-path AC_MSG_CHECKING("pd\>=0.37") --- 194,197 ---- *************** *** 238,242 **** then echo -n "($with_version)...forced " ! ZEXY_VERSION="$with_version" else if test "x$cross_compiling" = "xno" --- 244,248 ---- then echo -n "($with_version)...forced " ! LIBRARY_VERSION="$with_version" else if test "x$cross_compiling" = "xno" *************** *** 253,264 **** if $CC $INCLUDES $DFLAGS -o conftest.o conftest.c > /dev/null 2>&1 then ! ZEXY_VERSION=`./conftest.o` ! echo "$ZEXY_VERSION" else ! ZEXY_VERSION="X" echo "(unknown)" fi else ! ZEXY_VERSION="X" echo "(X)" fi --- 259,270 ---- if $CC $INCLUDES $DFLAGS -o conftest.o conftest.c > /dev/null 2>&1 then ! LIBRARY_VERSION=`./conftest.o` ! echo "$LIBRARY_VERSION" else ! LIBRARY_VERSION="X" echo "(unknown)" fi else ! LIBRARY_VERSION="X" echo "(X)" fi Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/Makefile,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Makefile 6 Mar 2006 11:44:59 -0000 1.9 --- Makefile 6 Jun 2006 11:52:20 -0000 1.10 *************** *** 45,59 **** TARGETS = $(SOURCES:.c=.o) all: $(LIBNAME) cp $(LIBNAME).$(EXT) .. $(LIBNAME): $(TARGETS) z_zexy.c z_zexy.h ! $(LD) $(LFLAGS) -o $(LIBNAME).$(EXT) *.o $(LIBS) ! $(STRIP) $(STRIPFLAGS) $(LIBNAME).$(EXT) $(TARGETS): %.o : %.c $(CC) $(Z_CFLAGS) -c -o $@ $*.c clean: --- 45,72 ---- TARGETS = $(SOURCES:.c=.o) + OBJECTS = $(SOURCES:.c=) + ## if $(BUILDLIBRARY) is defined, we build everything as a single library + ## else we build separate externals + ifneq "$(BUILDLIBRARY)" "" all: $(LIBNAME) cp $(LIBNAME).$(EXT) .. + else + all: externals + endif + + + $(OBJECTS): $(TARGETS) + $(LD) $(LFLAGS) -o $@.$(EXT) $@.o $(LIBS) + $(STRIP) $(STRIPFLAGS) $@.$(EXT) $(LIBNAME): $(TARGETS) z_zexy.c z_zexy.h ! $(LD) $(LFLAGS) -o $@.$(EXT) *.o $(LIBS) ! $(STRIP) $(STRIPFLAGS) $@.$(EXT) $(TARGETS): %.o : %.c $(CC) $(Z_CFLAGS) -c -o $@ $*.c + externals: $(OBJECTS) clean: Index: Make.config.in =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/Make.config.in,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Make.config.in 15 Dec 2005 16:06:56 -0000 1.2 --- Make.config.in 6 Jun 2006 11:52:20 -0000 1.3 *************** *** 1,4 **** --- 1,9 ---- LIBNAME =@LIBNAME@ + # when build as a library this holds a pre-processor define + # (e.g. "-DZEXY_LIBRARY") + # when build as single externals this is empty + BUILDLIBRARY =@BUILDLIBRARY@ + PREFIX =@prefix@@PDLIBDIR@ *************** *** 19,26 **** WFLAGS = ! TARNAME = $(LIBNAME)-@ZEXY_VERSION@.tgz # ICCFLAGS=-march=pentiumiii -axK ! Z_CFLAGS = $(IFLAGS) $(DEFS) -DPD $(WFLAGS) @CFLAGS@ $(CFLAGS) MAKEDEP_FLAGS = @MAKEDEP_FLAGS@ --- 24,31 ---- WFLAGS = ! TARNAME = $(LIBNAME)-@LIBRARY_VERSION@.tgz # ICCFLAGS=-march=pentiumiii -axK ! Z_CFLAGS = $(IFLAGS) $(DEFS) $(BUILDLIBRARY) -DPD $(WFLAGS) @CFLAGS@ $(CFLAGS) MAKEDEP_FLAGS = @MAKEDEP_FLAGS@

1 0

[PD-cvs] externals/zexy/src configure.ac, 1.17, 1.18 Make.config.in, 1.2, 1.3 Makefile, 1.9, 1.10
by IOhannes m zmölnig 06 Jun '06

06 Jun '06

1 0

externals/iem/iemmatrix/src mtx_bspline.c, 1.1, 1.2 mtx_colon.c, 1.3, 1.4
by IOhannes m zmölnig 06 Jun '06

06 Jun '06

Update of /cvsroot/pure-data/externals/iem/iemmatrix/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16769/src Modified Files: mtx_bspline.c mtx_colon.c Log Message: removed unused variables Index: mtx_bspline.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_bspline.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** mtx_bspline.c 9 Apr 2006 20:50:20 -0000 1.1 --- mtx_bspline.c 6 Jun 2006 09:55:22 -0000 1.2 *************** *** 17,24 **** mtx_bspline: this is only in the iemmatrix library since i have to make sure that there is an x-value ! for each y-value; this however enforces that for each point we have to define a point in all dimensions; */ - /* mtx_bspline */ static t_class *mtx_bspline_class; --- 17,28 ---- mtx_bspline: this is only in the iemmatrix library since i have to make sure that there is an x-value ! for each y-value; this however enforces that for each point we have to define a point ! in all dimensions; ! ! think: should we split this into 2 objects? ! - one for calculating the coefficients of the polynomial function for the bspline ! - another for calculating the value of a piecewise polyfuns */ static t_class *mtx_bspline_class; *************** *** 81,89 **** int row=0; int col=0; - t_atom *m = argv+2; t_matrixfloat *x, **y, **u, **p, *w, *d, *fp; t_matrixfloat*dummy; ! int i,j,n; int N; --- 85,92 ---- int row=0; int col=0; t_matrixfloat *x, **y, **u, **p, *w, *d, *fp; t_matrixfloat*dummy; ! int i,j; int N; *************** *** 152,160 **** p[j][i] = (w[i]-u[j][i]*p[j][i+1])/d[i]; } - } - - static void mtx_bspline_list(t_mtx_spline *x, t_symbol *s, int argc, t_atom *argv) { --- 155,160 ---- *************** *** 163,167 **** static void mtx_bspline_float(t_mtx_spline *X, t_float f) { - t_matrixfloat t, t3, t3i; int i=0, j=0; int dim=X->x_dimension; --- 163,166 ---- Index: mtx_colon.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_colon.c,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** mtx_colon.c 29 Mar 2006 12:07:52 -0000 1.3 --- mtx_colon.c 6 Jun 2006 09:55:22 -0000 1.4 *************** *** 120,129 **** CLASS_DEFAULT, A_GIMME, 0); class_addbang (mtx_colon_class, (t_method) mTXColonBang); ! class_addmethod (mtx_colon_class, (t_method) mTXSetColonMode, gensym("mode"), A_DEFSYMBOL, 0); class_addlist (mtx_colon_class, (t_method) mTXColonList); class_addcreator ((t_newmethod) newMTXColon, gensym("mtx_:"), A_GIMME, 0); - col_sym = gensym("col"); - col_sym2 = gensym("column"); } --- 120,127 ---- CLASS_DEFAULT, A_GIMME, 0); class_addbang (mtx_colon_class, (t_method) mTXColonBang); ! class_addmethod (mtx_colon_class, (t_method) mTXSetColonMode, gensym("mode"), A_SYMBOL, 0); class_addlist (mtx_colon_class, (t_method) mTXColonList); class_addcreator ((t_newmethod) newMTXColon, gensym("mtx_:"), A_GIMME, 0); }

1 0

externals/iem/iemmatrix/src mtx_bspline.c, 1.1, 1.2 mtx_colon.c, 1.3, 1.4
by IOhannes m zmölnig 06 Jun '06

06 Jun '06

1 0

externals/iem/iemmatrix/src mtx_bspline.c, 1.1, 1.2 mtx_colon.c, 1.3, 1.4
by IOhannes m zmölnig 06 Jun '06

06 Jun '06

1 0

externals/mapping radians0x2d0x3emapping.pd, NONE, 1.1 mapping0x2d0x3edegrees.pd, NONE, 1.1 mapping0x2d0x3eradians.pd, NONE, 1.1 degrees0x2d0x3emapping.pd, NONE, 1.1 vector.pd, 1.1, 1.2 TODO, 1.1, 1.2
by Hans-Christoph Steiner 06 Jun '06

06 Jun '06

Update of /cvsroot/pure-data/externals/mapping In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18182 Modified Files: vector.pd TODO Added Files: radians0x2d0x3emapping.pd mapping0x2d0x3edegrees.pd mapping0x2d0x3eradians.pd degrees0x2d0x3emapping.pd Log Message: renamed '2' objects to '->' objects using hex altnames --- NEW FILE: radians0x2d0x3emapping.pd --- #N canvas 258 110 429 400 10; #X obj 42 36 inlet; #X obj 140 297 outlet; #X text 19 9 [rad2hid]; #X obj 141 234 % 628318; #X obj 127 167 moses 0; #X obj 141 255 / 628318; #X obj 42 96 * 100000; #X obj 41 167 % 628318; #X obj 42 136 moses -314159; #X obj 85 200 + 628318; #X text 10 66 % is an int operation \, we want floats \, so convert to large integers; #X text 225 351 released under the GNU GPL; #X text 8 337 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; #X connect 0 0 6 0; #X connect 3 0 5 0; #X connect 4 0 9 0; #X connect 4 1 3 0; #X connect 5 0 1 0; #X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 8 0 7 0; #X connect 8 1 4 0; #X connect 9 0 3 0; Index: vector.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/vector.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** vector.pd 29 Jan 2006 05:43:33 -0000 1.1 --- vector.pd 4 Jun 2006 15:27:08 -0000 1.2 *************** *** 1,3 **** ! #N canvas 711 171 488 431 10; #X obj 30 75 inlet; #X obj 25 300 outlet; --- 1,4 ---- ! #N canvas 711 171 496 439 10; ! #X obj 349 16 import mapping; #X obj 30 75 inlet; #X obj 25 300 outlet; *************** *** 18,31 **** #X text 23 318 magnatude; #X obj 153 197 zexy/cart2pol; - #X obj 231 267 radians2mapping; #X obj 29 159 float; #X obj 76 127 trigger bang float; ! #X connect 0 0 18 0; ! #X connect 4 0 19 0; ! #X connect 7 0 1 0; ! #X connect 16 0 7 0; ! #X connect 16 1 17 0; ! #X connect 17 0 3 0; ! #X connect 18 0 16 0; #X connect 19 0 18 0; ! #X connect 19 1 16 1; --- 19,32 ---- #X text 23 318 magnatude; #X obj 153 197 zexy/cart2pol; #X obj 29 159 float; #X obj 76 127 trigger bang float; ! #X obj 233 267 radians->mapping; ! #X connect 1 0 18 0; ! #X connect 5 0 19 0; ! #X connect 8 0 2 0; ! #X connect 17 0 8 0; ! #X connect 17 1 20 0; ! #X connect 18 0 17 0; #X connect 19 0 18 0; ! #X connect 19 1 17 1; ! #X connect 20 0 4 0; --- NEW FILE: mapping0x2d0x3edegrees.pd --- #N canvas 163 40 448 360 10; #X obj 88 30 inlet; #X obj 89 264 outlet; #X obj 88 56 min 1; #X obj 88 74 max 0; #X text 133 63 its a [hid] object \, so limit input range; #X text 232 311 released under the GNU GPL; #X text 15 297 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 129 28 input range: 0 to 1 \, 0 = east/right; #X text 143 264 output range: 0 to 360 \, 0 = north/top; #X obj 88 100 * 360; #X text 162 189 % is an int operation; #X text 169 207 this saves accuracy; #X obj 88 148 abs; #X obj 88 123 - 450; #X text 131 122 <- rotate zero to north; #X text 130 148 <- change direction of rotation; #X obj 89 202 % 3.6e+07; #X obj 89 223 / 100000; #X obj 89 181 * 100000; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 9 0; #X connect 9 0 13 0; #X connect 12 0 18 0; #X connect 13 0 12 0; #X connect 16 0 17 0; #X connect 17 0 1 0; #X connect 18 0 16 0; --- NEW FILE: degrees0x2d0x3emapping.pd --- #N canvas 380 212 444 356 10; #X obj 88 30 inlet; #X obj 89 264 outlet; #X text 232 311 released under the GNU GPL; #X text 15 297 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 143 264 output range: 0 to 360 \, 0 = north/top; #X text 19 9 [deg2hid]; #X text 129 28 input range: 0 to 360 \, 0 = east/right; #X obj 88 170 / 360; #X text 162 108 % is an int operation; #X text 169 126 this saves accuracy; #X obj 89 121 % 3.6e+07; #X obj 89 142 / 100000; #X obj 89 100 * 100000; #X obj 45 210 moses 0; #X obj 45 230 + 1; #X connect 0 0 12 0; #X connect 7 0 13 0; #X connect 10 0 11 0; #X connect 11 0 7 0; #X connect 12 0 10 0; #X connect 13 0 14 0; #X connect 13 1 1 0; #X connect 14 0 1 0; --- NEW FILE: mapping0x2d0x3eradians.pd --- #N canvas 287 246 474 345 10; #X obj 15 30 inlet; #X obj 16 264 outlet; #X obj 16 198 * 6.28318; #X obj 15 101 moses 0.5; #X obj 15 56 min 1; #X obj 15 74 max 0; #X obj 74 133 - 1; #X text 56 28 input range: 0 to 1; #X text 70 264 output range: -pi to pi; #X text 232 311 released under the GNU GPL; #X text 15 297 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 60 63 this should be converted so it can handle out of range values \, using a mod and a div prolly.; #X connect 0 0 4 0; #X connect 2 0 1 0; #X connect 3 0 2 0; #X connect 3 1 6 0; #X connect 4 0 5 0; #X connect 5 0 3 0; #X connect 6 0 2 0; Index: TODO =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/TODO,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TODO 6 Apr 2006 23:01:46 -0000 1.1 --- TODO 4 Jun 2006 15:27:08 -0000 1.2 *************** *** 14,15 **** --- 14,68 ---- - merge ds_ list objects with abstractions/footils/list-abs + + + - http://www.fredrikolofsson.com/pages/code-pd.html + check out f0.smooth and f0.smooth2 (single/double exponential smoothing) + + + -track down Golan Levin's curve algorithm page + + ______________________________________________________________________________ + = figure out whole degree issue + + - should degree conversion also change rotation direction and 0 point? The + degrees on a compass rotate the opposite direction of radians. The 0 point + of a compass is due north, with radians, its right/due east. + + - [hid_polar] should take an argument (in degrees?) which specifies where the + 0 is on the circle + + + ========= + smoothing algorithms + + + http://www.chem.uoa.gr/applets/AppletSmooth/Appl_Smooth2.html + + + http://www.nist.gov/dads/ + + + ______________________________________________________________________________ + = mapping object ideas + + [hid2midi] [midi2hid] + + midi value + bend <-> hid + - use MIDI pitch and bend data for values in between MIDI notes? + + object for Fletcher-Munson Equal-loudness contours + + median average object + + [infinitepot] for use with a [knob] or any single axis that could be infinite. + + [hid_debounce] + + peak finder object + + "kalman filters" + + Curves!! + + http://www.2dcurves.com +

1 0

externals/mapping spiral.pd,1.2,1.3 polar.pd,1.2,1.3
by Hans-Christoph Steiner 06 Jun '06

06 Jun '06

Update of /cvsroot/pure-data/externals/mapping In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16288 Modified Files: spiral.pd polar.pd Log Message: added clockwise argument to change direction Index: spiral.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/spiral.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** spiral.pd 17 Mar 2006 05:49:24 -0000 1.2 --- spiral.pd 4 Jun 2006 15:21:26 -0000 1.3 *************** *** 1,3 **** ! #N canvas 492 167 685 457 10; #X obj 30 58 inlet; #X obj 25 393 outlet; --- 1,3 ---- ! #N canvas 492 167 689 461 10; #X obj 30 58 inlet; #X obj 25 393 outlet; *************** *** 25,29 **** we get to it (i.e. when I get a tablet); #X text 280 392 output range: infinite \, one rotation = 1; - #X obj 105 106 polar; #X obj 135 125 trigger float float; #X obj 340 298 float; --- 25,28 ---- *************** *** 32,39 **** #X obj 152 304 float; #X obj 174 191 t b f; ! #X connect 0 0 21 0; ! #X connect 5 0 21 1; #X connect 11 0 16 0; ! #X connect 11 0 23 0; #X connect 12 0 11 0; #X connect 13 0 11 0; --- 31,41 ---- #X obj 152 304 float; #X obj 174 191 t b f; ! #X text 231 413 angle; ! #X text 25 414 distance; ! #X obj 84 106 polar \$1; ! #X connect 0 0 29 0; ! #X connect 5 0 29 1; #X connect 11 0 16 0; ! #X connect 11 0 22 0; #X connect 12 0 11 0; #X connect 13 0 11 0; *************** *** 44,54 **** #X connect 17 1 18 0; #X connect 18 1 13 0; ! #X connect 21 0 1 0; ! #X connect 21 1 22 0; ! #X connect 22 0 26 0; ! #X connect 22 1 15 0; ! #X connect 23 0 11 1; ! #X connect 24 0 27 0; ! #X connect 26 0 14 0; ! #X connect 27 0 26 0; ! #X connect 27 1 11 0; --- 46,56 ---- #X connect 17 1 18 0; #X connect 18 1 13 0; ! #X connect 21 0 25 0; ! #X connect 21 1 15 0; ! #X connect 22 0 11 1; ! #X connect 23 0 26 0; ! #X connect 25 0 14 0; ! #X connect 26 0 25 0; ! #X connect 26 1 11 0; ! #X connect 29 0 1 0; ! #X connect 29 1 21 0; Index: polar.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/polar.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** polar.pd 17 Mar 2006 05:48:19 -0000 1.2 --- polar.pd 4 Jun 2006 15:21:26 -0000 1.3 *************** *** 1,3 **** ! #N canvas 189 157 641 435 10; #X text 24 332 output range: 0 to 1; #X text 28 41 input range: 0 to 1; --- 1,3 ---- ! #N canvas 189 157 645 439 10; #X text 24 332 output range: 0 to 1; #X text 28 41 input range: 0 to 1; *************** *** 16,35 **** ; #X obj 88 218 vector; ! #X obj 435 54 symbol_argument \$1; ! #X obj 435 80 select reverse; ! #X text 420 107 TODO: figure this out; ! #X obj 435 29 loadbang; #X obj 30 58 inlet x; #X obj 224 56 inlet y; #X obj 25 313 outlet radius; #X obj 232 312 outlet angle; #X connect 6 0 14 1; #X connect 7 0 6 0; #X connect 8 0 14 0; #X connect 9 0 8 0; ! #X connect 14 0 21 0; ! #X connect 14 1 22 0; ! #X connect 15 0 16 0; ! #X connect 18 0 15 0; ! #X connect 19 0 9 0; ! #X connect 20 0 7 0; --- 16,47 ---- ; #X obj 88 218 vector; ! #X obj 365 84 symbol_argument \$1; ! #X obj 385 29 loadbang; #X obj 30 58 inlet x; #X obj 224 56 inlet y; #X obj 25 313 outlet radius; #X obj 232 312 outlet angle; + #X obj 192 261 cyclone/gate 2; + #X obj 284 282 mapping/reverse; + #X msg 499 124 1; + #X msg 365 124 2; + #X obj 365 104 select clockwise; + #X obj 384 59 trigger bang bang; #X connect 6 0 14 1; #X connect 7 0 6 0; #X connect 8 0 14 0; #X connect 9 0 8 0; ! #X connect 14 0 19 0; ! #X connect 14 1 21 1; ! #X connect 15 0 25 0; ! #X connect 16 0 26 0; ! #X connect 17 0 9 0; ! #X connect 18 0 7 0; ! #X connect 21 0 20 0; ! #X connect 21 1 22 0; ! #X connect 22 0 20 0; ! #X connect 23 0 21 0; ! #X connect 24 0 21 0; ! #X connect 25 0 24 0; ! #X connect 26 0 15 0; ! #X connect 26 1 23 0;

1 0

pd/src desire.tk,1.1.2.220,1.1.2.221
by chunlee 06 Jun '06

06 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6741 Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed a duplication bug Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.220 retrieving revision 1.1.2.221 diff -C2 -d -r1.1.2.220 -r1.1.2.221 *** desire.tk 4 Jun 2006 06:17:25 -0000 1.1.2.220 --- desire.tk 4 Jun 2006 23:45:45 -0000 1.1.2.221 *************** *** 1684,1693 **** set born [lwithout $wires $@wires] set born_num [expr [llength $born] - 1] - - if {$@duplicating && [llength $born] > 0} { - puts "##### wires to dup:: $canvas(dup_wire_num) wires got born:: [expr $born_num + 1] #####" - if {$canvas(dup_wire_num) != [expr $born_num + 1]} {} - } - set i 0 foreach x $born { --- 1684,1687 ---- *************** *** 1695,1702 **** if {$@duplicating} { lappend @selection_wire $x ! puts "appending $x from duplication..........." $x selected?= 1 - #if {$i == $born_num} {set @duplicating 0} - puts "### how many wires duped? [llength $@selection_wire] total? $canvas(dup_wire_num)" if {[llength $@selection_wire] == $canvas(dup_wire_num)} {set @duplicating 0} } --- 1689,1694 ---- if {$@duplicating} { lappend @selection_wire $x ! #puts "appending $x from duplication..........." $x selected?= 1 if {[llength $@selection_wire] == $canvas(dup_wire_num)} {set @duplicating 0} } *************** *** 1710,1715 **** } ! #set dead [lwithout $@wires $wires]; foreach x $dead {$x unsubscribe $self; $x erase} ! set dead [lwithout $@wires $wires]; foreach x $dead {$x unsubscribe $self} set @wires $wires $self changed --- 1702,1706 ---- } ! set dead [lwithout $@wires $wires]; foreach x $dead {$x unsubscribe $self; $x erase} set @wires $wires $self changed *************** *** 1970,1978 **** def* Canvas duplicate_wire {} { global _ canvas - puts "!!!!!!!!!!! dup wires for these duplicates::: $@selection !!!!!!!!!!!!" - if {[llength $@selection] != [llength $canvas(dup_orig)]} {error "duplication ([llength $canvas(dup_orig)]) and obj born ([llength $@selection]) don't match.."} - puts "!!!!!!!!!!! dup wires ::: $@selection_wire !!!!!!!!!!!!" - puts "!! $@children !!" set i 0 set canvas(dup_wire_num) [llength $@selection_wire] # _($obj:duplicate) sotres the duplicated object so that we know how to duplicate the wires --- 1961,1966 ---- def* Canvas duplicate_wire {} { global _ canvas set i 0 + set wires {} set canvas(dup_wire_num) [llength $@selection_wire] # _($obj:duplicate) sotres the duplicated object so that we know how to duplicate the wires *************** *** 1983,1997 **** set obj1_dup $_($obj1:duplicate) set obj2_dup $_($obj2:duplicate) ! puts "$obj1 :: $obj1_dup | $obj2 :: $obj2_dup" ! ! #puts "connect [lsearch $@children $obj1_dup] $_($wire:port1) [lsearch $@children $obj2_dup] $_($wire:port2)" pd .$self connect [lsearch $@children $obj1_dup] $_($wire:port1) [lsearch $@children $obj2_dup] $_($wire:port2) $wire selected?= 0 } #clean up foreach obj $canvas(dup_orig) {set _($obj:duplicate) 0} set $canvas(dup_orig) "" #set @duplicating 0 ! set @selection_wire "" } --- 1971,1985 ---- set obj1_dup $_($obj1:duplicate) set obj2_dup $_($obj2:duplicate) ! #puts "$obj1 :: $obj1_dup | $obj2 :: $obj2_dup" pd .$self connect [lsearch $@children $obj1_dup] $_($wire:port1) [lsearch $@children $obj2_dup] $_($wire:port2) + lappend wires [list [lsearch $@children $obj1_dup] $_($wire:port1) [lsearch $@children $obj2_dup] $_($wire:port2)] $wire selected?= 0 } + set @selection_wire "" #clean up foreach obj $canvas(dup_orig) {set _($obj:duplicate) 0} set $canvas(dup_orig) "" #set @duplicating 0 ! #set @selection_wire "" } *************** *** 2626,2629 **** --- 2614,2618 ---- if {![info exists _($x:_class)]} { # new object + if {[info exists classinfo($class)]} { set _($x:_class) [lindex $classinfo($class) 0] *************** *** 2643,2656 **** $x init if {$_($canvas(current):duplicating)} { ! puts "duplicating stuff............ $x" $x selected?= 1 - lappend _($canvas(current):children) $x - $x subscribe $canvas(current); $x canvas= $canvas(current) lappend _($canvas(current):selection) $x ! puts "duplicated ::: [llength $_($canvas(current):selection)]" ! puts "are:: $_($canvas(current):selection)" if {[llength $_($canvas(current):selection)] == [llength $canvas(dup_orig)]} { $canvas(current) duplicate_wire } } --- 2632,2656 ---- $x init if {$_($canvas(current):duplicating)} { ! #puts "duplicating stuff............ $x" $x selected?= 1 lappend _($canvas(current):selection) $x ! ! ! set test [lsearch $_($canvas(current):children) $x] ! if {$test <0} { ! #puts "$_($x:_class)" ! puts "oops..... $x is not in children!!!!!!!!!!!!!!!!!!!" ! $x subscribe $canvas(current) ! $x canvas= $canvas(current) ! $x ninlets= $ninlets ! $x noutlets= $noutlets ! lappend _($canvas(current):children) $x ! } ! if {[llength $_($canvas(current):selection)] == [llength $canvas(dup_orig)]} { + #puts "############ dude, all done ##################" $canvas(current) duplicate_wire } + } *************** *** 2698,2710 **** set _($canvas(current):unborn) "" ! if {$_($canvas(current):duplicating)} { ! #$canvas(current) duplicate_wire ! } else { if {[info exists _($canvas(current):unborn_wire)]} { puts "time to draw wires ----- $_($canvas(current):unborn_wire)" $canvas(current) wires= $_($canvas(current):unborn_wire) ! set _($canvas(current):unborn_wire) "" ! } } } } --- 2698,2709 ---- set _($canvas(current):unborn) "" ! if {[info exists _($canvas(current):unborn_wire)]} { puts "time to draw wires ----- $_($canvas(current):unborn_wire)" $canvas(current) wires= $_($canvas(current):unborn_wire) ! #set _($canvas(current):unborn_wire) "" ! unset _($canvas(current):unborn_wire) } + } } *************** *** 2712,2718 **** # maybe this $x changed should be changed, so that when loading a file, changed won't # call the drawing method twice... - $x changed } --- 2711,2727 ---- # maybe this $x changed should be changed, so that when loading a file, changed won't # call the drawing method twice... $x changed + #if {$_($canvas(current):duplicating)} { + # if {$_($x:_class) != "Canvas"} { + # set test [lsearch $_($canvas(current):children) $x] + # if {$test <0} { + # puts "$_($x:_class)" + # puts "oops..... $x is not in children!!!!!!!!!!!!!!!!!!!" + # puts "children are $_($canvas(current):children)" + # } + # } + #} + }

1 0

[PD-cvs] externals/mapping/help mapping0x2d0x3edegrees-help.pd, NONE, 1.1 mapping0x2d0x3eradians-help.pd, NONE, 1.1 degrees0x2d0x3emapping-help.pd, NONE, 1.1 radians0x2d0x3emapping-help.pd, NONE, 1.1
by Hans-Christoph Steiner 06 Jun '06

06 Jun '06

Update of /cvsroot/pure-data/externals/mapping/help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18182/help Added Files: mapping0x2d0x3edegrees-help.pd mapping0x2d0x3eradians-help.pd degrees0x2d0x3emapping-help.pd radians0x2d0x3emapping-help.pd Log Message: renamed '2' objects to '->' objects using hex altnames --- NEW FILE: mapping0x2d0x3edegrees-help.pd --- #N canvas 589 387 487 327 10; #X obj 5 2 cnv 15 450 20 empty empty [mapping2deg] 2 11 1 18 -233017 -66577 0; #X msg 422 3 pddp; #X text 254 269 released under the GNU GPL; #X text 185 228 For more info:; #X obj 289 226 pddp_open mapping-about; #X text 40 254 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 300 168 related objects:; #X obj 240 184 radians2mapping; #X obj 352 184 degrees2mapping; #X floatatom 69 185 7 0 0 1 degrees - -; #X obj 72 85 hsl 128 15 0 1 0 0 empty empty mapping 6 7 1 10 -262131 -1 -1 12700 0; #X floatatom 95 115 5 0 0 0 - - -; #X obj 69 150 mapping2degrees; #X text 26 34 This object converts numbers from the mapping range (0 to 1) to degrees (0 to 360) with the 0 being north.; #X obj 298 205 mapping2radians; #X connect 10 0 11 0; #X connect 10 0 12 0; #X connect 12 0 9 0; --- NEW FILE: degrees0x2d0x3emapping-help.pd --- #N canvas 237 323 487 327 10; #X obj 5 2 cnv 15 450 20 empty empty [degrees2mapping] 2 11 1 18 -233017 -66577 0; #X msg 422 3 pddp; #X text 254 269 released under the GNU GPL; #X text 185 228 For more info:; #X obj 289 226 pddp_open mapping-about; #X text 40 254 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 300 168 related objects:; #X obj 352 184 radians2mapping; #X floatatom 56 203 7 0 0 1 - - -; #X obj 59 103 hsl 300 15 0 360 0 0 empty empty degrees 6 7 1 10 -262131 -1 -1 29900 0; #X floatatom 82 133 5 0 0 0 - - -; #X text 26 34 This object converts numbers from the mapping range (0 to 1) to radians (-pi to pi) with the 0's lining up in the same place. ; #X obj 296 204 mapping2degrees; #X obj 56 168 degrees2mapping; #X obj 240 184 mapping2radians; #X connect 9 0 10 0; #X connect 9 0 13 0; #X connect 13 0 8 0; --- NEW FILE: radians0x2d0x3emapping-help.pd --- #N canvas 168 236 533 333 10; #X obj 5 2 cnv 15 450 20 empty empty [radians2mapping] 2 11 1 18 -233017 -66577 0; #X msg 422 3 pddp; #X text 254 269 released under the GNU GPL; #X text 144 228 For more info:; #X text 40 254 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 254 186 related objects:; #X floatatom 69 195 5 0 0 1 mapping - -; #X obj 72 95 hsl 128 15 -3.14159 3.14159 0 0 empty empty radians 6 7 1 10 -262131 -1 -1 0 0; #X floatatom 95 125 9 0 0 0 - - -; #X obj 69 160 radians2mapping; #X text 21 35 This object converts numbers from radians (-pi to pi) to the mapping range (0 to 1) with the 0's lining up in the same place. ; #X obj 252 202 radians2mapping; #X obj 140 202 degrees2mapping; #X obj 365 202 mapping2degrees; #X obj 248 226 pddp_open mapping-about; #X connect 7 0 8 0; #X connect 7 0 9 0; #X connect 9 0 6 0; --- NEW FILE: mapping0x2d0x3eradians-help.pd --- #N canvas 633 307 475 315 10; #X obj 5 2 cnv 15 450 20 empty empty [mapping2radians] 2 11 1 18 -233017 -66577 0; #X msg 422 3 pddp; #X text 254 269 released under the GNU GPL; #X text 185 228 For more info:; #X obj 289 226 pddp_open mapping-about; #X text 40 254 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 294 161 related objects:; #X obj 234 181 radians2mapping; #X obj 346 181 degrees2mapping; #X obj 288 200 mapping2degrees; #X floatatom 69 185 9 0 0 1 radians - -; #X obj 72 85 hsl 128 15 0 1 0 0 empty empty mapping 6 7 1 10 -262131 -1 -1 0 0; #X floatatom 95 115 5 0 0 0 - - -; #X obj 69 150 mapping2radians; #X text 26 34 This object converts numbers from the mapping range (0 to 1) to radians (-pi to pi) with the 0's lining up in the same place. ; #X connect 11 0 12 0; #X connect 11 0 13 0; #X connect 13 0 10 0;

1 0

externals/mapping/help fir-help.pd, 1.1, 1.2 iir-help.pd, 1.1, 1.2
by Hans-Christoph Steiner 06 Jun '06

06 Jun '06

Update of /cvsroot/pure-data/externals/mapping/help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16781/help Modified Files: fir-help.pd iir-help.pd Log Message: added links to docs about FIR and IIR Index: iir-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/help/iir-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** iir-help.pd 3 Feb 2006 22:40:36 -0000 1.1 --- iir-help.pd 4 Jun 2006 15:22:21 -0000 1.2 *************** *** 1,3 **** ! #N canvas 127 104 679 509 10; #X floatatom 471 193 5 0 0 0 - - -; #X text 22 11 data; --- 1,3 ---- ! #N canvas 127 104 683 513 10; #X floatatom 471 193 5 0 0 0 - - -; #X text 22 11 data; *************** *** 12,23 **** #X text 180 65 (check if it's true); #X obj 27 30 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 ! -1 -1 12700 1; #X text 89 27 [iir] computes a infinite impulse response low-pass filter of order one; #X text 273 269 high-pass; #X text 482 264 low-pass; ! #X text 302 468 noise; ! #X text 83 465 original; ! #X text 530 467 signal; #X connect 0 0 8 1; #X connect 2 0 4 0; --- 12,26 ---- #X text 180 65 (check if it's true); #X obj 27 30 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 ! -1 -1 0 1; #X text 89 27 [iir] computes a infinite impulse response low-pass filter of order one; #X text 273 269 high-pass; #X text 482 264 low-pass; ! #X text 302 444 noise; ! #X text 83 441 original; ! #X text 530 443 signal; ! #X text 67 467 For more info on IIR:; ! #X obj 116 483 pddp/pddplink http://www.dspguru.com/info/faqs/iirfaq.htm ! ; #X connect 0 0 8 1; #X connect 2 0 4 0; Index: fir-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/help/fir-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** fir-help.pd 28 Feb 2006 07:37:08 -0000 1.1 --- fir-help.pd 4 Jun 2006 15:22:21 -0000 1.2 *************** *** 1,3 **** ! #N canvas 408 203 739 423 10; #X obj 174 76 loadbang; #X text 97 58 data; --- 1,3 ---- ! #N canvas 141 49 626 486 10; #X obj 174 76 loadbang; #X text 97 58 data; *************** *** 11,15 **** #X obj 123 187 fir 5; #X obj 77 10 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 ! -1 -1 8300 1; #X connect 0 0 6 0; #X connect 2 0 7 0; --- 11,18 ---- #X obj 123 187 fir 5; #X obj 77 10 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 ! -1 -1 12200 1; ! #X obj 116 423 pddp/pddplink http://www.dspguru.com/info/faqs/firfaq.htm ! ; ! #X text 67 407 For more info on FIR:; #X connect 0 0 6 0; #X connect 2 0 7 0;

1 0

← Newer
1
...
15
16
17
18
19
20
21
22
23
Older →

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 June 2006