Pd-cvs October 2007

pd-cvs@lists.iem.at

16 participants
363 discussions

externals/zexy/src freadln.c, 1.4, 1.5 fwriteln.c, 1.9, 1.10 matchbox.c, 1.7, 1.8 pack~.c, 1.5, 1.6 zexy.c, 1.19, 1.20 zexy.dsp, 1.9, 1.10 zexy.h, 1.27, 1.28
by musil 31 Oct '07

31 Oct '07

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5734/zexy/src Modified Files: freadln.c fwriteln.c matchbox.c pack~.c zexy.c zexy.dsp zexy.h Log Message: win32 fixes Index: freadln.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/freadln.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** freadln.c 16 Aug 2007 22:29:21 -0000 1.4 --- freadln.c 31 Oct 2007 10:46:46 -0000 1.5 *************** *** 27,36 **** //#include <fcntl.h> ! //#ifdef __WIN32__ ! //# include <io.h> //#else //# include <sys/types.h> //# include <unistd.h> ! //#endif #define MIN_FREADLN_LENGTH 10 --- 27,37 ---- //#include <fcntl.h> ! #ifdef __WIN32__ ! # include <io.h> ! # include <stdlib.h> //#else //# include <sys/types.h> //# include <unistd.h> ! #endif #define MIN_FREADLN_LENGTH 10 Index: zexy.h =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/zexy.h,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** zexy.h 30 Oct 2007 09:21:36 -0000 1.27 --- zexy.h 31 Oct 2007 10:46:46 -0000 1.28 *************** *** 120,124 **** * this should make zexy binary compatible with older pd versions again */ ! void verbose(int level, const char *fmt, ...); #else /* --- 120,126 ---- * this should make zexy binary compatible with older pd versions again */ ! # ifndef __WIN32__ ! void verbose(int level, const char *fmt, ...); ! # endif #else /* Index: matchbox.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/matchbox.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** matchbox.c 30 Oct 2007 09:26:46 -0000 1.7 --- matchbox.c 31 Oct 2007 10:46:46 -0000 1.8 *************** *** 95,102 **** /* delete the _next_ element from the list */ static t_listlist* deletelistnext(t_listlist*list) { if(!list || !list->next)return list; /* nothing to delete */ ! t_listlist*ll=list->next; list->next=ll->next; if(ll->argv)freebytes(ll->argv, ll->argc*sizeof(t_atom)); ll->argv=0; ll->argc=0; --- 95,106 ---- /* delete the _next_ element from the list */ static t_listlist* deletelistnext(t_listlist*list) { + t_listlist*ll=0; + if(!list || !list->next)return list; /* nothing to delete */ ! ! ll=list->next; list->next=ll->next; if(ll->argv)freebytes(ll->argv, ll->argc*sizeof(t_atom)); + ll->argv=0; ll->argc=0; Index: pack~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/pack~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** pack~.c 30 Oct 2007 09:21:52 -0000 1.5 --- pack~.c 31 Oct 2007 10:46:46 -0000 1.6 *************** *** 44,49 **** i++; } #warning defer list-output to next block with a clock! ! outlet_list(x->x_obj.ob_outlet, &s_list, x->vector_length, x->buffer); --- 44,50 ---- i++; } + #ifndef __WIN32__ #warning defer list-output to next block with a clock! ! #endif outlet_list(x->x_obj.ob_outlet, &s_list, x->vector_length, x->buffer); Index: zexy.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/zexy.c,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** zexy.c 22 Oct 2007 10:18:48 -0000 1.19 --- zexy.c 31 Oct 2007 10:46:46 -0000 1.20 *************** *** 154,157 **** --- 154,158 ---- } + #ifndef __WIN32__ void verbose(int level, const char *fmt, ...){ char buf[MAXPDSTRING]; *************** *** 166,167 **** --- 167,169 ---- post("zverbose(%d): %s", level, buf); } + #endif \ No newline at end of file Index: fwriteln.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/fwriteln.c,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** fwriteln.c 23 Sep 2007 19:14:54 -0000 1.9 --- fwriteln.c 31 Oct 2007 10:46:46 -0000 1.10 *************** *** 20,23 **** --- 20,24 ---- #ifdef __WIN32__ # define snprintf _snprintf + # include <stdlib.h> #endif Index: zexy.dsp =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/zexy.dsp,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** zexy.dsp 5 Jul 2007 14:49:23 -0000 1.9 --- zexy.dsp 31 Oct 2007 10:46:46 -0000 1.10 *************** *** 181,184 **** --- 181,188 ---- # Begin Source File + SOURCE=.\list2lists.c + # End Source File + # Begin Source File + SOURCE=.\list2symbol.c # End Source File *************** *** 189,192 **** --- 193,200 ---- # Begin Source File + SOURCE=.\listfind.c + # End Source File + # Begin Source File + SOURCE=.\lpt.c # End Source File *************** *** 329,332 **** --- 337,344 ---- # Begin Source File + SOURCE=.\tabread4~~.c + # End Source File + # Begin Source File + SOURCE=.\tabset.c # End Source File

1 0

externals/zexy/src tabread4~~.c, NONE, 1.1 makesource.sh, 1.5, 1.6 multiplex.c, 1.9, 1.10 z_zexy.c, 1.16, 1.17 z_zexy.h, 1.16, 1.17
by IOhannes m zmölnig 31 Oct '07

31 Oct '07

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30544 Modified Files: makesource.sh multiplex.c z_zexy.c z_zexy.h Added Files: tabread4~~.c Log Message: added [tabread4~~] for higher-precision tabread Index: z_zexy.h =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/z_zexy.h,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** z_zexy.h 26 Jul 2007 10:24:38 -0000 1.16 --- z_zexy.h 31 Oct 2007 10:26:11 -0000 1.17 *************** *** 75,78 **** --- 75,79 ---- void tabdump_setup(void); /* tabdump */ void tabminmax_setup(void); /* tabminmax */ + void tabread4_tilde_tilde_setup(void); /* tabread4~~ */ void tabset_setup(void); /* tabset */ void tavg_tilde_setup(void); /* tavg~ */ Index: z_zexy.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/z_zexy.c,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** z_zexy.c 26 Jul 2007 10:24:38 -0000 1.16 --- z_zexy.c 31 Oct 2007 10:26:11 -0000 1.17 *************** *** 77,80 **** --- 77,81 ---- tabdump_setup(); /* tabdump */ tabminmax_setup(); /* tabminmax */ + tabread4_tilde_tilde_setup(); /* tabread4~~ */ tabset_setup(); /* tabset */ tavg_tilde_setup(); /* tavg~ */ Index: multiplex.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/multiplex.c,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** multiplex.c 30 Oct 2007 09:26:46 -0000 1.9 --- multiplex.c 31 Oct 2007 10:26:11 -0000 1.10 *************** *** 119,123 **** class_addmethod (mux_class, (t_method)mux_select, gensym(""), A_DEFFLOAT, 0); ! muxproxy_class = class_new(gensym("mux proxy"), 0, 0, sizeof(t_muxproxy), CLASS_PD | CLASS_NOINLET, 0); --- 119,123 ---- class_addmethod (mux_class, (t_method)mux_select, gensym(""), A_DEFFLOAT, 0); ! muxproxy_class = class_new(0, 0, 0, sizeof(t_muxproxy), CLASS_PD | CLASS_NOINLET, 0); --- NEW FILE: tabread4~~.c --- (This appears to be a binary file; contents omitted.) Index: makesource.sh =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/makesource.sh,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** makesource.sh 25 Jan 2006 16:16:20 -0000 1.5 --- makesource.sh 31 Oct 2007 10:26:11 -0000 1.6 *************** *** 59,63 **** ## e.g. "multiplex~.c" -> "z_multiplex__setup()" i=${f%.c} ! SETUPNAME=$(echo $i | sed -e "s/.*0x.*/setup_&/g" -e "s/~$/_tilde/g" -e "/0x/! s/.*/&_setup/") if grep -w ${SETUPNAME} $f > /dev/null; then echo "void ${SETUPNAME}(void); /* $i */" >> $ZEXY_H --- 59,63 ---- ## e.g. "multiplex~.c" -> "z_multiplex__setup()" i=${f%.c} ! SETUPNAME=$(echo $i | sed -e "s/.*0x.*/setup_&/g" -e "s/~/_tilde/g" -e "/0x/! s/.*/&_setup/") if grep -w ${SETUPNAME} $f > /dev/null; then echo "void ${SETUPNAME}(void); /* $i */" >> $ZEXY_H

1 0

externals/ann/src ann_mlp.c,1.12,1.13 ann_td.c,1.9,1.10
by Davide Morelli 31 Oct '07

31 Oct '07

Update of /cvsroot/pure-data/externals/ann/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30152/src Modified Files: ann_mlp.c ann_td.c Log Message: added note on fann version to be used Index: ann_mlp.c =================================================================== RCS file: /cvsroot/pure-data/externals/ann/src/ann_mlp.c,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** ann_mlp.c 29 Dec 2006 17:39:56 -0000 1.12 --- ann_mlp.c 31 Oct 2007 10:24:27 -0000 1.13 *************** *** 1,751 **** ! /* nn : Neural Networks for PD ! by Davide Morelli - info(a)davidemorelli.it - http://www.davidemorelli.it ! this software is simply an interface for FANN classes ! http://fann.sourceforge.net/ ! FANN is obviously needed for compilation ! this software is licensed under the GNU General Public License ! */ ! ! /* ! hacked by Georg Holzmann for some additional methods, bug fixes, ... [...1474 lines suppressed...] ! class_addmethod(ann_mlp_class, (t_method)ann_mlp_learnrate, gensym("learnrate"), A_FLOAT, 0); ! ! // change training and activation algorithms ! class_addmethod(ann_mlp_class, (t_method)ann_mlp_set_FANN_TRAIN_INCREMENTAL, gensym("FANN_TRAIN_INCREMENTAL"), 0); ! class_addmethod(ann_mlp_class, (t_method)ann_mlp_set_FANN_TRAIN_BATCH, gensym("FANN_TRAIN_BATCH"), 0); ! class_addmethod(ann_mlp_class, (t_method)ann_mlp_set_FANN_TRAIN_RPROP, gensym("FANN_TRAIN_RPROP"), 0); ! class_addmethod(ann_mlp_class, (t_method)ann_mlp_set_FANN_TRAIN_QUICKPROP, gensym("FANN_TRAIN_QUICKPROP"), 0); ! class_addmethod(ann_mlp_class, (t_method)ann_mlp_set_activation_function_output, gensym("set_activation_function_output"),A_GIMME, 0); ! class_addmethod(ann_mlp_class, (t_method)ann_mlp_set_activation_function_hidden, gensym("set_activation_function_hidden"),A_GIMME, 0); ! class_addmethod(ann_mlp_class, (t_method)ann_mlp_set_activation_steepness_hidden, gensym("set_activation_steepness_hidden"), A_FLOAT, 0); ! class_addmethod(ann_mlp_class, (t_method)ann_mlp_set_activation_steepness_output, gensym("set_activation_steepness_output"), A_FLOAT, 0); ! ! // initialization: ! class_addmethod(ann_mlp_class, (t_method)ann_mlp_randomize_weights, gensym("randomize_weights"),A_GIMME, 0); ! ! // the most important one: running the ann ! class_addlist(ann_mlp_class, (t_method)ann_mlp_manage_list); ! ! ! } Index: ann_td.c =================================================================== RCS file: /cvsroot/pure-data/externals/ann/src/ann_td.c,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** ann_td.c 29 Dec 2006 17:39:56 -0000 1.9 --- ann_td.c 31 Oct 2007 10:24:27 -0000 1.10 *************** *** 1,662 **** ! /* ann_td : Time Delay Neural Networks for PD ! by Davide Morelli - info(a)davidemorelli.it - http://www.davidemorelli.it ! this software is simply an interface for FANN classes ! http://fann.sourceforge.net/ ! FANN is obviously needed for compilation ! this software is licensed under the GNU General Public License ! */ ! #include <stdio.h> ! #include <string.h> ! #include "m_pd.h" [...1296 lines suppressed...] ! ! // change training parameters ! class_addmethod(ann_td_class, (t_method)ann_td_set_desired_error, gensym("desired_error"),A_GIMME, 0); ! class_addmethod(ann_td_class, (t_method)ann_td_set_max_iterations, gensym("max_iterations"),A_GIMME, 0); ! class_addmethod(ann_td_class, (t_method)ann_td_set_iterations_between_reports, gensym("iterations_between_reports"),A_GIMME, 0); ! ! // change training and activation algorithms ! class_addmethod(ann_td_class, (t_method)ann_td_set_FANN_TRAIN_INCREMENTAL, gensym("FANN_TRAIN_INCREMENTAL"), 0); ! class_addmethod(ann_td_class, (t_method)ann_td_set_FANN_TRAIN_BATCH, gensym("FANN_TRAIN_BATCH"), 0); ! class_addmethod(ann_td_class, (t_method)ann_td_set_FANN_TRAIN_RPROP, gensym("FANN_TRAIN_RPROP"), 0); ! class_addmethod(ann_td_class, (t_method)ann_td_set_FANN_TRAIN_QUICKPROP, gensym("FANN_TRAIN_QUICKPROP"), 0); ! class_addmethod(ann_td_class, (t_method)ann_td_set_activation_function_output, gensym("set_activation_function_output"),A_GIMME, 0); ! ! class_addmethod(ann_td_class, (t_method)ann_td_set_num_input_frames, gensym("inputs_frames"),A_DEFFLOAT, A_DEFFLOAT, 0); ! ! // the most important one: running the ann ! class_addlist(ann_td_class, (t_method)ann_td_manage_list); ! ! ! }

1 0

externals/ann README.txt,1.4,1.5
by Davide Morelli 31 Oct '07

31 Oct '07

Update of /cvsroot/pure-data/externals/ann In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30152 Modified Files: README.txt Log Message: added note on fann version to be used Index: README.txt =================================================================== RCS file: /cvsroot/pure-data/externals/ann/README.txt,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** README.txt 31 Aug 2005 19:33:46 -0000 1.4 --- README.txt 31 Oct 2007 10:24:26 -0000 1.5 *************** *** 13,18 **** ! FANN libraries are required for ann_mlp and ann_td, see http://fann.sourceforge.net/ --- 13,19 ---- ! FANN libraries version 1.2 are required for ann_mlp and ann_td, see http://fann.sourceforge.net/ + (ann works only with 1.2 version) *************** *** 20,24 **** go to http://fann.sourceforge.net/ and download fann libs ! (current is http://prdownloads.sourceforge.net/fann/fann-1.2.0.zip?download) go to MSVC++ folder and open all.dsw compile everything --- 21,25 ---- go to http://fann.sourceforge.net/ and download fann libs ! (use 1.2 version) go to MSVC++ folder and open all.dsw compile everything *************** *** 30,34 **** ---------- Linux users: ! go to http://fann.sourceforge.net/ and download fann libs compile fann libs from source if you don't compile from source edit ann/src/makefile.linux --- 31,35 ---- ---------- Linux users: ! go to http://fann.sourceforge.net/ and download 1.2 fann libs compile fann libs from source if you don't compile from source edit ann/src/makefile.linux *************** *** 43,47 **** ---------- OsX users: ! go to http://fann.sourceforge.net/ and download fann libs compile fann libs from source if you don't compile from source edit ann/src/makefile.darwin --- 44,48 ---- ---------- OsX users: ! go to http://fann.sourceforge.net/ and download 1.2 fann libs compile fann libs from source if you don't compile from source edit ann/src/makefile.darwin

1 0

autobuild: pd-extended planetccrma6-i386 2007-10-31 04.32.53
by pd＠planetccrma6-i386.idmi.poly.edu 31 Oct '07

31 Oct '07

hammer/switch.c:94: note: vectorized 0 loops in function. hammer/switch.c:123: note: not vectorized: no vectype for stmt: D.2311_29 = *D.2310_28 scalar_type: struct _class * * hammer/switch.c:115: note: not vectorized: no vectype for stmt: D.2305_44 = *D.2304_43 scalar_type: struct _class * * hammer/switch.c:115: note: vectorized 0 loops in function. gcc -o /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/extra/cyclone/switch.pd_linux -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -ftree-vectorize -ftree-vectorizer-verbose=3 -DUNIX -I . -I ../../../pd/src -I ../shared -export_dynamic -shared hammer/switch.o ../shared/common/loud.o ../shared/common/fitter.o gcc -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -ftree-vectorize -ftree-vectorizer-verbose=3 -DUNIX -I . -I ../../../pd/src -I ../shared -c -o hammer/comment.o hammer/comment.c `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead. hammer/comment.c: In function 'comment_save': hammer/comment.c:458: error: 't_comment' has no member named 'x_obj' make[3]: *** [hammer/comment.o] Error 1 make[3]: Leaving directory `/home/pd/auto-build/pd-extended/externals/miXed/cyclone' make[2]: *** [cyclone_install] Error 2 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 build tar.bz2 Uploading /home/pd/auto-build/pd-extended/packages/linux_make/build/Pd*.tar.bz2 ls: /home/pd/auto-build/pd-extended/packages/linux_make/build/Pd*.tar.bz2: No such file or directory

1 0

externals/hcs cursor.c,1.2,1.3 cursor-help.pd,1.1,1.2
by Hans-Christoph Steiner 31 Oct '07

31 Oct '07

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25215 Modified Files: cursor.c cursor-help.pd Log Message: first working sketch of the cursor object getting data from the system mouse pointer; It works, but it only reports for the current canvas, not all teh time. I need to dive in deeper to Krzysztof's tricks Index: cursor-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/cursor-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** cursor-help.pd 17 Mar 2006 04:49:48 -0000 1.1 --- cursor-help.pd 31 Oct 2007 07:12:11 -0000 1.2 *************** *** 1,17 **** ! #N canvas 0 22 454 304 10; ! #X msg 178 124 start; ! #X msg 227 124 stop; ! #X obj 142 123 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 ! 1; ! #X obj 157 151 cursor 80 80; ! #X floatatom 99 242 5 0 0 0 - - -; ! #X floatatom 239 242 5 0 0 0 - - -; ! #X obj 131 258 print LEFT; #X obj 226 265 print RIGHT; ! #X connect 0 0 3 0; ! #X connect 1 0 3 0; ! #X connect 2 0 3 0; ! #X connect 3 0 4 0; ! #X connect 3 0 6 0; ! #X connect 3 1 5 0; ! #X connect 3 1 7 0; --- 1,39 ---- ! #N canvas 446 305 462 312 10; ! #X obj 105 271 print LEFT; #X obj 226 265 print RIGHT; ! #X obj 151 96 symbol; ! #X msg 149 61 boat; ! #X msg 109 61 clock; ! #X msg 245 61 dot; ! #X msg 275 61 dotbox; ! #X msg 322 61 gumby; ! #X msg 365 61 gobbler; ! #X msg 366 130 pirate; ! #X msg 366 87 mouse; ! #X msg 366 109 target; ! #X msg 366 151 pencil; ! #X msg 184 61 coffee_mug; ! #X msg 151 121 cursor \$1; ! #X obj 49 230 pddp/print; ! #X obj 186 205 pddp/print; ! #X obj 55 132 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 ! 1; ! #X obj 124 174 cursor; ! #X connect 2 0 14 0; ! #X connect 3 0 2 0; ! #X connect 4 0 2 0; ! #X connect 5 0 2 0; ! #X connect 6 0 2 0; ! #X connect 7 0 2 0; ! #X connect 8 0 2 0; ! #X connect 9 0 2 0; ! #X connect 10 0 2 0; ! #X connect 11 0 2 0; ! #X connect 12 0 2 0; ! #X connect 13 0 2 0; ! #X connect 14 0 18 0; ! #X connect 17 0 18 0; ! #X connect 18 0 0 0; ! #X connect 18 0 15 0; ! #X connect 18 1 1 0; ! #X connect 18 1 16 0; Index: cursor.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/cursor.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** cursor.c 29 Oct 2007 18:58:42 -0000 1.2 --- cursor.c 31 Oct 2007 07:12:11 -0000 1.3 *************** *** 1,63 **** ! /* this object should probably register a e_motionfn callback with the root ! * canvas so that it is guaranteed to get the mouse motion data regardless of ! * whether the current canvas is visible. Check g_canvas.h for info.*/ ! ! // list of Tk cursors: http://www.die.net/doc/linux/man/mann/cursors.n.html ! #include "m_pd.h" ! #include "g_canvas.h" ! typedef struct _cursor { ! t_object x_obj; ! t_outlet *x_data_outlet; ! t_outlet *x_status_outlet; } t_cursor; ! t_widgetbehavior cursor_widgetbehavior; ! static t_class *cursor_class; ! ! static void cursor_motion(t_cursor *x, t_floatarg dx, t_floatarg dy) { } ! static void cursor_bang(t_cursor *x) { } ! static void cursor_float(t_cursor *x, t_floatarg f) { } static void *cursor_new(t_symbol *s, int argc, t_atom *argv) { t_cursor *x = (t_cursor *)pd_new(cursor_class); ! return (x); ! } ! ! static void cursor_free(t_cursor *x) ! { } void cursor_setup(void) { ! cursor_class = class_new(gensym("cursor"), (t_newmethod)cursor_new, ! (t_method)cursor_free, sizeof(t_cursor), 0, A_GIMME, 0); ! class_addbang(cursor_class, cursor_bang); ! class_addfloat(cursor_class, cursor_float); ! cursor_widgetbehavior.w_getrectfn = NULL; ! cursor_widgetbehavior.w_displacefn = NULL; ! cursor_widgetbehavior.w_selectfn = NULL; ! cursor_widgetbehavior.w_activatefn = NULL; ! cursor_widgetbehavior.w_deletefn = NULL; ! cursor_widgetbehavior.w_visfn = NULL; ! cursor_widgetbehavior.w_clickfn = NULL; ! class_setwidget(cursor_class, &cursor_widgetbehavior); } --- 1,120 ---- + #include <stdio.h> + #include <stdlib.h> + #include <string.h> + #include <m_pd.h> + #include <g_canvas.h> ! static t_symbol *button_symbol; ! static t_symbol *motion_symbol; ! static t_symbol *wheel_symbol; ! static t_class *cursor_class; ! typedef struct _cursor ! { ! t_object x_obj; ! t_symbol *receive_symbol; ! t_symbol *current_cursor; ! t_canvas *parent_canvas; ! t_outlet *data_outlet; ! t_outlet *status_outlet; ! t_int optionc; ! char *optionv[]; } t_cursor; ! static void cursor_float(t_cursor *x, t_float f) { + if(f > 0) + { + sys_vgui("bind all <ButtonPress> {+pd [concat %s button %%b 1 \\;]}\n", + x->receive_symbol->s_name); + sys_vgui("bind all <ButtonRelease> {+pd [concat %s button %%b 0 \\;]}\n", + x->receive_symbol->s_name); + sys_vgui("bind all <Motion> {+pd [concat %s motion %%x %%y \\;]}\n", + x->receive_symbol->s_name); + sys_vgui("bind all <MouseWheel> {+pd [concat %s wheel %%D \\;]}\n", + x->receive_symbol->s_name); + } + else + { + } + } + static void cursor_cursor(t_cursor *x, t_symbol *s) + { + post("setting cursor: %s", s->s_name); + x->current_cursor = s; + post("set parent%lx [winfo parent .x%lx.c]; $parent%lx configure -cursor %s \n", + x, x->parent_canvas, x, s->s_name); + sys_vgui("set parent%lx [winfo parent .x%lx.c]; $parent%lx configure -cursor %s \n", + x, x->parent_canvas, x, s->s_name); } ! static void cursor_button_callback(t_cursor *x, t_float button, t_float state) { + t_atom output_atoms[2]; + + SETFLOAT(output_atoms, button); + SETFLOAT(output_atoms + 1, state); + outlet_anything(x->data_outlet, button_symbol, 2, output_atoms); + } + static void cursor_motion_callback(t_cursor *x, t_float x_position, t_float y_position) + { + t_atom output_atoms[2]; + + SETFLOAT(output_atoms, x_position); + SETFLOAT(output_atoms + 1, y_position); + outlet_anything(x->data_outlet, motion_symbol, 2, output_atoms); } ! static void cursor_wheel_callback(t_cursor *x, t_float f) { + t_atom output_atom; + + SETFLOAT(&output_atom, f); + outlet_anything(x->data_outlet, wheel_symbol, 1, &output_atom); + } + static void cursor_free(t_cursor *x) + { + pd_unbind(&x->x_obj.ob_pd, x->receive_symbol); } static void *cursor_new(t_symbol *s, int argc, t_atom *argv) { + char buf[MAXPDSTRING]; t_cursor *x = (t_cursor *)pd_new(cursor_class); + x->parent_canvas = canvas_getcurrent(); ! sprintf(buf, "#%lx", (t_int)x); ! x->receive_symbol = gensym(buf); ! pd_bind(&x->x_obj.ob_pd, x->receive_symbol); ! x->data_outlet = outlet_new(&x->x_obj, 0); ! x->status_outlet = outlet_new(&x->x_obj, 0); + return(x); } void cursor_setup(void) { ! cursor_class = class_new(gensym("cursor"), ! (t_newmethod)cursor_new, (t_method)cursor_free, ! sizeof(t_cursor), 0, 0); ! class_addfloat(cursor_class, (t_method)cursor_float); ! ! class_addmethod(cursor_class, (t_method)cursor_cursor, ! gensym("cursor"), A_DEFSYMBOL, 0); ! class_addmethod(cursor_class, (t_method)cursor_button_callback, ! gensym("button"), A_DEFFLOAT, A_DEFFLOAT, 0); ! class_addmethod(cursor_class, (t_method)cursor_motion_callback, ! gensym("motion"), A_DEFFLOAT, A_DEFFLOAT, 0); ! class_addmethod(cursor_class, (t_method)cursor_wheel_callback, ! gensym("wheel"), A_DEFFLOAT, 0); ! ! button_symbol = gensym("button"); ! motion_symbol = gensym("motion"); ! wheel_symbol = gensym("wheel"); }

1 0

autobuild: pd-extended debian-stable-i386 2007-10-31 01.34.39
by pd＠debian-stable-i386.idmi.poly.edu 31 Oct '07

31 Oct '07

hammer/switch.c:94: note: vectorized 0 loops in function. hammer/switch.c:123: note: not vectorized: no vectype for stmt: D.2310_29 = *D.2309_28 scalar_type: struct _class * * hammer/switch.c:115: note: not vectorized: no vectype for stmt: D.2304_44 = *D.2303_43 scalar_type: struct _class * * hammer/switch.c:115: note: vectorized 0 loops in function. gcc -o /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/extra/cyclone/switch.pd_linux -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -ftree-vectorize -ftree-vectorizer-verbose=3 -DUNIX -I . -I ../../../pd/src -I ../shared -export_dynamic -shared hammer/switch.o ../shared/common/loud.o ../shared/common/fitter.o gcc -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -ftree-vectorize -ftree-vectorizer-verbose=3 -DUNIX -I . -I ../../../pd/src -I ../shared -c -o hammer/comment.o hammer/comment.c `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead. hammer/comment.c: In function 'comment_save': hammer/comment.c:458: error: 't_comment' has no member named 'x_obj' make[3]: *** [hammer/comment.o] Error 1 make[3]: Leaving directory `/home/pd/auto-build/pd-extended/externals/miXed/cyclone' make[2]: *** [cyclone_install] Error 2 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

externals/miXed/cyclone/sickle Scope.c,1.7,1.8
by Hans-Christoph Steiner 31 Oct '07

31 Oct '07

Update of /cvsroot/pure-data/externals/miXed/cyclone/sickle In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25106/sickle Modified Files: Scope.c Log Message: fixed problems with the classname stuff I just added: - some objects use "x_ob" instead of the standard "x_obj" - Table puts the t_object in some other struct - Scope~ hides the t_object under some layer that's beyond me Index: Scope.c =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/cyclone/sickle/Scope.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Scope.c 29 Oct 2007 18:58:43 -0000 1.7 --- Scope.c 31 Oct 2007 05:42:54 -0000 1.8 *************** *** 843,847 **** binbuf_addv(b, "ssiisiiiiiffififiiiiiii;", gensym("#X"), gensym("obj"), (int)t->te_xpix, (int)t->te_ypix, ! atom_getsymbol(binbuf_getvec(x->x_obj.te_binbuf)), x->x_width, x->x_height, x->x_period, 3, x->x_bufsize, x->x_minval, x->x_maxval, x->x_delay, 0., --- 843,847 ---- binbuf_addv(b, "ssiisiiiiiffififiiiiiii;", gensym("#X"), gensym("obj"), (int)t->te_xpix, (int)t->te_ypix, ! atom_getsymbol(binbuf_getvec(t->te_binbuf)), x->x_width, x->x_height, x->x_period, 3, x->x_bufsize, x->x_minval, x->x_maxval, x->x_delay, 0.,

1 0

externals/miXed/cyclone/hammer Table.c, 1.10, 1.11 comment.c, 1.9, 1.10 funbuff.c, 1.6, 1.7
by Hans-Christoph Steiner 31 Oct '07

31 Oct '07

Update of /cvsroot/pure-data/externals/miXed/cyclone/hammer In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25106/hammer Modified Files: Table.c comment.c funbuff.c Log Message: fixed problems with the classname stuff I just added: - some objects use "x_ob" instead of the standard "x_obj" - Table puts the t_object in some other struct - Scope~ hides the t_object under some layer that's beyond me Index: funbuff.c =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/cyclone/hammer/funbuff.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** funbuff.c 29 Oct 2007 18:58:42 -0000 1.6 --- funbuff.c 31 Oct 2007 05:42:54 -0000 1.7 *************** *** 228,232 **** char buf[MAXPDSTRING]; t_hammernode *np; ! binbuf_addv(bb, "s", atom_getsymbol(binbuf_getvec(x->x_obj.te_binbuf))); for (np = x->x_tree.t_first; np; np = np->n_next) binbuf_addv(bb, "if", np->n_key, HAMMERNODE_GETFLOAT(np)); --- 228,232 ---- char buf[MAXPDSTRING]; t_hammernode *np; ! binbuf_addv(bb, "s", atom_getsymbol(binbuf_getvec(x->x_ob.te_binbuf))); for (np = x->x_tree.t_first; np; np = np->n_next) binbuf_addv(bb, "if", np->n_key, HAMMERNODE_GETFLOAT(np)); Index: Table.c =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/cyclone/hammer/Table.c,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Table.c 29 Oct 2007 18:58:42 -0000 1.10 --- Table.c 31 Oct 2007 05:42:54 -0000 1.11 *************** *** 317,321 **** buf[MAXPDSTRING-1] = 0; } ! binbuf_addv(bb, "s", atom_getsymbol(binbuf_getvec(x->x_obj.te_binbuf))); for (ndx = 0, ptr = cc->c_table; ndx < cc->c_length; ndx++, ptr++) binbuf_addv(bb, "i", *ptr); --- 317,321 ---- buf[MAXPDSTRING-1] = 0; } ! binbuf_addv(bb, "s", atom_getsymbol(binbuf_getvec(cc->c_refs->x_ob.te_binbuf))); for (ndx = 0, ptr = cc->c_table; ndx < cc->c_length; ndx++, ptr++) binbuf_addv(bb, "i", *ptr); Index: comment.c =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/cyclone/hammer/comment.c,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** comment.c 29 Oct 2007 18:58:42 -0000 1.9 --- comment.c 31 Oct 2007 05:42:54 -0000 1.10 *************** *** 456,460 **** binbuf_addv(b, "ssiisiissiiii", gensym("#X"), gensym("obj"), (int)t->te_xpix, (int)t->te_ypix, ! atom_getsymbol(binbuf_getvec(x->x_obj.te_binbuf)), x->x_pixwidth, x->x_fontsize, x->x_fontfamily, (x->x_encoding ? x->x_encoding : gensym("?")), --- 456,460 ---- binbuf_addv(b, "ssiisiissiiii", gensym("#X"), gensym("obj"), (int)t->te_xpix, (int)t->te_ypix, ! atom_getsymbol(binbuf_getvec(x->x_ob.te_binbuf)), x->x_pixwidth, x->x_fontsize, x->x_fontfamily, (x->x_encoding ? x->x_encoding : gensym("?")),

1 0

externals/hcs colorpanel.c, NONE, 1.1 colorpanel-help.pd, NONE, 1.1
by Hans-Christoph Steiner 31 Oct '07

31 Oct '07

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3126 Added Files: colorpanel.c colorpanel-help.pd Log Message: working version of the colorpanel --- NEW FILE: colorpanel-help.pd --- #N canvas 274 159 494 344 10; #X obj 99 139 colorpanel; #X msg 99 56 bang; #X obj 112 198 pddp/print; #X obj 98 226 unpack float float float; #X obj 30 278 nbx 8 20 -1e+37 1e+37 0 0 empty empty red 0 28 0 14 -261234 -1 -1 0.937255 256; #X obj 150 278 nbx 8 20 -1e+37 1e+37 0 0 empty empty green 0 28 0 14 -204786 -1 -1 0.819608 256; #X obj 270 278 nbx 8 20 -1e+37 1e+37 0 0 empty empty blue 0 28 0 14 -203904 -1 -1 0.329412 256; #X text 35 16 pop up a color picker and output the red \, green \, blue values as a list of three floats ranging from 0 to 1; #X text 129 177 the list:; #X text 202 78 or open the window with an initial color; #X msg 108 78 symbol #beefee; #X msg 160 107 0.5 0.5 0.5; #X connect 0 0 2 0; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 3 0 4 0; #X connect 3 1 5 0; #X connect 3 2 6 0; #X connect 10 0 0 0; #X connect 11 0 0 0; --- NEW FILE: colorpanel.c --- #include <stdio.h> #include <stdlib.h> #include <string.h> #include <m_pd.h> static t_class *colorpanel_class; typedef struct _colorpanel { t_object x_obj; t_symbol *x_s; char current_color[MAXPDSTRING]; } t_colorpanel; static void colorpanel_bang(t_colorpanel *x) { post("pd [concat %s callback [tk_colorpanel -initialcolor %s] \\;]\n", x->x_s->s_name, x->current_color); sys_vgui("pd [concat %s callback [tk_colorpanel -initialcolor %s] \\;]\n", x->x_s->s_name, x->current_color); } static void colorpanel_symbol(t_colorpanel *x, t_symbol *s) { post("setting initial color: %s", s->s_name); strncpy(x->current_color, s->s_name, MAXPDSTRING); colorpanel_bang(x); } static void colorpanel_list(t_colorpanel *x, t_symbol *s, int argc, t_atom *argv) { t_symbol *tmp_symbol = s; /* <-- this gets rid of the unused variable warning */ int i; unsigned int tmp_int; char color_buffer[3]; char color_string[MAXPDSTRING]; strncpy(color_string,"#",MAXPDSTRING); if(argc > 2) post("[colorpanel] warning more than three elements in list"); for(i=0; i<3; i++) { tmp_symbol = atom_getsymbolarg(i, argc, argv); if(tmp_symbol == &s_) { tmp_int = (unsigned int)(atom_getfloatarg(i, argc , argv) * 255); snprintf(color_buffer, 3, "%02x", (tmp_int > 255 ? 255 : tmp_int)); strncat(color_string, color_buffer, 3); } else { pd_error(x,"[colorpanel] symbol atom in color list"); } } memcpy(x->current_color, color_string, 7); post("setting initial color: %s", x->current_color); colorpanel_bang(x); } static void colorpanel_callback(t_colorpanel *x, t_symbol *color) { t_atom output_atoms[3]; unsigned int red, green, blue; if(color != &s_) { post("callback color: %s", color->s_name); strncpy(x->current_color, color->s_name, MAXPDSTRING); sscanf(x->current_color, "#%02x%02x%02x", &red, &green, &blue); post("current color: %s", x->current_color); SETFLOAT(output_atoms, (t_float) red / 255); SETFLOAT(output_atoms + 1, (t_float) green / 255); SETFLOAT(output_atoms + 2, (t_float) blue / 255); outlet_list(x->x_obj.ob_outlet, &s_list, 3, output_atoms); } } static void colorpanel_free(t_colorpanel *x) { pd_unbind(&x->x_obj.ob_pd, x->x_s); } static void *colorpanel_new( void) { char buf[MAXPDSTRING]; t_colorpanel *x = (t_colorpanel *)pd_new(colorpanel_class); sprintf(buf, "#%lx", (t_int)x); x->x_s = gensym(buf); pd_bind(&x->x_obj.ob_pd, x->x_s); outlet_new(&x->x_obj, &s_list); strcpy(x->current_color,"#ffffff"); return(x); } void colorpanel_setup(void) { colorpanel_class = class_new(gensym("colorpanel"), (t_newmethod)colorpanel_new, (t_method)colorpanel_free, sizeof(t_colorpanel), 0, 0); class_addbang(colorpanel_class, (t_method)colorpanel_bang); class_addsymbol(colorpanel_class, (t_method)colorpanel_symbol); class_addlist(colorpanel_class, (t_method)colorpanel_list); class_addmethod(colorpanel_class, (t_method)colorpanel_callback, gensym("callback"), A_DEFSYMBOL, 0); }

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs October 2007