Pd-cvs February 2004

pd-cvs@lists.iem.at

11 participants
161 discussions

externals/miXed/toxy build_counter,1.3,1.4
by krzyszcz＠users.sourceforge.net 29 Feb '04

29 Feb '04

Update of /cvsroot/pure-data/externals/miXed/toxy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9512/toxy Modified Files: build_counter Log Message: scriptlet bugs: qpush and params Index: build_counter =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/toxy/build_counter,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** build_counter 25 Feb 2004 10:54:43 -0000 1.3 --- build_counter 29 Feb 2004 17:16:44 -0000 1.4 *************** *** 1,3 **** #define TOXY_VERSION "0.1" #define TOXY_RELEASE "alpha" ! #define TOXY_BUILD 3 --- 1,3 ---- #define TOXY_VERSION "0.1" #define TOXY_RELEASE "alpha" ! #define TOXY_BUILD 4

1 0

externals/miXed/test/toxy default.wid,1.4,1.5
by krzyszcz＠users.sourceforge.net 29 Feb '04

29 Feb '04

Update of /cvsroot/pure-data/externals/miXed/test/toxy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9512/test/toxy Modified Files: default.wid Log Message: scriptlet bugs: qpush and params Index: default.wid =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/default.wid,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** default.wid 25 Feb 2004 10:54:43 -0000 1.4 --- default.wid 29 Feb 2004 17:16:44 -0000 1.5 *************** *** 163,167 **** set [$path cget -textvariable] $text pd [concat $target _cb $i \;] ! pd [concat $remote $i \;] } --- 163,169 ---- set [$path cget -textvariable] $text pd [concat $target _cb $i \;] ! if {$remote != "."} { ! pd [concat $remote $i \;] ! } } *************** *** 223,224 **** --- 225,235 ---- bind .- <Return> {eval .<[.- get].>; focus .^.c} + + #> popup menubutton + #. -menu .-.pop + #. -bg purple -fg white -activebackground magenta -width 8 -text popup + #. @float if .(.#1 >= 1.) .(.-.pop invoke .#1.) + #. #items test + #. #iprops "-bg" purple "-fg" white "-activebackground" magenta + + ::toxy::popup .- .| . [concat .#items] .#iprops

1 0

externals/miXed Makefile.dirs,1.2,1.3
by krzyszcz＠users.sourceforge.net 29 Feb '04

29 Feb '04

Update of /cvsroot/pure-data/externals/miXed In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9512 Modified Files: Makefile.dirs Log Message: scriptlet bugs: qpush and params Index: Makefile.dirs =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/Makefile.dirs,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Makefile.dirs 19 Feb 2004 22:23:16 -0000 1.2 --- Makefile.dirs 29 Feb 2004 17:16:43 -0000 1.3 *************** *** 2,8 **** shared \ cyclone \ ! toxy \ ! xeq \ ! vexing RELEASE_DIRS = \ --- 2,6 ---- shared \ cyclone \ ! toxy RELEASE_DIRS = \

1 0

externals/miXed/shared/toxy scriptlet.c,1.4,1.5
by krzyszcz＠users.sourceforge.net 29 Feb '04

29 Feb '04

Update of /cvsroot/pure-data/externals/miXed/shared/toxy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9512/shared/toxy Modified Files: scriptlet.c Log Message: scriptlet bugs: qpush and params Index: scriptlet.c =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/shared/toxy/scriptlet.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** scriptlet.c 25 Feb 2004 10:54:42 -0000 1.4 --- scriptlet.c 29 Feb 2004 17:16:44 -0000 1.5 *************** *** 23,27 **** #define SCRIPTLET_MARGIN 64 #define SCRIPTLET_MAXARGS 9 /* do not increase (parser's constraint) */ ! #define SCRIPTLET_MAXPUSH 20000 /* Tcl limit? LATER investigate */ enum { SCRIPTLET_CVOK, SCRIPTLET_CVUNKNOWN, SCRIPTLET_CVMISSING }; --- 23,27 ---- #define SCRIPTLET_MARGIN 64 #define SCRIPTLET_MAXARGS 9 /* do not increase (parser's constraint) */ ! #define SCRIPTLET_MAXPUSH 20000 /* cf SOCKSIZE in t_tkcmd.c, LATER revisit */ enum { SCRIPTLET_CVOK, SCRIPTLET_CVUNKNOWN, SCRIPTLET_CVMISSING }; *************** *** 145,164 **** else if (argprops) { ! char *ptr; int cnt; ! for (ptr = ibuf + 1, cnt = 1; *ptr; ptr++, cnt++) { - char c = *ptr; if ((c < 'A' || c > 'Z') && (c < 'a' || c > 'z')) { ! cnt = 0; break; } } ! if (cnt && (ptr = props_getvalue(argprops, ibuf + 1))) { ! strcpy(obuf, ptr); len = cnt; } } } --- 145,165 ---- else if (argprops) { ! char *iptr, *optr, c; int cnt; ! for (iptr = ibuf + 1, c = *iptr, cnt = 1; c; ! iptr++, c = *iptr, cnt++) { if ((c < 'A' || c > 'Z') && (c < 'a' || c > 'z')) { ! *iptr = 0; break; } } ! if (optr = props_getvalue(argprops, ibuf + 1)) { ! strcpy(obuf, optr); len = cnt; } + if (c) *iptr = c; } } *************** *** 425,430 **** sys_gui(sp->s_buffer); *tail = 0; ! sprintf(buf, "after 0 {::toxy::query}\nvwait ::toxy::reply\n\ ! pd [concat %s _rp $::toxy::reply \\;]\n", sp->s_rptarget->s_name); sys_gui(buf); } --- 426,432 ---- sys_gui(sp->s_buffer); *tail = 0; ! /* LATER find out if reply does not fit better inside the query proc */ ! sprintf(buf, "after 0 {::toxy::query\n\ ! pd [concat %s _rp $::toxy::reply \\;]}\n", sp->s_rptarget->s_name); sys_gui(buf); }

1 0

externals/tbext/source rifftw~.cpp,NONE,1.1
by timblech＠users.sourceforge.net 29 Feb '04

29 Feb '04

Update of /cvsroot/pure-data/externals/tbext/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4891/source Added Files: rifftw~.cpp Log Message: --- NEW FILE: rifftw~.cpp --- /* Copyright (c) 2004 Tim Blechmann. */ /* For information on usage and redistribution, and for a DISCLAIMER OF ALL */ /* WARRANTIES, see the file, "COPYING" in this distribution. */ /* */ /* */ /* rifftw~ is doing the same as rifft~, but it's based on the fftw library, */ /* that is much faster that pd's internal fft ... */ /* */ /* */ /* rifftw~ uses the flext C++ layer for Max/MSP and PD externals. */ /* get it at http://www.parasitaere-kapazitaeten.de/PD/ext */ /* thanks to Thomas Grill */ /* */ /* */ /* */ /* 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. */ /* */ /* See file LICENSE for further informations on licensing terms. */ /* */ /* 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; if not, write to the Free Software */ /* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* */ /* Based on PureData by Miller Puckette and others. */ /* */ /* */ /* */ /* coded while listening to: Caged/Uncaged */ /* Sunny Murray: Hommage To Africa */ /* */ /* */ #include <flext.h> #include "fftw3.h" #include <algorithm> #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 401) #error upgrade your flext version!!!!!! #endif class rifftw: public flext_dsp { FLEXT_HEADER(rifftw,flext_dsp); public: // constructor rifftw(); ~rifftw(); protected: virtual void m_signal (int n, float *const *in, float *const *out); fftwf_plan p; //fftw plan int bins; //number of bins float * inreal; //pointer to real input float * inimag; //pointer to imaginary input fftwf_complex * incomplex; //float * infft; //array fftw is working on float * outfft; //array fftw uses to output it's values private: }; FLEXT_LIB_DSP("rifftw~",rifftw); rifftw::rifftw() :bins(64) { //get ready for the default blocksize // infft = fftwf_malloc(sizeof(float) * bins); outfft = fftwf_malloc(sizeof(float) * bins); incomplex = fftwf_malloc(sizeof(fftwf_complex) * bins); // p=fftwf_plan_r2r_1d(bins,infft,outfft,FFTW_BACKWARD,FFTW_MEASURE); p=fftwf_plan_dft_c2r_1d(bins,incomplex,outfft,FFTW_BACKWARD,FFTW_MEASURE); AddInSignal(); AddInSignal(); AddOutSignal(); } rifftw::~rifftw() { // fftwf_free(infft); fftwf_free(outfft); fftwf_free(incomplex); fftwf_destroy_plan(p); } void rifftw::m_signal(int n, float *const *in, float *const *out) { //set output pointers inreal = in[0]; inimag = in[1]; //if blocksize changed, we have to set a new plan for the fft if (n!=bins) { bins=n; //re-allocate fft buffers // fftwf_free(infft); // infft = fftwf_malloc(sizeof(float) * bins); fftwf_free(outfft); outfft = fftwf_malloc(sizeof(float) * bins); fftwf_free(incomplex); incomplex = fftwf_malloc(sizeof(fftwf_complex) * bins); //set plan, this might take a few seconds //but you don't have to do that on the fly... fftwf_destroy_plan(p); //p=fftwf_plan_r2r_1d(bins,infft,outfft,FFTW_BACKWARD,FFTW_MEASURE); p=fftwf_plan_dft_c2r_1d(bins,incomplex,outfft,FFTW_BACKWARD,FFTW_MEASURE); } //Copy samples to the fft // CopySamples(infft,inreal,n/2); // std::reverse_copy(inimag,inimag+n/2,infft+n/2); /* //why do we have to invert the samples??? for (int i = n/2+1; i!=n;++i) { *(infft+i)=-*(infft+i); } */ for (int i=0;i!=n/2;++i) { incomplex[i][0]=inreal[i]; incomplex[i][1]=-inimag[i]; } //execute fftwf_execute(p); CopySamples(out[0],outfft,n); }

1 0

externals/tbext/source main.cpp,1.9,1.10
by timblech＠users.sourceforge.net 29 Feb '04

29 Feb '04

Update of /cvsroot/pure-data/externals/tbext/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4760/source Modified Files: main.cpp Log Message: Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/tbext/source/main.cpp,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** main.cpp 28 Jan 2004 11:09:13 -0000 1.9 --- main.cpp 29 Feb 2004 13:56:32 -0000 1.10 *************** *** 1,3 **** ! /* Copyright (c) 2003 Tim Blechmann. */ /* For information on usage and redistribution, and for a DISCLAIMER OF ALL */ /* WARRANTIES, see the file, "COPYING" in this distribution. */ --- 1,3 ---- ! /* Copyright (c) 2003-2004 Tim Blechmann. */ /* For information on usage and redistribution, and for a DISCLAIMER OF ALL */ /* WARRANTIES, see the file, "COPYING" in this distribution. */ *************** *** 41,45 **** #include <flext.h> ! #define TBEXT_VERSION "0.03" #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 400) --- 41,45 ---- #include <flext.h> ! #define TBEXT_VERSION "0.04" #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 400) *************** *** 53,57 **** post("compiled on "__DATE__); post("contains: tbroute(~), tbsig~, tbpow~, tbfft1~, tbfft2~, bufline~, fftgrrev~"); ! post(" fftgrsort~, fftgrshuf~"); FLEXT_SETUP(tbroute); --- 53,57 ---- post("compiled on "__DATE__); post("contains: tbroute(~), tbsig~, tbpow~, tbfft1~, tbfft2~, bufline~, fftgrrev~"); ! post(" fftgrsort~, fftgrshuf~, rfftw~, rifftw~"); FLEXT_SETUP(tbroute); *************** *** 67,71 **** FLEXT_DSP_SETUP(fftgrshuf); FLEXT_DSP_SETUP(fftgrrev); ! FLEXT_DSP_SETUP(spigot_tilde); } --- 67,78 ---- FLEXT_DSP_SETUP(fftgrshuf); FLEXT_DSP_SETUP(fftgrrev); ! ! ! #if (FFTW == 1) ! FLEXT_DSP_SETUP(rfftw); ! FLEXT_DSP_SETUP(rifftw); ! #endif ! ! }

1 0

externals/tbext config-pd-linux.txt,1.4,1.5
by timblech＠users.sourceforge.net 29 Feb '04

29 Feb '04

Update of /cvsroot/pure-data/externals/tbext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4586 Modified Files: config-pd-linux.txt Log Message: Index: config-pd-linux.txt =================================================================== RCS file: /cvsroot/pure-data/externals/tbext/config-pd-linux.txt,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** config-pd-linux.txt 28 Jan 2004 11:09:12 -0000 1.4 --- config-pd-linux.txt 29 Feb 2004 13:55:26 -0000 1.5 *************** *** 33,36 **** --- 33,40 ---- # UFLAGS=-mcpu=pentium4 -mmmx -msse2 -msse -mfpmath=sse # gcc 3.2 + #compile support for the fftw3 library + #make sure that you compiled fftw3 for single precision floats!!! + FFTW=1 + # define to link against shared flext library (flext version >= 0.5.0) FLEXT_SHARED=1

1 0

externals/tbext/source rfftw~.cpp,NONE,1.1
by timblech＠users.sourceforge.net 29 Feb '04

29 Feb '04

Update of /cvsroot/pure-data/externals/tbext/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3815/source Added Files: rfftw~.cpp Log Message: --- NEW FILE: rfftw~.cpp --- /* Copyright (c) 2004 Tim Blechmann. */ /* For information on usage and redistribution, and for a DISCLAIMER OF ALL */ /* WARRANTIES, see the file, "COPYING" in this distribution. */ /* */ /* */ /* rfftw~ is doing the same as rfft~, but it's based on the fftw library, */ /* that is much faster that pd's internal fft ... */ /* */ /* */ /* rfftw~ uses the flext C++ layer for Max/MSP and PD externals. */ /* get it at http://www.parasitaere-kapazitaeten.de/PD/ext */ /* thanks to Thomas Grill */ /* */ /* */ /* */ /* 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. */ /* */ /* See file LICENSE for further informations on licensing terms. */ /* */ /* 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; if not, write to the Free Software */ /* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* */ /* Based on PureData by Miller Puckette and others. */ /* */ /* */ /* */ /* coded while listening to: Wolfgang Mitterer: Radiofractal & Beat Music */ /* Sun Ra: Reflections In Blue */ /* */ /* */ #include <flext.h> #include "fftw3.h" #include <algorithm> #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 401) #error upgrade your flext version!!!!!! #endif class rfftw: public flext_dsp { FLEXT_HEADER(rfftw,flext_dsp); public: // constructor rfftw(); ~rfftw(); protected: virtual void m_signal (int n, float *const *in, float *const *out); fftwf_plan p; //fftw plan int bins; //number of bins float * outreal; //pointer to real output float * outimag; //pointer to imaginary output float * infft; //array fftw is working on float * outfft; //array fftw uses to output it's values private: }; FLEXT_LIB_DSP("rfftw~",rfftw); rfftw::rfftw() :bins(64) { //get ready for the default blocksize infft = fftwf_malloc(sizeof(float) * bins); outfft = fftwf_malloc(sizeof(float) * bins); p=fftwf_plan_r2r_1d(bins,infft,outfft,FFTW_FORWARD,FFTW_MEASURE); AddInSignal(); AddOutSignal(); AddOutSignal(); } rfftw::~rfftw() { fftwf_free(infft); fftwf_free(outfft); fftwf_destroy_plan(p); } void rfftw::m_signal(int n, float *const *in, float *const *out) { //set output pointers outreal = out[0]; outimag = out[1]; //if blocksize changed, we have to set a new plan for the fft if (n!=bins) { bins=n; //re-allocate fft buffers fftwf_free(infft); infft = fftwf_malloc(sizeof(float) * bins); fftwf_free(outfft); outfft = fftwf_malloc(sizeof(float) * bins); //set plan, this might take a few seconds //but you don't have to do that on the fly... fftwf_destroy_plan(p); p=fftwf_plan_r2r_1d(bins,infft,outfft,FFTW_FORWARD,FFTW_MEASURE); } CopySamples(infft,in[0],n); //execute fftwf_execute(p); //Copy samples to outlets CopySamples(outreal,outfft,n/2); std::reverse_copy(outfft+n/2+1,outfft+n,outimag+1); //why do we have to invert the samples??? for (int i = n/2+1; i!=0;--i) { *(outimag+i)=-*(outimag+i); } }

1 0

externals/tbext make-files.txt,1.8,1.9
by timblech＠users.sourceforge.net 29 Feb '04

29 Feb '04

Update of /cvsroot/pure-data/externals/tbext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3651 Modified Files: make-files.txt Log Message: Index: make-files.txt =================================================================== RCS file: /cvsroot/pure-data/externals/tbext/make-files.txt,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** make-files.txt 28 Jan 2004 11:09:12 -0000 1.8 --- make-files.txt 29 Feb 2004 13:50:44 -0000 1.9 *************** *** 5,9 **** tbpow~.cpp tbfft1.cpp tbfft2.cpp fftbuf.cpp fftgrsort.cpp \ fftgrshuf.cpp fftgrrev.cpp ! #HDRS= \ --- 5,12 ---- tbpow~.cpp tbfft1.cpp tbfft2.cpp fftbuf.cpp fftgrsort.cpp \ fftgrshuf.cpp fftgrrev.cpp ! ! ifdef FFTW ! SRCS+=fftw~.cpp ifftw~.cpp rfftw~.cpp rifftw~.cpp ! endif #HDRS= \

1 0

externals/tbext makefile.pd-linux,1.4,1.5
by timblech＠users.sourceforge.net 29 Feb '04

29 Feb '04

Update of /cvsroot/pure-data/externals/tbext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3590 Modified Files: makefile.pd-linux Log Message: Index: makefile.pd-linux =================================================================== RCS file: /cvsroot/pure-data/externals/tbext/makefile.pd-linux,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** makefile.pd-linux 28 Jan 2004 11:09:12 -0000 1.4 --- makefile.pd-linux 29 Feb 2004 13:50:05 -0000 1.5 *************** *** 1,4 **** ! # xsample - extended sample objects for Max/MSP and pd (pure data) ! # Copyright (c) 2001-2003 Thomas Grill (xovo(a)gmx.net) # # Makefile for gcc @ linux --- 1,3 ---- ! # makefile adapted from thomas grill's xsample makefile # # Makefile for gcc @ linux *************** *** 29,32 **** --- 28,36 ---- endif + ifdef FFTW + LDFLAGS+=-lfftw3f + CFLAGS+=-DFFTW + endif + # ---------------------------------------------- # the rest can stay untouched

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 February 2004