Pd-cvs November 2005

pd-cvs@lists.iem.at

17 participants
497 discussions

doc/pddp TODO,1.3,1.4 standard_gui_elements.pd,1.3,1.4
by Hans-Christoph Steiner 06 Nov '05

06 Nov '05

Update of /cvsroot/pure-data/doc/pddp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29708 Modified Files: TODO standard_gui_elements.pd Log Message: added statement about color and made open/save distinct colors Index: standard_gui_elements.pd =================================================================== RCS file: /cvsroot/pure-data/doc/pddp/standard_gui_elements.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** standard_gui_elements.pd 19 Jun 2005 23:01:54 -0000 1.3 --- standard_gui_elements.pd 6 Nov 2005 18:51:38 -0000 1.4 *************** *** 1,14 **** ! #N canvas 218 38 476 564 10; ! #X msg 22 148 \; pd dsp \$1; #X obj 2 2 cnv 15 450 20 empty empty [object_name] 2 11 1 18 -233017 -66577 0; ! #X obj 21 93 tgl 30 0 empty empty start 1 15 1 12 -90049 -1 -1 0 1 ; ! #X obj 369 103 vsl 20 128 0 1 0 0 empty empty amp -1 -8 1 12 -225271 -1 -1 0 1; #X obj 194 466 grouping patch; ! #X obj 113 228 nbx 5 20 -1e+37 1e+37 0 0 empty empty display_number_box 0 -6 1 16 -199729 -1 -1 0 256; ! #X text 17 261 The idea behind these objects is to have a color scheme which consistently represents various ideas. Also \, having GUI objects highlighted by color signals the user that they should play with that --- 1,14 ---- ! #N canvas 218 38 480 568 10; ! #X msg 22 188 \; pd dsp \$1; #X obj 2 2 cnv 15 450 20 empty empty [object_name] 2 11 1 18 -233017 -66577 0; ! #X obj 21 133 tgl 30 0 empty empty start 1 15 1 12 -90049 -1 -1 0 1 ; ! #X obj 369 143 vsl 20 128 0 1 0 0 empty empty amp -1 -8 1 12 -225271 -1 -1 0 1; #X obj 194 466 grouping patch; ! #X obj 113 268 nbx 5 20 -1e+37 1e+37 0 0 empty empty display_number_box 0 -6 1 16 -199729 -1 -1 0 256; ! #X text 17 301 The idea behind these objects is to have a color scheme which consistently represents various ideas. Also \, having GUI objects highlighted by color signals the user that they should play with that *************** *** 22,35 **** #X text 14 37 [object_name] is an example patch for the PDDP style guide.; ! #X obj 223 92 bng 30 250 50 0 empty empty open 1 15 1 12 -4080 -1 -1 ! ; ! #X obj 129 93 bng 30 250 50 0 empty empty stop 2 15 1 12 -258579 -1 -1; ! #X obj 271 156 hsl 60 18 0 1 0 1 empty empty pan 2 9 1 12 -257472 -1 -1 2950 0; ! #X obj 55 93 bng 30 250 50 0 empty empty start 1 15 1 12 -90049 -1 -1; ! #X obj 28 349 comment 400 12 Times ? 0 0 0 0 This is Times 12pt; ! #X obj 33 378 comment 400 14 Times ? 0 0 0 0 comment; ! #X obj 255 92 bng 30 250 50 0 empty empty save 1 15 1 12 -4015 -1 -1 ; --- 22,38 ---- #X text 14 37 [object_name] is an example patch for the PDDP style guide.; ! #X obj 223 132 bng 30 250 50 0 empty empty open 1 15 1 12 -4080 -1 ! -373; ! #X obj 129 133 bng 30 250 50 0 empty empty stop 2 15 1 12 -212999 -1 -1; ! #X obj 271 196 hsl 60 18 0 1 0 1 empty empty pan 2 9 1 12 -257472 -1 -1 2950 0; ! #X obj 55 133 bng 30 250 50 0 empty empty start 1 15 1 12 -90049 -1 -1; ! #X obj 28 389 comment 400 12 Times ? 0 0 0 0 This is Times 12pt; ! #X obj 33 418 comment 400 14 Times ? 0 0 0 0 comment; ! #X obj 255 132 bng 30 250 50 0 empty empty save 1 15 1 12 -512 -1 -4015 ; + #X text 14 65 The colors used should not be the standard "quick pick" + colors. PDDP should have distinct colors so that PDDP patches look + distinct from regular Pd patches.; Index: TODO =================================================================== RCS file: /cvsroot/pure-data/doc/pddp/TODO,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TODO 26 Apr 2005 05:34:40 -0000 1.3 --- TODO 6 Nov 2005 18:51:38 -0000 1.4 *************** *** 1,2 **** ! - change [pwd] to whatever the object is finally called. --- 1,5 ---- ! - update route-help.pd to discuss the three modes of [route]: float mode, ! symbol mode, and data type mode. ! ! - change [pwd] to [getdir]

1 0

pd/src desire.tk,1.1.2.107,1.1.2.108
by chunlee 06 Nov '05

06 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2954 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.107 retrieving revision 1.1.2.108 diff -C2 -d -r1.1.2.107 -r1.1.2.108 *** desire.tk 6 Nov 2005 00:16:14 -0000 1.1.2.107 --- desire.tk 6 Nov 2005 14:09:28 -0000 1.1.2.108 *************** *** 1598,1602 **** if {abs($y2-3-$y)<=3 && $outs} { set out [expr int(($x-$x1)*$outs/($x2-$x1))] ! $c create line $x $y $x $y -dash {4 4 4 4} -tags lnew set @click_on [list $self $out] set @action wire --- 1598,1603 ---- if {abs($y2-3-$y)<=3 && $outs} { set out [expr int(($x-$x1)*$outs/($x2-$x1))] ! mset {x1 y1 x2 y2} [$c bbox ${id}o${out}] ! $c create line [expr ($x1+$x2)/2] [expr ($y1+$y2)/2] $x $y -dash {4 4 4 4} -tags lnew set @click_on [list $self $out] set @action wire

1 0

abstractions/footils/list-abs list-idx-help.pd, 1.1, 1.2 list-idx.pd, 1.1, 1.2 list-rev.pd, 1.2, 1.3 list-splat.pd, 1.1, 1.2
by Frank Barknecht 06 Nov '05

06 Nov '05

Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16153 Modified Files: list-idx-help.pd list-idx.pd list-rev.pd list-splat.pd Log Message: made list-idx accept neg. indices Index: list-rev.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-rev.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** list-rev.pd 2 Nov 2005 09:59:48 -0000 1.2 --- list-rev.pd 6 Nov 2005 12:49:58 -0000 1.3 *************** *** 1,5 **** #N canvas 575 449 566 351 10; #X obj 92 29 inlet; ! #N canvas 0 0 533 407 drip 0; #X obj 64 206 list split 1; #X obj 64 123 until; --- 1,5 ---- #N canvas 575 449 566 351 10; #X obj 92 29 inlet; ! #N canvas 0 0 533 407 drip 1; #X obj 64 206 list split 1; #X obj 64 123 until; *************** *** 8,24 **** #X obj 64 243 outlet; #X obj 64 57 inlet; - #X obj 64 86 t b l; #X text 237 44 From list-help.pd; #X obj 143 243 outlet; #X connect 0 0 4 0; #X connect 0 1 2 1; #X connect 0 2 3 0; ! #X connect 0 2 8 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 1 1; ! #X connect 5 0 6 0; ! #X connect 6 0 1 0; ! #X connect 6 1 2 1; #X restore 92 94 pd drip; #X obj 148 141 t l; --- 8,24 ---- #X obj 64 243 outlet; #X obj 64 57 inlet; #X text 237 44 From list-help.pd; #X obj 143 243 outlet; + #X obj 64 86 t b a; #X connect 0 0 4 0; #X connect 0 1 2 1; #X connect 0 2 3 0; ! #X connect 0 2 7 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 1 1; ! #X connect 5 0 8 0; ! #X connect 8 0 1 0; ! #X connect 8 1 2 1; #X restore 92 94 pd drip; #X obj 148 141 t l; *************** *** 29,33 **** #X text 174 210 intermediate store \, bang'd on list end.; #X text 178 140 repack in reverse order; ! #X obj 92 54 t l b b; #X connect 0 0 9 0; #X connect 1 0 3 0; --- 29,33 ---- #X text 174 210 intermediate store \, bang'd on list end.; #X text 178 140 repack in reverse order; ! #X obj 92 54 t a b b; #X connect 0 0 9 0; #X connect 1 0 3 0; Index: list-splat.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-splat.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** list-splat.pd 2 Nov 2005 09:59:48 -0000 1.1 --- list-splat.pd 6 Nov 2005 12:49:58 -0000 1.2 *************** *** 8,34 **** #X obj 316 97 inlet; #X obj 381 96 inlet; - #X obj 316 249 list-rev; #X obj 316 279 outlet; #X obj 384 281 outlet; #X obj 455 283 outlet; - #X obj 316 125 list-rev; - #X obj 384 250 list-rev; - #X obj 455 252 list-rev; #X obj 316 205 list; #X obj 316 180 t b a; #X obj 316 157 list split; #X text 54 192 keep execution order right to left:; ! #X connect 0 0 6 0; ! #X connect 1 0 11 1; ! #X connect 2 0 3 0; ! #X connect 6 0 11 0; ! #X connect 7 0 4 0; ! #X connect 8 0 5 0; #X connect 9 0 2 0; ! #X connect 10 0 9 0; ! #X connect 10 1 7 0; ! #X connect 11 0 10 0; ! #X connect 11 1 9 1; ! #X connect 11 2 8 0; #X restore 188 169 pd negatives; #X obj 135 113 < 0; --- 8,34 ---- #X obj 316 97 inlet; #X obj 381 96 inlet; #X obj 316 279 outlet; #X obj 384 281 outlet; #X obj 455 283 outlet; #X obj 316 205 list; #X obj 316 180 t b a; #X obj 316 157 list split; #X text 54 192 keep execution order right to left:; ! #X obj 316 249 list-rev; ! #X obj 316 125 list-rev; ! #X obj 384 250 list-rev; ! #X obj 455 252 list-rev; ! #X connect 0 0 10 0; ! #X connect 1 0 7 1; ! #X connect 5 0 9 0; ! #X connect 6 0 5 0; ! #X connect 6 1 11 0; ! #X connect 7 0 6 0; ! #X connect 7 1 5 1; ! #X connect 7 2 12 0; #X connect 9 0 2 0; ! #X connect 10 0 7 0; ! #X connect 11 0 3 0; ! #X connect 12 0 4 0; #X restore 188 169 pd negatives; #X obj 135 113 < 0; Index: list-idx-help.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-idx-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** list-idx-help.pd 2 Nov 2005 09:59:48 -0000 1.1 --- list-idx-help.pd 6 Nov 2005 12:49:58 -0000 1.2 *************** *** 2,13 **** #X obj 136 121 t b f; #X symbolatom 136 222 10 0 0 0 - - -; ! #X obj 136 98 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 ! -1 7; #X msg 136 166 a b c d e f g h; #X obj 136 193 list-idx 2; #X text 86 52 list-idx: Get element at position idx.; #X connect 0 0 3 0; #X connect 0 1 4 1; ! #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 1 0; --- 2,17 ---- #X obj 136 121 t b f; #X symbolatom 136 222 10 0 0 0 - - -; ! #X obj 136 78 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 ! -1 1; #X msg 136 166 a b c d e f g h; #X obj 136 193 list-idx 2; #X text 86 52 list-idx: Get element at position idx.; + #X floatatom 136 102 5 0 0 0 - - -; + #X obj 136 245 print; #X connect 0 0 3 0; #X connect 0 1 4 1; ! #X connect 1 0 7 0; ! #X connect 2 0 6 0; #X connect 3 0 4 0; #X connect 4 0 1 0; + #X connect 6 0 0 0; Index: list-idx.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-idx.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** list-idx.pd 2 Nov 2005 09:59:48 -0000 1.1 --- list-idx.pd 6 Nov 2005 12:49:58 -0000 1.2 *************** *** 2,14 **** #X obj 122 108 inlet; #X obj 197 69 loadbang; - #X obj 122 139 list split; #X obj 187 95 f \$1; #X obj 154 210 outlet; #X obj 187 47 inlet; #X obj 154 176 list split 1; ! #X connect 0 0 2 0; ! #X connect 1 0 3 0; ! #X connect 2 1 6 0; ! #X connect 3 0 2 1; #X connect 5 0 3 0; ! #X connect 6 0 4 0; --- 2,14 ---- #X obj 122 108 inlet; #X obj 197 69 loadbang; #X obj 187 95 f \$1; #X obj 154 210 outlet; #X obj 187 47 inlet; #X obj 154 176 list split 1; ! #X obj 122 139 list-splat; ! #X connect 0 0 6 0; ! #X connect 1 0 2 0; ! #X connect 2 0 6 1; ! #X connect 4 0 2 0; #X connect 5 0 3 0; ! #X connect 6 1 5 0;

1 0

abstractions/footils/list-abs README,1.4,1.5
by Frank Barknecht 06 Nov '05

06 Nov '05

Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1160 Modified Files: README Log Message: upd. README Index: README =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/README,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** README 2 Nov 2005 09:59:48 -0000 1.4 --- README 6 Nov 2005 11:50:07 -0000 1.5 *************** *** 17,20 **** --- 17,24 ---- sum all floats in a list. + list-delete.pd + + delete element at position POS from list. + list-demux.pd *************** *** 38,41 **** --- 42,49 ---- scale a list so that all float elements sum up to 1 + list-insert.pd + + insert LIST before element at position POS + list-inter.pd

1 0

abstractions/footils/list-abs list-delete-help.pd, NONE, 1.1 list-delete.pd, NONE, 1.1 list-insert-help.pd, NONE, 1.1 list-insert.pd, NONE, 1.1
by Frank Barknecht 06 Nov '05

06 Nov '05

Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv568 Added Files: list-delete-help.pd list-delete.pd list-insert-help.pd list-insert.pd Log Message: added list-insert and list-delete --- NEW FILE: list-delete.pd --- #N canvas 0 0 450 300 10; #X obj 151 149 list-splat \$1; #X obj 237 52 inlet; #X text 235 32 pos; #X obj 151 53 inlet; #X text 135 31 orig. list; #X obj 194 177 list split 1; #X obj 151 216 list; #X obj 151 245 outlet; #X connect 0 0 6 0; #X connect 0 1 5 0; #X connect 0 2 7 0; #X connect 1 0 0 1; #X connect 3 0 0 0; #X connect 5 1 6 1; #X connect 6 0 7 0; --- NEW FILE: list-delete-help.pd --- #N canvas 395 302 450 300 10; #X obj 237 151 hradio 15 1 0 8 empty empty POS_(zero-based) 0 -6 0 8 -262144 -1 -1 0; #X floatatom 237 171 5 0 0 0 - - -; #X msg 151 109 0 1 2 3 4; #X obj 151 227 print; #X obj 151 198 list-delete 2; #X text 36 72 Argument: Default POS to delete.; #X text 36 55 Negative POS counts from the end of the list.; #X text 35 26 list-delete: delete element at position POS from list. ; #X connect 0 0 1 0; #X connect 1 0 4 1; #X connect 2 0 4 0; #X connect 4 0 3 0; --- NEW FILE: list-insert.pd --- #N canvas 313 86 599 614 10; #X obj 94 50 inlet; #X obj 259 133 inlet; #X obj 308 134 inlet; #X text 257 112 pos; #X text 306 113 list; #X obj 173 180 list; #X obj 94 528 outlet; #X obj 94 308 list; #X obj 94 250 list prepend; #X text 91 29 list to insert; #X obj 173 206 list-splat \$1; #X obj 371 246 > 0; #X obj 292 337 route 0 1; #X obj 292 316 list prepend; #X obj 292 371 list prepend; #X obj 393 370 list; #X obj 94 75 t a b b a; #X obj 152 100 s \$0-insert; #X obj 416 338 r \$0-insert; #X obj 149 122 s \$0-init; #X obj 190 250 r \$0-init; #X obj 322 290 s \$0-out-of-range; #X obj 145 350 r \$0-out-of-range; #X obj 292 243 t a b; #X obj 94 374 spigot 1; #X obj 397 157 s \$0-out-of-range; #X obj 397 108 r \$0-init; #X obj 397 130 1; #X obj 322 266 0; #X obj 130 307 r \$0-init; #X text 231 524 This is more complicated than I thought!; #X connect 0 0 16 0; #X connect 1 0 10 1; #X connect 1 0 11 0; #X connect 2 0 5 1; #X connect 5 0 10 0; #X connect 7 0 24 0; #X connect 8 0 7 0; #X connect 10 0 8 1; #X connect 10 1 7 1; #X connect 10 2 23 0; #X connect 11 0 13 1; #X connect 12 0 14 0; #X connect 12 1 15 0; #X connect 13 0 12 0; #X connect 14 0 6 0; #X connect 15 0 6 0; #X connect 16 0 8 0; #X connect 16 1 5 0; #X connect 16 2 19 0; #X connect 16 3 17 0; #X connect 18 0 15 1; #X connect 18 0 14 1; #X connect 20 0 8 1; #X connect 22 0 24 1; #X connect 23 0 13 0; #X connect 23 1 28 0; #X connect 24 0 6 0; #X connect 26 0 27 0; #X connect 27 0 25 0; #X connect 28 0 21 0; #X connect 29 0 7 1; --- NEW FILE: list-insert-help.pd --- #N canvas 515 468 496 403 10; #X obj 125 251 list-insert 2; #X obj 168 172 hradio 15 1 0 8 empty empty POS_(zero-based) 0 -6 0 8 -262144 -1 -1 3; #X msg 233 222 0 1 2 3 4 5 6; #X text 231 203 original list; #X floatatom 168 197 5 0 0 0 - - -; #X text 68 69 Argument: default POS; #X text 67 49 POS is zerobased. Negative POS will count from the end. ; #X msg 125 132 list SOME ELEMENTS; #X msg 125 162 INS; #X text 65 12 list-insert: insert LIST before element at position POS in original list.; #X obj 125 280 print NEW_LIST; #X floatatom 125 190 5 0 0 0 - - -; #X text 125 113 LIST or element to insert; #X connect 0 0 10 0; #X connect 1 0 4 0; #X connect 2 0 0 2; #X connect 4 0 0 1; #X connect 7 0 0 0; #X connect 8 0 0 0; #X connect 11 0 0 0;

1 0

pd/portaudio/pa_mac_core pa_mac_core.c,1.10,1.11
by Miller Puckette 06 Nov '05

06 Nov '05

Update of /cvsroot/pure-data/pd/portaudio/pa_mac_core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31561/pd/portaudio/pa_mac_core Modified Files: pa_mac_core.c Log Message: fixed memory leak in pa_mac_core.c and the bug sending "bang" to "t s" object Index: pa_mac_core.c =================================================================== RCS file: /cvsroot/pure-data/pd/portaudio/pa_mac_core/pa_mac_core.c,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** pa_mac_core.c 15 Oct 2005 23:14:28 -0000 1.10 --- pa_mac_core.c 6 Nov 2005 01:49:43 -0000 1.11 *************** *** 466,469 **** --- 466,470 ---- } + PaUtil_FreeMemory(timeInfo); PaUtil_EndCpuLoadMeasurement( &clientData->stream->cpuLoadMeasurer, frameCount ); *************** *** 494,497 **** --- 495,499 ---- clientData->callback(clientData->inputBuffer, NULL, frameCount, timeInfo, paNoFlag, clientData->userData); + PaUtil_FreeMemory(timeInfo); PaUtil_EndCpuLoadMeasurement( &clientData->stream->cpuLoadMeasurer, frameCount ); } *************** *** 517,521 **** CopyOutputData(outOutputData, clientData, frameCount); ! PaUtil_EndCpuLoadMeasurement( &clientData->stream->cpuLoadMeasurer, frameCount ); } --- 519,523 ---- CopyOutputData(outOutputData, clientData, frameCount); ! PaUtil_FreeMemory(timeInfo); PaUtil_EndCpuLoadMeasurement( &clientData->stream->cpuLoadMeasurer, frameCount ); } *************** *** 666,671 **** clientData->inputSampleFormat = inputParameters->sampleFormat; err = SetUpUnidirectionalStream(stream->inputDevice, sampleRate, framesPerBuffer, 1); - fprintf(stderr, "error %d (%d)\n", err, paNoError); } if (err == paNoError && outputParameters != NULL) { stream->outputDevice = macCoreHostApi->macCoreDeviceIds[outputParameters->device]; --- 668,673 ---- clientData->inputSampleFormat = inputParameters->sampleFormat; err = SetUpUnidirectionalStream(stream->inputDevice, sampleRate, framesPerBuffer, 1); } + if (err == paNoError && outputParameters != NULL) { stream->outputDevice = macCoreHostApi->macCoreDeviceIds[outputParameters->device]; *************** *** 680,686 **** AudioDeviceID device = (inputParameters == NULL) ? stream->outputDevice : stream->inputDevice; ! int e2 = AudioDeviceAddIOProc(device, AudioIOProc, clientData); ! fprintf(stderr, "AudioDeviceAddIOProc %d\n", e2); ! } else { --- 682,686 ---- AudioDeviceID device = (inputParameters == NULL) ? stream->outputDevice : stream->inputDevice; ! AudioDeviceAddIOProc(device, AudioIOProc, clientData); } else {

1 0

pd/src makefile,1.20,1.21 x_connective.c,1.7,1.8
by Miller Puckette 06 Nov '05

06 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31561/pd/src Modified Files: makefile x_connective.c Log Message: fixed memory leak in pa_mac_core.c and the bug sending "bang" to "t s" object Index: makefile =================================================================== RCS file: /cvsroot/pure-data/pd/src/makefile,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** makefile 15 Sep 2005 03:17:27 -0000 1.20 --- makefile 6 Nov 2005 01:49:43 -0000 1.21 *************** *** 20,24 **** LIB = -ldl -lpthread -lasound ! OPT_CFLAGS = -O6 -funroll-loops -fomit-frame-pointer WARN_CFLAGS = -Wall -W -Wstrict-prototypes \ -Wno-unused -Wno-parentheses -Wno-switch --- 20,24 ---- LIB = -ldl -lpthread -lasound ! OPT_CFLAGS = -g WARN_CFLAGS = -Wall -W -Wstrict-prototypes \ -Wno-unused -Wno-parentheses -Wno-switch Index: x_connective.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/x_connective.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** x_connective.c 24 Jul 2005 19:41:15 -0000 1.7 --- x_connective.c 6 Nov 2005 01:49:43 -0000 1.8 *************** *** 979,983 **** outlet_bang(u->u_outlet); else if (u->u_type == TR_SYMBOL) ! outlet_symbol(u->u_outlet, (argc ? atom_getsymbol(argv) : 0)); else if (u->u_type == TR_POINTER) { --- 979,984 ---- outlet_bang(u->u_outlet); else if (u->u_type == TR_SYMBOL) ! outlet_symbol(u->u_outlet, ! (argc ? atom_getsymbol(argv) : &s_symbol)); else if (u->u_type == TR_POINTER) {

1 0

pd/src desire.tk,1.1.2.106,1.1.2.107
by Mathieu Bouchard 06 Nov '05

06 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3500 Modified Files: Tag: devel_0_39 desire.tk Log Message: stuff. Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.106 retrieving revision 1.1.2.107 diff -C2 -d -r1.1.2.106 -r1.1.2.107 *** desire.tk 5 Nov 2005 18:34:32 -0000 1.1.2.106 --- desire.tk 6 Nov 2005 00:16:14 -0000 1.1.2.107 *************** *** 877,881 **** $self canvas= $self #not sure if init should be calling pd, but it fixes the editmode bug for now -chun ! pd $name editmode $editmode } --- 877,881 ---- $self canvas= $self #not sure if init should be calling pd, but it fixes the editmode bug for now -chun ! pd $name editmode $@editmode } *************** *** 1130,1135 **** class_new textbox {view} ! def textbox ninlets= {v} {set @ninlets $v} def textbox noutlets= {v} {set @noutlets $v} def textbox draw {} { --- 1130,1137 ---- class_new textbox {view} ! def textbox ninlets= {v} {set @ninlets $v} def textbox noutlets= {v} {set @noutlets $v} + def textbox ninlets {} {return $@ninlets} + def textbox noutlets {} {return $@noutlets} def textbox draw {} { *************** *** 1237,1244 **** } def canvas selection= {objs} {set @selection $objs} ! # should remove dupes ! def canvas selection+= {objs} {lappend @selection $objs} ! def canvas selection {objs} {return @selection} def* objectbox draw {} { --- 1239,1247 ---- } + def canvas selection {} {return @selection} def canvas selection= {objs} {set @selection $objs} ! def canvas selection+= {objs} { ! set @selection [concat [lwithout $@selection $objs] $objs] ! } def* objectbox draw {} { *************** *** 1304,1310 **** def objectbox unclickedit {args} { ! puts "$self is being unclicked in [lindex $args 0] edit mode" ! $self edit ! #objectbox_edit } --- 1307,1311 ---- def objectbox unclickedit {args} { ! puts "$self is being unclicked in edit mode" } *************** *** 1381,1386 **** proc distance {point1 point2} { set off [l- $point1 $point2] ! set dist2 [lsum [lzip * $off $off]] ! return [expr sqrt($dist2)] } --- 1382,1386 ---- proc distance {point1 point2} { set off [l- $point1 $point2] ! return [expr sqrt([lsum [lzip * $off $off]])] } *************** *** 1437,1440 **** --- 1437,1443 ---- $c coords lnew $l } + switch $@action { edit { + if {[distance [list $x $y] $@click_at] > 5} {set @action move; mset {ox oy} $@click_at} + }} switch $@action { move { *************** *** 1554,1560 **** #-----------------------------------------------------------------------------------# - def* objectbox clickedit {x y b f id} { - } - def* canvas click_on_wire {x y b f id} { set c .x$self.c --- 1557,1560 ---- *************** *** 1583,1588 **** puts "object_in_edit: $@obj_in_edit id:$id" if {$f&8} {post "right click!"; return} ! # if clicked on empty space in edit mode and no object is in edit, draw dash sel rect ! if {![llength $id] && ![llength $@obj_in_edit]} { $self deselect_all set @action rect --- 1583,1589 ---- puts "object_in_edit: $@obj_in_edit id:$id" if {$f&8} {post "right click!"; return} ! if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}} ! # if clicked on empty space in edit mode, draw dash sel rect ! if {![llength $id]} { $self deselect_all set @action rect *************** *** 1591,1626 **** return } - if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}} set in_selection [expr [lsearch $@selection $id]>=0] - if {[llength $@selection]==1 && $in_selection} {set @select_by click; $x edit; return} - if {[llength $@selection]} { - foreach o $@selection {$o selected?= 0} - set @selection {} - } mset {x1 y1 x2 y2} [$id bbox] ! set outs 0; catch {set outs $id noutlets} if {abs($y2-3-$y)<=3 && $outs} { set out [expr int(($x-$x1)*$outs/($x2-$x1))] $c create line $x $y $x $y -dash {4 4 4 4} -tags lnew ! set @clickon [list outlet $self $out] set @action wire return } switch $type { ! object {$id clickedit $x $y $b $f $id} ! wire {$id clickedit $x $y $b $f $id} default {error BORK} } if {($f&1) && !$already} {post "add to selection?"; return} ! if {!$in_selection} { ! if {[llength $@selection] == 1} { ! set @old_obj [lindex $@selection 0] ! if {$@select_by == "click"} {$old_obj unedit} ! set @obj_in_edit {} ! } ! set @selection {} ! set @selection [linsert $@selection 0 $id] ! set @select_by click set @action move } } --- 1592,1618 ---- return } set in_selection [expr [lsearch $@selection $id]>=0] mset {x1 y1 x2 y2} [$id bbox] ! set outs 0; set outs [$id noutlets] ! post %s "y=$y y1=$y1 y2=$y2 abs(\$y2-3-\$y)=[expr abs($y2-3-$y)] outs=$outs" if {abs($y2-3-$y)<=3 && $outs} { set out [expr int(($x-$x1)*$outs/($x2-$x1))] $c create line $x $y $x $y -dash {4 4 4 4} -tags lnew ! set @click_on [list $self $out] set @action wire return } switch $type { ! object {$id clickedit $x $y $b $f} ! wire {$id clickedit $x $y $b $f} default {error BORK} } if {($f&1) && !$already} {post "add to selection?"; return} ! if {$in_selection && [llength $@selection]>1} { set @action move + } { + $self selection+= $id + set @select_by click + set @action edit } } *************** *** 1632,1637 **** set x [$c canvasx $x] set y [$c canvasy $y] ! set @select_area [list $x $y $x $y] ! if {$@editmode && !($f&2)} {$self clickedit $x $y $b $f} mset {type id} [$self identify_target $x $y $b $f "click"] if {![llength $id]} return --- 1624,1629 ---- set x [$c canvasx $x] set y [$c canvasy $y] ! set @click_at [list $x $y] ! if {$@editmode && !($f&2)} {$self clickedit $x $y $b $f; return} mset {type id} [$self identify_target $x $y $b $f "click"] if {![llength $id]} return *************** *** 1750,1767 **** $c delete selrect } - - if {[llength $@selection]==1} { - #pd $self gobj-activate x$@selection - if {$@select_by == "click"} { - switch $_($@selection:class) { - objectbox { - if {![llength $@obj_in_edit]} { - set @obj_in_edit [lindex $@selection 1] - [lindex $@selection 0] edit - } - } - } - } - } if {[string length $@focus]} { set id $@focus --- 1742,1745 ---- *************** *** 1770,1773 **** --- 1748,1752 ---- } foreach {type id} [$self identify_target $cx $cy -1 -1 "blah "] {} + switch $@action { edit {set @obj_in_edit $id; $id edit}} switch $type { object {

1 0

pd/src desire.tk,1.1.2.105,1.1.2.106 TODO,1.1.2.4,1.1.2.5
by chunlee 05 Nov '05

05 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20547 Modified Files: Tag: devel_0_39 desire.tk TODO Log Message: Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.105 retrieving revision 1.1.2.106 diff -C2 -d -r1.1.2.105 -r1.1.2.106 *** desire.tk 5 Nov 2005 13:47:11 -0000 1.1.2.105 --- desire.tk 5 Nov 2005 18:34:32 -0000 1.1.2.106 *************** *** 1193,1202 **** } def* textbox update_size {} { ! global font ! ##added +1 below that fixs the initial box size on my side - chun ! #set @xs [expr $font(padx)+$font(width)*([string length $@text]+1-$@valid)] ! set @xs [expr $font(padx)+$font(width)*([string length $@text] +$@edit)] set @ys [expr $font(pady)+$font(height)] } --- 1193,1209 ---- } + proc max {x y} {if {$x>$y} {return $x} {return $y}} + def* textbox update_size {} { ! global font look ! set @textwidth [expr $font(padx)+$font(width)*([string length $@text]+$@edit)] ! set @topwidth [expr ($@ninlets + ($@ninlets - 1)) * $look(iowidth)] ! set @bottomwidth [expr ($@noutlets + ($@noutlets - 1)) * $look(iowidth)] ! set @xs [max $@bottomwidth [max $@topwidth $@textwidth]] set @ys [expr $font(pady)+$font(height)] + #puts "inlet = $@ninlets/$@topwidth | \ + # outlet = $@noutlets/$@bottomwidth | \ + # text = [string length $@text]/$@textwidth | \ + # objectwidth = $@xs" } *************** *** 1574,1579 **** set c .x[$self canvas].c mset {type id} [$self identify_target $x $y $b $f "click"] if {$f&8} {post "right click!"; return} ! if {![llength $id]} { $self deselect_all set @action rect --- 1581,1588 ---- set c .x[$self canvas].c mset {type id} [$self identify_target $x $y $b $f "click"] + puts "object_in_edit: $@obj_in_edit id:$id" if {$f&8} {post "right click!"; return} ! # if clicked on empty space in edit mode and no object is in edit, draw dash sel rect ! if {![llength $id] && ![llength $@obj_in_edit]} { $self deselect_all set @action rect Index: TODO =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v retrieving revision 1.1.2.4 retrieving revision 1.1.2.5 diff -C2 -d -r1.1.2.4 -r1.1.2.5 *** TODO 4 Nov 2005 02:15:30 -0000 1.1.2.4 --- TODO 5 Nov 2005 18:34:32 -0000 1.1.2.5 *************** *** 7,11 **** [h] fix the new canvas default so that its in edit mode when created -done [h] get the object box to render correctly after editing/recreating -done ! [h] objectbox atuo resize the minimum one required for the chars the minimum one required for the inlets/outlets --- 7,11 ---- [h] fix the new canvas default so that its in edit mode when created -done [h] get the object box to render correctly after editing/recreating -done ! [h] objectbox atuo resize -done the minimum one required for the chars the minimum one required for the inlets/outlets

1 0

pd/portaudio/pa_mac_core pa_mac_core.c,1.9.2.2,1.9.2.3
by Mathieu Bouchard 05 Nov '05

05 Nov '05

Update of /cvsroot/pure-data/pd/portaudio/pa_mac_core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2766 Modified Files: Tag: devel_0_39 pa_mac_core.c Log Message: tentative fix for memory leak found by Enrique Erne and Lorenz Schori. Index: pa_mac_core.c =================================================================== RCS file: /cvsroot/pure-data/pd/portaudio/pa_mac_core/pa_mac_core.c,v retrieving revision 1.9.2.2 retrieving revision 1.9.2.3 diff -C2 -d -r1.9.2.2 -r1.9.2.3 *** pa_mac_core.c 12 Jul 2005 15:45:50 -0000 1.9.2.2 --- pa_mac_core.c 5 Nov 2005 15:18:01 -0000 1.9.2.3 *************** *** 466,469 **** --- 466,470 ---- } + PaUtil_FreeMemory(timeInfo); PaUtil_EndCpuLoadMeasurement( &clientData->stream->cpuLoadMeasurer, frameCount ); *************** *** 494,497 **** --- 495,499 ---- clientData->callback(clientData->inputBuffer, NULL, frameCount, timeInfo, paNoFlag, clientData->userData); + PaUtil_FreeMemory(timeInfo); PaUtil_EndCpuLoadMeasurement( &clientData->stream->cpuLoadMeasurer, frameCount ); } *************** *** 517,521 **** CopyOutputData(outOutputData, clientData, frameCount); ! PaUtil_EndCpuLoadMeasurement( &clientData->stream->cpuLoadMeasurer, frameCount ); } --- 519,523 ---- CopyOutputData(outOutputData, clientData, frameCount); ! PaUtil_FreeMemory(timeInfo); PaUtil_EndCpuLoadMeasurement( &clientData->stream->cpuLoadMeasurer, frameCount ); }

1 0

← Newer
1
...
42
43
44
45
46
47
48
49
50
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs November 2005