Pd-cvs April 2008

pd-cvs@lists.iem.at

16 participants
130 discussions

SF.net SVN: pure-data: [9678] trunk/scripts/auto-build/ prep-auto-build-upload
by eighthave＠users.sourceforge.net 06 Apr '08

06 Apr '08

Revision: 9678 http://pure-data.svn.sourceforge.net/pure-data/?rev=9678&view=rev Author: eighthave Date: 2008-04-05 21:19:31 -0700 (Sat, 05 Apr 2008) Log Message: ----------- added support for arduino builds Modified Paths: -------------- trunk/scripts/auto-build/prep-auto-build-upload Modified: trunk/scripts/auto-build/prep-auto-build-upload =================================================================== --- trunk/scripts/auto-build/prep-auto-build-upload 2008-04-03 15:39:28 UTC (rev 9677) +++ trunk/scripts/auto-build/prep-auto-build-upload 2008-04-06 04:19:31 UTC (rev 9678) @@ -1,24 +1,33 @@ #!/bin/sh + # prepare a directory per date for the auto-builders to upload to -# the source dir where this script is -SCRIPT_DIR=`echo $0 | sed 's|$.*$/.*$|\1|'` -. $SCRIPT_DIR/auto-build-common - -# the name of this script +HOSTNAME=`hostname` +SYSTEM=`uname -s` +DATE=`date +%Y-%m-%d` +TIME=`date +%H.%M.%S` SCRIPT=`echo $0| sed 's|.*/$.*$|\1|g'` LOGFILE=/home/pd/logs/${DATE}_${TIME}_-_${SCRIPT}_-_${SYSTEM}.txt -BUILD_ROOT="/var/www/auto-build" -TODAYS_ROOT="${BUILD_ROOT}/${DATE}" +#BUILD_ROOT="/var/www/auto-build" -chown -R root.root "${BUILD_ROOT}" >> $LOGFILE 2>&1 -mkdir "${TODAYS_ROOT}" >> $LOGFILE 2>&1 -mkdir "${TODAYS_ROOT}/logs" >> $LOGFILE 2>&1 -chown -R nobody.nogroup "${TODAYS_ROOT}" >> $LOGFILE 2>&1 +prep_project() +{ + PROJECT=$1 + BUILD_ROOT="$2" + TODAYS_ROOT="${BUILD_ROOT}/${DATE}" + chown -R root.root "${BUILD_ROOT}" >> $LOGFILE 2>&1 + mkdir "${TODAYS_ROOT}" >> $LOGFILE 2>&1 + mkdir "${TODAYS_ROOT}/logs" >> $LOGFILE 2>&1 + chown -R nobody.nogroup "${TODAYS_ROOT}" >> $LOGFILE 2>&1 + + rm -f -- ${BUILD_ROOT}/latest >> $LOGFILE 2>&1 + ln -s ${TODAYS_ROOT} ${BUILD_ROOT}/latest >> $LOGFILE 2>&1 + + chown -R ${PROJECT}.${PROJECT} /home/${PROJECT}/ >> $LOGFILE 2>&1 + chmod -R u+rw /home/${PROJECT}/ >> $LOGFILE 2>&1 +} -rm -f -- ${BUILD_ROOT}/latest >> $LOGFILE 2>&1 -ln -s ${TODAYS_ROOT} ${BUILD_ROOT}/latest >> $LOGFILE 2>&1 -chown -R pd.pd /home/pd/ >> $LOGFILE 2>&1 -chmod -R u+rw /home/pd/ >> $LOGFILE 2>&1 +prep_project pd /var/www/auto-build +prep_project arduino /var/www/arduino This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-extended debian-stable-powerpc 2008-04-04 06.29.24
by pd＠debian-stable-powerpc.idmi.poly.edu 04 Apr '08

04 Apr '08

/home/pd/auto-build/pd-extended/externals/grh/PDContainer/include/SimpleBase.h:408: note: vectorized 0 loops in function. /home/pd/auto-build/pd-extended/externals/grh/PDContainer/include/SimpleBase.h:182: note: vectorized 0 loops in function. /home/pd/auto-build/pd-extended/externals/grh/PDContainer/include/SimpleBase.h: In member function ‘void SimpleBase<ContainerType, ContTypeIterator>::printAllIndex() [with ContainerType = std::deque<Element, std::allocator<Element> >, ContTypeIterator = std::_Deque_iterator<Element, Element&, Element*>]’: /home/pd/auto-build/pd-extended/externals/grh/PDContainer/include/SimpleBase.h:208: internal compiler error: Illegal instruction Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://gcc.gnu.org/bugs.html> for instructions. For Debian GNU/Linux specific bug reporting instructions, see <URL:file:///usr/share/doc/gcc-4.1/README.Bugs>. The bug is not reproducible, so it is likely a hardware or OS problem. make[2]: *** [/home/pd/auto-build/pd-extended/externals/grh/PDContainer/src/h_deque.o] Error 1 make[2]: Leaving directory `/home/pd/auto-build/pd-extended/externals' make[1]: *** [externals_install] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended/packages' make: *** [install] Error 2 upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb ls: /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb: No such file or directory

1 0

SF.net SVN: pure-data: [9677] trunk/externals/tof
by mrtof＠users.sourceforge.net 03 Apr '08

03 Apr '08

Revision: 9677 http://pure-data.svn.sourceforge.net/pure-data/?rev=9677&view=rev Author: mrtof Date: 2008-04-03 08:39:28 -0700 (Thu, 03 Apr 2008) Log Message: ----------- Added banging to phasorshot~ even when not looping AND modified w_breakpoints behavior in regard to it's default range Modified Paths: -------------- trunk/externals/tof/help/phasorshot~-help.pd trunk/externals/tof/src/breakpoints.c trunk/externals/tof/src/breakpoints~.c trunk/externals/tof/src/phasorshot~.c trunk/externals/tof/src/w_breakpoints.h Modified: trunk/externals/tof/help/phasorshot~-help.pd =================================================================== --- trunk/externals/tof/help/phasorshot~-help.pd 2008-04-03 02:13:13 UTC (rev 9676) +++ trunk/externals/tof/help/phasorshot~-help.pd 2008-04-03 15:39:28 UTC (rev 9677) @@ -1,4 +1,4 @@ -#N canvas 67 5 618 599 10; +#N canvas 396 14 618 599 10; #X text 390 204 Arguments:; #X obj 372 207 cnv 15 15 15 empty empty empty 20 12 0 14 -258113 -66577 0; @@ -6,7 +6,7 @@ #X obj 92 488 metro 100; #X obj 92 464 loadbang; #X obj 59 551 nbx 10 14 -1e+037 1e+037 0 0 empty empty empty 0 -8 0 -10 -1 -262144 -1 0 256; +10 -1 -262144 -1 0.856514 256; #X obj 381 507 soundfiler; #X msg 381 469 read -resize \$1 \$2; #X obj 381 438 list append \$0table; @@ -15,7 +15,7 @@ -1 -1; #X floatatom 381 533 10 0 0 0 - - -; #X obj 244 471 table \$0table; -#X obj 177 297 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +#X obj 177 297 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X msg 58 154 0.1; #X msg 89 156 -0.1; @@ -41,8 +41,9 @@ #X text 149 222 Inlet 2: phasee; #X text 212 297 Inlet 3: loop off/on; #X text 373 225 1) loop off/on; -#X text 155 329 Outlets 2 and 3 bang if looping is turned off and either -the upper (1) or lower (0) bound is reached.; +#X msg 183 181 0; +#X text 154 329 Outlets 2 and 3 bang when the upper (1) or lower (0) +bound is reached.; #X connect 2 0 5 0; #X connect 3 0 2 0; #X connect 4 0 3 0; @@ -68,3 +69,4 @@ #X connect 27 0 22 0; #X connect 27 1 21 0; #X connect 27 2 20 0; +#X connect 35 0 27 0; Modified: trunk/externals/tof/src/breakpoints.c =================================================================== --- trunk/externals/tof/src/breakpoints.c 2008-04-03 02:13:13 UTC (rev 9676) +++ trunk/externals/tof/src/breakpoints.c 2008-04-03 15:39:28 UTC (rev 9677) @@ -147,6 +147,7 @@ } else { if (x->max > 0) { x->min = 0; + if (x->max < 1) x->max =1; } else { x->max = 0; } @@ -426,7 +427,8 @@ breakpoints_widgetbehavior.w_getrectfn = breakpoints_getrect; breakpoints_widgetbehavior.w_displacefn = breakpoints_displace; breakpoints_widgetbehavior.w_selectfn = breakpoints_select; - breakpoints_widgetbehavior.w_activatefn = breakpoints_activate; + breakpoints_widgetbehavior.w_activatefn = NULL; + //breakpoints_widgetbehavior.w_activatefn = breakpoints_activate; breakpoints_widgetbehavior.w_deletefn = breakpoints_delete; breakpoints_widgetbehavior.w_visfn = breakpoints_vis; breakpoints_widgetbehavior.w_clickfn = (t_clickfn) breakpoints_newclick; Modified: trunk/externals/tof/src/breakpoints~.c =================================================================== --- trunk/externals/tof/src/breakpoints~.c 2008-04-03 02:13:13 UTC (rev 9676) +++ trunk/externals/tof/src/breakpoints~.c 2008-04-03 15:39:28 UTC (rev 9677) @@ -193,12 +193,13 @@ } - if ( x->max == x->min ) { + if ( x->max == x->min ) { if ( x->max == 0 ) { x->max = 1; } else { if (x->max > 0) { x->min = 0; + if (x->max < 1) x->max =1; } else { x->max = 0; } @@ -456,7 +457,8 @@ breakpoints_widgetbehavior.w_getrectfn = breakpoints_getrect; breakpoints_widgetbehavior.w_displacefn = breakpoints_displace; breakpoints_widgetbehavior.w_selectfn = breakpoints_select; - breakpoints_widgetbehavior.w_activatefn = breakpoints_activate; + //breakpoints_widgetbehavior.w_activatefn = breakpoints_activate; + breakpoints_widgetbehavior.w_activatefn = NULL; breakpoints_widgetbehavior.w_deletefn = breakpoints_delete; breakpoints_widgetbehavior.w_visfn = breakpoints_vis; breakpoints_widgetbehavior.w_clickfn = (t_clickfn) breakpoints_newclick; Modified: trunk/externals/tof/src/phasorshot~.c =================================================================== --- trunk/externals/tof/src/phasorshot~.c 2008-04-03 02:13:13 UTC (rev 9676) +++ trunk/externals/tof/src/phasorshot~.c 2008-04-03 15:39:28 UTC (rev 9677) @@ -100,11 +100,8 @@ while (n--) { - //wrap - if (x->loop) { - tf.tf_i[HIOFFSET] = normhipart; - } else { - if ( tf.tf_d >= UNITBIT32 + 1 ) { + // BANG when bounds are reached + if ( tf.tf_d >= UNITBIT32 + 1 ) { tf.tf_d = UNITBIT32 + 1; if (x->state != 1) clock_delay(x->x_clock, 0L); x->state = 1; @@ -112,11 +109,13 @@ tf.tf_d = UNITBIT32; if (x->state != 0) clock_delay(x->x_clock, 0L); x->state = 0; - } else { x->state = -1; } - } + + //wrap + if (x->loop) tf.tf_i[HIOFFSET] = normhipart; + dphase += *in++ * conv; //increment //dphase = UNITBIT32 + 1; //set to one *out++ = tf.tf_d - UNITBIT32; @@ -126,7 +125,7 @@ //wrap if (x->loop) { tf.tf_i[HIOFFSET] = normhipart; - x->state = -1; + //x->state = -1; } else { if ( tf.tf_d > UNITBIT32 + 1 ) { tf.tf_d = UNITBIT32 + 1; @@ -150,13 +149,15 @@ if (f < 0) f = 0; if (f > 1) f = 1; x->x_phase = f; + if ( f == 1) x->state = 1; + if ( f == 0) x->state = 0; } void phasorshot_loop(t_phasorshot *x, t_float f) { x->loop = f; - if (!f) x->state = -1; + //if (!f) x->state = -1; } Modified: trunk/externals/tof/src/w_breakpoints.h =================================================================== --- trunk/externals/tof/src/w_breakpoints.h 2008-04-03 02:13:13 UTC (rev 9676) +++ trunk/externals/tof/src/w_breakpoints.h 2008-04-03 15:39:28 UTC (rev 9677) @@ -68,7 +68,7 @@ static int breakpoints_next_doodle(t_breakpoints *x, struct _glist *glist, int xpos,int ypos) { - int ret = -1; + // int ret = -1; float xscale,yscale; int dxpos,dypos; float minval = 100000.0; @@ -311,7 +311,7 @@ void breakpoints_erase(t_breakpoints* x,t_glist* glist) { - int n; + //int n; sys_vgui(".x%x.c delete %xS\n", glist_getcanvas(glist), x); @@ -364,13 +364,14 @@ x, (state? "blue" : BACKGROUNDCOLOR)); } - +/* static void breakpoints_activate(t_gobj *z, t_glist *glist, int state) { -/* t_text *x = (t_text *)z; + t_text *x = (t_text *)z; t_rtext *y = glist_findrtext(glist, x); - if (z->g_pd != gatom_class) rtext_activate(y, state);*/ + if (z->g_pd != gatom_class) rtext_activate(y, state); } +*/ static void breakpoints_delete(t_gobj *z, t_glist *glist) { This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-extended debian-stable-powerpc 2008-04-03 06.29.33
by pd＠debian-stable-powerpc.idmi.poly.edu 03 Apr '08

03 Apr '08

/home/pd/auto-build/pd-extended/externals/cxc/counter.c: In function ‘counter_reset’: /home/pd/auto-build/pd-extended/externals/cxc/counter.c:112: warning: unused parameter ‘s’ /home/pd/auto-build/pd-extended/externals/cxc/counter.c: In function ‘counter_clear’: /home/pd/auto-build/pd-extended/externals/cxc/counter.c:147: warning: unused parameter ‘s’ /home/pd/auto-build/pd-extended/externals/cxc/counter.c: In function ‘counter_dir’: /home/pd/auto-build/pd-extended/externals/cxc/counter.c:97: internal compiler error: Illegal instruction Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://gcc.gnu.org/bugs.html> for instructions. For Debian GNU/Linux specific bug reporting instructions, see <URL:file:///usr/share/doc/gcc-4.1/README.Bugs>. The bug is not reproducible, so it is likely a hardware or OS problem. make[2]: *** [/home/pd/auto-build/pd-extended/externals/cxc/counter.o] Error 1 make[2]: Leaving directory `/home/pd/auto-build/pd-extended/externals' make[1]: *** [externals_install] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended/packages' make: *** [install] Error 2 upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb ls: /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb: No such file or directory

1 0

SF.net SVN: pure-data: [9676] trunk/desiredata/src/desire.c
by matju＠users.sourceforge.net 03 Apr '08

03 Apr '08

Revision: 9676 http://pure-data.svn.sourceforge.net/pure-data/?rev=9676&view=rev Author: matju Date: 2008-04-02 19:13:13 -0700 (Wed, 02 Apr 2008) Log Message: ----------- test Modified Paths: -------------- trunk/desiredata/src/desire.c Modified: trunk/desiredata/src/desire.c =================================================================== --- trunk/desiredata/src/desire.c 2008-04-02 18:35:06 UTC (rev 9675) +++ trunk/desiredata/src/desire.c 2008-04-03 02:13:13 UTC (rev 9676) @@ -7025,7 +7025,7 @@ char *dirbuf; char *nameptr; int fd = open_via_path2(dirname,filename,"",&dirbuf,&nameptr,0); - if (!fd) {error("%s: can't open", filename); return;} + if (fd<0) {error("%s: can't open", filename); return;} close(fd); glob_evalfile(0, gensym(nameptr), gensym(dirbuf)); free(dirbuf); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9675] trunk/externals/tof/src/Makefile
by mrtof＠users.sourceforge.net 02 Apr '08

02 Apr '08

Revision: 9675 http://pure-data.svn.sourceforge.net/pure-data/?rev=9675&view=rev Author: mrtof Date: 2008-04-02 11:35:06 -0700 (Wed, 02 Apr 2008) Log Message: ----------- Changed tof's internal Makefile Modified Paths: -------------- trunk/externals/tof/src/Makefile Modified: trunk/externals/tof/src/Makefile =================================================================== --- trunk/externals/tof/src/Makefile 2008-04-02 18:09:56 UTC (rev 9674) +++ trunk/externals/tof/src/Makefile 2008-04-02 18:35:06 UTC (rev 9675) @@ -5,7 +5,7 @@ # ----------------------- WINDOWS ----------------------- -pd_win: breakpoints.dll breakpoints~.dll destroysend.dll folderpanel.dll getdollarzero.dll +pd_win: breakpoints.dll breakpoints~.dll destroysend.dll folderpanel.dll getdollarzero.dll phasorshot~.dll .SUFFIXES: .dll @@ -27,7 +27,7 @@ # ----------------------- LINUX i386 ----------------------- -pd_linux: breakpoints.pd_linux breakpoints~.pd_linux destroysend.pd_linux folderpanel.pd_linux getdollarzero.pd_linux +pd_linux: breakpoints.pd_linux breakpoints~.pd_linux destroysend.pd_linux folderpanel.pd_linux getdollarzero.pd_linux phasorshot~.pd_linux .SUFFIXES: .pd_linux @@ -47,7 +47,7 @@ # ----------------------- Mac OSX ----------------------- -pd_darwin: breakpoints~.pd_darwin breakpoints.pd_darwin destroysend.pd_darwin folderpanel.pd_darwin getdollarzero.pd_darwin +pd_darwin: breakpoints~.pd_darwin breakpoints.pd_darwin destroysend.pd_darwin folderpanel.pd_darwin getdollarzero.pd_darwin .pd_darwin .SUFFIXES: .pd_darwin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9674] trunk/externals/tof
by mrtof＠users.sourceforge.net 02 Apr '08

02 Apr '08

Revision: 9674 http://pure-data.svn.sourceforge.net/pure-data/?rev=9674&view=rev Author: mrtof Date: 2008-04-02 11:09:56 -0700 (Wed, 02 Apr 2008) Log Message: ----------- Added phasorshot~ external to tof Modified Paths: -------------- trunk/externals/tof/src/w_breakpoints.h Added Paths: ----------- trunk/externals/tof/help/phasorshot~-help.pd trunk/externals/tof/src/phasorshot~.c Added: trunk/externals/tof/help/phasorshot~-help.pd =================================================================== --- trunk/externals/tof/help/phasorshot~-help.pd (rev 0) +++ trunk/externals/tof/help/phasorshot~-help.pd 2008-04-02 18:09:56 UTC (rev 9674) @@ -0,0 +1,70 @@ +#N canvas 67 5 618 599 10; +#X text 390 204 Arguments:; +#X obj 372 207 cnv 15 15 15 empty empty empty 20 12 0 14 -258113 -66577 +0; +#X obj 63 513 snapshot~; +#X obj 92 488 metro 100; +#X obj 92 464 loadbang; +#X obj 59 551 nbx 10 14 -1e+037 1e+037 0 0 empty empty empty 0 -8 0 +10 -1 -262144 -1 0 256; +#X obj 381 507 soundfiler; +#X msg 381 469 read -resize \$1 \$2; +#X obj 381 438 list append \$0table; +#X obj 381 405 openpanel; +#X obj 381 381 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 381 533 10 0 0 0 - - -; +#X obj 244 471 table \$0table; +#X obj 177 297 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X msg 58 154 0.1; +#X msg 89 156 -0.1; +#X msg 128 156 -0.5; +#X msg 134 250 0.9; +#X msg 166 247 0; +#X msg 25 154 1; +#X obj 140 363 print UPPER; +#X obj 143 401 print LOWER; +#X obj 222 496 *~; +#X obj 220 561 dac~; +#X obj 221 525 tabread4~ \$0table; +#X msg 169 156 0.5; +#X msg 201 249 0.5; +#X obj 62 338 phasorshot~; +#X text 60 11 Description: A one shot phasor~.; +#X text 48 33 phasorshot~ is exactly like a phasor except that you +can disabling it's looping \, therefore making it a one shot lookup +signal.; +#X text 55 80 Of course line~ does something similar \, but with phasorshot~ +you can change the speed DURING the ramp.; +#X text 33 121 Inlet 1: frequency; +#X text 149 222 Inlet 2: phasee; +#X text 212 297 Inlet 3: loop off/on; +#X text 373 225 1) loop off/on; +#X text 155 329 Outlets 2 and 3 bang if looping is turned off and either +the upper (1) or lower (0) bound is reached.; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 3 0; +#X connect 6 0 11 0; +#X connect 6 0 22 1; +#X connect 7 0 6 0; +#X connect 8 0 7 0; +#X connect 9 0 8 0; +#X connect 10 0 9 0; +#X connect 13 0 27 2; +#X connect 14 0 27 0; +#X connect 15 0 27 0; +#X connect 16 0 27 0; +#X connect 17 0 27 1; +#X connect 18 0 27 1; +#X connect 19 0 27 0; +#X connect 22 0 24 0; +#X connect 24 0 23 0; +#X connect 24 0 23 1; +#X connect 25 0 27 0; +#X connect 26 0 27 1; +#X connect 27 0 2 0; +#X connect 27 0 22 0; +#X connect 27 1 21 0; +#X connect 27 2 20 0; Property changes on: trunk/externals/tof/help/phasorshot~-help.pd ___________________________________________________________________ Name: svn:executable + * Added: trunk/externals/tof/src/phasorshot~.c =================================================================== --- trunk/externals/tof/src/phasorshot~.c (rev 0) +++ trunk/externals/tof/src/phasorshot~.c 2008-04-02 18:09:56 UTC (rev 9674) @@ -0,0 +1,213 @@ +#include "m_pd.h" +#include <math.h> + +#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 */ +#endif /* IRIX */ + +#ifdef MSW + /* little-endian; most significant byte is at highest address */ +#define HIOFFSET 1 +#define LOWOFFSET 0 +#define int32 long +#endif + +#if defined(__FreeBSD__) || defined(__APPLE__) +#include <machine/endian.h> +#endif + +#ifdef __linux__ +#include <endian.h> +#endif + +#if defined(__unix__) || defined(__APPLE__) +#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 +#endif /* __unix__ or __APPLE__*/ + +union tabfudge +{ + double tf_d; + int32 tf_i[2]; +}; + +/* -------------------------- phasorshot~ ------------------------------ */ +static t_class *phasorshot_class, *scalarphasorshot_class; + +#if 1 /* in the style of R. Hoeldrich (ICMC 1995 Banff) */ + +typedef struct _phasorshot +{ + t_object x_obj; + double x_phase; + float x_conv; + float x_f; /* scalar frequency */ + float loop; + t_outlet *x_outlet1; /* bang out for high thresh */ + t_outlet *x_outlet2; /* bang out for low thresh */ + t_clock *x_clock; /* wakeup for message output */ + //int previousState; + int state; +} t_phasorshot; + + + +void phasorshot_tick(t_phasorshot *x) +{ + if (x->state == 1) { + outlet_bang(x->x_outlet2); + } else if ( x->state == 0 ) { + outlet_bang(x->x_outlet1); + } + //post("bang"); +} + + t_int *phasorshot_perform(t_int *w) +{ + t_phasorshot *x = (t_phasorshot *)(w[1]); + t_float *in = (t_float *)(w[2]); + t_float *out = (t_float *)(w[3]); + int n = (int)(w[4]); + double dphase = x->x_phase + UNITBIT32; + union tabfudge tf; + int normhipart; + + float conv = x->x_conv; + + tf.tf_d = UNITBIT32; + normhipart = tf.tf_i[HIOFFSET]; + tf.tf_d = dphase; + + //clock_delay(x->x_clock, 0L); + + while (n--) + { + //wrap + if (x->loop) { + tf.tf_i[HIOFFSET] = normhipart; + } else { + if ( tf.tf_d >= UNITBIT32 + 1 ) { + tf.tf_d = UNITBIT32 + 1; + if (x->state != 1) clock_delay(x->x_clock, 0L); + x->state = 1; + } else if ( tf.tf_d <= UNITBIT32 ) { + tf.tf_d = UNITBIT32; + if (x->state != 0) clock_delay(x->x_clock, 0L); + x->state = 0; + + } else { + x->state = -1; + } + } + dphase += *in++ * conv; //increment + //dphase = UNITBIT32 + 1; //set to one + *out++ = tf.tf_d - UNITBIT32; + tf.tf_d = dphase; + } + //if (x->loop) tf.tf_i[HIOFFSET] = normhipart; //wrap + //wrap + if (x->loop) { + tf.tf_i[HIOFFSET] = normhipart; + x->state = -1; + } else { + if ( tf.tf_d > UNITBIT32 + 1 ) { + tf.tf_d = UNITBIT32 + 1; + } else if ( tf.tf_d < UNITBIT32 ) { + tf.tf_d = UNITBIT32; + } + + } + x->x_phase = tf.tf_d - UNITBIT32; + return (w+5); +} + + void phasorshot_dsp(t_phasorshot *x, t_signal **sp) +{ + x->x_conv = 1./sp[0]->s_sr; + dsp_add(phasorshot_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); +} + + void phasorshot_ft1(t_phasorshot *x, t_float f) +{ + if (f < 0) f = 0; + if (f > 1) f = 1; + x->x_phase = f; + +} + + void phasorshot_loop(t_phasorshot *x, t_float f) +{ + x->loop = f; + if (!f) x->state = -1; +} + + +void *phasorshot_new(t_symbol *s,int argc,t_atom* argv) +{ + t_phasorshot *x = (t_phasorshot *)pd_new(phasorshot_class); + + x->x_f = 0; + if (argc) x->x_f = atom_getfloat(argv++),argc--; + + inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1")); + + x->x_phase = 0; + x->x_conv = 0; + + outlet_new(&x->x_obj, gensym("signal")); + + inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("loop")); + x->loop = 0; + + if (argc) x->loop = atom_getfloat(argv++),argc--; + + x->state = 0; + + x->x_outlet1 = outlet_new(&x->x_obj, &s_bang); + x->x_outlet2 = outlet_new(&x->x_obj, &s_bang); + + x->x_clock = clock_new(x, (t_method)phasorshot_tick); + + + return (x); +} + + +void phasorshot_free(t_phasorshot *x) +{ + clock_free(x->x_clock); +} + + + void phasorshot_tilde_setup(void) +{ + phasorshot_class = class_new(gensym("phasorshot~"), (t_newmethod)phasorshot_new, (t_method)phasorshot_free, + sizeof(t_phasorshot), 0,A_GIMME,0); + CLASS_MAINSIGNALIN(phasorshot_class, t_phasorshot, x_f); + class_addmethod(phasorshot_class, (t_method)phasorshot_dsp, gensym("dsp"), 0); + + class_addmethod(phasorshot_class, (t_method)phasorshot_ft1, + gensym("ft1"), A_FLOAT, 0); + class_addmethod(phasorshot_class, (t_method)phasorshot_loop, + gensym("loop"), A_FLOAT, 0); +} + +#endif /* Hoeldrich version */ Property changes on: trunk/externals/tof/src/phasorshot~.c ___________________________________________________________________ Name: svn:executable + * Modified: trunk/externals/tof/src/w_breakpoints.h =================================================================== --- trunk/externals/tof/src/w_breakpoints.h 2008-04-01 14:43:49 UTC (rev 9673) +++ trunk/externals/tof/src/w_breakpoints.h 2008-04-02 18:09:56 UTC (rev 9674) @@ -7,7 +7,7 @@ #define abs fabs #endif -#define BACKGROUNDCOLOR "grey" +#define BACKGROUNDCOLOR "grey86" #define LINECOLOR "grey30" #ifndef BACKGROUNDWIDTH #define BACKGROUNDWIDTH "1" This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9673] trunk/externals/hardware/MIDIvice/src
by zmoelnig＠users.sourceforge.net 01 Apr '08

01 Apr '08

Revision: 9673 http://pure-data.svn.sourceforge.net/pure-data/?rev=9673&view=rev Author: zmoelnig Date: 2008-04-01 07:43:49 -0700 (Tue, 01 Apr 2008) Log Message: ----------- use autoconf build-system Added Paths: ----------- trunk/externals/hardware/MIDIvice/src/Make.config.in trunk/externals/hardware/MIDIvice/src/Makefile trunk/externals/hardware/MIDIvice/src/configure.ac Removed Paths: ------------- trunk/externals/hardware/MIDIvice/src/makefile Added: trunk/externals/hardware/MIDIvice/src/Make.config.in =================================================================== --- trunk/externals/hardware/MIDIvice/src/Make.config.in (rev 0) +++ trunk/externals/hardware/MIDIvice/src/Make.config.in 2008-04-01 14:43:49 UTC (rev 9673) @@ -0,0 +1,31 @@ +LIBNAME=@LIBNAME@ + +# when build as a library this holds a pre-processor define +# (e.g. "-DBUILD_LIBRARY") +# when build as single externals this is empty +BUILDLIBRARY =@BUILDLIBRARY@ + +PREFIX =@prefix@@PDLIBDIR@ + +INSTALL_BIN=$(DESTDIR)$(PREFIX)/extra/$(LIBNAME) +INSTALL_DOC=$(DESTDIR)$(PREFIX)/@REFERENCEPATH@$(LIBNAME) + +EXT = @EXT@ +DEFS = @DFLAGS@ +IFLAGS = -I. @INCLUDES@ $(INCLUDES) +MAKEDEP_FLAGS = @MAKEDEP_FLAGS@ + +CC = @CC@ +LD = @LD@ +STRIP = @STRIP@ +STRIPFLAGS= @STRIPFLAGS@ + +AFLAGS = +LFLAGS = @LFLAGS@ +WFLAGS = + +TARNAME = $(LIBNAME).tgz + +CONFIGUREFLAGS = @CONFIGUREFLAGS@ +CFLAGS = $(DEFS) $(IFLAGS) $(BUILDLIBRARY) -DPD $(WFLAGS) @CFLAGS@ +LIBS = @LIBS@ Copied: trunk/externals/hardware/MIDIvice/src/Makefile (from rev 9672, trunk/externals/hardware/MIDIvice/src/makefile) =================================================================== --- trunk/externals/hardware/MIDIvice/src/Makefile (rev 0) +++ trunk/externals/hardware/MIDIvice/src/Makefile 2008-04-01 14:43:49 UTC (rev 9673) @@ -0,0 +1,86 @@ +default: all + +.PHONEY: default all everything dist \ + clean realclean distclean \ + install install-bin install-doc install-abs \ + tests + +HELPERSOURCES=MIDIvice.c +OBJECTSOURCES=$(sort $(filter-out $(HELPERSOURCES), $(filter %.c, $(wildcard *.c)))) +SOURCES=$(OBJECTSOURCES) $(HELPERSOURCES) + + +configure: configure.ac + autoconf + +-include $(SOURCES:.c=.d) + +Make.config: Make.config.in configure + ./configure $(CONFIGUREFLAGS) + +-include Make.config + + +## 2nd only generate depend-files when we have Make.config included +## and thus MAKEDEP_FLAGS defined +ifdef MAKEDEP_FLAGS +## dependencies: as proposed by the GNU-make documentation +## see http://www.gnu.org/software/make/manual/html_node/make_47.html#SEC51 +%.d: %.c + @set -e; rm -f $@; \ + $(CPP) $(MAKEDEP_FLAGS) $(CFLAGS) $< > $@.$$$$; \ + sed 's,$$*$\.o[ :]*,\1.o $@ : ,g' < $@.$$$$ > $@; \ + rm -f $@.$$$$ +endif + +.SUFFIXES: .$(EXT) + +TARGETS = $(SOURCES:.c=.o) + +OBJECTS = $(OBJECTSOURCES:.c=.$(EXT)) + + +## 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: $(OBJECTS) +endif + +$(OBJECTS): %.$(EXT) : %.o + $(LD) $(LFLAGS) -o $@ $*.o $(LIBS) + $(STRIP) $(STRIPFLAGS) $@ + + +$(LIBNAME): $(TARGETS) + $(LD) $(LFLAGS) -o $@.$(EXT) *.o $(LIBS) + $(STRIP) $(STRIPFLAGS) $(LIBNAME).$(EXT) + +$(TARGETS): %.o : %.c + $(CC) $(CFLAGS) -c -o $@ $*.c + +clean: + -rm -f *.$(EXT) *.o + +realclean: clean + -rm -f *~ _* config.* + -rm -f *.d *.d.* + +distclean: realclean + -rm -f Make.config + -rm -f *.exp *.lib *.ncb *.opt *.plg + -rm -rf autom4te.cache/ + +install: install-bin install-doc + +install-bin: + -install -d $(INSTALL_BIN) + -install -m 644 *.$(EXT) $(INSTALL_BIN) + +install-doc: + -install -d $(INSTALL_DOC) + -install -m 644 *-help.pd $(INSTALL_DOC) + +everything: clean all install distclean Added: trunk/externals/hardware/MIDIvice/src/configure.ac =================================================================== --- trunk/externals/hardware/MIDIvice/src/configure.ac (rev 0) +++ trunk/externals/hardware/MIDIvice/src/configure.ac 2008-04-01 14:43:49 UTC (rev 9673) @@ -0,0 +1,273 @@ +dnl Process this file with autoconf to produce a configure script. +AC_INIT(MIDIvice.c) + +LIBNAME=MIDIvice + + +dnl Checks for programs. +AC_PROG_CC + +AC_SUBST(STK) +AC_SUBST(DFLAGS) +AC_SUBST(LFLAGS) +AC_SUBST(EXT) +AC_SUBST(LD) +AC_SUBST(STRIP) +AC_SUBST(STRIPFLAGS) +AC_SUBST(LIBRARY_VERSION) +AC_SUBST(REFERENCEPATH) +AC_SUBST(PDLIBDIR) +AC_SUBST(INCLUDES) +AC_SUBST(LIBNAME) +AC_SUBST(CONFIGUREFLAGS) +AC_SUBST(BUILDLIBRARY) + +## store the flags passed to us +## is there no way to get the flags without quotes? +#CONFIGUREFLAGS=${ac_configure_args} +## and is this solution portable? time will show.... +CONFIGUREFLAGS=$(echo ${ac_configure_args} | sed "s/'//g") + + +AC_ARG_WITH(pdversion, [ --with-pdversion=<ver> enforce a certain pd-version (e.g. 0.37)]) +AC_ARG_WITH(extension, [ --with-extension=<ext> enforce a certain extension for the dynamic library (e.g. dll)]) +AC_ARG_WITH(pdpath, [ --with-pd=</path/to/pd> where to look for pd-headers and and -libs]) +AC_ARG_ENABLE(PIC, [ --disable-PIC disable compilation with PIC-flag]) +AC_ARG_ENABLE(library,[ --disable-library split the library into single externals]) + +if test "xno" != "x${enable_library}" ; then +dnl LATER: find a more generic way to generate the .._LIBRARY define + BUILDLIBRARY="-DBUILD_LIBRARY" +fi + +dnl Checks for libraries. +dnl Replace `main' with a function in -lc: +AC_CHECK_LIB(c, main) +AC_CHECK_LIB(crtdll, fclose) + +dnl Replace `main' with a function in -lm: +AC_CHECK_LIB(m, main) +dnl Replace `main' with a function in -lpthread: +dnl AC_CHECK_LIB(pthread, main) +dnl Replace `main' with a function in -lstk: +dnl AC_CHECK_LIB(stk, main, STK=yes) + +if test "x$with_pd" != "x"; then + if test -d "${with_pd}/src"; then + INCLUDES="-I${with_pd}/src ${INCLUDES}" + fi + if test -d "${with_pd}/bin"; then + LIBS="-L${with_pd}/bin ${LIBS}" + fi +fi + +if test "x$includedir" != "x"; then + for id in $includedir + do + if test -d $id; then INCLUDES="-I$id $INCLUDES"; fi + done +fi +if test "x$libdir" != "x"; then + for id in $libdir + do + if test -d $id; then LIBS="-L$id $LIBS"; fi + done +fi + +AC_CHECK_LIB(pd, nullfn) + +dnl Checks for header files. +AC_HEADER_STDC +AC_CHECK_HEADERS(stdlib.h stdio.h string.h math.h time.h sys/time.h) + +dnl Checks for typedefs, structures, and compiler characteristics. +AC_HEADER_TIME + +dnl Checks for library functions. +AC_FUNC_MMAP +AC_CHECK_FUNCS(select socket strerror) + + +### make-depend flags +if test "x$ac_cv_c_compiler_gnu" = "xyes"; then + AC_SUBST(MAKEDEP_FLAGS, "-MM") +else + AC_SUBST(MAKEDEP_FLAGS, "-M") +fi + +dnl check for "-mms-bitfields" cflag +dnl why is there no generic compiler-check for a given flag ? +dnl it would make things so easy: AC_CHECK_FLAG([-mms-bitfields],,) +AC_MSG_CHECKING("ms-bitfields") +cat > conftest.c << EOF +int main(){ + return 0; +} +EOF +if ${CC} ${INCLUDES} ${DFLAGS} -o conftest.o conftest.c ${CFLAGS} -mms-bitfields > /dev/null 2>&1 +then + echo "yes" + CFLAGS="${CFLAGS} -mms-bitfields" +else + echo "no" +fi + + + + +dnl isn't there a better way to check for good linker/stripper ? + +dnl if we don't have $LD set, we set it to $(CC) +dnl LD=${LD:=$CC} +if test "x$LD" = "x" +then + if test "x$host" != "x" + then + LD=${host}-ld + if $(which ${LD} > /dev/null) + then + : + else + LD="" + fi + fi +fi +LD=${LD:=$CC} + +dnl if we don't have $STRIP set, we set it to ${host}-strip or strip +AC_CHECK_TOOL([STRIP], [strip], [true]) +AC_MSG_CHECKING([if strip is GNU strip]) +if $STRIP -V 2>&1 | grep GNU > /dev/null +then + AC_SUBST(STRIPFLAGS, "--strip-unneeded") + AC_MSG_RESULT([yes]) +else + AC_SUBST(STRIPFLAGS,"-x") + AC_MSG_RESULT([no]) +fi + +DFLAGS="" + + +if test "x$enable_PIC" != "xno"; then +AC_MSG_CHECKING("PIC") +cat > conftest.c << EOF +int main(){ + return 0; +} +EOF +if ${CC} ${INCLUDES} ${DFLAGS} -o conftest.o conftest.c ${CFLAGS} -fPIC > /dev/null 2>&1 +then + echo "yes" + CFLAGS="${CFLAGS} -fPIC" +else + echo "no" +fi +fi + + +dnl +dnl OK, checks for machines are here now +dnl +if test `uname -s` = Linux; +then + LFLAGS="-export_dynamic -shared" + CFLAGS="$CFLAGS" + EXT=pd_linux +fi + +dnl This should use '-bundle_loader /path/to/pd/bin/pd' instead of'-undefined suppress' +dnl then strip might do something +if test `uname -s` = Darwin; +then + LD=cc + LFLAGS="-bundle -undefined suppress -flat_namespace" + EXT=pd_darwin +fi + +if test `uname | sed -e 's/^MINGW.*/NT/'` = NT; +then + LD=gcc + INCLUDES="-I@prefix@/src" + DFLAGS="-D__WIN32__" + LFLAGS="-shared @prefix@/bin/pd.dll" + EXT=dll +else + PDLIBDIR="/lib/pd" +fi + +if test `uname -s` = IRIX64; +then + LFLAGS="-n32 -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \ + -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ + -shared -rdata_shared" + EXT=pd_irix6 + dnl DFLAGS="-DUNIX -DIRIX6" +fi + +if test `uname -s` = IRIX32; +then + LFLAGS="-o32 -DUNIX -DIRIX -O2 + -shared -rdata_shared" + EXT=pd_irix5 + dnl DFLAGS="-DUNIX -DIRIX5" +fi + + +if test "x$with_extension" != "x" +then + EXT=$with_extension +fi + + +dnl Checks for pd-version, to set the correct help-path +AC_MSG_CHECKING("pd\>=0.37") + +if test "$with_pdversion" != "" +then +echo -n "($with_pdversion)... " + PD_VERSION="$with_pdversion" +else +if test "x$cross_compiling" = "xno" +then + +cat > conftest.c << EOF +#include <stdio.h> +#include "m_pd.h" +int main(){ + printf("%d.%d\n", PD_MAJOR_VERSION, PD_MINOR_VERSION); + return 0; +} +EOF + + if $CC $INCLUDES -o conftest.o conftest.c > /dev/null 2>&1 + then + PD_VERSION=`./conftest.o` + else + PD_VERSION="" + fi + echo -n $PD_VERSION +else +dnl we are cross-compiling... + echo -n "(X)..." + PD_VERSION="0.38" +fi +fi + +let PD_MAJORVERSION=`echo $PD_VERSION | cut -d"." -f1`+0 +let PD_MINORVERSION=`echo $PD_VERSION | cut -d"." -f2`+0 + + + +if test "$PD_MAJORVERSION" -gt 0 || test "$PD_MINORVERSION" -ge 37 +then + REFERENCEPATH=extra/ + echo " yes" +else + REFERENCEPATH=doc/5.reference/ + echo " no" +fi + +AC_OUTPUT(Make.config) + +rm -f conftest.* Deleted: trunk/externals/hardware/MIDIvice/src/makefile =================================================================== --- trunk/externals/hardware/MIDIvice/src/makefile 2008-04-01 13:44:04 UTC (rev 9672) +++ trunk/externals/hardware/MIDIvice/src/makefile 2008-04-01 14:43:49 UTC (rev 9673) @@ -1,75 +0,0 @@ -current: all - - -# the MIDIVICE-EXTERNAL-makefile -# everything is GnuGPL that should come with the MIDIvice.tgz -# NO WARRANTIES FOR ANYTHING -# et cetera -# 1999:forum::f\xFCr::uml\xE4ute:2001 - -# make sure that the "m_pd.h" is somehow available either by putting it into this -# directory, by adding it's path to the INCLUDE-path or by putting it into an -# already included path, e.g. "/usr/local/include/" - -#these are the user adjustables : adjust them to fit into your system -# PD will install to $(DESTDIR)$(INSTALLL_PREFIX)$(PDLIBDIR), which is /usr/local/lib/pd -# by default -DESTDIR = -INSTALL_PREFIX = /usr/local -PDLIBDIR = /lib/pd -#these were the user adjustables - - -TARGETS = MIDIvice \ - motormix - -# ----------------------- LINUX ---------------------------- -.SUFFIXES: .pd_linux - - -LINUXOBJECTS = $(TARGETS:%=%.o) -ARCH = $(shell uname --machine) - -PD_DIR = $(DESTDIR)$(INSTALL_PREFIX)$(PDLIBDIR) - -ifeq (${ARCH},alpha) -AFLAGS = -mieee -mcpu=ev56 -endif - -LINCLUDE = - -$(LINUXOBJECTS): *.h - -CFLAGS = -O2 -g -Wall $(LINCLUDE) $(UCFLAGS) $(AFLAGS) - -everything: clean all install distclean - -distclean: - touch dummy.o - touch dummy.pd_linux - touch dummy~ - touch _dummy - rm *.o *.pd_linux *~ _* - -clean: - touch dummy.o - touch dummy.pd_linux - rm *.o *.pd_linux - -all: $(LINUXOBJECTS) - - @echo :: $(LINUXOBJECTS) - - ld -export_dynamic -shared -o MIDIvice.pd_linux *.o -lc -lm - strip --strip-unneeded MIDIvice.pd_linux - -.c.pd_linux: - cc $(CFLAGS) -O2 -DPD -fPIC $(INCLUDE) -c -o $*.o $*.c - - -install: installdocs - install -m 644 MIDIvice.pd_linux $(PD_DIR)/extra - -installdocs: - install -d $(PD_DIR)/doc/5.reference/MIDIvice - install -m644 ../doc/* $(PD_DIR)/doc/5.reference/MIDIvice This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9672] trunk/externals/hardware
by zmoelnig＠users.sourceforge.net 01 Apr '08

01 Apr '08

Revision: 9672 http://pure-data.svn.sourceforge.net/pure-data/?rev=9672&view=rev Author: zmoelnig Date: 2008-04-01 06:44:04 -0700 (Tue, 01 Apr 2008) Log Message: ----------- an old project - wandering whether it still works Added Paths: ----------- trunk/externals/hardware/MIDIvice/ trunk/externals/hardware/MIDIvice/LICENSE.txt trunk/externals/hardware/MIDIvice/README.txt trunk/externals/hardware/MIDIvice/doc/ trunk/externals/hardware/MIDIvice/doc/motormix.pd trunk/externals/hardware/MIDIvice/src/ trunk/externals/hardware/MIDIvice/src/MIDIvice.c trunk/externals/hardware/MIDIvice/src/MIDIvice.h trunk/externals/hardware/MIDIvice/src/makefile trunk/externals/hardware/MIDIvice/src/motormix.c trunk/externals/hardware/MIDIvice/src/motormix_buttons.txt Added: trunk/externals/hardware/MIDIvice/LICENSE.txt =================================================================== --- trunk/externals/hardware/MIDIvice/LICENSE.txt (rev 0) +++ trunk/externals/hardware/MIDIvice/LICENSE.txt 2008-04-01 13:44:04 UTC (rev 9672) @@ -0,0 +1,290 @@ +GNU GENERAL PUBLIC LICENSE + +Version 2, June 1991 + +Copyright (C) 1989, 1991 Free Software Foundation, Inc. +59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + +Everyone is permitted to copy and distribute verbatim copies +of this license document, but changing it is not allowed. + +Preamble + +The licenses for most software are designed to take away your freedom +to share and change it. By contrast, the GNU General Public License is +intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This General +Public License applies to most of the Free Software Foundation's +software and to any other program whose authors commit to using it. +(Some other Free Software Foundation software is covered by the +GNU Library General Public License instead.) You can apply it to your +programs, too. + +When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it if you +want it, that you can change the software or use pieces of it in new free +programs; and that you know you can do these things. + +To protect your rights, we need to make restrictions that forbid anyone +to deny you these rights or to ask you to surrender the rights. These +restrictions translate to certain responsibilities for you if you distribute +copies of the software, or if you modify it. + +For example, if you distribute copies of such a program, whether gratis +or for a fee, you must give the recipients all the rights that you have. You +must make sure that they, too, receive or can get the source code. And +you must show them these terms so they know their rights. + +We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + +Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, +we want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + +Finally, any free program is threatened constantly by software patents. +We wish to avoid the danger that redistributors of a free program will +individually obtain patent licenses, in effect making the program +proprietary. To prevent this, we have made it clear that any patent must +be licensed for everyone's free use or not licensed at all. + +The precise terms and conditions for copying, distribution and +modification follow. + +TERMS AND CONDITIONS FOR +COPYING, DISTRIBUTION AND +MODIFICATION + +0. This License applies to any program or other work which contains a +notice placed by the copyright holder saying it may be distributed under +the terms of this General Public License. The "Program", below, refers +to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, either +verbatim or with modifications and/or translated into another language. +(Hereinafter, translation is included without limitation in the term +"modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of running +the Program is not restricted, and the output from the Program is +covered only if its contents constitute a work based on the Program +(independent of having been made by running the Program). Whether +that is true depends on what the Program does. + +1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the notices +that refer to this License and to the absence of any warranty; and give +any other recipients of the Program a copy of this License along with the +Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + +2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide a + warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but does + not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, and +can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based on +the Program, the distribution of the whole must be on the terms of this +License, whose permissions for other licensees extend to the entire +whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest your +rights to work written entirely by you; rather, the intent is to exercise the +right to control the distribution of derivative or collective works based +on the Program. + +In addition, mere aggregation of another work not based on the +Program with the Program (or with a work based on the Program) on a +volume of a storage or distribution medium does not bring the other +work under the scope of this License. + +3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding + machine-readable source code, which must be distributed under + the terms of Sections 1 and 2 above on a medium customarily + used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your cost + of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a + medium customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with + such an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to control +compilation and installation of the executable. However, as a special +exception, the source code distributed need not include anything that is +normally distributed (in either source or binary form) with the major +components (compiler, kernel, and so on) of the operating system on +which the executable runs, unless that component itself accompanies the +executable. + +If distribution of executable or object code is made by offering access to +copy from a designated place, then offering equivalent access to copy +the source code from the same place counts as distribution of the source +code, even though third parties are not compelled to copy the source +along with the object code. + +4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt otherwise +to copy, modify, sublicense or distribute the Program is void, and will +automatically terminate your rights under this License. However, parties +who have received copies, or rights, from you under this License will not +have their licenses terminated so long as such parties remain in full +compliance. + +5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and all +its terms and conditions for copying, distributing or modifying the +Program or works based on it. + +6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the original +licensor to copy, distribute or modify the Program subject to these terms +and conditions. You may not impose any further restrictions on the +recipients' exercise of the rights granted herein. You are not responsible +for enforcing compliance by third parties to this License. + +7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot distribute +so as to satisfy simultaneously your obligations under this License and +any other pertinent obligations, then as a consequence you may not +distribute the Program at all. For example, if a patent license would not +permit royalty-free redistribution of the Program by all those who +receive copies directly or indirectly through you, then the only way you +could satisfy both it and this License would be to refrain entirely from +distribution of the Program. + +If any portion of this section is held invalid or unenforceable under any +particular circumstance, the balance of the section is intended to apply +and the section as a whole is intended to apply in other circumstances. + +It is not the purpose of this section to induce you to infringe any patents +or other property right claims or to contest validity of any such claims; +this section has the sole purpose of protecting the integrity of the free +software distribution system, which is implemented by public license +practices. Many people have made generous contributions to the wide +range of software distributed through that system in reliance on +consistent application of that system; it is up to the author/donor to +decide if he or she is willing to distribute software through any other +system and a licensee cannot impose that choice. + +This section is intended to make thoroughly clear what is believed to be +a consequence of the rest of this License. + +8. If the distribution and/or use of the Program is restricted in certain +countries either by patents or by copyrighted interfaces, the original +copyright holder who places the Program under this License may add an +explicit geographical distribution limitation excluding those countries, so +that distribution is permitted only in or among countries not thus +excluded. In such case, this License incorporates the limitation as if +written in the body of this License. + +9. The Free Software Foundation may publish revised and/or new +versions of the General Public License from time to time. Such new +versions will be similar in spirit to the present version, but may differ in +detail to address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number +of this License, you may choose any version ever published by the Free +Software Foundation. + +10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we +sometimes make exceptions for this. Our decision will be guided by the +two goals of preserving the free status of all derivatives of our free +software and of promoting the sharing and reuse of software generally. + +NO WARRANTY + +11. BECAUSE THE PROGRAM IS LICENSED FREE OF +CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, +TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT +WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT +HOLDERS AND/OR OTHER PARTIES PROVIDE THE +PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, +EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND +PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD +THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE +COST OF ALL NECESSARY SERVICING, REPAIR OR +CORRECTION. + +12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW +OR AGREED TO IN WRITING WILL ANY COPYRIGHT +HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY +AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED +ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING +ANY GENERAL, SPECIAL, INCIDENTAL OR +CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR +INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT +LIMITED TO LOSS OF DATA OR DATA BEING RENDERED +INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD +PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE +WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR +OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY +OF SUCH DAMAGES. + +END OF TERMS AND CONDITIONS Added: trunk/externals/hardware/MIDIvice/README.txt =================================================================== --- trunk/externals/hardware/MIDIvice/README.txt (rev 0) +++ trunk/externals/hardware/MIDIvice/README.txt 2008-04-01 13:44:04 UTC (rev 9672) @@ -0,0 +1,92 @@ +the MIDIvice library +==================== + +VERSION: +0.1 + +-------------------- + +GENERAL:: +the MIDIvice library is a collection of externals for miller.s.puckette's realtime-computermusic-environment called "puredata" (or abbreviated "pd") +this MIDIvice-library will be of no use, if you don't have a running version of pd on your system. +check out for http://puredata.info to learn more about pd and how to get it + +LICENSE:: +the MIDIvice library is published under the Gnu General Public License that is included (LICENSE.txt). +some parts of the code are taken directly from the pd source-code, they, of course, fall under the license pd is published under. + +AUTHORS:: +this software is copyleft 2002-2008 by IOhannes m zmoelnig <zmoelnig(a)iem.at>, Institute of Electronic Music and Acoustics, University of Music and Dramatic Arts, Graz, Austria + +-------------------- + +PURPOSE:: +MIDIvice attempts to make handling of complex(!!!) MIDI-devices easier under Pd. It's like hiding all the SysEx-crap. +Such devices include + - mixing-consoles + - controllable patch-bays + - Synthesizers (for doing SampleDumps etc.) + +Such devices do NOT include: +- Synthesizers (for playing purposes; there is enough support under pd, i think) +- hardware, that gives your PC the possibility of doing MIDI (so really, i am not going to write another device-driver for your USBMIDI thing) + +SUPPORTED DEVICES:: +- MotorMix(tm) by cm-labs(r) - http://www.cmlabs.net + 8-channel motorfader-box with lots of buttons, LCDisplay and pan-pots. + the MotorMix-specification were supplied by cm-labs (Many thanks !!). + You can now download it from ftp://ftp.iem.at/pub/pd/Externals/MIDIvice/motormix.pdf + + objects: + MotorMix - ping and reset the MotorMix + motormix_rotary - get movements of the rotaries + motormix_encoder - get movement and push-state of the special "encoder"-rotary + motormix_faderIn - get movements of the faders + motormix_faderOut - move the motorfaders + motormix_button - get button press/releases + motormix_LED - switch on/off the button-LEDs (ot let them blink) + motormix_LCDtext - display some text on the MotorMix-LCDisplay + motormix_LCDgraph - display some simple graphics on the MotorMix-LCDisplay + motormix_7seg - display something on MotorMix's 7segment dispay + +-------------------- + +TODO:: +support for FriendChip digital patchbays +support for TCelectronics M-5000 +... +feel free to send me your wish-list (probably with MIDI-specifications) + +BUGS: +none known (right now) +motormix_button/LED could be more intuitive... + +-------------------- + +INSTALLING:: +linux : +change to directory source +adapt the makefile to match your system (where is pd installed ?) +"make clean" +"make" +"make install" +this will install the MIDIvice library into <mypdpath>/pd/extra +documentation will be installed to <mypdpath>/pd/doc/5.reference/MIDIvice +alternatively you can try "make everything" + +win32 : +i haven't had time to compile and test the MIDIvice-library under Windos yet. +Good luck ! + +darwin : +TODO + +irix : +though i have physical access to both SGI's O2s and indys, i haven't tried to compile the MIDIvice library there. +Good luck ! + +-------------------- + +RUNNING:: +add the "MIDIvice" library to your startup-path +see doc/ for more information Added: trunk/externals/hardware/MIDIvice/doc/motormix.pd =================================================================== --- trunk/externals/hardware/MIDIvice/doc/motormix.pd (rev 0) +++ trunk/externals/hardware/MIDIvice/doc/motormix.pd 2008-04-01 13:44:04 UTC (rev 9672) @@ -0,0 +1,193 @@ +#N canvas 171 107 566 570 10; +#X msg 77 131 bang; +#X msg 121 131 reset; +#X msg 178 131 help; +#N canvas 269 178 589 510 switches 0; +#X obj 83 99 motormix_button; +#X floatatom 83 122 5 0 0; +#X floatatom 183 122 5 0 0; +#X text 182 144 press/release; +#X text 81 148 button#; +#X obj 83 457 motormix_LED; +#X msg 181 299 1; +#X msg 181 321 0; +#X msg 181 343 -1; +#X floatatom 83 321 5 0 128; +#X obj 132 379 t b f; +#X text 93 301 button#; +#X text 215 299 on; +#X text 212 320 off; +#X text 217 344 blink; +#X obj 83 215 spigot; +#X obj 120 198 tgl 15 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 +1; +#X floatatom 162 429 5 0 0; +#X text 16 13 get button-states (pressed/released) and illuminated +the button-LEDs.; +#X text 337 89 get state; +#X text 316 409 illuminate LED; +#X connect 0 0 1 0; +#X connect 0 1 2 0; +#X connect 1 0 15 0; +#X connect 6 0 10 0; +#X connect 7 0 10 0; +#X connect 8 0 10 0; +#X connect 9 0 5 0; +#X connect 10 0 5 0; +#X connect 10 1 17 0; +#X connect 15 0 9 0; +#X connect 16 0 15 1; +#X connect 17 0 5 1; +#X restore 79 386 pd switches; +#N canvas 221 144 600 463 faders 0; +#X obj 312 58 motormix_faderIn; +#X floatatom 312 81 5 0 0; +#X floatatom 365 81 5 0 0; +#X floatatom 419 80 5 0 0; +#X floatatom 107 80 5 0 0; +#X floatatom 228 80 5 0 0; +#X obj 107 58 motormix_faderIn 1; +#X text 311 102 value; +#X text 361 103 touched; +#X text 423 103 fader#; +#X text 107 100 value; +#X text 223 99 touched; +#X obj 309 348 motormix_faderOut; +#X obj 97 348 motormix_faderOut 4; +#X floatatom 309 326 5 0 128; +#X floatatom 97 326 5 0 128; +#X floatatom 423 326 5 1 8; +#X text 306 309 value; +#X text 422 309 fader#; +#X text 93 310 value; +#X text 36 18 get fader-values:; +#X text 33 278 move the motor-faders:; +#X connect 0 0 1 0; +#X connect 0 1 2 0; +#X connect 0 2 3 0; +#X connect 6 0 4 0; +#X connect 6 1 5 0; +#X connect 14 0 12 0; +#X connect 15 0 13 0; +#X connect 16 0 12 1; +#X restore 77 307 pd faders; +#N canvas 417 60 470 311 rotaries 0; +#X obj 290 73 motormix_rotary; +#X floatatom 290 96 5 0 0; +#X floatatom 390 96 5 0 0; +#X floatatom 36 87 5 0 0; +#X obj 36 64 motormix_rotary 4; +#X text 39 110 increment; +#X text 284 121 increment; +#X text 396 122 rotary#; +#X obj 68 233 motormix_encoder; +#X floatatom 68 257 5 0 0; +#X floatatom 175 258 5 0 0; +#X text 178 281 push; +#X text 68 280 increment; +#X connect 0 0 1 0; +#X connect 0 1 2 0; +#X connect 4 0 3 0; +#X connect 8 0 9 0; +#X connect 8 1 10 0; +#X restore 77 342 pd rotaries; +#N canvas 179 9 750 744 LCDisplay 0; +#X obj 72 391 motormix_LCDtext; +#X msg 72 92 MotorMix (tm) is now supported by pd !!!; +#X msg 107 126 clear; +#X msg 108 149 clear 1; +#X msg 109 172 clear 2; +#X text 174 127 clear LCD-display; +#X text 172 149 clear 1st row; +#X text 174 174 clear 2nd row; +#X msg 121 218 (l) forum::fuer::umlaeute:2002; +#X obj 121 241 t a b; +#X msg 179 291 0; +#X msg 151 264 45; +#X msg 198 324 10 20; +#X text 243 325 start position and string-length; +#X floatatom 207 605 5 0 0; +#X floatatom 79 541 5 0 128; +#X floatatom 143 576 5 0 8; +#X obj 79 627 motormix_LCDgraph 3; +#X text 208 589 type; +#X text 132 559 channel#; +#X text 80 523 value; +#X text 272 534 LCDgraph-types:; +#X text 395 580 03__single vertical line; +#X text 394 533 00__left justified horizontal bar graph; +#X text 395 549 01__centered horizontal bar graph; +#X text 394 564 02__right justified horizontal bar graph; +#X text 395 595 04__left justified double vertical line; +#X text 396 611 05__centered spreading bar; +#X text 395 626 06__ascending bar graph; +#X text 396 642 07__descending bar graph; +#X text 184 11 write some text to the MotorMix-display; +#X floatatom 151 326 5 0 0; +#X symbolatom 48 66 10 0 0; +#X text 139 66 some text; +#X text 206 292 start position (0..79); +#X text 112 457 put some graphics on the second-line of the LCDisplay +(like pannings \, gain-reductions...); +#X connect 1 0 0 0; +#X connect 2 0 0 0; +#X connect 3 0 0 0; +#X connect 4 0 0 0; +#X connect 8 0 9 0; +#X connect 9 0 0 0; +#X connect 9 1 11 0; +#X connect 10 0 31 0; +#X connect 11 0 31 0; +#X connect 12 0 0 1; +#X connect 14 0 17 2; +#X connect 15 0 17 0; +#X connect 16 0 17 1; +#X connect 31 0 0 1; +#X connect 32 0 0 0; +#X restore 87 458 pd LCDisplay; +#N canvas 146 108 501 430 7segment-display 0; +#X obj 71 370 motormix_7seg; +#X obj 99 337 tgl 15 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1 +; +#X obj 157 338 tgl 15 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 +1; +#X text 206 335 toggle points on/off; +#X text 184 11 write something to the 7-segment-display; +#X floatatom 71 59 5 0 0; +#X obj 138 142 % 10; +#X obj 107 142 / 10; +#X obj 107 163 pack; +#X obj 107 121 t f f; +#X floatatom 107 99 5 0 99; +#X symbolatom 128 255 10 0 0; +#X text 119 60 write " %d"; +#X text 147 164 set 1st and 2nd char; +#X symbolatom 128 230 10 0 0; +#X text 215 230 set 1st char; +#X text 215 256 set 2nd char; +#X connect 1 0 0 1; +#X connect 2 0 0 3; +#X connect 5 0 0 0; +#X connect 6 0 8 1; +#X connect 7 0 8 0; +#X connect 8 0 0 0; +#X connect 9 0 7 0; +#X connect 9 1 6 0; +#X connect 10 0 9 0; +#X connect 11 0 0 2; +#X connect 14 0 0 0; +#X restore 86 484 pd 7segment-display; +#X text 183 306 get/set the motorfaders; +#X text 184 343 get the state of the rotaries ("pan"); +#X text 184 384 get button-presses an illuminate their LEDs; +#X text 257 457 write something to the LCDisplay; +#X text 256 484 write something to the 7segment-display; +#X text 161 28 MotorMix (tm) by CM-labs; +#X obj 77 225 print MotorMix; +#X msg 77 201 OK; +#X obj 77 171 motormix; +#X connect 0 0 16 0; +#X connect 1 0 16 0; +#X connect 2 0 16 0; +#X connect 15 0 14 0; +#X connect 16 0 15 0; Added: trunk/externals/hardware/MIDIvice/src/MIDIvice.c =================================================================== --- trunk/externals/hardware/MIDIvice/src/MIDIvice.c (rev 0) +++ trunk/externals/hardware/MIDIvice/src/MIDIvice.c 2008-04-01 13:44:04 UTC (rev 9672) @@ -0,0 +1,36 @@ +#include "MIDIvice.h" +void motormix_setup(); + +typedef struct MIDIvice +{ + t_object t_ob; +} t_MIDIvice; + +t_class *MIDIvice_class; + +static void MIDIvice_help(void) +{ + post("\nMIDIvice "VERSION); + post("supported devices:"); + post("\tmotormix\t\tMotorMix(tm) by cm-labs(r)" + "\n"); +} + +void *MIDIvice_new(void) +{ + t_MIDIvice *x = (t_MIDIvice *)pd_new(MIDIvice_class); + return (void *)x; +} + + +void MIDIvice_setup(void) +{ + motormix_setup(); + + /* ************************************** */ + post("\n\tMIDIvice "VERSION); + post("\tcopyleft forum::f\xFCr::uml\xE4ute @ IEM/KUG 2002-2008"); + + MIDIvice_class = class_new(gensym("MIDIvice"), MIDIvice_new, 0, sizeof(t_MIDIvice), 0, 0); + class_addmethod(MIDIvice_class, MIDIvice_help, gensym("help"), 0); +} Added: trunk/externals/hardware/MIDIvice/src/MIDIvice.h =================================================================== --- trunk/externals/hardware/MIDIvice/src/MIDIvice.h (rev 0) +++ trunk/externals/hardware/MIDIvice/src/MIDIvice.h 2008-04-01 13:44:04 UTC (rev 9672) @@ -0,0 +1,38 @@ +/* ********************************************** */ +/* the MIDIvice external */ +/* externals for controlling MIDI-devices */ +/* ********************************************** */ +/* forum::f\xFCr::uml\xE4ute */ +/* ********************************************** */ + +/* the MIDIvice external is a runtime-library for miller s. puckette's realtime-computermusic-software "pure data" + * therefore you NEED "pure data" to make any use of the MIDIvice external + * (except if you want to use the code for other things) + * download "pure data" at + + http://iem.kug.ac.at/pd + ftp://iem.kug.ac.at/pd + + * + * if you are looking for the latest release of the MIDIvice-external you should have another look at + + ftp://iem.kug.ac.at/pd/Externals/MIDIvice + + * + * MIDIvice is published under the GNU GeneralPublicLicense, that must be shipped with MIDIvice. + * if you are using Debian GNU/linux, the GNU-GPL can be found under /usr/share/common-licenses/GPL + * if you still haven't found a copy of the GNU-GPL, have a look at http://www.gnu.org + * + * "pure data" has it's own license, that comes shipped with "pure data". + * + * there are ABSOLUTELY NO WARRANTIES for anything + */ + +#ifndef INCLUDE_MIDIVICE_H__ +#define INCLUDE_MIDIVICE_H__ + +#include "m_pd.h" + +#define VERSION "0.1" + +#endif Added: trunk/externals/hardware/MIDIvice/src/makefile =================================================================== --- trunk/externals/hardware/MIDIvice/src/makefile (rev 0) +++ trunk/externals/hardware/MIDIvice/src/makefile 2008-04-01 13:44:04 UTC (rev 9672) @@ -0,0 +1,75 @@ +current: all + + +# the MIDIVICE-EXTERNAL-makefile +# everything is GnuGPL that should come with the MIDIvice.tgz +# NO WARRANTIES FOR ANYTHING +# et cetera +# 1999:forum::f\xFCr::uml\xE4ute:2001 + +# make sure that the "m_pd.h" is somehow available either by putting it into this +# directory, by adding it's path to the INCLUDE-path or by putting it into an +# already included path, e.g. "/usr/local/include/" + +#these are the user adjustables : adjust them to fit into your system +# PD will install to $(DESTDIR)$(INSTALLL_PREFIX)$(PDLIBDIR), which is /usr/local/lib/pd +# by default +DESTDIR = +INSTALL_PREFIX = /usr/local +PDLIBDIR = /lib/pd +#these were the user adjustables + + +TARGETS = MIDIvice \ + motormix + +# ----------------------- LINUX ---------------------------- +.SUFFIXES: .pd_linux + + +LINUXOBJECTS = $(TARGETS:%=%.o) +ARCH = $(shell uname --machine) + +PD_DIR = $(DESTDIR)$(INSTALL_PREFIX)$(PDLIBDIR) + +ifeq (${ARCH},alpha) +AFLAGS = -mieee -mcpu=ev56 +endif + +LINCLUDE = + +$(LINUXOBJECTS): *.h + +CFLAGS = -O2 -g -Wall $(LINCLUDE) $(UCFLAGS) $(AFLAGS) + +everything: clean all install distclean + +distclean: + touch dummy.o + touch dummy.pd_linux + touch dummy~ + touch _dummy + rm *.o *.pd_linux *~ _* + +clean: + touch dummy.o + touch dummy.pd_linux + rm *.o *.pd_linux + +all: $(LINUXOBJECTS) + + @echo :: $(LINUXOBJECTS) + + ld -export_dynamic -shared -o MIDIvice.pd_linux *.o -lc -lm + strip --strip-unneeded MIDIvice.pd_linux + +.c.pd_linux: + cc $(CFLAGS) -O2 -DPD -fPIC $(INCLUDE) -c -o $*.o $*.c + + +install: installdocs + install -m 644 MIDIvice.pd_linux $(PD_DIR)/extra + +installdocs: + install -d $(PD_DIR)/doc/5.reference/MIDIvice + install -m644 ../doc/* $(PD_DIR)/doc/5.reference/MIDIvice Added: trunk/externals/hardware/MIDIvice/src/motormix.c =================================================================== --- trunk/externals/hardware/MIDIvice/src/motormix.c (rev 0) +++ trunk/externals/hardware/MIDIvice/src/motormix.c 2008-04-01 13:44:04 UTC (rev 9672) @@ -0,0 +1,865 @@ + +/* 2801:forum::f\xFCr::uml\xE4ute:2002 */ + +/* + motormix by CM-labs +*/ + +#include "MIDIvice.h" +#include <string.h> +#include <ctype.h> + +#define LCD_TEXT 0x10 +#define LCD_GRAPH 0x11 +#define SEG7 0x12 + +static int x_port = 0; +static t_symbol *ctlin_sym; +static t_symbol *notein_sym; + +void outmidi_noteon(int portno, int channel, int pitch, int velo); +void outmidi_controlchange(int portno, int channel, int ctlno, int value); +void sys_putmidibyte(int portno, int byte); + +static void outmidi_byte(unsigned char byte) +{ sys_putmidibyte(x_port, byte); } + + + +/* ------------------------- LCDtext ------------------------------- */ + +static t_class *LCDtext_class; +typedef struct _LCDtext +{ + t_object x_obj; + + int pos; + int length; + t_binbuf *bbuf; +} t_LCDtext; + + +static void LCD_header(unsigned char type) +{ + outmidi_byte(0xF0); + outmidi_byte(0x00); + outmidi_byte(0x01); + outmidi_byte(0x0F); + outmidi_byte(0x00); + outmidi_byte(0x11); + outmidi_byte(0x00); + outmidi_byte(type); +} +static void LCD_footer(void) +{ + outmidi_byte(0xF7); +} + +static void LCDtext_text(t_LCDtext *x) +{ + char *c, *str=0; + int n, slen; + int pos = x->pos; + int len = x->length; + int rest=0; + + if (!x->bbuf)return; + + binbuf_gettext(x->bbuf, &str, &slen); + c=str; + if (len>slen){ + n=slen; + rest=len-slen; + } else n=len?len:slen; + + if (n>0x50-pos)n=0x50-pos; + + LCD_header(LCD_TEXT); + outmidi_byte(pos); + while(n--)outmidi_byte(*c++); + while(rest--)outmidi_byte(' '); + LCD_footer(); + + freebytes(str, slen); +} + +static void LCDtext_clear(t_LCDtext *x, t_float fmode) +{ + int mode = fmode; + int offset = (mode==2)?0x28:0x00; + int n = (mode>0)?0x28:0x50; + + post("offset=%d\tn=%d", offset, n); + + LCD_header(LCD_TEXT); + outmidi_byte(offset); + + while(n--)outmidi_byte(' '); + + LCD_footer(); +} + +static void LCDtext_any(t_LCDtext *x, t_symbol *s, int argc, t_atom *argv) +{ + // t_atom a; + binbuf_clear(x->bbuf); + + if ((s != &s_list)&&(s != &s_float)&&(s != &s_symbol)){ + t_atom a; + SETSYMBOL(&a, s); + binbuf_add(x->bbuf, 1, &a); + } + binbuf_add(x->bbuf, argc, argv); + + LCDtext_text(x); +} + +static void LCDtext_pos(t_LCDtext *x, t_float pos, t_float len) +{ + if (pos<0 )pos=0; + if (pos>80)pos=80; + if (len<0 )len=0; + + x->pos=pos; + x->length=len; +} + + +static void *LCDtext_new(t_floatarg f) +{ + t_LCDtext *x = (t_LCDtext *)pd_new(LCDtext_class); + int pos = f; + + if (pos<0)pos=0; + if (pos>0x4f)pos=0x4f; + x->pos=pos; + // floatinlet_new(&x->x_obj, &x->pos); + inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("")); + + x->bbuf = binbuf_new(); + + return (x); +} +static void LCDtext_setup(void) +{ + LCDtext_class = class_new(gensym("motormix_LCDtext"), (t_newmethod)LCDtext_new, + 0, sizeof(t_LCDtext), 0, A_DEFFLOAT, 0); + class_addcreator((t_newmethod)LCDtext_new, gensym("mm_LCDtext"), A_DEFFLOAT, 0); + + class_addmethod(LCDtext_class, (t_method)LCDtext_pos, gensym(""), A_DEFFLOAT, A_DEFFLOAT, 0); + class_addmethod(LCDtext_class, (t_method)LCDtext_clear, gensym("clear"), A_DEFFLOAT, 0); + class_addbang(LCDtext_class, (t_method)LCDtext_text); + + class_addanything(LCDtext_class, LCDtext_any); + class_sethelpsymbol(LCDtext_class, gensym("MIDIvice/motormix")); +} +/* ------------------------- LCDgraph ------------------------------- */ + +static t_class *LCDgraph_class; +typedef struct _LCDgraph +{ + t_object x_obj; + + t_float pos; + int type; +} t_LCDgraph; + +static void LCDgraph_valpos(int pos, int val) +{ + if ((pos<1)||(pos>8))return; + if (val<0)val=0; + if (val>127)val=127; + outmidi_byte(pos-1); + outmidi_byte(val); +} + +static void LCDgraph_float(t_LCDgraph *x, t_float f) +{ + if ((x->pos<1)||(x->pos>8))return; + + LCD_header(LCD_GRAPH); + outmidi_byte(x->type); + LCDgraph_valpos(x->pos, f); + LCD_footer(); +} + +static void LCDgraph_clear(t_LCDgraph *x) +{ + int n = 0x28; + int pos=0x28; + + LCD_header(LCD_TEXT); + outmidi_byte(pos); + while(n--)outmidi_byte(' '); + LCD_footer(); +} + + +static void LCDgraph_pos(t_LCDgraph *x, t_float pos) +{ + x->pos=pos; +} +static void LCDgraph_typ(t_LCDgraph *x, t_float type) +{ + if (type<0 )type=0; + if (type>7)type=7; + + x->type=type; +} +static void *LCDgraph_new(t_float ftype) +{ + t_LCDgraph *x = (t_LCDgraph *)pd_new(LCDgraph_class); + + LCDgraph_typ(x, ftype); + floatinlet_new(&x->x_obj, &x->pos); + inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("type")); + x->pos=0; + + return (x); +} +static void LCDgraph_setup(void) +{ + LCDgraph_class = class_new(gensym("motormix_LCDgraph"), (t_newmethod)LCDgraph_new, + 0, sizeof(t_LCDgraph), 0, A_DEFFLOAT, 0); + class_addcreator((t_newmethod)LCDgraph_new, gensym("mm_LCDgraph"), A_DEFFLOAT, 0); + + class_addmethod(LCDgraph_class, (t_method)LCDgraph_typ, gensym("type"), A_DEFFLOAT, 0); + class_addmethod(LCDgraph_class, (t_method)LCDgraph_pos, gensym(""), A_DEFFLOAT, 0); + class_addmethod(LCDgraph_class, (t_method)LCDgraph_clear, gensym("clear"), 0); + class_addfloat (LCDgraph_class, (t_method)LCDgraph_float); + + // class_addbang(LCDgraph_class, (t_method)LCDgraph_graph); + class_sethelpsymbol(LCDgraph_class, gensym("MIDIvice/motormix")); +} + +/* ------------------------- seg7 ------------------------------- */ + +static t_class *seg7_class; +typedef struct _seg7 +{ + t_object x_obj; + + t_float point1, point2; + char c1, c2; +} t_seg7; + +static void seg7_nibblebyte(char c, int point) +{ + char C = toupper(c); + char lo=C&0x0F; + char hi=(C>>4)&0x0F; + if (point)hi|=0x40; + // post("C=%c=%c", c, C); + // post("hi=%x\tlo=%x", hi, lo); + + outmidi_byte(hi); + outmidi_byte(lo); +} + +static void seg7_write(char c1, int pt1, char c2, int pt2) +{ + LCD_header(SEG7); + + seg7_nibblebyte(c1, pt1); + seg7_nibblebyte(c2, pt2); + + LCD_footer(); +} + +static void seg7_clear(t_seg7 *x, t_float fmode) +{ + int mode = fmode; + + LCD_header(SEG7); + if (mode!=2)seg7_nibblebyte(' ', 0); + else seg7_nibblebyte(0, 0); + if (mode!=1)seg7_nibblebyte(' ', 0); + else seg7_nibblebyte(0, 0); + + LCD_footer(); +} + +static void seg7_list(t_seg7 *x, t_symbol *s, int argc, t_atom* argv) +{ + char seg1, seg2; + int pt1=(x->point1 != 0); + int pt2=(x->point2 != 0); + + seg1=(argv->a_type==A_SYMBOL)? + *atom_getsymbol(argv)->s_name: + (atom_getint(argv)%10+0x30); + argv++; + if (argc>1)seg2=(argv->a_type==A_SYMBOL)?*atom_getsymbol(argv)->s_name:(atom_getint(argv)%10+0x30); + else { + seg2=seg1; + seg1=' '; + } + // post("seg1=%c\tseg2=%c", seg1, seg2); + + x->c1=seg1; + x->c2=seg2; + + seg7_write(seg1, pt1, seg2, pt2); +} +static void seg7_symbol(t_seg7 *x, t_symbol *s) +{ + int pt1=(x->point1 != 0); + int pt2=(x->point2 != 0); + char c1=*s->s_name; + char c2=x->c2; + + x->c1=c1; + + // post("c1=%c\tc2=%c", c1, c2); + + seg7_write(c1, pt1, c2, pt2); +} +static void seg7_symbol2(t_seg7 *x, t_symbol *s) +{ + x->c2=*s->s_name; +} +static void seg7_bang(t_seg7 *x) +{ + int pt1=(x->point1 != 0); + int pt2=(x->point2 != 0); + char c1=x->c1; + char c2=x->c2; + + seg7_write(c1, pt1, c2, pt2); +} + +static void *seg7_new(void) +{ + t_seg7 *x = (t_seg7 *)pd_new(seg7_class); + + floatinlet_new(&x->x_obj, &x->point1); + inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("symbol"), gensym("")); + floatinlet_new(&x->x_obj, &x->point2); + + x->point1=x->point2=0; + x->c1=x->c2=0; + + return (x); +} +static void seg7_setup(void) +{ + seg7_class = class_new(gensym("motormix_7seg"), (t_newmethod)seg7_new, + 0, sizeof(t_seg7), 0, A_GIMME, 0); + class_addcreator((t_newmethod)seg7_new, gensym("mm_7seg"), A_GIMME, 0); + class_addbang(seg7_class, seg7_bang); + class_addlist(seg7_class, seg7_list); + class_addsymbol(seg7_class, seg7_symbol); + class_addmethod(seg7_class, (t_method)seg7_clear, gensym("clear"), A_DEFFLOAT, 0); + class_addmethod(seg7_class, (t_method)seg7_symbol2, gensym(""), A_DEFSYMBOL, 0); + class_sethelpsymbol(seg7_class, gensym("MIDIvice/motormix")); +} + +/* ------------------------- LED ------------------------------- */ + +static t_class *LED_class; +typedef struct _LED +{ + t_object x_obj; + + t_float LED; + t_float state; +} t_LED; + +static void LED_float(t_LED *x, t_float f) +{ + int MSB, LSB; + int state = x->state; + int offset = 0; + int id = f; + + if (id<0)return; + LSB=id%8; + MSB=id/8; + + x->LED=id; + + + if (state>0)offset=0x40; + else if (state<0)offset=0x50; + + // if (MSB<8)offset++; +#if 0 + post("LED: %x %x %x %x", 0x0C, MSB, 0x2C, LSB+offset); + // post("LED: %d %d %d %d\n", 0x0C, MSB, 0x2C, LSB+offset); +#endif + outmidi_controlchange(x_port>>4, x_port&15, 0x0C, MSB); + outmidi_controlchange(x_port>>4, x_port&15, 0x2C, LSB+offset); +} + +static void LED_symbol(t_LED *x, t_symbol *s) +{ + post("motormix_LED: no method for symbol"); +} + +static void LED_bang(t_LED *x) +{ + LED_float(x, x->LED); +} + +static void *LED_new(void) +{ + t_LED *x = (t_LED *)pd_new(LED_class); + + x->LED=-1; + floatinlet_new(&x->x_obj, &x->state); + + x->state=0; + + return (x); +} +static void LED_setup(void) +{ + LED_class = class_new(gensym("motormix_LED"), (t_newmethod)LED_new, + 0, sizeof(t_LED), 0, 0); + class_addcreator((t_newmethod)LED_new, gensym("mm_LED"), 0); + + class_addsymbol(LED_class, LED_symbol); + class_addfloat (LED_class, LED_float); + class_addbang (LED_class, LED_bang); + class_sethelpsymbol(LED_class, gensym("MIDIvice/motormix")); +} + + +/* button */ +static t_class *button_class; +typedef struct _button +{ + t_object x_obj; + int o_itsme; // the fader changed + int o_imtouched; // the fader was touched + + t_outlet *o_value; // actual fader-value + t_outlet *o_touch; // 1=touched; 0=released + + int activefader; + int fader; + unsigned char MSB, LSB; +} t_button; + +static void button_touch(t_button *x, unsigned char value, unsigned char control) +{ + int pressed=0; + int MSB=x->MSB; + int LSB=0; + + x->o_imtouched=0; + + if (x->MSB<8){ + if ((value==0x00) || (value==0x40))return; + } + + LSB=value; + + if (LSB>=0x40){ + pressed=1; + LSB-=0x40; + } + + outlet_float(x->o_touch, pressed); + outlet_float(x->o_value, MSB*8+LSB); +} + +static void button_list(t_button *x, t_symbol *s, int argc, t_atom *argv) +{ + unsigned char ctl = atom_getfloatarg(0, argc, argv); + unsigned char val = atom_getfloatarg(1, argc, argv); + // int channel = atom_getfloatarg(2, argc, argv); + + if (x->o_imtouched)button_touch(x, val, ctl); + + if (ctl==0x0f){ + x->o_imtouched=1; + x->MSB=val; + } +} +static void button_free(t_button *x) +{ + pd_unbind(&x->x_obj.ob_pd, ctlin_sym); +} +static void *button_new() +{ + t_button *x = (t_button *)pd_new(button_class); + + x->o_value=outlet_new(&x->x_obj, &s_float); + x->o_touch=outlet_new(&x->x_obj, &s_float); + + x->o_imtouched = 0; + + pd_bind(&x->x_obj.ob_pd, ctlin_sym); + + return (x); +} +static void button_setup(void) +{ + button_class = class_new(gensym("motormix_button"), (t_newmethod)button_new, (t_method)button_free, + sizeof(t_button), CLASS_NOINLET, A_DEFFLOAT, 0); + class_addcreator((t_newmethod)button_new, gensym("mm_button"), A_DEFFLOAT, 0); + + class_addlist(button_class, button_list); + class_sethelpsymbol(button_class, gensym("MIDIvice/motormix")); +} + +/* ------------------------- rotary ------------------------------- */ + + +static t_class *rotary_class; +typedef struct _rotary +{ + t_object x_obj; + + t_outlet *o_value; // actual rot-value + t_outlet *o_rot; // rot-number + + int rot; +} t_rotary; + +static void rotary_list(t_rotary *x, t_symbol *s, int argc, t_atom *argv) +{ + unsigned char ctl = atom_getfloatarg(0, argc, argv); + unsigned char val = atom_getfloatarg(1, argc, argv); + // int channel = atom_getfloatarg(2, argc, argv); + + if ((ctl>=0x40) && (ctl<0x48)) { + if (x->rot) { + if (ctl+1-0x40==x->rot){ + // int value = (val>=64)?val-64:-val; + outlet_float(x->o_value, (val>=64)?val-64:-val); + } + } else { + outlet_float(x->o_rot, (t_float)(ctl-0x40+1)); + outlet_float(x->o_value, (val>=64)?val-64:-val); + } + } +} +static void rotary_free(t_rotary *x) +{ + pd_unbind(&x->x_obj.ob_pd, ctlin_sym); +} +static void *rotary_new(t_floatarg f) +{ + t_rotary *x = (t_rotary *)pd_new(rotary_class); + + if ((f<0) || (f>=9)){ + post("motormix_rotary: rot [%d] specified. only rotariess 1..8(&0) are valid", (int)f); + f=0; + } + x->rot = f; + + x->o_value=outlet_new(&x->x_obj, &s_float); + if (!x->rot) x->o_rot=outlet_new(&x->x_obj, &s_float); + + pd_bind(&x->x_obj.ob_pd, ctlin_sym); + + return (x); +} +static void rotary_setup(void) +{ + rotary_class = class_new(gensym("motormix_rotary"), (t_newmethod)rotary_new, (t_method)rotary_free, + sizeof(t_rotary), CLASS_NOINLET, A_DEFFLOAT, 0); + class_addcreator((t_newmethod)rotary_new, gensym("mm_rotary"), A_DEFFLOAT, 0); + + class_addlist(rotary_class, rotary_list); + class_sethelpsymbol(rotary_class, gensym("MIDIvice/motormix")); +} + +/* ------------------------- encoder ------------------------------- */ + +static t_class *encoder_class; +typedef struct _encoder +{ + t_object x_obj; + + t_outlet *o_value; // actual rot-value + t_outlet *o_push; // pushed +} t_encoder; + +static void encoder_list(t_encoder *x, t_symbol *s, int argc, t_atom *argv) +{ + unsigned char ctl = atom_getfloatarg(0, argc, argv); + unsigned char val = atom_getfloatarg(1, argc, argv); + // int channel = atom_getfloatarg(2, argc, argv); + + if (ctl==0x48) outlet_float(x->o_value, (val>=64)?val-64:-val); + else if (ctl==0x49)outlet_float(x->o_push, (t_float)(val==0x01)); +} +static void encoder_free(t_encoder *x) +{ + pd_unbind(&x->x_obj.ob_pd, ctlin_sym); +} +static void *encoder_new(void) +{ + t_encoder *x = (t_encoder *)pd_new(encoder_class); + + x->o_value=outlet_new(&x->x_obj, &s_float); + x->o_push =outlet_new(&x->x_obj, &s_float); + + pd_bind(&x->x_obj.ob_pd, ctlin_sym); + + return (x); +} +static void encoder_setup(void) +{ + encoder_class = class_new(gensym("motormix_encoder"), (t_newmethod)encoder_new, (t_method)encoder_free, + sizeof(t_encoder), CLASS_NOINLET, 0); + class_addcreator((t_newmethod)encoder_new, gensym("mm_encoder"), 0); + + class_addlist(encoder_class, encoder_list); + class_sethelpsymbol(encoder_class, gensym("MIDIvice/motormix")); +} + + +/* ------------------------- faderIn ------------------------------- */ + +static t_class *faderIn_class; +typedef struct _faderIn +{ + t_object x_obj; + int o_itsme; // the fader changed + int o_imtouched; // the fader was touched + + t_outlet *o_value; // actual fader-value + t_outlet *o_touch; // 1=touched; 0=released + t_outlet *o_fader; // fader-number + + int activefader; + int fader; + unsigned char MSB, LSB; +} t_faderIn; + +static void faderIn_parse(t_faderIn *x, unsigned char value, unsigned char control) +{ + unsigned int fader = (x->fader)?x->fader:x->activefader; + x->o_itsme=0; + + if (fader+31==control){ + x->LSB=value; + if (!x->fader)outlet_float(x->o_fader, x->activefader); + outlet_float(x->o_value, x->MSB+(1./128)*x->LSB); + } +} +static void faderIn_touch(t_faderIn *x, unsigned char value, unsigned char control) +{ + x->o_imtouched=0; + + if (control==0x2F){ + switch (value) { + case 0x00: + if (!x->fader)outlet_float(x->o_fader, x->activefader); + outlet_float(x->o_touch, 0.); + break; + case 0x40: + if (!x->fader)outlet_float(x->o_fader, x->activefader); + outlet_float(x->o_touch, 1.); + default: + break; + } + } +} + +static void faderIn_list(t_faderIn *x, t_symbol *s, int argc, t_atom *argv) +{ + unsigned char ctl = atom_getfloatarg(0, argc, argv); + unsigned char val = atom_getfloatarg(1, argc, argv); + // int channel = atom_getfloatarg(2, argc, argv); + + if (x->o_itsme) faderIn_parse(x, val, ctl); + if (x->o_imtouched)faderIn_touch(x, val, ctl); + + if (ctl==0x0f){ + if (x->fader) { + if (val+1==x->fader){ // touched me + x->o_imtouched=1; + } + } else { + if (val<=7){ // touched us + x->o_imtouched=1; + x->activefader=val+1; + } + } + } else if (ctl<0x08) { + if (x->fader) { + if (ctl+1==x->fader){ + x->o_itsme=1; + x->MSB=val; + } + } else { + x->o_itsme=1; + x->activefader=ctl+1; + x->MSB=val; + } + } +} +static void faderIn_free(t_faderIn *x) +{ + pd_unbind(&x->x_obj.ob_pd, ctlin_sym); +} +static void *faderIn_new(t_floatarg f) +{ + t_faderIn *x = (t_faderIn *)pd_new(faderIn_class); + + if ((f<0) || (f>=9)){ + post("motormix_fader: fader [%d] specified. only faders 1..8(&0) are valid", (int)f); + f=0; + } + x->fader = f; + + x->o_value=outlet_new(&x->x_obj, &s_float); + x->o_touch=outlet_new(&x->x_obj, &s_float); + if (!x->fader) x->o_fader=outlet_new(&x->x_obj, &s_float); + + x->o_itsme = 0; + x->o_imtouched = 0; + x->activefader = 0; + + pd_bind(&x->x_obj.ob_pd, ctlin_sym); + + return (x); +} +static void faderIn_setup(void) +{ + faderIn_class = class_new(gensym("motormix_faderIn"), (t_newmethod)faderIn_new, (t_method)faderIn_free, + sizeof(t_faderIn), CLASS_NOINLET, A_DEFFLOAT, 0); + class_addcreator((t_newmethod)faderIn_new, gensym("mm_faderIn"), A_DEFFLOAT, 0); + + class_addlist(faderIn_class, faderIn_list); + class_sethelpsymbol(faderIn_class, gensym("MIDIvice/motormix")); +} + +/* ------------------------- faderOut ------------------------------- */ + +static t_class *faderOut_class; +typedef struct _faderOut +{ + t_object x_obj; + + t_float fader; +} t_faderOut; + +static void faderOut_float(t_faderOut *x, t_float f) +{ + int fader=x->fader; + unsigned char MSB, LSB; + if (f>=128)f=128; + else if (f<0)f=0; + if ((fader<1) || (fader>8))return; + + MSB=f; + LSB=(f-MSB)*128; + outmidi_controlchange(x_port>>4, x_port&15, fader-1, MSB); + outmidi_controlchange(x_port>>4, x_port&15, fader-1+32, LSB); +} + +static void *faderOut_new(t_floatarg f) +{ + t_faderOut *x = (t_faderOut *)pd_new(faderOut_class); + + if ((f<0) || (f>=9)){ + post("motormix_fader: fader [%d] specified. only faders 1..8(&0) are valid", (int)f); + f=0; + } + x->fader=f; + if (!x->fader)floatinlet_new(&x->x_obj, &x->fader); + + return (x); +} +static void faderOut_setup(void) +{ + faderOut_class = class_new(gensym("motormix_faderOut"), (t_newmethod)faderOut_new, + 0, sizeof(t_faderOut), 0, A_DEFFLOAT, 0); + class_addcreator((t_newmethod)faderOut_new, gensym("mm_faderOut"), A_DEFFLOAT, 0); + + class_addfloat(faderOut_class, faderOut_float); + class_sethelpsymbol(faderOut_class, gensym("MIDIvice/motormix")); +} + +/* ------------------------- motormix ------------------------------- */ + +static t_class *motormix_class; +typedef struct _motormix +{ + t_object x_obj; +} t_motormix; +static void motormix_return(t_motormix *x, t_symbol *s, int argc, t_atom *argv) +{ + int p = atom_getfloatarg(0, argc, argv); + int v = atom_getfloatarg(1, argc, argv); + + if ((p==0x00) && (v==0x7F)) + outlet_bang(x->x_obj.ob_outlet); +} + +static void motormix_bang(t_motormix *x) +{ outmidi_noteon(x_port>>4, x_port&15,0,0); } + +static void motormix_help(t_motormix *x) +{ + post("MIDIvice - motormix\n==================="); + post("support for MotorMix (tm) by cm-labs (r)"); + post(" \tmotormix_faderIn" + "\n\tmotormix_rotary" + "\n\tmotormix_encoder" + "\n\tmotormix_button" + "\n\tmotormix_faderOut" + "\n\tmotormix_LED" + "\n\tmotormix_LCDtext" + "\n\tmotormix_LCDgraph" + "\n\tmotormix_7seg"); + post("(l) forum::f\xFCr::uml\xE4ute @ IEM, Graz; 2002"); +} +static void motormix_reset(t_motormix *x) +{ /* this LOOKs like a reset; i don't know what it really is... */ + LCD_header(SEG7); + LCD_footer(); +} +static void motormix_free(t_motormix *x) +{ + pd_unbind(&x->x_obj.ob_pd, notein_sym); +} +static void *motormix_new(t_floatarg f) +{ + t_motormix *x = (t_motormix *)pd_new(motormix_class); + x_port=f; + outlet_new(&x->x_obj, &s_float); + pd_bind(&x->x_obj.ob_pd, notein_sym); + // outmidi_noteon(x_port>>4,x_port&15,0,0); // isn't this dangerous ??? + return (x); +} + +void motormix_setup(void) +{ + motormix_class = class_new(gensym("motormix"), (t_newmethod)motormix_new, (t_method)motormix_free, + sizeof(t_motormix), 0/*0CLASS_NOINLET*/, /*A_DEFFLOAT,*/ 0); + + class_addcreator((t_newmethod)motormix_new, gensym("MotorMix"), /*A_DEFFLOAT,*/ 0); + + class_addmethod(motormix_class, (t_method)motormix_help, gensym("help"), 0); + class_addbang(motormix_class, motormix_bang); + class_addmethod(motormix_class, (t_method)motormix_reset, gensym("reset"), 0); + class_addlist(motormix_class, motormix_return); + + class_sethelpsymbol(motormix_class, gensym("MIDIvice/motormix")); + + ctlin_sym = gensym("#ctlin"); + notein_sym = gensym("#notein"); + + button_setup(); + faderIn_setup(); + faderOut_setup(); + rotary_setup(); + encoder_setup(); + LED_setup(); + + LCDtext_setup(); + LCDgraph_setup(); + seg7_setup(); + + /* we have to send a motormix_ping once before it starts reacting. + * this seems to be a problem with pd, but i don't have hardware to test it right now + */ + outmidi_noteon(x_port>>4,x_port&15,0,0); +} Added: trunk/externals/hardware/MIDIvice/src/motormix_buttons.txt =================================================================== --- trunk/externals/hardware/MIDIvice/src/motormix_buttons.txt (rev 0) +++ trunk/externals/hardware/MIDIvice/src/motormix_buttons.txt 2008-04-01 13:44:04 UTC (rev 9672) @@ -0,0 +1,374 @@ + +static int LED_sym2id(t_symbol *s) +{ + int id=-1; + + if (s==gensym("1"))id=1; // + + else if (s==gensym("2"))id=2; // + + else if (s==gensym("3"))id=3; // + + else if (s==gensym("4"))id=4; // + + else if (s==gensym("5"))id=5; // + + else if (s==gensym("6"))id=6; // + + else if (s==gensym("7"))id=7; // + + else if (s==gensym("8"))id=8; // + + else if (s==gensym("a"))id=10; + else if (s==gensym("b"))id=11; + else if (s==gensym("c"))id=12; + else if (s==gensym("d"))id=13; + else if (s==gensym("e"))id=14; + else if (s==gensym("f"))id=15; + else if (s==gensym("g"))id=16; + else if (s==gensym("h"))id=17; + else if (s==gensym("i"))id=18;// + + else if (s==gensym("j"))id=19;// + + else if (s==gensym("k"))id=20;// + + else if (s==gensym("l"))id=21;// + + else if (s==gensym("m"))id=22;// + + else if (s==gensym("n"))id=23;// + + else if (s==gensym("o"))id=24;// + + else if (s==gensym("p"))id=25;// + + else if (s==gensym("q"))id=26;// + + else if (s==gensym("r"))id=27;// + + else if (s==gensym("s"))id=28;// + + else if (s==gensym("t"))id=29;// + + else if (s==gensym("u"))id=30;// + + else if (s==gensym("v"))id=31;// + + else if (s==gensym("w"))id=32;// + + else if (s==gensym("x"))id=33;// + + else if (s==gensym("y"))id=34;// + + else if (s==gensym("z"))id=35;// + + else if (s==gensym("0"))id=0;// + + else if (s==gensym("9"))id=9;// + + else if (s==gensym("*"))id=36;// + + else if (s==gensym("="))id=37;// + + else if (s==gensym("/"))id=38;// + + else if (s==gensym("."))id=39;// + + else if (s==gensym("shift")) id=40; + else if (s==gensym("undo")) id=41; + else if (s==gensym("default"))id=42; + else if (s==gensym("all")) id=43; + else if (s==gensym("window")) id=44; + else if (s==gensym("plug-in"))id=45;//... + else if (s==gensym("suspend"))id=46; + else if (s==gensym("auto")) id=47; + + else if (s==gensym("escape")) id=48;// + else if (s==gensym("enter")) id=49; + else if (s==gensym("last")) id=40; + else if (s==gensym("next")) id=51; + else if (s==gensym("rewind")) id=52; + else if (s==gensym("f-fwd")) id=53;// + else if (s==gensym("stop")) id=54; + else if (s==gensym("play")) id=55; + + else if (s==gensym("bank")) id=56; + else if (s==gensym("group")) id=57; + else if (s==gensym("record")) id=58; + else if (s==gensym("functA")) id=59; + else if (s==gensym("write")) id=50; + else if (s==gensym("functB")) id=61; + else if (s==gensym("burn")) id=62; + else if (s==gensym("functC")) id=63; + else if (s==gensym("fx")) id=64;//... + else if (s==gensym("fxbyps")) id=65;//... + else if (s==gensym("effect1"))id=66;//. + else if (s==gensym("eff-1")) id=67;//. + else if (s==gensym("mute")) id=68;//... + else if (s==gensym("s-mute")) id=69;//... + else if (s==gensym("effect2"))id=60;//. + else if (s==gensym("eff-2")) id=71;//. + else if (s==gensym("pre")) id=72;//... + else if (s==gensym("post")) id=73;//... + else if (s==gensym("pre/pst"))id=74;//... + else if (s==gensym("effect3"))id=75;//. + else if (s==gensym("eff-3")) id=76;//. + else if (s==gensym("sel")) id=77;//... + else if (s==gensym("select")) id=77;//... + else if (s==gensym("effect4"))id=78;//. + else if (s==gensym("eff-4")) id=79;//. + + + return id; +} + +static void LED_id2rowcol(int id, int* row, int *col) +{ + *row=-1; + *col=-1; + + if (id==1)*row=0,*col=0; //1 + else if (id==2)*row=0,*col=1; + else if (id==3)*row=0,*col=2; + else if (id==4)*row=0,*col=3; + else if (id==5)*row=0,*col=4; + else if (id==6)*row=0,*col=5; + else if (id==7)*row=0,*col=6; + else if (id==8)*row=0,*col=7; + + else if (id==10)*row=4,*col=0;//a + else if (id==11)*row=4,*col=1; + else if (id==12)*row=4,*col=2; + else if (id==13)*row=4,*col=3; + else if (id==14)*row=4,*col=4; + else if (id==15)*row=4,*col=5; + else if (id==16)*row=4,*col=6; + else if (id==17)*row=4,*col=7; + else if (id==18)*row=3,*col=0;//i + else if (id==19)*row=3,*col=1; + else if (id==20)*row=3,*col=2; + else if (id==21)*row=3,*col=3; + else if (id==22)*row=3,*col=4; + else if (id==23)*row=3,*col=5; + else if (id==24)*row=3,*col=6; + else if (id==25)*row=3,*col=7; + else if (id==26)*row=2,*col=0;//q + else if (id==27)*row=2,*col=1; + else if (id==28)*row=2,*col=2; + else if (id==29)*row=2,*col=3; + else if (id==30)*row=2,*col=4; + else if (id==31)*row=2,*col=5; + else if (id==32)*row=2,*col=6; + else if (id==33)*row=2,*col=7; + else if (id==34)*row=1,*col=0;//y + else if (id==35)*row=1,*col=1; + else if (id==0) *row=1,*col=2; + else if (id==9) *row=1,*col=3; + else if (id==36)*row=1,*col=4; + else if (id==37)*row=1,*col=5; + else if (id==38)*row=1,*col=6; + else if (id==39)*row=1,*col=7; + + else if (id==40)*row=0,*col=8;//shift -- LEFT SIDE + else if (id==41)*row=1,*col=8; + else if (id==42)*row=2,*col=8; + else if (id==43)*row=3,*col=8; + else if (id==44)*row=4,*col=8; + else if (id==45)*row=5,*col=8; + else if (id==46)*row=6,*col=8; + else if (id==47)*row=7,*col=8; + else if (id==48)*row=0,*col=9;//escape -- RIGHT SIDE + else if (id==49)*row=1,*col=9; + else if (id==50)*row=2,*col=9; + else if (id==51)*row=3,*col=9; + else if (id==52)*row=4,*col=9; + else if (id==53)*row=5,*col=9; + else if (id==54)*row=6,*col=9; + else if (id==55)*row=7,*col=9; + else if (id==56)*row=0,*col=10;//left-arrow -- VIEW + else if (id==57)*row=1,*col=10; + else if (id==58)*row=2,*col=10; + else if (id==59)*row=3,*col=10; + else if (id==50)*row=4,*col=10; + else if (id==61)*row=5,*col=10; + else if (id==62)*row=6,*col=10; + else if (id==63)*row=7,*col=10; + else if (id==64)*row=0,*col=11; + else if (id==65)*row=0,*col=11; + else if (id==66)*row=1,*col=11; + else if (id==67)*row=1,*col=11; + else if (id==68)*row=2,*col=11; + else if (id==69)*row=2,*col=11; + else if (id==60)*row=3,*col=11; + else if (id==71)*row=3,*col=11; + else if (id==72)*row=4,*col=11; + else if (id==73)*row=4,*col=11; + else if (id==74)*row=4,*col=11; + else if (id==75)*row=5,*col=11; + else if (id==76)*row=5,*col=11; + else if (id==77)*row=6,*col=11; + else if (id==78)*row=7,*col=11; + else if (id==79)*row=7,*col=11; +} + + +static t_class *LED_class; +typedef struct _LED +{ + t_object x_obj; + + t_float LED; + t_float state; +} t_LED; + +static void LED_float(t_LED *x, t_float f) +{ + int row, col; + int state = x->state; + int offset = 0; + int id = f; + + LED_id2rowcol(id, &row, &col); + + if (id<0)return; + + if (state>0)offset=0x40; + else if (state<0)offset=0x50; + + + if (col<8)offset++; +#if 0 + post("LED: %x %x %x %x", 0x0C, col, 0x2C, row+offset); + post("LED: %d %d %d %d\n", 0x0C, col, 0x2C, row+offset); +#endif + outmidi_controlchange(x_port>>4, x_port&15, 0x0C, col); + outmidi_controlchange(x_port>>4, x_port&15, 0x2C, row+offset); +} + +static void LED_symbol(t_LED *x, t_symbol *s) +{ + LED_float(x, LED_sym2id(s)); +} + +static void LED_bang(t_LED *x) +{ + +} + +static void *LED_new(void) +{ + t_LED *x = (t_LED *)pd_new(LED_class); + + x->LED=-1; + floatinlet_new(&x->x_obj, &x->state); + + x->state=0; + + return (x); +} +static void LED_setup(void) +{ + LED_class = class_new(gensym("motormix_LED"), (t_newmethod)LED_new, + 0, sizeof(t_LED), 0, 0); + class_addcreator((t_newmethod)LED_new, gensym("LED"), 0); + + class_addsymbol(LED_class, LED_symbol); + class_addfloat (LED_class, LED_float); + class_addbang (LED_class, LED_bang); + class_sethelpsymbol(LED_class, gensym("zexy/motormix")); +} + +/* button */ +static t_class *button_class; +typedef struct _button +{ + t_object x_obj; + int o_itsme; // the fader changed + int o_imtouched; // the fader was touched + + t_outlet *o_value; // actual fader-value + t_outlet *o_touch; // 1=touched; 0=released + + int activefader; + int fader; + unsigned char MSB, LSB; +} t_button; + +static void button_touch(t_button *x, unsigned char value, unsigned char control) +{ + int pressed=0; + int MSB=x->MSB; + int LSB=0; + int id=0; + + x->o_imtouched=0; + + if (x->MSB<8){ + if ((value==0x00) || (value==0x40))return; + } + + if (value>=0x40){ + pressed=1; + value-=0x40; + } + + LSB=value; + + post("MSB=%d, LSB=%d", MSB, LSB); + + switch (MSB) { + case 0x08: /* left side */ + id=MSB+40; + break; + case 0x09: /* right side */ + id=MSB+ + break; + case 0x0A: /* VIEW */ + break; + case 0x0B: /* fx */ + break; + default: + if (MSB>0x08)return; + switch (LSB) { + case 0x01: /* 1..8 */ + id=MSB+1; + break; + case 0x05: /* a..h */ + id=MSB+10; + break; + case 0x04: /* i..p */ + id=MSB+18; + break; + case 0x03: /* q..x */ + id=MSB+26; + break; + case 0x02: /* y.. . */ + switch (MSB){ + case 0: case 1: + id=MSB+34; + break; + case 2: + id=0; + break; + case 3: + id=9; + break; + default: + id=MSB+32; + } + break; + default: + return; + } + } + + + outlet_float(x->o_touch, pressed); + outlet_float(x->o_value, id); +} + +static void button_list(t_button *x, t_symbol *s, int argc, t_atom *argv) +{ + unsigned char ctl = atom_getfloatarg(0, argc, argv); + unsigned char val = atom_getfloatarg(1, argc, argv); + // int channel = atom_getfloatarg(2, argc, argv); + + if (x->o_imtouched)button_touch(x, val, ctl); + + if (ctl==0x0f){ + x->o_imtouched=1; + x->MSB=val; + } +} + +static void *button_new() +{ + t_button *x = (t_button *)pd_new(button_class); + + x->o_value=outlet_new(&x->x_obj, &s_float); + x->o_touch=outlet_new(&x->x_obj, &s_float); + + x->o_imtouched = 0; + + pd_bind(&x->x_obj.ob_pd, ctlin_sym); + + return (x); +} +static void button_setup(void) +{ + button_class = class_new(gensym("motormix_button"), (t_newmethod)button_new, + 0, sizeof(t_button), CLASS_NOINLET, A_DEFFLOAT, 0); + class_addcreator((t_newmethod)button_new, gensym("button"), A_DEFFLOAT, 0); + + class_addlist(button_class, button_list); + class_sethelpsymbol(button_class, gensym("zexy/motormix")); +} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9671] trunk/abstractions/senderfruit/core
by lukeiannini＠users.sourceforge.net 01 Apr '08

01 Apr '08

Revision: 9671 http://pure-data.svn.sourceforge.net/pure-data/?rev=9671&view=rev Author: lukeiannini Date: 2008-04-01 03:52:21 -0700 (Tue, 01 Apr 2008) Log Message: ----------- beat2frac and list-split-at Modified Paths: -------------- trunk/abstractions/senderfruit/core/s2l-explode.pd Added Paths: ----------- trunk/abstractions/senderfruit/core/beat2frac-help.pd trunk/abstractions/senderfruit/core/beat2frac.pd trunk/abstractions/senderfruit/core/list-split-at-help.pd trunk/abstractions/senderfruit/core/list-split-at.pd trunk/abstractions/senderfruit/core/s2l-explode-help.pd Added: trunk/abstractions/senderfruit/core/beat2frac-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/beat2frac-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/beat2frac-help.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -0,0 +1,34 @@ +#N canvas 452 388 367 355 10; +#X text 7 4 [beat2frac]; +#X text 8 27 Given a beat division \, outputs the length as a fraction +of a quarter note \, so that multiplied by 60secs/BPM gives length +in seconds of a beat of that division.; +#X msg 24 75 1/4; +#X floatatom 174 180 5 0 0 0 - - -; +#X msg 174 149 90; +#X obj 64 255 *; +#X obj 174 217 expr 60000 / $f1; +#X floatatom 64 294 8 0 0 0 ms - -; +#X msg 207 149 120; +#X msg 43 96 1/4T; +#X obj 64 146 beat2frac; +#X obj 64 234 f; +#X obj 89 234 t b a; +#X text 251 309 2008 Luke Iannini; +#X text 251 323 proyekto.net; +#X text 75 95 also accepts triplets (T or t); +#X text 211 171 Tempo; +#X text 97 116 accepts any arbitrary division; +#X msg 64 117 9/17; +#X connect 2 0 10 0; +#X connect 3 0 6 0; +#X connect 4 0 3 0; +#X connect 5 0 7 0; +#X connect 6 0 12 0; +#X connect 8 0 3 0; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 5 0; +#X connect 12 0 11 0; +#X connect 12 1 5 1; +#X connect 18 0 10 0; Added: trunk/abstractions/senderfruit/core/beat2frac.pd =================================================================== --- trunk/abstractions/senderfruit/core/beat2frac.pd (rev 0) +++ trunk/abstractions/senderfruit/core/beat2frac.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -0,0 +1,81 @@ +#N canvas 594 98 330 547 10; +#X obj 95 480 * 4; +#X obj 95 503 outlet; +#X obj 27 81 s2l-explode; +#X obj 27 19 inlet; +#X obj 163 172 list-splat -1; +#X obj 27 107 list-split-at /; +#X msg 84 130 reset; +#X obj 27 189 list-l2s; +#X obj 200 198 sel T t; +#X obj 200 249 s \$0triplet?; +#X obj 163 277 list append; +#X obj 163 300 list-l2s; +#X obj 163 327 atoi; +#X obj 27 283 atoi; +#X obj 95 405 f; +#X obj 95 429 /; +#X obj 131 364 t b a; +#X msg 269 222 1; +#X obj 95 455 * 1; +#X obj 121 455 r \$0triplet?; +#X obj 27 47 t a b; +#X obj 75 48 s \$0reset; +#X obj 238 277 r \$0reset; +#X msg 200 221 0.666667; +#N canvas 933 375 193 260 trigger 1; +#X obj 115 109 == 0; +#X obj 90 109 f 0; +#X msg 105 65 0; +#X obj 95 188 spigot; +#X obj 23 189 spigot; +#X obj 46 56 t a b; +#X obj 95 216 outlet; +#X obj 23 216 outlet; +#X obj 46 27 inlet; +#X obj 105 27 inlet; +#X obj 56 163 == 0; +#X connect 0 0 1 1; +#X connect 1 0 0 0; +#X connect 1 0 10 0; +#X connect 1 0 3 1; +#X connect 2 0 1 1; +#X connect 3 0 6 0; +#X connect 4 0 7 0; +#X connect 5 0 4 0; +#X connect 5 0 3 0; +#X connect 5 1 1 0; +#X connect 8 0 5 0; +#X connect 9 0 2 0; +#X connect 10 0 4 1; +#X restore 27 155 pd trigger; +#X connect 0 0 1 0; +#X connect 2 0 5 0; +#X connect 3 0 20 0; +#X connect 4 0 10 0; +#X connect 4 1 8 0; +#X connect 5 0 24 0; +#X connect 5 1 6 0; +#X connect 6 0 24 1; +#X connect 7 0 13 0; +#X connect 8 0 23 0; +#X connect 8 1 23 0; +#X connect 8 2 17 0; +#X connect 8 2 10 1; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 16 0; +#X connect 13 0 14 1; +#X connect 14 0 15 0; +#X connect 15 0 18 0; +#X connect 16 0 14 0; +#X connect 16 1 15 1; +#X connect 17 0 9 0; +#X connect 18 0 0 0; +#X connect 19 0 18 1; +#X connect 20 0 2 0; +#X connect 20 1 21 0; +#X connect 22 0 10 1; +#X connect 23 0 9 0; +#X connect 24 0 7 0; +#X connect 24 1 4 0; Added: trunk/abstractions/senderfruit/core/list-split-at-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/list-split-at-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/list-split-at-help.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -0,0 +1,33 @@ +#N canvas 741 82 388 382 10; +#X obj 49 128 list-split-at /; +#X msg 161 128 symbol |; +#X msg 161 158 symbol /; +#N canvas 0 22 450 300 display 0; +#X obj 120 112 prepent add; +#X obj 120 80 inlet; +#X obj 120 164 outlet; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X restore 49 199 pd display; +#X msg -1 128 set; +#X obj 49 100 t a b; +#X obj 136 203 bng 15 250 50 0 empty empty done 17 7 0 10 -262144 -4034 +-1; +#X text 8 330 note: due to limitations of [select] \, the type of atom +sent to the right inlet must be the same as the type of the creation +argument (i.e. float>float or symbol>symbol); +#X msg 49 77 a b | c / d | e f g / h i j | k / l m | n o p; +#X text 11 12 [list-split-at] splits a list into multiple lists upon +encountering a delimiter; +#X msg 49 227; +#X text 271 289 2008 Luke Iannini; +#X text 271 303 proyekto.net; +#X connect 0 0 3 0; +#X connect 0 1 6 0; +#X connect 1 0 0 1; +#X connect 2 0 0 1; +#X connect 3 0 10 0; +#X connect 4 0 10 0; +#X connect 5 0 0 0; +#X connect 5 1 4 0; +#X connect 8 0 5 0; Added: trunk/abstractions/senderfruit/core/list-split-at.pd =================================================================== --- trunk/abstractions/senderfruit/core/list-split-at.pd (rev 0) +++ trunk/abstractions/senderfruit/core/list-split-at.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -0,0 +1,26 @@ +#N canvas 741 479 156 229 10; +#X obj 25 47 list-drip; +#X obj 50 130 list-extend; +#X obj 25 160 list; +#X obj 25 100 t b b; +#X obj 25 72 sel \$1; +#X obj 25 5 inlet; +#X obj 25 182 outlet; +#X obj 106 55 inlet; +#X obj 25 25 t a b; +#X obj 76 159 t b b; +#X obj 76 182 outlet; +#X connect 0 0 4 0; +#X connect 0 1 9 0; +#X connect 1 0 2 1; +#X connect 2 0 6 0; +#X connect 3 0 2 0; +#X connect 3 1 1 1; +#X connect 4 0 3 0; +#X connect 4 1 1 0; +#X connect 5 0 8 0; +#X connect 7 0 4 1; +#X connect 8 0 0 0; +#X connect 8 1 1 1; +#X connect 9 0 10 0; +#X connect 9 1 2 0; Added: trunk/abstractions/senderfruit/core/s2l-explode-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/s2l-explode-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/s2l-explode-help.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -0,0 +1,10 @@ +#N canvas 854 366 442 210 10; +#X obj 44 81 s2l-explode; +#X text 2 6 [s2l-explode] splits a symbol into individual characters +; +#X msg 44 52 Supercalifragilisticexpialidocious; +#X obj 44 107 prepent set; +#X msg 44 142; +#X connect 0 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 4 0; Modified: trunk/abstractions/senderfruit/core/s2l-explode.pd =================================================================== --- trunk/abstractions/senderfruit/core/s2l-explode.pd 2008-03-31 17:27:33 UTC (rev 9670) +++ trunk/abstractions/senderfruit/core/s2l-explode.pd 2008-04-01 10:52:21 UTC (rev 9671) @@ -4,7 +4,9 @@ #X msg 109 67 symbol; #X obj 46 41 inlet; #X obj 46 125 outlet; +#X obj 46 67 list; #X connect 0 0 4 0; #X connect 1 0 2 0; #X connect 2 0 0 1; -#X connect 3 0 0 0; +#X connect 3 0 5 0; +#X connect 5 0 0 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs April 2008