Pd-cvs December 2005

pd-cvs@lists.iem.at

13 participants
490 discussions

pd/doc/1.manual x5.htm,1.5,1.6
by Miller Puckette 02 Dec '05

02 Dec '05

Update of /cvsroot/pure-data/pd/doc/1.manual In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19683/pd/doc/1.manual Modified Files: x5.htm Log Message: Memory leak patch, plus change to x_connective.c to fix a bug Index: x5.htm =================================================================== RCS file: /cvsroot/pure-data/pd/doc/1.manual/x5.htm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** x5.htm 21 Aug 2005 14:46:17 -0000 1.5 --- x5.htm 2 Dec 2005 04:58:23 -0000 1.6 *************** *** 21,24 **** --- 21,32 ---- <H3> <A name="s2"> 5.1. release notes </A> </H3> + <P> ------------------ 0.39.2 -------------------------- + + <P> Bug fixes: memory leak in OSX version; problem printing numbers as symbols. + + <P> ------------------ 0.39.1 -------------------------- + + <P> Bug fixes: compatibility problems with older version of TK + <P> ------------------ 0.39.0 --------------------------

1 0

externals/cxc prepend.c,1.2,1.3
by Hans-Christoph Steiner 02 Dec '05

02 Dec '05

Update of /cvsroot/pure-data/externals/cxc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16989 Modified Files: prepend.c Log Message: changed its class name back to prepend so it'll work in the namespace Index: prepend.c =================================================================== RCS file: /cvsroot/pure-data/externals/cxc/prepend.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** prepend.c 19 May 2004 01:29:15 -0000 1.2 --- prepend.c 2 Dec 2005 04:35:44 -0000 1.3 *************** *** 112,116 **** void prepend_setup(void) { ! prepend_class = class_new(gensym("cxc_prepend"), (t_newmethod)prepend_new, 0, sizeof(t_prepend), 0,A_DEFSYM,NULL); class_addlist(prepend_class, prepend_list); --- 112,116 ---- void prepend_setup(void) { ! prepend_class = class_new(gensym("prepend"), (t_newmethod)prepend_new, 0, sizeof(t_prepend), 0,A_DEFSYM,NULL); class_addlist(prepend_class, prepend_list);

1 0

externals/ext13 piperead~.c, 1.3, 1.4 pipewrite~.c, 1.3, 1.4 receive13.c, 1.1.1.1, 1.2 receive13~.c, 1.2, 1.3 send13.c, 1.1.1.1, 1.2 send13~.c, 1.2, 1.3 streamin13~.c, 1.6, 1.7 streamout13~.c, 1.6, 1.7
by Hans-Christoph Steiner 02 Dec '05

02 Dec '05

Update of /cvsroot/pure-data/externals/ext13 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2904 Modified Files: piperead~.c pipewrite~.c receive13.c receive13~.c send13.c send13~.c streamin13~.c streamout13~.c Log Message: removed class_sethelpsymbol() to make help system more flexible. In most cases, its unneeded anyway Index: receive13~.c =================================================================== RCS file: /cvsroot/pure-data/externals/ext13/receive13~.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** receive13~.c 3 Sep 2004 07:56:28 -0000 1.2 --- receive13~.c 2 Dec 2005 03:16:55 -0000 1.3 *************** *** 113,117 **** sizeof(t_sigreceive13),0, A_DEFSYM, 0); class_addcreator((t_newmethod)sigreceive13_new, gensym("r13~"), A_DEFSYM, 0); ! class_sethelpsymbol(sigreceive13_class, gensym("ext13")); class_addmethod(sigreceive13_class, (t_method)sigreceive13_set, gensym("set"), A_SYMBOL, 0); --- 113,117 ---- sizeof(t_sigreceive13),0, A_DEFSYM, 0); class_addcreator((t_newmethod)sigreceive13_new, gensym("r13~"), A_DEFSYM, 0); ! class_addmethod(sigreceive13_class, (t_method)sigreceive13_set, gensym("set"), A_SYMBOL, 0); Index: pipewrite~.c =================================================================== RCS file: /cvsroot/pure-data/externals/ext13/pipewrite~.c,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** pipewrite~.c 23 Aug 2004 03:48:55 -0000 1.3 --- pipewrite~.c 2 Dec 2005 03:16:55 -0000 1.4 *************** *** 274,278 **** sizeof(t_pipewrite_tilde), 0,A_DEFFLOAT,0); class_addmethod(pipewrite_tilde_class,nullfn,gensym("signal"), 0); ! class_sethelpsymbol(pipewrite_tilde_class, gensym("pipeio~")); class_addmethod(pipewrite_tilde_class, (t_method) pipewrite_tilde_dsp, gensym("dsp"), 0); class_addmethod(pipewrite_tilde_class, (t_method) pipewrite_tilde_open, gensym("open"), A_SYMBOL,A_NULL); --- 274,278 ---- sizeof(t_pipewrite_tilde), 0,A_DEFFLOAT,0); class_addmethod(pipewrite_tilde_class,nullfn,gensym("signal"), 0); ! class_addmethod(pipewrite_tilde_class, (t_method) pipewrite_tilde_dsp, gensym("dsp"), 0); class_addmethod(pipewrite_tilde_class, (t_method) pipewrite_tilde_open, gensym("open"), A_SYMBOL,A_NULL); Index: send13~.c =================================================================== RCS file: /cvsroot/pure-data/externals/ext13/send13~.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** send13~.c 12 Aug 2004 17:12:23 -0000 1.2 --- send13~.c 2 Dec 2005 03:16:55 -0000 1.3 *************** *** 68,73 **** (t_method)sigsend13_free, sizeof(t_sigsend13), 0, A_DEFSYM, 0); class_addmethod(sigsend13_class, (t_method)sigsend13_set, gensym("set"),A_SYMBOL, 0); ! class_sethelpsymbol(sigsend13_class, gensym("netio13~")); ! class_sethelpsymbol(sigsend13_class, gensym("ext13")); class_addcreator((t_newmethod)sigsend13_new, gensym("s13~"), A_DEFSYM, 0); class_addmethod(sigsend13_class, nullfn, gensym("signal"), 0); --- 68,73 ---- (t_method)sigsend13_free, sizeof(t_sigsend13), 0, A_DEFSYM, 0); class_addmethod(sigsend13_class, (t_method)sigsend13_set, gensym("set"),A_SYMBOL, 0); ! ! class_addcreator((t_newmethod)sigsend13_new, gensym("s13~"), A_DEFSYM, 0); class_addmethod(sigsend13_class, nullfn, gensym("signal"), 0); Index: streamin13~.c =================================================================== RCS file: /cvsroot/pure-data/externals/ext13/streamin13~.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** streamin13~.c 15 Nov 2005 06:16:17 -0000 1.6 --- streamin13~.c 2 Dec 2005 03:16:55 -0000 1.7 *************** *** 306,310 **** (t_newmethod) streamin13_new, (t_method) streamin13_free, sizeof(t_streamin13), A_DEFSYM, A_DEFFLOAT, A_DEFFLOAT, 0); ! class_sethelpsymbol(streamin13_class, gensym("streamio13~")); class_addmethod(streamin13_class, nullfn, gensym("signal"), 0); class_addmethod(streamin13_class, (t_method) streamin13_dsp, gensym("dsp"), 0); --- 306,310 ---- (t_newmethod) streamin13_new, (t_method) streamin13_free, sizeof(t_streamin13), A_DEFSYM, A_DEFFLOAT, A_DEFFLOAT, 0); ! class_addmethod(streamin13_class, nullfn, gensym("signal"), 0); class_addmethod(streamin13_class, (t_method) streamin13_dsp, gensym("dsp"), 0); Index: piperead~.c =================================================================== RCS file: /cvsroot/pure-data/externals/ext13/piperead~.c,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** piperead~.c 23 Aug 2004 03:48:55 -0000 1.3 --- piperead~.c 2 Dec 2005 03:16:55 -0000 1.4 *************** *** 157,161 **** sizeof(t_piperead_tilde), 0,A_DEFFLOAT,A_DEFFLOAT,0); class_addmethod(piperead_tilde_class, nullfn, gensym("signal"), 0); ! class_sethelpsymbol(piperead_tilde_class, gensym("pipeio~")); class_addmethod(piperead_tilde_class, (t_method) piperead_tilde_dsp, gensym("dsp"), 0); class_addmethod(piperead_tilde_class, (t_method) piperead_tilde_open, gensym("open"), A_SYMBOL,A_NULL); --- 157,161 ---- sizeof(t_piperead_tilde), 0,A_DEFFLOAT,A_DEFFLOAT,0); class_addmethod(piperead_tilde_class, nullfn, gensym("signal"), 0); ! class_addmethod(piperead_tilde_class, (t_method) piperead_tilde_dsp, gensym("dsp"), 0); class_addmethod(piperead_tilde_class, (t_method) piperead_tilde_open, gensym("open"), A_SYMBOL,A_NULL); Index: send13.c =================================================================== RCS file: /cvsroot/pure-data/externals/ext13/send13.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** send13.c 9 Jul 2002 12:41:54 -0000 1.1.1.1 --- send13.c 2 Dec 2005 03:16:55 -0000 1.2 *************** *** 66,70 **** sizeof(t_send13), 0, A_DEFSYM, 0); class_addcreator((t_newmethod)send13_new, gensym("s13"), A_DEFSYM, 0); ! class_sethelpsymbol(send13_class, gensym("ext13")); class_addbang(send13_class, send13_bang); class_addfloat(send13_class, send13_float); --- 66,70 ---- sizeof(t_send13), 0, A_DEFSYM, 0); class_addcreator((t_newmethod)send13_new, gensym("s13"), A_DEFSYM, 0); ! class_addbang(send13_class, send13_bang); class_addfloat(send13_class, send13_float); Index: receive13.c =================================================================== RCS file: /cvsroot/pure-data/externals/ext13/receive13.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** receive13.c 9 Jul 2002 12:41:52 -0000 1.1.1.1 --- receive13.c 2 Dec 2005 03:16:55 -0000 1.2 *************** *** 74,78 **** (t_method)receive13_free, sizeof(t_receive13), 0, A_DEFSYM, 0); class_addcreator((t_newmethod)receive13_new, gensym("r13"), A_DEFSYM, 0); ! class_sethelpsymbol(receive13_class, gensym("ext13")); class_addbang(receive13_class, receive13_bang); class_addfloat(receive13_class, (t_method)receive13_float); --- 74,78 ---- (t_method)receive13_free, sizeof(t_receive13), 0, A_DEFSYM, 0); class_addcreator((t_newmethod)receive13_new, gensym("r13"), A_DEFSYM, 0); ! class_addbang(receive13_class, receive13_bang); class_addfloat(receive13_class, (t_method)receive13_float); Index: streamout13~.c =================================================================== RCS file: /cvsroot/pure-data/externals/ext13/streamout13~.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** streamout13~.c 15 Nov 2005 06:16:17 -0000 1.6 --- streamout13~.c 2 Dec 2005 03:16:55 -0000 1.7 *************** *** 380,384 **** streamout13_class = class_new(gensym("streamout13~"), (t_newmethod) streamout13_new, 0, sizeof(t_streamout13), 0, A_DEFSYM, A_DEFFLOAT,A_DEFFLOAT, 0); ! class_sethelpsymbol(streamout13_class, gensym("streamio13~")); class_addmethod(streamout13_class, (t_method) streamout13_connect,gensym("connect"), A_SYMBOL, A_DEFFLOAT, 0); class_addmethod(streamout13_class, (t_method) streamout13_disconnect, gensym("disconnect"), 0); --- 380,384 ---- streamout13_class = class_new(gensym("streamout13~"), (t_newmethod) streamout13_new, 0, sizeof(t_streamout13), 0, A_DEFSYM, A_DEFFLOAT,A_DEFFLOAT, 0); ! class_addmethod(streamout13_class, (t_method) streamout13_connect,gensym("connect"), A_SYMBOL, A_DEFFLOAT, 0); class_addmethod(streamout13_class, (t_method) streamout13_disconnect, gensym("disconnect"), 0);

1 0

externals/freeverb~ freeverb~.c,1.1,1.2
by Hans-Christoph Steiner 02 Dec '05

02 Dec '05

Update of /cvsroot/pure-data/externals/freeverb~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1981 Modified Files: freeverb~.c Log Message: removed class_sethelpsymbol() to make help system more flexible. In most cases, its unneeded anyway Index: freeverb~.c =================================================================== RCS file: /cvsroot/pure-data/externals/freeverb~/freeverb~.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** freeverb~.c 10 Nov 2005 16:33:36 -0000 1.1 --- freeverb~.c 2 Dec 2005 03:14:04 -0000 1.2 *************** *** 783,787 **** class_addmethod(freeverb_class, (t_method)freeverb_mute, gensym("clear"), A_NULL); class_addmethod(freeverb_class, (t_method)freeverb_print, gensym("print"), A_NULL); - class_sethelpsymbol(freeverb_class, gensym("help-freeverb~.pd")); post(version); } --- 783,786 ----

1 0

pd/src desire.tk,1.1.2.130,1.1.2.131
by Mathieu Bouchard 02 Dec '05

02 Dec '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19096 Modified Files: Tag: devel_0_39 desire.tk Log Message: . Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.130 retrieving revision 1.1.2.131 diff -C2 -d -r1.1.2.130 -r1.1.2.131 *** desire.tk 1 Dec 2005 16:56:44 -0000 1.1.2.130 --- desire.tk 2 Dec 2005 01:54:00 -0000 1.1.2.131 *************** *** 551,562 **** proc menu_send {} { toplevel .sendpanel ! pack [entry .sendpanel.entry -textvariable send_textvariable] -side bottom -fill both -ipadx 100 ! .sendpanel.entry select from 0 ! .sendpanel.entry select adjust end ! bind .sendpanel.entry <KeyPress-Return> { ! pd $send_textvariable ! after 50 {destroy .sendpanel} ! } ! focus .sendpanel.entry } --- 551,560 ---- proc menu_send {} { toplevel .sendpanel ! set e .sendpanel.entry ! pack [entry $e -textvariable send_textvar] -side bottom -fill both -ipadx 100 ! $e select from 0 ! $e select adjust end ! bind $e <KeyPress-Return> {pd $send_textvar; after 50 {destroy .sendpanel}} ! focus $e } *************** *** 566,576 **** proc menu_audio {flag} {pd pd dsp $flag} ! proc menu_close {name} { ! foreach to_kill [winfo children $name] { ! destroy $to_kill ! } ! #destroy $name pd $name menuclose 0 ! fixwindowmenu } --- 564,572 ---- proc menu_audio {flag} {pd pd dsp $flag} ! def canvas close {} { ! #foreach to_kill [winfo children $name] {destroy $to_kill} ! ##destroy $name pd $name menuclose 0 ! $self fix_window_menu } *************** *** 579,584 **** global accels foreach e $list { ! if {[llength $e]==0} {$menu add separator} { set cmd [lindex $e 1] set accel [accel_munge [lindex $e 2]] regsub -all %W $cmd $context cmd --- 575,583 ---- global accels foreach e $list { ! if {[llength $e]==0} { ! $menu add separator ! } { set cmd [lindex $e 1] + if {![llength $cmd]} {set cmd "%W [lindex $e 0]"} set accel [accel_munge [lindex $e 2]] regsub -all %W $cmd $context cmd *************** *** 719,723 **** class_new canvas {view} ! def canvas close {} {pd $name menuclose 0} def canvas save {} {$self checkgeometry; pd $name menusave} def canvas saveas {} {$self checkgeometry; pd $name menusaveas} --- 718,722 ---- class_new canvas {view} ! #def canvas close {} {pd $name menuclose 0} def canvas save {} {$self checkgeometry; pd $name menusave} def canvas saveas {} {$self checkgeometry; pd $name menusaveas} *************** *** 730,742 **** set canvasmenu(file) { {New {menu_new} "Ctrl+n"} ! {Open {menu_open} "Ctrl+o"} {} ! {Message {menu_send} "Ctrl+m"} ! {Path... {pd pd start-path-dialog} {}} {} ! {Close {menu_close} "Ctrl+w"} ! {Save {menu_save} "Ctrl+s"} {"Save as..." {menu_saveas} "Ctrl+S"} ! {Print {menu_print} "Ctrl+p"} {} {Quit {menu_quit} "Ctrl+q"} --- 729,741 ---- set canvasmenu(file) { {New {menu_new} "Ctrl+n"} ! {Open... {menu_open} "Ctrl+o"} {} ! {Message... {menu_send} "Ctrl+m"} ! {Paths... {pd pd start-path-dialog} {}} {} ! {Close {} "Ctrl+w"} ! {Save {menu_save} "Ctrl+s"} {"Save as..." {menu_saveas} "Ctrl+S"} ! {"Print..." {menu_print} "Ctrl+p"} {} {Quit {menu_quit} "Ctrl+q"} *************** *** 879,883 **** {"Help" {popup_help [c2self %W]} ""} } ! wm protocol $name WM_DELETE_WINDOW "menu_close $name" $self new_binds focus $c --- 878,882 ---- {"Help" {popup_help [c2self %W]} ""} } ! wm protocol $name WM_DELETE_WINDOW "$self close" $self new_binds focus $c

1 0

pd/src desire.tk,1.1.2.129,1.1.2.130
by chunlee 01 Dec '05

01 Dec '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5462 Modified Files: Tag: devel_0_39 desire.tk Log Message: wire updates now Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.129 retrieving revision 1.1.2.130 diff -C2 -d -r1.1.2.129 -r1.1.2.130 *** desire.tk 26 Nov 2005 19:17:28 -0000 1.1.2.129 --- desire.tk 1 Dec 2005 16:56:44 -0000 1.1.2.130 *************** *** 1925,1929 **** def* box init {args} { ! super } --- 1925,1931 ---- def* box init {args} { ! super ! set @wires {} ! } *************** *** 1945,1960 **** } ! def box draw_wires {} { ! for {set x 0} {$x<$@ninlets} {incr x} { ! set v $self:i:$x ! if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}} ! } ! for {set x 0} {$x<$@noutlets} {incr x} { ! set v $self:o:$x ! if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}} ! } } ! def box move {dx dy} { super $dx $dy $self draw_wires --- 1947,1969 ---- } ! def* box draw_wires {} { ! ! puts "wires:$@wires" ! ! foreach wire $@wires { ! $wire draw ! } ! ! # for {set x 0} {$x<$@ninlets} {incr x} { ! # set v $self:i:$x ! # if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}} ! # } ! # for {set x 0} {$x<$@noutlets} {incr x} { ! # set v $self:o:$x ! # if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}} ! # } } ! def* box move {dx dy} { super $dx $dy $self draw_wires *************** *** 2011,2014 **** --- 2020,2028 ---- set @port1 $outno set @port2 $inno + set @canvas $canvas + #set _($@obj1:wires) [list $from $outno $to $inno] + #set _($@obj2:wires) [list $from $outno $to $inno] + set _($@obj1:wires) $self + set _($@obj2:wires) $self #puts "......from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" # no time to carry on for now...... *************** *** 2032,2037 **** if {$arrowsize < 5} {set arrow none} {set arrow last} set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]] ! $self item "" line $xys -width $thick -smooth yes \ -arrow $arrow -arrowshape $arrowshape -fill $look(wirefg) } --- 2046,2062 ---- if {$arrowsize < 5} {set arrow none} {set arrow last} set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]] ! $self item WIRE line $xys -width $thick -smooth yes \ -arrow $arrow -arrowshape $arrowshape -fill $look(wirefg) + + #puts ".......tags: [.$(a)canvas.c gettags $self]" + #if {[llength [.$(a)canvas.c gettags $self]] != 0} { + #$canvas coords $self $xys + #$canvas itemconfigure -arrow $arrow -arrowshape $arrowshape + #} { + #$canvas create line $xys -tags $self -width $thick \ + # -arrow $arrow -arrowshape $arrowshape -fill $look(wirefg) + # $self item WIRE line $xys -width $thick -smooth yes \ + # -arrow $arrow -arrowshape $arrowshape -fill $look(wirefg) + #} }

1 0

externals/frankenstein common.c,1.2,1.3 common.h,1.2,1.3
by dmorelli 01 Dec '05

01 Dec '05

Update of /cvsroot/pure-data/externals/frankenstein In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30171 Modified Files: common.c common.h Log Message: going on with functions Index: common.h =================================================================== RCS file: /cvsroot/pure-data/externals/frankenstein/common.h,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** common.h 30 Nov 2005 17:31:33 -0000 1.2 --- common.h 1 Dec 2005 12:09:05 -0000 1.3 *************** *** 28,36 **** } t_note_event; - // manipolation functions - - // TODO: - // - from data structures to lists of numbers and vice versa - // - from a (voice, rest, duration) representation to (voice, start, duration) and viceversa // --------- rhythm notation --- 28,31 ---- *************** *** 82,86 **** int possible_durations(); ! // manipolation functions // TODO: --- 77,81 ---- int possible_durations(); ! // ----------- rhythm manipolation functions // TODO: *************** *** 101,103 **** // used to free the memory allocated by this list ! void freeBeats(t_rhythm_event *currentEvent); \ No newline at end of file --- 96,110 ---- // used to free the memory allocated by this list ! void freeBeats(t_rhythm_event *currentEvent); ! ! // -------- notes manipulation functions ! ! // set the first beat of a sequence ! void setFirstNote(t_note_event **firstEvent, unsigned short int voice, float fduration, t_note note); ! ! //adds a beat at the end of this list ! void concatenateNote(t_note_event *currentEvent, unsigned short int voice, float fduration, t_note note); ! ! // used to free the memory allocated by this list ! void freeNotes(t_note_event *currentEvent); ! Index: common.c =================================================================== RCS file: /cvsroot/pure-data/externals/frankenstein/common.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** common.c 30 Nov 2005 17:31:33 -0000 1.2 --- common.c 1 Dec 2005 12:09:05 -0000 1.3 *************** *** 157,159 **** --- 157,229 ---- } while(next); + } + + + // set the first note of a sequence + void setFirstNote(t_note_event **firstEvent, unsigned short int voice, float fduration, t_note note) + { + t_duration res; + t_note_event *newElement; + // convert from float to duration + res = float2duration(fduration); + // allocate a new element of the list + newElement = malloc(sizeof(t_note_event)); + // set the pointers + newElement->previous = 0; + newElement->next = 0; + newElement->voice=voice; + newElement->note.played = note.played; + newElement->note.chord = note.chord; + newElement->note.diatonic = note.diatonic; + newElement->note.interval = note.interval; + newElement->duration.numerator = res.numerator; + newElement->duration.denominator = res.denominator; + *firstEvent = newElement; + } + + //adds a note at the end of this list + void concatenateNote(t_note_event *currentEvent, unsigned short int voice, float fduration, t_note note) + { + t_duration res; + t_note_event *newElement, *lastElement; + lastElement = currentEvent; + while(lastElement->next) + lastElement = lastElement->next; + // convert from float to duration + res = float2duration(fduration); + // allocate a new element of the list + newElement = (t_rhythm_event *) malloc(sizeof(t_note_event)); + // set the pointers + newElement->previous = lastElement; + newElement->next = 0; + lastElement->next = newElement; + newElement->voice=voice; + newElement->note.played = note.played; + newElement->note.chord = note.chord; + newElement->note.diatonic = note.diatonic; + newElement->note.interval = note.interval; + newElement->duration.numerator = res.numerator; + newElement->duration.denominator = res.denominator; + + } + + // used to free the memory allocated by this list + void freeNotes(t_note_event *currentEvent) + { + t_note_event *prev; + t_note_event *next; + + // go to the first element of the list + while(currentEvent->previous) + currentEvent = currentEvent->previous; + + // now free each element + next=currentEvent->next; + do + { + prev = currentEvent; + next = currentEvent->next; + free(currentEvent); + } while(next); + } \ No newline at end of file

1 0

externals/frankenstein chords_memory.c,1.1,1.2
by David Plans Casal 01 Dec '05

01 Dec '05

Update of /cvsroot/pure-data/externals/frankenstein In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1098 Modified Files: chords_memory.c Log Message: adding 9ths Index: chords_memory.c =================================================================== RCS file: /cvsroot/pure-data/externals/frankenstein/chords_memory.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** chords_memory.c 18 Oct 2005 23:10:53 -0000 1.1 --- chords_memory.c 1 Dec 2005 09:57:50 -0000 1.2 *************** *** 108,112 **** // how can a chord be? ! #define TYPES_NUM 10 // keep me updated typedef enum { kMaj=0, --- 108,112 ---- // how can a chord be? ! #define TYPES_NUM 11 // keep me updated typedef enum { kMaj=0, *************** *** 119,128 **** kMinMaj7=7, kDim7=8, ! kHalfDim7=9 } chord_type_t; // how many tones do we have in our octave? #define TONES_NUM 12 // keep me updated ! typedef enum {I=0, Id=1, II=2, --- 119,131 ---- kMinMaj7=7, kDim7=8, ! kHalfDim7=9, ! //pland adding 9ths 30.11.12 ! kDomb9=10 } chord_type_t; // how many tones do we have in our octave? #define TONES_NUM 12 // keep me updated ! typedef enum { ! I=0, Id=1, II=2, *************** *** 153,157 **** // enumeration of absolute notes // i'll need this when parsing strings like "C major" ! typedef enum {C=0, Db=1, D=2, --- 156,161 ---- // enumeration of absolute notes // i'll need this when parsing strings like "C major" ! typedef enum { ! C=0, Db=1, D=2, *************** *** 319,322 **** --- 323,329 ---- if (strstr(substr, "dominant 7th")) return kDom7; + // pland adding chords 30.11.05 + if (strstr(substr, "dominant b9")) + return kDomb9; // TODO: other chords // beware when adding new chords *************** *** 372,375 **** --- 379,383 ---- case kDim7: strcat(string, "diminished 7th"); break; case kMinMaj7: strcat(string, "minor/major 7th"); break; + case kDomb9: strcat(string, "dominant b9"); break; } *************** *** 772,778 **** // send the solution list to outlet x_outchordssequence ! outlet_list(x->x_outchordssequence, ! gensym("list") , ! steps, chords_sequence); --- 780,786 ---- // send the solution list to outlet x_outchordssequence ! outlet_list(x->x_outchordssequence, ! gensym("list") , ! steps, chords_sequence);

1 0

doc/pddp/about GUIs-about.pd,NONE,1.1
by Hans-Christoph Steiner 01 Dec '05

01 Dec '05

Update of /cvsroot/pure-data/doc/pddp/about In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24534/about Added Files: GUIs-about.pd Log Message: started a catalog of GUI objects --- NEW FILE: GUIs-about.pd --- #N canvas 293 91 795 608 10; #X obj 57 73 bng 15 250 50 0 \$1 \$1 empty 20 8 0 8 -262144 -1 -1; #X obj 57 105 tgl 15 1.04858e+06 \$2 \$2 empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 56 137 vsl 15 128 0 127 0 1.04858e+06 \$3 \$3 empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 99 72 hsl 128 15 0 127 0 0 \$4 \$4 empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 97 105 hdl 15 1 2.6624e+06 8 \$5 \$5 empty 20 8 192 8 -262144 -1 -1 0; #X obj 96 141 vu 15 120 \$6 empty 35 8 0 8 -66577 -1 1 0; #X obj 149 141 cnv 15 100 60 \$7 \$7 \$7 20 12 0 14 -233017 -66577 1.04858e+06; #X obj 261 72 vdl 15 1 4.79232e+06 8 \$9 \$9 empty 20 8 192 8 -262144 -1 -1 0; #X obj 150 218 nbx 5 14 -1e+37 1e+37 0 0 \$8 \$8 empty 45 7 0 10 -262144 -1 -1 0 256; #X text 8 22 Pd comes with a standard \, built-in set of GUI elements \, which you can select from the "Put" menu.; #X text 16 332 There are also some OS-native GUI elements available ; #X text 403 521 Graph-On-Parent aka GOP is an essential element for building elaborate GUIs in Pd.; #X obj 44 372 button OK; #X obj 142 376 popup 124 25 #ffffff popup option; #X text 23 348 [button]:; #X text 129 350 [popup]:; #X text 424 22 [unauthorized/playlist]:; #X text 605 28 [unauthorized/grid]:; #X obj 78 303 cnv-edit; #X text 16 283 You can edit the look of the above GUI elements with this editor:; #X text 412 464 toxy's [tot] \, [tow] \, and [widget]; #X obj 463 53 playlist all 100 100 {Helvetica 10 bold} #457782 yellow black red; #X obj 632 47 grid grid1 100 0 199 100 0 199 1 1 1 10 10 710 57; #X text 17 427 cyclone has some clones of Max GUI objects:; #X obj 53 456 Scope~ 130 130 256 3 128 -1 1 0 0 0 0 102 255 51 135 135 135 0; #X text 19 440 [cyclone/Scope~]:; #N canvas 308 82 641 521 More 0; #X text 440 185 [gcanvas]:; #X obj 452 218 gcanvas 80 80; #X obj 64 208 probalizer 100 100 100 100 1 0 10 1 10 2 10 3 10 4 10 5 10 6 10 7 10 8 10 9 10 10 10 11 10 12 10 13 10 14 10 15 10 16 10 17 10 18 10 19 10 20 10 21 10 22 10 23 10 24 10 25 10 26 10 27 10 28 10 29 10 30 50 31 50 32 10 33 10 34 10 35 10 36 10 37 10 38 10 39 10 40 10 41 10 42 10 43 10 44 10 45 10 46 10 47 10 48 10 49 10 50 10 51 10 52 10 53 10 54 10 55 10 56 10 57 10 58 10 59 10 60 10 61 10 62 10 63 10 64 54 65 10 66 10 67 55 68 10 69 10 70 10 71 10 72 10 73 10 74 10 75 10 76 76 77 10 78 10 79 10 80 10 81 10 82 10 83 10 84 10 85 10 86 10 87 10 88 10 89 10 90 10 91 10 92 10 93 10 94 10 95 10 96 10 97 10 98 10 99 32; #X text 17 188 [unauthorized/probalizer]:; #X obj 319 265 image logo100.gif; #X text 257 189 [image]:; #X obj 443 41 entry 124 100 grey70 yellow; #X text 438 6 [entry]:; #X text 31 26 [unauthorized_scratcher~]:; #X text 222 28 [unauthorized/audience~]:; #X obj 75 45 scratcher~ 88200 100 100 25 2 0.01; #X obj 261 47 audience~ 100 100 4 2 0.01 0 48 10 97 10 146 10 195 10 0 190 195 190; #X obj 292 386 cooled~ 1024 300 100 1; #X text 292 363 [unauthorized/cooled~]:; #X text 8 361 LINK: [unauthorized/pianoroll]:; #X text 6 343 Some are crash-prone:; #X restore 487 495 pd More GUI elements; #X obj 298 372 ticker ; #X text 281 349 [ticker]:; #X obj 432 369 state; #X text 412 347 State saving:; #X text 418 394 memento!; #X obj 539 186 envgen 200 140 1 0 ; #X text 519 162 [envgen]:; #X text 410 421 libraries: cyclone \, ggee \, unauthorized; #X text 398 567 data structures!; #X obj 247 479 comment 0 10 helvetica ? 0 0 0 0 this is a comment; #X text 195 462 [cyclone/comment]:; #X obj 450 231 knob 32 32 0 127 0 0 empty empty empty 0 -8 32 8 -262144 -1 -1 0 1; #X text 444 205 [knob];

1 0

doc/pddp/about - New directory
by Hans-Christoph Steiner 01 Dec '05

01 Dec '05

Update of /cvsroot/pure-data/doc/pddp/about In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23323/about Log Message: Directory /cvsroot/pure-data/doc/pddp/about added to the repository

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 December 2005