Pd-cvs June 2006

pd-cvs@lists.iem.at

13 participants
225 discussions

externals/nusmuk/msd2D 07_sable.pd, NONE, 1.1 lb.pd, NONE, 1.1 sound_sable.pd, NONE, 1.1
by cyrille 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/externals/nusmuk/msd2D In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27841 Added Files: 07_sable.pd lb.pd sound_sable.pd Log Message: --- NEW FILE: 07_sable.pd --- #N canvas 546 101 632 692 10; #X obj 363 187 gemhead; #X obj 363 234 world_light; #X msg 364 141 \; pd dsp 1; #X msg 136 184 FSAA 4; #N canvas 451 61 450 536 toaster 0; #X obj 36 198 r T01; #N canvas 0 0 376 479 filtre 0; #X obj 59 42 inlet; #X obj 59 314 outlet; #X obj 59 247 +; #X obj 130 240 + 1; #X obj 130 42 inlet; #X obj 130 183 1; #X obj 130 160 /; #X obj 59 285 / 2; #X obj 59 223 * 1; #X msg 130 139 1 \$1; #X obj 142 92 loadbang; #X msg 141 117 1000; #X connect 0 0 8 0; #X connect 2 0 7 0; #X connect 3 0 7 1; #X connect 4 0 9 0; #X connect 5 0 3 0; #X connect 5 0 8 1; #X connect 6 0 5 0; #X connect 7 0 2 1; #X connect 7 0 1 0; #X connect 8 0 2 0; #X connect 9 0 6 0; #X connect 10 0 11 0; #X connect 11 0 9 0; #X restore 78 246 pd filtre; #X obj 33 226 t f f; #X obj 54 278 f; #X obj 51 255 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 32 399 outlet; #N canvas 0 0 376 479 filtre 0; #X obj 59 42 inlet; #X obj 59 314 outlet; #X obj 59 247 +; #X obj 130 240 + 1; #X obj 130 42 inlet; #X obj 130 183 1; #X obj 130 160 /; #X obj 59 285 / 2; #X obj 59 223 * 1; #X msg 130 139 1 \$1; #X obj 142 92 loadbang; #X msg 141 117 1000; #X connect 0 0 8 0; #X connect 2 0 7 0; #X connect 3 0 7 1; #X connect 4 0 9 0; #X connect 5 0 3 0; #X connect 5 0 8 1; #X connect 6 0 5 0; #X connect 7 0 2 1; #X connect 7 0 1 0; #X connect 8 0 2 0; #X connect 9 0 6 0; #X connect 10 0 11 0; #X connect 11 0 9 0; #X restore 243 256 pd filtre; #X obj 198 236 t f f; #X obj 219 288 f; #X obj 216 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 195 413 outlet; #X obj 201 208 r T02; #X floatatom 101 303 9 0 0 0 - - -; #X floatatom 260 322 9 0 0 0 - - -; #X obj 27 310 - 37286; #X obj 32 333 / 30; #X obj 195 342 / 30; #N canvas 0 0 376 479 filtre 0; #X obj 59 42 inlet; #X obj 59 314 outlet; #X obj 59 247 +; #X obj 130 240 + 1; #X obj 130 42 inlet; #X obj 130 183 1; #X obj 130 160 /; #X obj 59 285 / 2; #X obj 59 223 * 1; #X msg 130 139 1 \$1; #X obj 142 92 loadbang; #X msg 141 117 10; #X connect 0 0 8 0; #X connect 2 0 7 0; #X connect 3 0 7 1; #X connect 4 0 9 0; #X connect 5 0 3 0; #X connect 5 0 8 1; #X connect 6 0 5 0; #X connect 7 0 2 1; #X connect 7 0 1 0; #X connect 8 0 2 0; #X connect 9 0 6 0; #X connect 10 0 11 0; #X connect 11 0 9 0; #X restore 195 373 pd filtre; #N canvas 0 0 376 479 filtre 0; #X obj 59 42 inlet; #X obj 59 314 outlet; #X obj 59 247 +; #X obj 130 240 + 1; #X obj 130 42 inlet; #X obj 130 183 1; #X obj 130 160 /; #X obj 59 285 / 2; #X obj 59 223 * 1; #X msg 130 139 1 \$1; #X obj 142 92 loadbang; #X msg 141 117 10; #X connect 0 0 8 0; #X connect 2 0 7 0; #X connect 3 0 7 1; #X connect 4 0 9 0; #X connect 5 0 3 0; #X connect 5 0 8 1; #X connect 6 0 5 0; #X connect 7 0 2 1; #X connect 7 0 1 0; #X connect 8 0 2 0; #X connect 9 0 6 0; #X connect 10 0 11 0; #X connect 11 0 9 0; #X restore 31 362 pd filtre; #X obj 192 317 - 32797; #N canvas 0 0 450 300 receive 0; #X obj 17 103 send T01; #X obj 176 102 send T09; #X obj 195 134 send T10; #X obj 35 134 send T02; #X obj 56 166 send T03; #X obj 216 169 send T11; #X obj 236 201 send T12; #X obj 76 200 send T04; #X obj 96 103 send T05; #X obj 256 101 send T13; #X obj 274 135 send T14; #X obj 116 135 send T06; #X obj 296 168 send T15; #X obj 135 168 send T07; #X obj 316 201 send T16; #X obj 155 201 send T08; #X obj 17 20 dumpOSC 5679; #X obj 17 45 route /toaster; #X obj 17 70 unpack f f f f f f f f f f f f f f f f; #X obj 168 9 dumpOSC 5555; #X obj 166 40 route /toaster/sensors; #X obj 263 20 route /warhol/sensors; #X connect 16 0 17 0; #X connect 16 0 20 0; #X connect 17 0 18 0; #X connect 18 0 0 0; #X connect 18 1 3 0; #X connect 18 2 4 0; #X connect 18 3 7 0; #X connect 18 4 8 0; #X connect 18 5 11 0; #X connect 18 6 13 0; #X connect 18 7 15 0; #X connect 18 8 1 0; #X connect 18 9 2 0; #X connect 18 10 5 0; #X connect 18 11 6 0; #X connect 18 12 9 0; #X connect 18 13 10 0; #X connect 18 14 12 0; #X connect 18 15 14 0; #X connect 19 0 20 0; #X connect 19 0 17 0; #X connect 19 0 21 0; #X connect 20 0 18 0; #X connect 21 0 18 0; #X restore 56 48 pd receive; #X connect 0 0 2 0; #X connect 1 0 3 1; #X connect 2 0 14 0; #X connect 2 1 1 0; #X connect 3 0 12 0; #X connect 3 0 14 1; #X connect 4 0 3 0; #X connect 6 0 8 1; #X connect 7 0 19 0; #X connect 7 1 6 0; #X connect 8 0 13 0; #X connect 8 0 19 1; #X connect 9 0 8 0; #X connect 11 0 7 0; #X connect 14 0 15 0; #X connect 15 0 18 0; #X connect 16 0 17 0; #X connect 17 0 10 0; #X connect 18 0 5 0; #X connect 19 0 16 0; #X restore 306 474 pd toaster; #X obj 51 575 msd2D --------------------------------; #N canvas 1705 74 296 421 massrender 0; #X obj 62 68 inlet; #X obj 62 311 translateXYZ; #X obj 62 285 separator; #X obj 62 225 any; #X obj 78 199 gemhead 45; #X obj 62 103 unpack s f f; #X obj 62 337 sphere 0.2 20; #X obj 67 142 t b b; #X obj 64 364 color; #X msg 207 229 1 1 1; #X obj 232 61 inlet; #X msg 231 255 1 0 0; #X connect 0 0 5 0; #X connect 1 0 6 0; #X connect 2 0 1 0; #X connect 3 0 2 0; #X connect 4 0 3 1; #X connect 5 0 7 0; #X connect 5 1 1 1; #X connect 5 2 1 2; #X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 7 1 3 0; #X connect 9 0 8 1; #X connect 10 0 11 0; #X connect 11 0 8 1; #X restore 51 627 pd massrender; #X obj 51 350 gemhead; #X obj 212 397 gcanvas 80 80; #X obj 51 328 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X msg 51 373 get massesPos sable; #N canvas 754 153 608 476 creation 0; #X obj 198 405 t a; #X obj 196 30 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 207 72 reset; #X obj 128 28 loadbang; #X text 234 32 Reset; #X text 263 89 Random positions and masses; #N canvas 826 356 716 390 masses 0; #X msg 417 145 seed 1; #X msg 342 144 seed 2; #X obj 43 15 inlet; #X obj 238 362 outlet; #X obj 419 97 loadbang; #X obj 223 68 t b b; #X obj 43 78 f; #X obj 73 78 + 1; #X msg 43 41 0; #X msg 237 294 mass sable 1 1 \$1 \$2; #X obj 237 274 pack f f; #X obj 254 218 - 3; #X obj 336 223 - 3; #X obj 253 170 random 30; #X obj 339 172 random 30; #X obj 336 201 / 5; #X obj 254 196 / 5; #X obj 74 101 moses 32.5; #X connect 0 0 14 0; #X connect 1 0 13 0; #X connect 2 0 8 0; #X connect 4 0 1 0; #X connect 4 0 0 0; #X connect 5 0 13 0; #X connect 5 1 14 0; #X connect 6 0 7 0; #X connect 6 0 5 0; #X connect 7 0 17 0; #X connect 8 0 6 0; #X connect 9 0 3 0; #X connect 10 0 9 0; #X connect 11 0 10 0; #X connect 12 0 10 1; #X connect 13 0 16 0; #X connect 14 0 15 0; #X connect 15 0 12 0; #X connect 16 0 11 0; #X connect 17 0 6 0; #X restore 185 93 pd masses; #X obj 128 49 t b b b b; #X obj 40 149 t b b b b; #X msg 155 133 mass fixe 0 1 0 0; #X msg 138 176 tLink dampX fixe sable 0 0.001 0 1 1 0 1000; #X msg 131 198 tLink dampY fixe sable 0 0.001 1 0 1 0 1000; #X obj 197 434 outlet; #X obj 94 7 inlet; #X msg 36 375 Xmax 1111 \, Xmin -1111 \, Ymax 1111 \, Ymin -1111; #X msg 48 338 setL linkD 1000 \, setL linkG 1000 \, setL linkH 1000 \, setL linkB 1000; #X msg 108 256 link linkD MlinkD sable 0.01 0 1 1000 100000; #X msg 103 276 link linkG MlinkG sable 0.01 0 1 1000 100000; #X msg 90 295 link linkH MlinkH sable 0.01 0 1 1000 100000; #X msg 78 315 link linkB MlinkB sable 0.01 0 1 1000 100000; #X msg 167 113 link rebond sable sable 0.003 0.005 1 0 0.4; #X msg 146 153 setL rebond 0.4; #X msg 120 221 mass MlinkD 0 1 -993.8 0 \, mass MlinkG 0 1 993.8 0 \, mass MlinkH 0 1 0 996.2 \, mass MlinkB 0 1 0 -996.2; #X connect 0 0 12 0; #X connect 1 0 7 0; #X connect 2 0 0 0; #X connect 3 0 7 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 7 0 21 0; #X connect 7 1 20 0; #X connect 7 1 9 0; #X connect 7 2 6 0; #X connect 7 3 2 0; #X connect 8 1 15 0; #X connect 8 2 16 0; #X connect 8 2 18 0; #X connect 8 2 19 0; #X connect 8 2 17 0; #X connect 8 3 10 0; #X connect 8 3 11 0; #X connect 8 3 22 0; #X connect 9 0 0 0; #X connect 10 0 0 0; #X connect 11 0 0 0; #X connect 13 0 7 0; #X connect 14 0 0 0; #X connect 15 0 0 0; #X connect 16 0 0 0; #X connect 17 0 0 0; #X connect 18 0 0 0; #X connect 19 0 0 0; #X connect 20 0 0 0; #X connect 21 0 0 0; #X connect 22 0 0 0; #X restore 68 494 pd creation; #X obj 89 515 bang~; #X msg 89 539 get massesForces; #N canvas 0 0 450 300 simulation_gravite 0; #X msg 28 224 forceX sable \$1; #X msg 142 224 forceY sable \$1; #X obj 29 60 min 80; #X obj 28 82 max 0; #X obj 28 107 - 40; #X obj 142 60 min 80; #X obj 141 82 max 0; #X obj 143 151 - 40; #X obj 142 102 * -1; #X obj 143 126 + 80; #X obj 48 132 bang~; #X obj 30 39 inlet; #X obj 140 38 inlet; #X obj 25 257 outlet; #X obj 125 179 f; #X obj 36 178 f; #X obj 31 201 / 2e+06; #X obj 145 200 / 2e+06; #X obj 291 45 inlet; #X obj 401 44 inlet; #X connect 0 0 13 0; #X connect 1 0 13 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 15 1; #X connect 5 0 6 0; #X connect 6 0 8 0; #X connect 7 0 14 1; #X connect 8 0 9 0; #X connect 9 0 7 0; #X connect 10 0 14 0; #X connect 10 0 15 0; #X connect 11 0 2 0; #X connect 12 0 5 0; #X connect 14 0 17 0; #X connect 15 0 16 0; #X connect 16 0 0 0; #X connect 17 0 1 0; #X connect 18 0 15 1; #X connect 19 0 14 1; #X restore 212 496 pd simulation_gravite; #X obj 68 475 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 65 417 metro 1; #X obj 65 396 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X msg 109 145 view 0 0 40 0 0 0 0 1 0; #X msg 119 165 perspec -0.1 0.1 -0.1 0.1 1 100; #X obj 116 119 b; #X obj 135 96 loadbang; #X obj 116 95 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 363 212 rotateXYZ -30 -20 0; #X obj 65 444 t b b; #X msg 209 242 destroy; #X obj 209 197 key; #X obj 209 218 sel 27; #X obj 364 67 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 364 90 s lb; #X obj 364 120 lb; #X obj 126 396 lb; #X msg 90 396 1; #X msg 88 61 dimen 1680 1050 \, cursor 0; #X text 390 475 <- sensors; #X text 321 450 <- sensors simulation; #X obj 52 282 gemwin 58; #X msg 51 13 dimen 672 420; #X msg 69 38 create \, lighting 1 \, 1; #N canvas 0 0 450 300 sound 0; #X obj 19 279 dac~; #X obj 202 220 *~ 1; #X obj 10 40 sound_sable 0 1; #X obj 268 191 sound_sable 28 29; #X obj 43 101 sound_sable 12 13; #X obj 20 61 sound_sable 4 5; #X obj 79 164 sound_sable 24 25; #X obj 33 80 sound_sable 8 9; #X obj 56 123 sound_sable 16 17; #X obj 66 144 sound_sable 20 21; #X obj 191 43 sound_sable 2 3; #X obj 201 64 sound_sable 6 7; #X obj 214 83 sound_sable 10 11; #X obj 224 104 sound_sable 14 15; #X obj 237 126 sound_sable 18 19; #X obj 247 148 sound_sable 22 23; #X obj 260 167 sound_sable 26 27; #X obj 277 212 sound_sable 30 31; #X obj 19 246 *~ 0.2; #X obj 13 11 inlet; #X connect 1 0 18 0; #X connect 2 0 18 0; #X connect 2 1 5 0; #X connect 3 0 1 0; #X connect 3 1 17 0; #X connect 4 0 18 0; #X connect 4 1 8 0; #X connect 5 0 18 0; #X connect 5 1 7 0; #X connect 6 0 18 0; #X connect 6 1 10 0; #X connect 7 0 18 0; #X connect 7 1 4 0; #X connect 8 0 18 0; #X connect 8 1 9 0; #X connect 9 0 18 0; #X connect 9 1 6 0; #X connect 10 0 1 0; #X connect 10 1 11 0; #X connect 11 0 1 0; #X connect 11 1 12 0; #X connect 12 0 1 0; #X connect 12 1 13 0; #X connect 13 0 1 0; #X connect 13 1 14 0; #X connect 14 0 1 0; #X connect 14 1 15 0; #X connect 15 0 1 0; #X connect 15 1 16 0; #X connect 16 0 1 0; #X connect 16 1 3 0; #X connect 17 0 1 0; #X connect 18 0 0 0; #X connect 18 0 0 1; #X connect 19 0 2 0; #X restore 153 626 pd sound; #X obj 51 596 route massesPosId massesForces; #X connect 0 0 23 0; #X connect 3 0 36 0; #X connect 4 0 14 2; #X connect 4 1 14 3; #X connect 5 0 40 0; #X connect 7 0 10 0; #X connect 8 0 14 0; #X connect 8 1 14 1; #X connect 9 0 7 0; #X connect 10 0 5 0; #X connect 11 0 5 0; #X connect 12 0 13 0; #X connect 13 0 5 0; #X connect 14 0 5 0; #X connect 15 0 11 0; #X connect 16 0 24 0; #X connect 17 0 16 0; #X connect 18 0 36 0; #X connect 19 0 36 0; #X connect 20 0 18 0; #X connect 20 0 19 0; #X connect 20 0 3 0; #X connect 21 0 20 0; #X connect 22 0 20 0; #X connect 23 0 1 0; #X connect 24 0 5 0; #X connect 24 1 6 1; #X connect 25 0 36 0; #X connect 26 0 27 0; #X connect 27 0 25 0; #X connect 28 0 29 0; #X connect 30 0 2 0; #X connect 31 0 32 0; #X connect 32 0 17 0; #X connect 33 0 36 0; #X connect 37 0 36 0; #X connect 38 0 36 0; #X connect 40 0 6 0; #X connect 40 1 39 0; --- NEW FILE: sound_sable.pd --- #N canvas 420 100 846 647 10; #X obj 62 56 inlet; #X obj 179 112 outlet; #X obj 63 159 unpack f f; #X obj 63 231 +; #X obj 63 182 t f f; #X obj 63 205 *; #X obj 128 181 t f f; #X obj 128 204 *; #X obj 65 453 line~; #X obj 66 543 *~; #X obj 143 412 random 1000; #X obj 142 479 osc~; #X obj 66 571 outlet~; #X obj 65 404 min 0.1; #X obj 181 162 unpack f f; #X obj 181 234 +; #X obj 181 185 t f f; #X obj 181 208 *; #X obj 246 184 t f f; #X obj 246 207 *; #X obj 61 289 max; #X obj 143 434 / 3; #X obj 65 87 route \$1 \$2; #X obj 60 332 max 0; #X obj 63 252 * 1e+06; #X obj 180 255 * 1e+06; #X msg 64 430 \$1 0.5; #X obj 142 457 + 300; #X obj 143 390 lb; #X obj 60 312 - 0.009; #X connect 0 0 22 0; #X connect 2 0 4 0; #X connect 2 1 6 0; #X connect 3 0 24 0; #X connect 4 0 5 0; #X connect 4 1 5 1; #X connect 5 0 3 0; #X connect 6 0 7 0; #X connect 6 1 7 1; #X connect 7 0 3 1; #X connect 8 0 9 0; #X connect 9 0 12 0; #X connect 10 0 21 0; #X connect 11 0 9 1; #X connect 13 0 26 0; #X connect 14 0 16 0; #X connect 14 1 18 0; #X connect 15 0 25 0; #X connect 16 0 17 0; #X connect 16 1 17 1; #X connect 17 0 15 0; #X connect 18 0 19 0; #X connect 18 1 19 1; #X connect 19 0 15 1; #X connect 20 0 29 0; #X connect 21 0 27 0; #X connect 22 0 2 0; #X connect 22 1 14 0; #X connect 22 2 1 0; #X connect 23 0 13 0; #X connect 24 0 20 0; #X connect 25 0 20 1; #X connect 26 0 8 0; #X connect 27 0 11 0; #X connect 28 0 10 0; #X connect 29 0 23 0; --- NEW FILE: lb.pd --- #N canvas 0 0 450 300 10; #X obj 18 86 loadbang; #X obj 18 63 universal; #X msg 18 41 loadbang loadbang; #X obj 18 17 inlet; #X obj 18 108 outlet; #X obj 104 84 r lb; #X obj 104 105 t b; #X connect 0 0 4 0; #X connect 2 0 1 0; #X connect 3 0 2 0; #X connect 5 0 6 0; #X connect 6 0 4 0;

1 0

externals/hcs stat.c,1.2,1.3
by Hans-Christoph Steiner 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20597 Modified Files: stat.c Log Message: oops, got the POSIX macro switched around, works now Index: stat.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/stat.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** stat.c 13 Jun 2006 01:28:48 -0000 1.2 --- stat.c 13 Jun 2006 14:24:04 -0000 1.3 *************** *** 195,198 **** --- 195,205 ---- /* 86400 seconds == 24 hours == 1 day */ #ifdef _POSIX_C_SOURCE + add_float_to_output(x, (t_float) (stat_buffer.st_atime / 86400)); + add_float_to_output(x, (t_float) (stat_buffer.st_atime % 86400)); + add_float_to_output(x, (t_float) (stat_buffer.st_mtime / 86400)); + add_float_to_output(x, (t_float) (stat_buffer.st_mtime % 86400)); + add_float_to_output(x, (t_float) (stat_buffer.st_ctime / 86400)); + add_float_to_output(x, (t_float) (stat_buffer.st_ctime % 86400)); + #else add_float_to_output(x, (t_float) (stat_buffer.st_atimespec.tv_sec / 86400)); *************** *** 207,217 **** add_float_to_output(x, (t_float) (stat_buffer.st_ctimespec.tv_sec % 86400)); - #else - add_float_to_output(x, (t_float) (stat_buffer.st_atime / 86400)); - add_float_to_output(x, (t_float) (stat_buffer.st_atime % 86400)); - add_float_to_output(x, (t_float) (stat_buffer.st_mtime / 86400)); - add_float_to_output(x, (t_float) (stat_buffer.st_mtime % 86400)); - add_float_to_output(x, (t_float) (stat_buffer.st_ctime / 86400)); - add_float_to_output(x, (t_float) (stat_buffer.st_ctime % 86400)); #endif /* _POSIX_C_SOURCE */ outlet_anything(x->x_data_outlet,x->x_filename, --- 214,217 ----

1 0

pd/src m_sched.c,1.5.4.35.2.11,1.5.4.35.2.12
by Tim Blechmann 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19374 Modified Files: Tag: devel_0_39 m_sched.c Log Message: sys_xrun_notification Index: m_sched.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_sched.c,v retrieving revision 1.5.4.35.2.11 retrieving revision 1.5.4.35.2.12 diff -C2 -d -r1.5.4.35.2.11 -r1.5.4.35.2.12 *** m_sched.c 13 Apr 2006 18:50:23 -0000 1.5.4.35.2.11 --- m_sched.c 13 Jun 2006 13:05:45 -0000 1.5.4.35.2.12 *************** *** 812,816 **** case 0: next = idle_callback->next; ! freebytes (idle_callback->argv, idle_callback->argc); freebytes ((void*)idle_callback, sizeof(t_sched_callback)); --- 812,817 ---- case 0: next = idle_callback->next; ! if (idle_callback->argc) ! freebytes (idle_callback->argv, idle_callback->argc); freebytes ((void*)idle_callback, sizeof(t_sched_callback)); *************** *** 857,858 **** --- 858,875 ---- return sys_callbackscheduler; } + + static t_int sys_xrun_notification_callback(t_int * dumy) + { + t_symbol * pd = gensym("pd"); + t_symbol * xrun = gensym("xrun"); + + typedmess(pd->s_thing, xrun, 0, 0); + + return 0; + } + + + void sys_xrun_notification(void) + { + sys_callback(sys_xrun_notification_callback, 0, 0); + }

1 0

pd/src s_audio_portaudio.c, 1.1.2.9, 1.1.2.10 m_glob.c, 1.4.4.2.2.7, 1.4.4.2.2.8 m_class.c, 1.3.4.7.2.17, 1.3.4.7.2.18
by Tim Blechmann 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11804 Modified Files: Tag: devel_0_39 s_audio_portaudio.c m_glob.c m_class.c Log Message: xrun notification to receiver pd fixed memory leak introduced by alternate filenames Index: m_class.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_class.c,v retrieving revision 1.3.4.7.2.17 retrieving revision 1.3.4.7.2.18 diff -C2 -d -r1.3.4.7.2.17 -r1.3.4.7.2.18 *** m_class.c 22 Apr 2006 01:33:15 -0000 1.3.4.7.2.17 --- m_class.c 13 Jun 2006 12:48:01 -0000 1.3.4.7.2.18 *************** *** 675,679 **** char dirbuf[MAXPDSTRING], *nameptr; char *altname=alternative_classname(s->s_name); ! if (tryingalready) return; newest = 0; class_loadsym = s; --- 675,684 ---- char dirbuf[MAXPDSTRING], *nameptr; char *altname=alternative_classname(s->s_name); ! if (tryingalready) ! { ! if (altname) ! freebytes(altname, sizeof(char)*MAXPDSTRING); ! return; ! } newest = 0; class_loadsym = s; *************** *** 683,686 **** --- 688,693 ---- typedmess((t_pd *)dummy, s, argc, argv); tryingalready = 0; + if (altname) + freebytes(altname, sizeof(char)*MAXPDSTRING); return; } *************** *** 704,707 **** --- 711,716 ---- } else newest = 0; + if (altname) + freebytes(altname, sizeof(char)*MAXPDSTRING); } Index: s_audio_portaudio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/s_audio_portaudio.c,v retrieving revision 1.1.2.9 retrieving revision 1.1.2.10 diff -C2 -d -r1.1.2.9 -r1.1.2.10 *** s_audio_portaudio.c 4 Jun 2006 10:37:33 -0000 1.1.2.9 --- s_audio_portaudio.c 13 Jun 2006 12:48:01 -0000 1.1.2.10 *************** *** 310,318 **** void run_all_idle_callbacks(void); int process (const void *input, void *output, unsigned long frameCount, const PaStreamCallbackTimeInfo* timeInfo, PaStreamCallbackFlags statusFlags, void *userData) { ! static started = 0; --- 310,320 ---- void run_all_idle_callbacks(void); + void sys_xrun_notification(void); + int process (const void *input, void *output, unsigned long frameCount, const PaStreamCallbackTimeInfo* timeInfo, PaStreamCallbackFlags statusFlags, void *userData) { ! static int started = 0; *************** *** 321,331 **** if (statusFlags) ! post("statusFlags %p", statusFlags); if (sys_timedlock(timeout) == ETIMEDOUT) /* we're late */ { ! post("timeout %d", timeout); ! sys_log_error(ERR_SYSLOCK); return 0; } --- 323,332 ---- if (statusFlags) ! sys_xrun_notification(); if (sys_timedlock(timeout) == ETIMEDOUT) /* we're late */ { ! sys_xrun_notification(); return 0; } Index: m_glob.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_glob.c,v retrieving revision 1.4.4.2.2.7 retrieving revision 1.4.4.2.2.8 diff -C2 -d -r1.4.4.2.2.7 -r1.4.4.2.2.8 *** m_glob.c 22 Apr 2006 00:43:40 -0000 1.4.4.2.2.7 --- m_glob.c 13 Jun 2006 12:48:01 -0000 1.4.4.2.2.8 *************** *** 82,85 **** --- 82,87 ---- if (s == gensym("audiodevice")) return; + if (s == gensym("xrun")) + return; startpost("%s: unknown message %s ", class_getname(pd_class(x)), *************** *** 200,204 **** gensym("testaudiosetting"), A_GIMME, 0); class_addmethod(glob_pdobject, (t_method)glob_audio_getcurrent_devices, ! gensym("getaudiodevice"), 0); /* tb } */ #ifdef DESIRE --- 202,206 ---- gensym("testaudiosetting"), A_GIMME, 0); class_addmethod(glob_pdobject, (t_method)glob_audio_getcurrent_devices, ! gensym("getaudiodevice"), 0); /* tb } */ #ifdef DESIRE

1 0

pd/src desire.tk,1.1.2.236,1.1.2.237
by chunlee 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5922 Modified Files: Tag: devel_0_39 desire.tk Log Message: integrated object_delete in desire.tk, should worx, but need more testing Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.236 retrieving revision 1.1.2.237 diff -C2 -d -r1.1.2.236 -r1.1.2.237 *** desire.tk 13 Jun 2006 07:31:25 -0000 1.1.2.236 --- desire.tk 13 Jun 2006 07:56:08 -0000 1.1.2.237 *************** *** 925,929 **** } ! def View item_delete {{suffix all}} { switch -- $suffix { all {.$(a)canvas.c delete $self } --- 925,929 ---- } ! def* View item_delete {{suffix all}} { switch -- $suffix { all {.$(a)canvas.c delete $self } *************** *** 1733,1744 **** def* Canvas wires {} {return $@wires} ! def Canvas delete_selection {} { global _ set c .$self.c foreach obj $@selection { puts "wire to erase: $_($obj:wires)" foreach wire $_($obj:wires) { set find [lsearch $@wires_pair $wire] if { $find != -1} { ## remove the selected wire from the @wires_pair... set @wires_pair [lreplace $@wires_pair $find $find] --- 1733,1746 ---- def* Canvas wires {} {return $@wires} ! def* Canvas delete_selection {} { global _ set c .$self.c foreach obj $@selection { + #pd .$self object_delete !$obj puts "wire to erase: $_($obj:wires)" foreach wire $_($obj:wires) { set find [lsearch $@wires_pair $wire] if { $find != -1} { + pd .$self disconnect [lindex $@wires_pair [expr $find - 1]] ## remove the selected wire from the @wires_pair... set @wires_pair [lreplace $@wires_pair $find $find] *************** *** 1749,1753 **** } ! $obj erase } --- 1751,1756 ---- } ! #$obj erase ! pd .$self object_delete !$obj } *************** *** 2383,2387 **** if {[llength $@selection_wire] > 0} { puts "delete this $self :: $@selection_wire" ! puts "wires: $@wires_pair" foreach x $@selection_wire { --- 2386,2390 ---- if {[llength $@selection_wire] > 0} { puts "delete this $self :: $@selection_wire" ! #puts "wires: $@wires_pair" foreach x $@selection_wire { *************** *** 2474,2478 **** def Box draw_wires {} { ! puts "wires:$@wires" foreach wire $@wires {$wire draw} } --- 2477,2481 ---- def Box draw_wires {} { ! #puts "wires:$@wires" foreach wire $@wires {$wire draw} } *************** *** 2483,2487 **** } ! def* Box move {dx dy} { super $dx $dy $self draw_wires --- 2486,2490 ---- } ! def Box move {dx dy} { super $dx $dy $self draw_wires *************** *** 2564,2568 **** } ! def* Wire draw {} { global look #set thick 2 --- 2567,2571 ---- } ! def Wire draw {} { global look #set thick 2 *************** *** 2619,2622 **** --- 2622,2626 ---- $@obj1 delete_wire $self $@obj2 delete_wire $self + #super # i don't know why wires are taged as 00000000WIRE... # not sure why $self erase don't work, look later... *************** *** 3264,3270 **** } ! def Labeled erase {} { # $@canvas delete ${self}LABEL ! } #-----------------------------------------------------------------------------------# --- 3268,3274 ---- } ! #def Labeled erase {} { # $@canvas delete ${self}LABEL ! #} #-----------------------------------------------------------------------------------# *************** *** 3347,3354 **** } ! def Toggle erase {} { # io_erase $self # $@canvas delete ${self}BUT ${self}LABEL ${self}X1 ${self}X2 ! } def* Toggle click {x y b f} { --- 3351,3358 ---- } ! #def Toggle erase {} { # io_erase $self # $@canvas delete ${self}BUT ${self}LABEL ${self}X1 ${self}X2 ! #} def* Toggle click {x y b f} {

1 0

pd/src m_binbuf.c,1.4.4.1.2.4,1.4.4.1.2.5
by Mathieu Bouchard 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv513 Modified Files: Tag: devel_0_39 m_binbuf.c Log Message: reenabled receive-pointer hack Index: m_binbuf.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_binbuf.c,v retrieving revision 1.4.4.1.2.4 retrieving revision 1.4.4.1.2.5 diff -C2 -d -r1.4.4.1.2.4 -r1.4.4.1.2.5 *** m_binbuf.c 30 Nov 2005 13:36:57 -0000 1.4.4.1.2.4 --- m_binbuf.c 13 Jun 2006 07:45:33 -0000 1.4.4.1.2.5 *************** *** 503,513 **** } else s = atom_getsymbol(at); /* IMPD: allows messages to unbound objects, via pointers */ - /* target = s->s_thing; if (!target) { if (!sscanf(s->s_name,".x%x",&target)) target=0; } ! */ ! if (!(target = s->s_thing)) { error("%s: no such object", s->s_name); --- 503,514 ---- } else s = atom_getsymbol(at); + target = s->s_thing; + #ifdef DESIRE /* IMPD: allows messages to unbound objects, via pointers */ if (!target) { if (!sscanf(s->s_name,".x%x",&target)) target=0; } ! #endif ! if (!target) { error("%s: no such object", s->s_name);

1 0

pd/src desire.tk,1.1.2.235,1.1.2.236
by Mathieu Bouchard 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27540 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.235 retrieving revision 1.1.2.236 diff -C2 -d -r1.1.2.235 -r1.1.2.236 *** desire.tk 13 Jun 2006 06:26:00 -0000 1.1.2.235 --- desire.tk 13 Jun 2006 07:31:25 -0000 1.1.2.236 *************** *** 85,99 **** } ! # finds the current length of the callstack, minus one. ! # uplevel [thislevel] {...} gives access to the global context. ! proc lastlevel {} { ! set m 0; set n 1 ! while {![catch {uplevel $n {}}]} {set m $n; incr n $n} ! # from now on, m <= lastlevel < n ! while {$n-$m>1} { ! set p [expr ($m+$n)/2] ! if {[catch {uplevel $p {}}]} {set n $p} {set m $p} } - return [expr $m-1] } --- 85,97 ---- } ! # to be continued... ! proc begin {code args} { ! uplevel 1 $code ! set i 0 ! set n [llength $args] ! while {$i<$n} { ! switch -- [lindex $args $i] { ! } } } *************** *** 184,189 **** set @undo $@redo set @redo {} ! set err [catch { $self perform [lindex $backup end]}] ! puts "err --> $err" if {$err} {set err $errorInfo} set @redo $@undo --- 182,186 ---- set @undo $@redo set @redo {} ! set err [catch {$self perform [lindex $backup end]}] if {$err} {set err $errorInfo} set @redo $@undo *************** *** 227,237 **** } - #class UndoableArray < AutoArray - # include UndoFeature - ## def initialize(n=0,v=nil); super; end - # def put(i,v) @undo_queue.add Message.new(self,:put,i,get(i)); super end - # def put_seq(i,n,v) @undo_queue.add Message.new(self,:put_seq,i,v.length,get_seq(i,n)); super end - #end - set history [History new] --- 224,227 ---- *************** *** 1561,1571 **** def ObjectBox init {args} { super - global font look set @valid 0 set @ninlets 0 set @noutlets 0 - #set @canvas "deadbeef" set @pdclass "" - #set @text $args set @edit 0 } --- 1551,1558 ---- *************** *** 2907,2917 **** def* MessageBox click {x y b f} { - global _ $self bang 1 $@canvas focus= $self ! foreach wire $@wires { ! pd .$_($wire:obj2) $@text ! } ! after 100 $self bang 0 } --- 2894,2901 ---- def* MessageBox click {x y b f} { $self bang 1 $@canvas focus= $self ! pd .$self bang ! after 150 $self bang 0 } *************** *** 3630,3634 **** } ! proc tcl_eval {self l} {post %s "tcl: $l"; post %s "returns: [uplevel [lastlevel] $l]"} proc pd_eval {self l} {post %s "pd: $l"; pd $l} proc gdb_eval {self l} {post %s "gdb: $l"; global gdb; puts $gdb "$l"} --- 3614,3618 ---- } ! proc tcl_eval {self l} {post %s "tcl: $l"; post %s "returns: [uplevel [info level] $l]"} proc pd_eval {self l} {post %s "pd: $l"; pd $l} proc gdb_eval {self l} {post %s "gdb: $l"; global gdb; puts $gdb "$l"}

1 0

pd/src desire.tk,1.1.2.234,1.1.2.235
by Mathieu Bouchard 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25128 Modified Files: Tag: devel_0_39 desire.tk Log Message: using "package" command and "auto_path" variable Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.234 retrieving revision 1.1.2.235 diff -C2 -d -r1.1.2.234 -r1.1.2.235 *** desire.tk 12 Jun 2006 20:31:57 -0000 1.1.2.234 --- desire.tk 13 Jun 2006 06:26:00 -0000 1.1.2.235 *************** *** 14,26 **** #-----------------------------------------------------------------------------------# set argh0 [file normalize [file join [pwd] $argv0]] ! set our_tcl_dir [file join [file dirname [file dirname $argh0]] lib/pd/bin] ! if {[catch {source objective.tcl}]} { ! puts "error loading objective.tcl: errorcode=$errorCode" ! puts "errorInfo=$errorInfo" ! puts "looking for objective.tcl in $our_tcl_dir" ! source $our_tcl_dir/objective.tcl ! } #-----------------------------------------------------------------------------------# --- 14,25 ---- #-----------------------------------------------------------------------------------# + # this command rebuilds the package index: echo pkg_mkIndex . | tclsh + set argh0 [file normalize [file join [pwd] $argv0]] ! set auto_path [concat . \ ! [list [file join [file dirname [file dirname $argh0]] lib/pd/bin]] \ ! $auto_path] ! package require objective #-----------------------------------------------------------------------------------# *************** *** 330,334 **** proc say_category {text} {} ! set cmdline(server) [list [file join [file dirname $argh0] pd]] set cmdline(rcfilename) ~/.pdrc set cmdline(ddrcfilename) ~/.ddrc --- 329,333 ---- proc say_category {text} {} ! set cmdline(server) [list [file join [file dirname $argh0] ../bin/pd]] set cmdline(rcfilename) ~/.pdrc set cmdline(ddrcfilename) ~/.ddrc

1 0

pd/src pkgIndex.tcl,NONE,1.1.2.1
by Mathieu Bouchard 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24525 Added Files: Tag: devel_0_39 pkgIndex.tcl Log Message: for use by "package" command --- NEW FILE: pkgIndex.tcl --- # Tcl package index file, version 1.1 # This file is generated by the "pkg_mkIndex" command # and sourced either when an application starts up or # by a "package unknown" script. It invokes the # "package ifneeded" command to set up package-related # information so that packages will be loaded automatically # in response to "package require" commands. When this # script is sourced, the variable $dir must contain the # full path name of this file's directory. package ifneeded objective 0.0 [list source [file join $dir objective.tcl]] package ifneeded pre8.5 8.4 [list source [file join $dir pre8.5.tcl]]

1 0

[PD-cvs] pd/src objective.tcl, 1.1.2.9, 1.1.2.10 pre8.5.tcl, 1.1.2.2, 1.1.2.3
by Mathieu Bouchard 13 Jun '06

13 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24476 Modified Files: Tag: devel_0_39 objective.tcl pre8.5.tcl Log Message: using "package" command Index: pre8.5.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/pre8.5.tcl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** pre8.5.tcl 18 Sep 2005 19:29:42 -0000 1.1.2.2 --- pre8.5.tcl 13 Jun 2006 06:24:32 -0000 1.1.2.3 *************** *** 1,2 **** --- 1,4 ---- + package provide pre8.5 8.4 + proc lremove {args} { array set opts {-all 0 pattern -exact} Index: objective.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v retrieving revision 1.1.2.9 retrieving revision 1.1.2.10 diff -C2 -d -r1.1.2.9 -r1.1.2.10 *** objective.tcl 20 Apr 2006 01:46:32 -0000 1.1.2.9 --- objective.tcl 13 Jun 2006 06:24:32 -0000 1.1.2.10 *************** *** 13,17 **** # note, the toplevel class is called "thing". ! if {$tcl_version < 8.5} {source pre8.5.tcl} set nextid 0 set _(Class:_class) Class --- 13,19 ---- # note, the toplevel class is called "thing". ! package provide objective 0.0 ! ! if {$tcl_version < 8.5} {package require pre8.5} set nextid 0 set _(Class:_class) Class

1 0

← Newer
1
...
10
11
12
13
14
15
16
...
23
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs June 2006