Pd-cvs June 2005

pd-cvs@lists.iem.at

14 participants
211 discussions

externals/build/src any2list.c, NONE, 1.1 demux.c, NONE, 1.1 demux~.c, NONE, 1.1 l.c, NONE, 1.1 l2i.c, NONE, 1.1 l2s.c, NONE, 1.1 mux.c, NONE, 1.1 mux~.c, NONE, 1.1 s2l.c, NONE, 1.1
by IOhannes m zmölnig 24 Jun '05

24 Jun '05

Update of /cvsroot/pure-data/externals/build/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5266 Added Files: any2list.c demux.c demux~.c l.c l2i.c l2s.c mux.c mux~.c s2l.c Log Message: aliases for existing objects --- NEW FILE: l2s.c --- #include "../zexy/src/list2symbol.c" --- NEW FILE: mux~.c --- #include "../zexy/src/multiplex~.c" --- NEW FILE: demux~.c --- #include "../zexy/src/demultiplex~.c" --- NEW FILE: any2list.c --- #include "../zexy/src/a2l.c" --- NEW FILE: mux.c --- #include "../zexy/src/multiplex.c" --- NEW FILE: l2i.c --- #include "../zexy/src/list2int.c" --- NEW FILE: s2l.c --- #include "../zexy/src/symbol2list.c" --- NEW FILE: l.c --- #include "../zexy/src/lister.c" --- NEW FILE: demux.c --- #include "../zexy/src/demultiplex.c"

1 0

externals/build/src relay.c,NONE,1.1
by IOhannes m zmölnig 24 Jun '05

24 Jun '05

Update of /cvsroot/pure-data/externals/build/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5091 Added Files: relay.c Log Message: new object --- NEW FILE: relay.c --- #include "../zexy/src/relay.c"

1 0

externals/iemlib/src/iem_mp3 iemlib.h,1.3,1.4
by IOhannes m zmölnig 24 Jun '05

24 Jun '05

Update of /cvsroot/pure-data/externals/iemlib/src/iem_mp3 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24013 Modified Files: iemlib.h Log Message: a fixed version of iemlib.h (taken from ../iemlib2) don't know what happened to the last one. it seems like the line-endings have been eaten (probably by notepad) Index: iemlib.h =================================================================== RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_mp3/iemlib.h,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** iemlib.h 15 Jun 2005 16:36:13 -0000 1.3 --- iemlib.h 24 Jun 2005 14:27:59 -0000 1.4 *************** *** 1,9 **** ! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL* WARRANTIES, see the file, "LICENSE.txt," in this distribution.iemlib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */#ifndef __IEMLIB_H__#define __IEMLIB_H__#define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)#define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)#define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)#define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)#define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)#define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)#define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)#ifdef NTint sys_noloadbang;//t_symbol *iemgui_key_sym=0;#include <io.h>#elseextern int sys_noloadbang;//extern t_symbol *iemgui_key_sym;#include <unistd.h>#endif#define DEFDELVS 64#define XTRASAMPS 4#define SAMPBLK 4#define UNITBIT32 1572864. /* 3*2^19; bit 32 has place value 1 *//* machine-dependent definitions. These ifdefs reallyshould have been by CPU type and not by operating system! */#ifdef IRIX/* big-endian. Most significant byte is at low address in memory */#define HIOFFSET 0 /* word offset to find MSB */#define LOWOFFSET 1 /* word offset to find LSB */#define int32 long /* a data type that has 32 bits */#else#ifdef MSW/* little-endian; most significant byte is at highest address */#define HIOFFSET 1#define LOWOFFSET 0#define int32 long#else#ifdef __FreeBSD__#include <machine/endian.h>#if BYTE_ORDER == LITTLE_ENDIAN#define HIOFFSET 1#define LOWOFFSET 0#else#define HIOFFSET 0 /* word offset to find MSB */#define LOWOFFSET 1 /* word offset to find LSB */#endif /* BYTE_ORDER */#include <sys/types.h>#define int32 int32_t#endif#ifdef __linux__#include <endian.h>#if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN) #error No byte order defined #endif #if __BYTE_ORDER == __LITTLE_ENDIAN #define HIOFFSET 1 #define LOWOFFSET 0 #else #define HIOFFSET 0 /* word offset to find MSB */ #define LOWOFFSET 1 /* word offset to find LSB */ #endif /* __BYTE_ORDER */ #include <sys/types.h>#define int32 int32_t#else#ifdef __APPLE__#define HIOFFSET 0 /* word offset to find MSB */#define LOWOFFSET 1 /* word offset to find LSB */#define int32 int /* a data type that has 32 bits */#endif /* __APPLE__ */#endif /* __linux__ */#endif /* MSW */#endif /* SGI */union tabfudge{ double tf_d; int32 tf_i[2];}; ! #ifdef __i386__ ! #define IEM_DENORMAL(f) ((((*(unsigned int*)&(f))&0x60000000)==0) || \(((*(unsigned int*)&(f))&0x60000000)==0x60000000))/* more stringent test: anything not between 1e-19 and 1e19 in absolute val */ ! ! #else ! ! #define IEM_DENORMAL(f) 0 ! ! #endif#endif \ No newline at end of file --- 1,102 ---- ! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL ! * WARRANTIES, see the file, "LICENSE.txt," in this distribution. ! ! iemlib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */ ! ! #ifndef __IEMLIB_H__ ! #define __IEMLIB_H__ ! ! ! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER) ! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT) ! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL) ! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR) ! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM) ! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI) ! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA) ! ! ! #ifdef NT ! int sys_noloadbang; ! //t_symbol *iemgui_key_sym=0; ! #include <io.h> ! #else ! extern int sys_noloadbang; ! //extern t_symbol *iemgui_key_sym; ! #include <unistd.h> ! #endif ! ! #define DEFDELVS 64 ! #define XTRASAMPS 4 ! #define SAMPBLK 4 ! ! ! #define UNITBIT32 1572864. /* 3*2^19; bit 32 has place value 1 */ ! ! /* machine-dependent definitions. These ifdefs really ! should have been by CPU type and not by operating system! */ ! #ifdef IRIX ! /* big-endian. Most significant byte is at low address in memory */ ! #define HIOFFSET 0 /* word offset to find MSB */ ! #define LOWOFFSET 1 /* word offset to find LSB */ ! #define int32 long /* a data type that has 32 bits */ ! #else ! #ifdef MSW ! /* little-endian; most significant byte is at highest address */ ! #define HIOFFSET 1 ! #define LOWOFFSET 0 ! #define int32 long ! #else ! #ifdef __FreeBSD__ ! #include <machine/endian.h> ! #if BYTE_ORDER == LITTLE_ENDIAN ! #define HIOFFSET 1 ! #define LOWOFFSET 0 ! #else ! #define HIOFFSET 0 /* word offset to find MSB */ ! #define LOWOFFSET 1 /* word offset to find LSB */ ! #endif /* BYTE_ORDER */ ! #include <sys/types.h> ! #define int32 int32_t ! #endif ! #ifdef __linux__ ! ! #include <endian.h> ! ! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN) ! #error No byte order defined ! #endif ! ! #if __BYTE_ORDER == __LITTLE_ENDIAN ! #define HIOFFSET 1 ! #define LOWOFFSET 0 ! #else ! #define HIOFFSET 0 /* word offset to find MSB */ ! #define LOWOFFSET 1 /* word offset to find LSB */ ! #endif /* __BYTE_ORDER */ ! ! #include <sys/types.h> ! #define int32 int32_t ! ! #else ! #ifdef __APPLE__ ! #define HIOFFSET 0 /* word offset to find MSB */ ! #define LOWOFFSET 1 /* word offset to find LSB */ ! #define int32 int /* a data type that has 32 bits */ ! ! #endif /* __APPLE__ */ ! #endif /* __linux__ */ ! #endif /* MSW */ ! #endif /* SGI */ ! ! union tabfudge ! { ! double tf_d; ! int32 tf_i[2]; ! }; ! ! #define IEM_DENORMAL(f) ((((*(unsigned int*)&(f))&0x60000000)==0) || \ ! (((*(unsigned int*)&(f))&0x60000000)==0x60000000)) ! /* more stringent test: anything not between 1e-19 and 1e19 in absolute val */ ! ! #endif

1 0

pd SConstruct,1.1.2.3,1.1.2.4
by Tim Blechmann 24 Jun '05

24 Jun '05

Update of /cvsroot/pure-data/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14746 Modified Files: Tag: devel_0_38 SConstruct Log Message: several fixes Index: SConstruct =================================================================== RCS file: /cvsroot/pure-data/pd/Attic/SConstruct,v retrieving revision 1.1.2.3 retrieving revision 1.1.2.4 diff -C2 -d -r1.1.2.3 -r1.1.2.4 *** SConstruct 22 Jun 2005 18:50:40 -0000 1.1.2.3 --- SConstruct 24 Jun 2005 12:59:03 -0000 1.1.2.4 *************** *** 9,14 **** opt = Options(['options.cache', 'custom.py']) opt.AddOptions( ! ('prefix', 'install prefix', '/usr/local') ! ) opt.Update(env) --- 9,14 ---- opt = Options(['options.cache', 'custom.py']) opt.AddOptions( ! ('prefix', 'install prefix', '/usr/local'), ! BoolOption('icc', 'use intel c compiler', False)) opt.Update(env) *************** *** 16,19 **** --- 16,26 ---- opt.Save('options.cache',env) + if env.Dictionary().has_key('icc') and env['icc']: + env['CC'] = '/opt/intel/cc/9.0/bin/icc' + env['CXX'] = '/opt/intel/cc/9.0/bin/icc' + env.Append(CCFLAGS=' -ip -ipo -axB') + env.Append(LINKFLAGS='-i-static -ip -ipo -axB') + print "Using intel c compiler" + Export("env") *************** *** 38,42 **** env.InstallAs(prefix + '/lib/pd/bin/pd.tk','src/u_main.tk') ! env.Install(prefix+'/lib', pdlib) ! env.Alias('install', prefix) --- 45,52 ---- env.InstallAs(prefix + '/lib/pd/bin/pd.tk','src/u_main.tk') ! try: ! env.Install(prefix+'/lib', pdlib) ! except: ! pass ! env.Alias('install', prefix)

1 0

pd/src SConscript,1.1.2.3,1.1.2.4
by Tim Blechmann 24 Jun '05

24 Jun '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14746/src Modified Files: Tag: devel_0_38 SConscript Log Message: several fixes Index: SConscript =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/SConscript,v retrieving revision 1.1.2.3 retrieving revision 1.1.2.4 diff -C2 -d -r1.1.2.3 -r1.1.2.4 *** SConscript 22 Jun 2005 18:50:39 -0000 1.1.2.3 --- SConscript 24 Jun 2005 12:59:03 -0000 1.1.2.4 *************** *** 126,129 **** --- 126,146 ---- Exit(1) + if not conf.CheckHeader('tcl.h'): + for i in range (2,10): + if conf.CheckLib('tcl-8.%d/tcl' % i): + break + else: + print "can't find tcl header" + Exit(1) + + if not conf.CheckHeader('tk.h'): + for i in range (2,10): + if conf.CheckLib('tk-8.%d/tk' % i): + break + else: + print "can't find tk header" + Exit(1) + + if not conf.CheckLib('pthread', 'pthread_create'): print "can't find pthread library" *************** *** 196,200 **** sources.append(pa_sources) pdenv.Append(CPPDEFINES=Split("USEAPI_PA PA19")) ! pdenv.Append(CPPPATH=Split("../portaudio ../portaudio/pablio")) pdenv.Append(CPPPATH=".") --- 213,217 ---- sources.append(pa_sources) pdenv.Append(CPPDEFINES=Split("USEAPI_PA PA19")) ! pdenv.Append(CPPPATH=Split("../portaudio ../portaudio/pa_common ../portaudio/pablio")) pdenv.Append(CPPPATH=".") *************** *** 296,305 **** flags += " -O3 -fprefetch-loop-arrays" ! if pdenv.has_key('optimize') and pdenv['optimize'] != None: ! if ['msvc'] in pdenv['TOOLS']: ! pass # is there any machine optmizisation on msvc? else: ! flags += " -march=" + pdenv['optimize'] ! if not pdenv['nosimd']: flags += " -mfpmath=sse -mmmx -msse -msse2" --- 313,326 ---- flags += " -O3 -fprefetch-loop-arrays" ! if pdenv.Dictionary().has_key('optimize'): ! for statement in ["None", "0", "False"]: ! if statement in pdenv['optimize']: ! break else: ! if ['msvc'] in pdenv['TOOLS']: ! pass # is there any machine optmizisation on msvc? ! else: ! flags += " -march=" + pdenv['optimize'] ! if not pdenv['nosimd']: flags += " -mfpmath=sse -mmmx -msse -msse2" *************** *** 307,310 **** --- 328,332 ---- pdenv.Append(CCFLAGS=flags) pdenv.Append(CXXFLAGS=flags) + pdenv.Append(LINKFLAGS=flags) ###################################################################### *************** *** 319,330 **** if pdenv['pdlib']: pdlib = pdenv.SharedLibrary('pd', sources) pd = pdenv.Program('pd', 's_entry.c', LIBS=['pd']) else: ! pdlib = pdenv.StaticLibrary('pd', sources) ! pd = pdenv.Program('pd', ['s_entry.c', pdlib], ! LINKFLAGS="-Wl,-export-dynamic") - Default(pdwatchdog, pdsend, pdreceive, pdgui, pd, pdlib) --- 341,354 ---- if pdenv['pdlib']: + # pdenv.Append(LIBPATH="#") pdlib = pdenv.SharedLibrary('pd', sources) pd = pdenv.Program('pd', 's_entry.c', LIBS=['pd']) + Default(pdwatchdog, pdsend, pdreceive, pdgui, pd, pdlib) else: ! pd = pdenv.Program('pd', ['s_entry.c'] + sources, ! LINKFLAGS=pdenv['LINKFLAGS'] + " -Wl,-export-dynamic") ! pdlib = None ! Default(pdwatchdog, pdsend, pdreceive, pdgui, pd)

1 0

externals/build/linux makefile,1.22,1.23
by Guenter Geiger 24 Jun '05

24 Jun '05

Update of /cvsroot/pure-data/externals/build/linux In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4728 Modified Files: makefile Log Message: force -k to make Index: makefile =================================================================== RCS file: /cvsroot/pure-data/externals/build/linux/makefile,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** makefile 12 Apr 2005 15:59:03 -0000 1.22 --- makefile 24 Jun 2005 11:31:28 -0000 1.23 *************** *** 5,9 **** STRIP = strip --strip-unneeded -R .note -R .comment ! all: $(EXTERNALS:.c=.pd_linux) # this might be a better way to do this: --- 5,12 ---- STRIP = strip --strip-unneeded -R .note -R .comment ! all: ! make -k externals ! ! externals: $(EXTERNALS:.c=.pd_linux) # this might be a better way to do this:

1 0

scripts config-switcher.sh,1.1.1.1,1.2
by Hans-Christoph Steiner 23 Jun '05

23 Jun '05

Update of /cvsroot/pure-data/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24667 Modified Files: config-switcher.sh Log Message: made this script an actual, useful config switcher Index: config-switcher.sh =================================================================== RCS file: /cvsroot/pure-data/scripts/config-switcher.sh,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** config-switcher.sh 18 Apr 2005 00:36:10 -0000 1.1.1.1 --- config-switcher.sh 23 Jun 2005 18:43:53 -0000 1.2 *************** *** 1,10 **** #!/bin/sh - # location of plist that Pd reads - PLIST_ROOT=~/Library/Preferences/org.puredata.pd - PLIST=$PLIST_ROOT.plist ! # which config to use (first argument) ! CONFIG=$1 ! cp -f "$PLIST_ROOT.$CONFIG.plist" "$PLIST" --- 1,78 ---- #!/bin/sh ! #==============================================================================# ! # functions ! print_usage() { ! echo "Usage: " ! echo "To select a config file:" ! echo " $0 select CONFIG_NAME" ! echo "To save the current config to file:" ! echo " $0 save CONFIG_NAME" ! echo "To delete the current config:" ! echo " $0 delete CONFIG_NAME" ! echo "To list existing configs:" ! echo " $0 list" ! exit ! } ! ! #==============================================================================# ! # THE PROGRAM ! ! # location of pref file that Pd reads ! case `uname` in ! Darwin) ! CONFIG_DIR=~/Library/Preferences ! CONFIG_FILE=org.puredata.pd.plist ! ;; ! *) ! CONFIG_DIR=~ ! CONFIG_FILE=.pdrc ! ;; ! esac ! ! # everything happens in this dir ! cd $CONFIG_DIR ! ! if [ $# -gt 1 ]; then ! save_file="$CONFIG_FILE-$2" ! case $1 in ! select) ! if [ -e "$save_file" ]; then ! test -e "$CONFIG_FILE" && mv "$CONFIG_FILE" /tmp ! ln -s "$save_file" "$CONFIG_FILE" && \ ! echo "Pd config \"$save_file\" selected." ! else ! echo "\"$save_file\" doesn't exist. No action taken." ! fi ! ;; ! save) ! if [ -e "$CONFIG_DIR/$CONFIG_FILE" ]; then ! cp "$CONFIG_FILE" "$save_file" && \ ! echo "Pd config \"$2\" saved." ! else ! echo "\"$CONFIG_FILE\" doesn't exist. No action taken." ! fi ! ;; ! delete) ! if [ -e "$save_file" ]; then ! rm "$save_file" && \ ! echo "Pd config \"$save_file\" deleted." ! else ! echo "\"$CONFIG_FILE\" doesn't exist. No action taken." ! fi ! ;; ! *) print_usage ;; ! esac ! else ! case $1 in ! list) ! echo "Available configs:" ! \ls -1 ${CONFIG_FILE}* ! ;; ! *) ! print_usage ! ;; ! esac ! fi

1 0

pd SConstruct,1.1.2.2,1.1.2.3
by Tim Blechmann 22 Jun '05

22 Jun '05

Update of /cvsroot/pure-data/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7856 Modified Files: Tag: devel_0_38 SConstruct Log Message: updating scons build system Index: SConstruct =================================================================== RCS file: /cvsroot/pure-data/pd/Attic/SConstruct,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** SConstruct 19 Jun 2005 11:10:39 -0000 1.1.2.2 --- SConstruct 22 Jun 2005 18:50:40 -0000 1.1.2.3 *************** *** 36,40 **** env.Install(prefix+'/lib/pd/bin', pdgui) env.Install(prefix+'/lib/pd/bin', pdwatchdog) ! pdenv.InstallAs(prefix + '/lib/pd/bin/pd.tk','u_main.tk') env.Install(prefix+'/lib', pdlib) --- 36,40 ---- env.Install(prefix+'/lib/pd/bin', pdgui) env.Install(prefix+'/lib/pd/bin', pdwatchdog) ! env.InstallAs(prefix + '/lib/pd/bin/pd.tk','src/u_main.tk') env.Install(prefix+'/lib', pdlib)

1 0

pd/src SConscript,1.1.2.2,1.1.2.3
by Tim Blechmann 22 Jun '05

22 Jun '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7856/src Modified Files: Tag: devel_0_38 SConscript Log Message: updating scons build system Index: SConscript =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/SConscript,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** SConscript 19 Jun 2005 11:10:40 -0000 1.1.2.2 --- SConscript 22 Jun 2005 18:50:39 -0000 1.1.2.3 *************** *** 130,133 **** --- 130,136 ---- Exit(1) + if conf.CheckLib('fftw3f'): + defs.append('HAVE_LIBFFTW3F') + ###################################################################### # *************** *** 291,297 **** pass # how to switch on optimizing on msvc? else: ! flags += " -O3" ! if pdenv['optimize'] != None: if ['msvc'] in pdenv['TOOLS']: pass # is there any machine optmizisation on msvc? --- 294,300 ---- pass # how to switch on optimizing on msvc? else: ! flags += " -O3 -fprefetch-loop-arrays" ! if pdenv.has_key('optimize') and pdenv['optimize'] != None: if ['msvc'] in pdenv['TOOLS']: pass # is there any machine optmizisation on msvc?

1 0

pd/src d_filter.c,1.3.4.3,1.3.4.4
by Tim Blechmann 22 Jun '05

22 Jun '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6391 Modified Files: Tag: devel_0_38 d_filter.c Log Message: unrolled biquad and relaxed denormal bashing Index: d_filter.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/d_filter.c,v retrieving revision 1.3.4.3 retrieving revision 1.3.4.4 diff -C2 -d -r1.3.4.3 -r1.3.4.4 *** d_filter.c 21 May 2005 13:08:13 -0000 1.3.4.3 --- d_filter.c 22 Jun 2005 18:47:52 -0000 1.3.4.4 *************** *** 399,402 **** --- 399,472 ---- } + /* tb: some loop unrolling & do some relaxed denormal bashing */ + #if 1 + static t_int *sigbiquad_perf8(t_int *w) + { + float *in = (float *)(w[1]); + float *out = (float *)(w[2]); + t_biquadctl *c = (t_biquadctl *)(w[3]); + int n = (t_int)(w[4])>>3; + int i; + float last = c->c_x1; + float prev = c->c_x2; + float fb1 = c->c_fb1; + float fb2 = c->c_fb2; + float ff1 = c->c_ff1; + float ff2 = c->c_ff2; + float ff3 = c->c_ff3; + for (i = 0; i < n; i++) + { + float output = *in++ + fb1 * last + fb2 * prev; + #ifdef __i386__ + output += 1e-10; /* quantizing should be faster than PD_BIGORSMALL */ + output -= 1e-10; /* only doing this every 8th sample should be ok */ + #endif + *out++ = ff1 * output + ff2 * last + ff3 * prev; + prev = last; + last = output; + + output = *in++ + fb1 * last + fb2 * prev; + *out++ = ff1 * output + ff2 * last + ff3 * prev; + prev = last; + last = output; + + output = *in++ + fb1 * last + fb2 * prev; + *out++ = ff1 * output + ff2 * last + ff3 * prev; + prev = last; + last = output; + + output = *in++ + fb1 * last + fb2 * prev; + *out++ = ff1 * output + ff2 * last + ff3 * prev; + prev = last; + last = output; + + output = *in++ + fb1 * last + fb2 * prev; + output += 1e-10; + output -= 1e-10; + *out++ = ff1 * output + ff2 * last + ff3 * prev; + prev = last; + last = output; + + output = *in++ + fb1 * last + fb2 * prev; + *out++ = ff1 * output + ff2 * last + ff3 * prev; + prev = last; + last = output; + + output = *in++ + fb1 * last + fb2 * prev; + *out++ = ff1 * output + ff2 * last + ff3 * prev; + prev = last; + last = output; + + output = *in++ + fb1 * last + fb2 * prev; + *out++ = ff1 * output + ff2 * last + ff3 * prev; + prev = last; + last = output; + } + c->c_x1 = last; + c->c_x2 = prev; + return (w+5); + } + #endif + static void sigbiquad_list(t_sigbiquad *x, t_symbol *s, int argc, t_atom *argv) { *************** *** 442,449 **** static void sigbiquad_dsp(t_sigbiquad *x, t_signal **sp) { dsp_add(sigbiquad_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x->x_ctl, sp[0]->s_n); ! } --- 512,530 ---- static void sigbiquad_dsp(t_sigbiquad *x, t_signal **sp) { + #if 1 + const int n = sp[0]->s_n; + if (n&7) + dsp_add(sigbiquad_perform, 4, + sp[0]->s_vec, sp[1]->s_vec, + x->x_ctl, sp[0]->s_n); + else + dsp_add(sigbiquad_perf8, 4, + sp[0]->s_vec, sp[1]->s_vec, + x->x_ctl, sp[0]->s_n); + #else dsp_add(sigbiquad_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x->x_ctl, sp[0]->s_n); ! #endif }

1 0

← Newer
1
2
3
4
5
6
7
8
...
22
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 2005