Pd-cvs April 2007

pd-cvs@lists.iem.at

16 participants
269 discussions

pd/extra/expr~ vexp_if.c,1.5,1.5.8.1
by Hans-Christoph Steiner 20 Apr '07

20 Apr '07

Update of /cvsroot/pure-data/pd/extra/expr~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2352/expr~ Modified Files: Tag: branch-v0-39-2-extended vexp_if.c Log Message: merged in pd/extra changes from MAIN/HEAD since the help files were missing in 0.39-2 Index: vexp_if.c =================================================================== RCS file: /cvsroot/pure-data/pd/extra/expr~/vexp_if.c,v retrieving revision 1.5 retrieving revision 1.5.8.1 diff -C2 -d -r1.5 -r1.5.8.1 *** vexp_if.c 6 Nov 2004 16:07:23 -0000 1.5 --- vexp_if.c 20 Apr 2007 03:33:44 -0000 1.5.8.1 *************** *** 896,903 **** t_garray *garray; int size, indx; ! t_float *vec; if (!s || !(garray = (t_garray *)pd_findbyclass(s, garray_class)) || ! !garray_getfloatarray(garray, &size, &vec)) { optr->ex_type = ET_FLT; --- 896,903 ---- t_garray *garray; int size, indx; ! t_word *wvec; if (!s || !(garray = (t_garray *)pd_findbyclass(s, garray_class)) || ! !garray_getfloatwords(garray, &size, &wvec)) { optr->ex_type = ET_FLT; *************** *** 923,927 **** if (indx < 0) indx = 0; else if (indx >= size) indx = size - 1; ! optr->ex_flt = vec[indx]; #else /* MSP */ /* --- 923,927 ---- if (indx < 0) indx = 0; else if (indx >= size) indx = size - 1; ! optr->ex_flt = wvec[indx].w_float; #else /* MSP */ /* *************** *** 953,957 **** #define ISTABLE(sym, garray, size, vec) \ if (!sym || !(garray = (t_garray *)pd_findbyclass(sym, garray_class)) || \ ! !garray_getfloatarray(garray, &size, &vec)) { \ optr->ex_type = ET_FLT; \ optr->ex_int = 0; \ --- 953,957 ---- #define ISTABLE(sym, garray, size, vec) \ if (!sym || !(garray = (t_garray *)pd_findbyclass(sym, garray_class)) || \ ! !garray_getfloatwords(garray, &size, &vec)) { \ optr->ex_type = ET_FLT; \ optr->ex_int = 0; \ *************** *** 969,973 **** t_garray *garray; int size; ! t_float *vec; if (argv->ex_type != ET_SYM) --- 969,973 ---- t_garray *garray; int size; ! t_word *wvec; if (argv->ex_type != ET_SYM) *************** *** 981,985 **** s = (fts_symbol_t ) argv->ex_ptr; ! ISTABLE(s, garray, size, vec); optr->ex_type = ET_INT; --- 981,985 ---- s = (fts_symbol_t ) argv->ex_ptr; ! ISTABLE(s, garray, size, wvec); optr->ex_type = ET_INT; *************** *** 997,1001 **** t_garray *garray; int size; ! t_float *vec, sum; int indx; --- 997,1002 ---- t_garray *garray; int size; ! t_word *wvec; ! float sum; int indx; *************** *** 1010,1017 **** s = (fts_symbol_t ) argv->ex_ptr; ! ISTABLE(s, garray, size, vec); for (indx = 0, sum = 0; indx < size; indx++) ! sum += vec[indx]; optr->ex_type = ET_FLT; --- 1011,1018 ---- s = (fts_symbol_t ) argv->ex_ptr; ! ISTABLE(s, garray, size, wvec); for (indx = 0, sum = 0; indx < size; indx++) ! sum += wvec[indx].w_float; optr->ex_type = ET_FLT; *************** *** 1030,1034 **** t_garray *garray; int size; ! t_float *vec, sum; int indx, n1, n2; --- 1031,1036 ---- t_garray *garray; int size; ! t_word *wvec; ! t_float sum; int indx, n1, n2; *************** *** 1043,1047 **** s = (fts_symbol_t ) argv->ex_ptr; ! ISTABLE(s, garray, size, vec); if (argv->ex_type != ET_INT || argv[1].ex_type != ET_INT) --- 1045,1049 ---- s = (fts_symbol_t ) argv->ex_ptr; ! ISTABLE(s, garray, size, wvec); if (argv->ex_type != ET_INT || argv[1].ex_type != ET_INT) *************** *** 1057,1061 **** for (indx = n1, sum = 0; indx < n2; indx++) if (indx >= 0 && indx < size) ! sum += vec[indx]; optr->ex_type = ET_FLT; --- 1059,1063 ---- for (indx = n1, sum = 0; indx < n2; indx++) if (indx >= 0 && indx < size) ! sum += wvec[indx].w_float; optr->ex_type = ET_FLT;

1 0

pd/extra/loop~ loop~-help.pd,NONE,1.1.6.1
by Hans-Christoph Steiner 20 Apr '07

20 Apr '07

Update of /cvsroot/pure-data/pd/extra/loop~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2352/loop~ Added Files: Tag: branch-v0-39-2-extended loop~-help.pd Log Message: merged in pd/extra changes from MAIN/HEAD since the help files were missing in 0.39-2 --- NEW FILE: loop~-help.pd --- #N canvas 33 0 647 662 12; #X floatatom 41 204 0 0 0 0 - - -; #X obj 254 382 print~; #X msg 254 347 bang; #X obj 41 338 loop~; #X floatatom 66 279 0 0 0 0 - - -; #X msg 55 252 bang; #X obj 183 382 print~; #X msg 183 347 bang; #N canvas 0 0 450 300 graph1 0; #X array array2 150000 float 0; #X coords 0 1 150000 -1 200 150 1; #X restore 393 464 graph; #X msg 393 622 \; array2 resize 150000; #X obj 25 613 soundfiler; #X obj 16 453 tabread4~ array2; #X obj 16 407 *~; #X obj 16 522 dac~; #X obj 16 499 hip~ 5; #X obj 62 411 samphold~; #X obj 16 430 +~; #X floatatom 96 303 0 0 0 0 - - -; #X obj 96 326 *~ 1000; #X msg 43 568 read ../doc/sound/bell.aiff array2; #X msg 43 591 read ../doc/sound/vocal.aiff array2; #X msg 47 229 set 0.5; #X text 95 196 left signal input is transposition (1 is normal \, 2 is up an octave \, etc); #X text 82 4 loop~ - phase generator for looping samplers; #X text 116 228 set phase (0 to 1); #X text 104 253 reset phase to 0; #X text 104 278 right signal input is window size in samples; #X text 134 302 here's how to handle onsets; #X obj 16 476 *~; #X floatatom 167 432 0 0 0 0 - - -; #X obj 167 501 line~; #X obj 167 455 dbtorms; #X obj 167 478 pack 0 50; #X text 201 431 output level 0-100; #X text 187 326 print outputs; #X text 33 32 loop~ takes input signals to set a window size and transposition \, and outputs a phase and a sampled window size. The window size only changes at phase zero crossings and the phase output is adjusted so that changing window size doesn't change the transposition.; #X text 33 112 You can send "bang" or "set" message to force the phase to zero--you should mute the output before doing so. This may be desirable if you've set a large window size but then want to decrease it without waiting for the next phase crossing.; #X connect 0 0 3 0; #X connect 2 0 1 0; #X connect 3 0 6 0; #X connect 3 0 12 0; #X connect 3 0 15 1; #X connect 3 1 1 0; #X connect 3 1 12 1; #X connect 4 0 3 1; #X connect 5 0 3 0; #X connect 7 0 6 0; #X connect 11 0 28 0; #X connect 12 0 16 0; #X connect 14 0 13 0; #X connect 14 0 13 1; #X connect 15 0 16 1; #X connect 16 0 11 0; #X connect 17 0 18 0; #X connect 18 0 15 0; #X connect 19 0 10 0; #X connect 20 0 10 0; #X connect 21 0 3 0; #X connect 28 0 14 0; #X connect 29 0 31 0; #X connect 30 0 28 1; #X connect 31 0 32 0; #X connect 32 0 30 0;

1 0

pd/extra/pique pique-help.pd,NONE,1.1.6.1
by Hans-Christoph Steiner 20 Apr '07

20 Apr '07

Update of /cvsroot/pure-data/pd/extra/pique In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2352/pique Added Files: Tag: branch-v0-39-2-extended pique-help.pd Log Message: merged in pd/extra changes from MAIN/HEAD since the help files were missing in 0.39-2 --- NEW FILE: pique-help.pd --- #N canvas 143 0 729 407 12; #X obj 47 11 pique; #X text 105 12 -- find peaks in an FFT spectrum; #X obj 214 174 rfft~; #X obj 131 129 osc~ 2000; #X graph graph2 0 -64 63 64 519 179 719 39; #X array fft-real 64 float; #X pop; #X graph graph3 0 -64 63 64 519 327 719 187; #X array fft-imag 64 float; #X pop; #X obj 214 215 tabwrite~ fft-real; #X obj 245 240 tabwrite~ fft-imag; #X obj 315 158 metro 1000; #X obj 315 116 loadbang; #X msg 315 138 1; #X obj 91 349 pique; #X msg 91 322 64 fft-real fft-imag 10; #X obj 91 376 print; #X obj 205 132 osc~ 5000; #X text 25 37 pique takes unwindowed FFT analyses as input (they should be stored in arrays) and outputs a list of peaks \, giving their peak number \, frequency \, amplitude \, and phase (as a cosine/sine pair.); #X text 13 289 message argumnets: number of FFT points \, fft real part \, fft imaginary part \, maximum number of peaks to report.; #X text 578 387 updated for Pd 0.31.; #X connect 2 0 6 0; #X connect 2 1 7 0; #X connect 3 0 2 0; #X connect 8 0 6 0; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 8 0; #X connect 11 0 13 0; #X connect 12 0 11 0; #X connect 14 0 2 0;

1 0

pd/extra/fiddle~ fiddle~-help.pd,NONE,1.1.6.1
by Hans-Christoph Steiner 20 Apr '07

20 Apr '07

Update of /cvsroot/pure-data/pd/extra/fiddle~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2352/fiddle~ Added Files: Tag: branch-v0-39-2-extended fiddle~-help.pd Log Message: merged in pd/extra changes from MAIN/HEAD since the help files were missing in 0.39-2 --- NEW FILE: fiddle~-help.pd --- #N canvas 93 26 980 745 10; #X obj 262 522 phasor~; #X obj 531 616 unpack; #X floatatom 531 666 0 0 0 0 - - -; #X msg 437 449 print; #X obj 262 500 sig~; #X floatatom 262 478 0 0 0 0 - - -; #X obj 262 456 mtof; #X floatatom 262 434 0 0 0 0 - - -; #X floatatom 545 643 0 0 0 0 - - -; #X obj 531 576 route 1 2 3 4; #X obj 614 616 unpack; #X floatatom 614 666 0 0 0 0 - - -; #X floatatom 628 643 0 0 0 0 - - -; #X obj 698 616 unpack; #X floatatom 698 666 0 0 0 0 - - -; #X floatatom 712 643 0 0 0 0 - - -; #X obj 389 616 unpack; #X floatatom 389 666 0 0 0 0 - - -; #X floatatom 403 643 0 0 0 0 - - -; #X obj 334 545 *~; #X obj 322 394 loadbang; #X obj 353 522 sig~; #X floatatom 353 500 0 0 0 0 - - -; #X msg 322 478 1; #X msg 353 478 0; #X floatatom 466 666 0 0 0 0 - - -; #X obj 281 666 print attack; #X obj 190 666 print pitch; #X msg 555 45 \; pd dsp 1; #X text 460 39 click here; #X text 460 61 to start DSP; #X text 226 4 FIDDLE - pitch estimator and sinusoidal peak finder; #X text 8 70 The Fiddle object estimates the pitch and amplitude of an incoming sound \, both continuously and as a stream of discrete "note" events. Fiddle optionally outputs a list of detected sinusoidal peaks used to make the pitch determination. Fiddle is described theoretically in the 1998 ICMC proceedings \, reprinted on http://man104nfs.ucsd.edu/~mpuckett. ; #X text 8 170 Fiddle's creation arguments specify an analysis window size \, the maximum polyphony (i.e. \, the number of simultaneous "pitches" to try to find) \, the number of peaks in the spectrum to consider \, and the number of peaks \, if any \, to output "raw." The outlets give discrete pitch (a number) \, detected attacks in the amplitude envelope (a bang) \, one or more voices of continuous pitch and amplitude \, overall amplitude \, and optionally a sequence of messages with the peaks.; #X text 8 296 The analysis hop size is half the window size so in the example shown here \, one analysis is done every 512 samples (11.6 msec at 44K1) \, and the analysis uses the most recent 1024 samples (23.2 msec at 44K1). The minimum frequency that Fiddle will report is 2-1/2 cycles per analysis windows \, or about 108 Hz. (just below MIDI 45.); #X text 669 535 number of pitch outlets (1-3 \, default 1); #X text 669 557 number of peaks to find (1-100 \, default 20); #X text 669 579 number of peaks to output (default 0.); #X msg 441 107 amp-range 40 50; #X msg 439 227 reattack 100 10; #X msg 438 282 npartial 7; #X msg 438 170 vibrato 50 0.5; #X text 560 91 a low and high amplitude threshold: if signal amplitude is below the low threshold \, no pitches or peaks are output. The high threshold is a minimum at which "cooked" outputs may appear.; #X text 560 152 A period in milliseconds (50) over which the raw pitch may not deviate more than an interval in half-tones (0.5) from the average pitch to report it as a note to the "cooked" pitch outlet. ; #X text 560 213 A period in milliseconds (100) over which a re-attack is reported if the amplitude rises more than (1) dB. The re-attack will result in a "bang" in the attack outlet and may give rise to repeated notes in the cooked pitch output.; #X text 142 432 test input pitch; #X text 330 444 test input; #X text 330 457 amplitude; #X obj 410 545 fiddle~ 1024 1 20 3; #X text 538 690 individual sinusoidal components; #X text 466 688 amplitude; #X text 476 703 (dB); #X text 389 688 raw pitch; #X text 376 712 and amplitude; #X text 364 729 (up to 3 outputs); #X text 287 686 bang on; #X text 287 708 attack; #X text 185 686 cooked pitch; #X text 202 703 output; #X text 545 545 ------ arguments:; #X msg 262 412 57; #X msg 440 331 auto 1; #X msg 440 353 auto 0; #X msg 439 418 bang; #X text 561 416 poll current values --- useful if not in auto mode \,; #X text 560 274 Higher partials are weighed less strongly than lower ones in determining the pitch. This specifies the number of the partial (7) which will be weighted half as strongly as the fundamental.; #X text 560 335 start and stop "auto" mode (on by default.) If off \, output only appears on "bang" (poll mode).; #X text 561 448 print out all settings; #X text 669 513 window size (128-2048 \, default 1024); #X msg 440 375 npoints 2048; #X text 562 384 number of points in analysis window (power of 2 \, 128-2048); #X msg 439 396 npoints 1024; #X connect 0 0 19 0; #X connect 1 0 2 0; #X connect 1 1 8 0; #X connect 3 0 48 0; #X connect 4 0 0 0; #X connect 5 0 4 0; #X connect 6 0 5 0; #X connect 7 0 6 0; #X connect 9 0 1 0; #X connect 9 1 10 0; #X connect 9 2 13 0; #X connect 10 0 11 0; #X connect 10 1 12 0; #X connect 13 0 14 0; #X connect 13 1 15 0; #X connect 16 0 17 0; #X connect 16 1 18 0; #X connect 19 0 48 0; #X connect 20 0 60 0; #X connect 20 0 23 0; #X connect 21 0 19 1; #X connect 22 0 21 0; #X connect 23 0 22 0; #X connect 24 0 22 0; #X connect 38 0 48 0; #X connect 39 0 48 0; #X connect 40 0 48 0; #X connect 41 0 48 0; #X connect 48 0 27 0; #X connect 48 1 26 0; #X connect 48 2 16 0; #X connect 48 3 25 0; #X connect 48 4 9 0; #X connect 60 0 7 0; #X connect 61 0 48 0; #X connect 62 0 48 0; #X connect 63 0 48 0; #X connect 69 0 48 0; #X connect 71 0 48 0;

1 0

pd/extra/bonk~ bonk~-help.pd, NONE, 1.2.6.1 bonk~.c, 1.3, 1.3.6.1
by Hans-Christoph Steiner 20 Apr '07

20 Apr '07

Update of /cvsroot/pure-data/pd/extra/bonk~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2352/bonk~ Modified Files: Tag: branch-v0-39-2-extended bonk~.c Added Files: Tag: branch-v0-39-2-extended bonk~-help.pd Log Message: merged in pd/extra changes from MAIN/HEAD since the help files were missing in 0.39-2 --- NEW FILE: bonk~-help.pd --- #N canvas 193 43 967 599 10; #X obj 370 524 spigot; #X msg 442 397 bang; #X obj 429 488 bonk~; #X msg 442 214 learn 1; #X msg 442 274 learn 0; #X msg 437 456 print; #X obj 390 437 adc~; #X msg 614 538 \; pd dsp 1; #X obj 277 524 spigot; #N canvas 366 126 604 404 synth 0; #X obj 112 24 r bonk-cooked; #X obj 112 49 unpack; #X obj 112 99 * 12; #X obj 112 124 div 7; #X obj 112 74 + 1; #X obj 112 174 mtof; #X obj 112 224 osc~; #X obj 112 249 cos~; #X obj 112 149 + 47; #X obj 209 247 line~; #X obj 209 272 *~; #X obj 209 297 lop~ 500; #X obj 112 274 *~; #X obj 103 361 dac~; #X obj 253 165 dbtorms; #X obj 253 115 * 0.5; #X obj 253 140 + 50; #X obj 211 189 f; #X msg 173 159 bang; #X obj 258 83 inlet; #X obj 111 307 hip~ 5; #X msg 34 24 0 60; #X obj 112 199 sig~; #X msg 209 222 \$1 \, 0 200; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 8 0; #X connect 4 0 2 0; #X connect 5 0 18 0; #X connect 5 0 22 0; #X connect 6 0 7 0; #X connect 7 0 12 0; #X connect 8 0 5 0; #X connect 9 0 10 0; #X connect 9 0 10 1; #X connect 10 0 11 0; #X connect 11 0 12 1; #X connect 12 0 20 0; #X connect 14 0 17 1; #X connect 15 0 16 0; #X connect 16 0 14 0; #X connect 17 0 23 0; #X connect 18 0 17 0; #X connect 19 0 15 0; #X connect 20 0 13 1; #X connect 20 0 13 0; #X connect 21 0 1 0; #X connect 22 0 6 0; #X connect 23 0 9 0; #X restore 846 555 pd synth; #X floatatom 846 532 0 0 0 0 - - -; #X msg 846 502 0; #X msg 442 244 learn 10; #X msg 442 304 forget; #X msg 442 334 write templates.txt; #X msg 442 364 read templates.txt; #X msg 877 502 90; #X msg 442 81 thresh 6 50; #X text 8 56 The Bonk object takes an audio signal input and looks for "attacks" defined as sharp changes in the spectral envelope of the incoming sound. Optionally \, and less reliably \, you can have Bonk check the attack against a collection of stored templates to try to guess which of two or more instruments was hit. Bonk is described theoretically in the 1998 ICMC proceedings \, reprinted on http://man104nfs.ucsd.edu/~mpuckett. ; #X text 602 504 click here; #X text 603 517 to start DSP; #X text 8 377 In this patch \, after starting DSP \, you can print out the raw or cooked output using the two "spigots" or listen to a synthesizer output by raising its volume.; #X text 747 501 output volume; #X text 761 519 (0-100); #X msg 442 150 mask 4 0.7; #X msg 442 184 debounce 0; #X text 8 309 Bonk's analysis is carried out on a 256-point window (6 msec at 44.1 kHz) and by default the analysis period is 128 samples. The analysis period can be specified as Bonk's creation argument but must be a multiple of 64; #X text 532 185 Minimum time (msec) between attacks; #X text 532 140 Describes how energy in each frequency band masks later energy in the band. Here the masking is total for 4 analysis periods and then drops by 0.7 each period.; #X text 530 214 Forget all templates and start learning new ones. The argument gives the number of times you will hit each instrument (10 recommended.) Turn on the output volume above for audible feedback as you train Bonk. "Learn 0" exits learn mode.; #X text 530 298 Forget the last template. In Learn mode \, use "forget" to erase and record over a template.; #X text 595 334 Write templates to a file in text-editable format. ; #X text 596 364 Read templates from a file.; #X text 538 453 Print out all settings and templates.; #X msg 442 120 minvel 10; #X text 538 392 Poll the current spectrum via "raw" outlet \, You can set a very high threshold if you don't want attacks mixed in.; #X msg 437 426 debug 0; #X text 538 426 turn debugging on or off.; #X obj 326 525 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 419 525 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 370 554 print cooked; #X obj 277 554 print raw; #X text 253 490 enable printout:; #X text 533 121 Minimum "velocity" to output (quieter notes are ignored.) ; #X obj 462 513 s bonk-cooked; #X text 218 12 BONK~ - an attack detector for small percussion instruments ; #X text 8 174 Bonk's two outputs are the raw spectrum of the attack (provided as a list of 11 numbers giving the signal "loudness" in the 11 frequency bands used) \, and the "cooked" output which gives only an instrument number (counting up from zero) and a "velocity". This "velocity" is the sum of the square roots of the amplitudes of the bands \, normalized so that 100 is an attack of amplitude of about 1 The instrument number is significant only if Bonk has a "template set" in memory.; #X text 532 52 Set low and high thresholds. Signal growth must exceed the high one and then fall to the low one to make an attack. The unit is the sum of the proportional growth in the 11 filter bands. Proportional growth is essentially the logarithmic time derivative.; #X connect 0 0 40 0; #X connect 1 0 2 0; #X connect 2 0 8 0; #X connect 2 1 0 0; #X connect 2 1 44 0; #X connect 3 0 2 0; #X connect 4 0 2 0; #X connect 5 0 2 0; #X connect 6 0 2 0; #X connect 8 0 41 0; #X connect 10 0 9 0; #X connect 11 0 10 0; #X connect 12 0 2 0; #X connect 13 0 2 0; #X connect 14 0 2 0; #X connect 15 0 2 0; #X connect 16 0 10 0; #X connect 17 0 2 0; #X connect 24 0 2 0; #X connect 25 0 2 0; #X connect 34 0 2 0; #X connect 36 0 2 0; #X connect 38 0 8 1; #X connect 39 0 0 1; Index: bonk~.c =================================================================== RCS file: /cvsroot/pure-data/pd/extra/bonk~/bonk~.c,v retrieving revision 1.3 retrieving revision 1.3.6.1 diff -C2 -d -r1.3 -r1.3.6.1 *** bonk~.c 6 Nov 2004 16:07:22 -0000 1.3 --- bonk~.c 20 Apr 2007 03:33:44 -0000 1.3.6.1 *************** *** 951,956 **** void bonk_tilde_setup(void) { ! bonk_class = class_new(gensym("bonk~"), (t_newmethod)bonk_new, 0, ! sizeof(t_bonk), 0, A_DEFFLOAT, A_DEFFLOAT, 0); class_addmethod(bonk_class, nullfn, gensym("signal"), 0); class_addmethod(bonk_class, (t_method)bonk_dsp, gensym("dsp"), 0); --- 951,956 ---- void bonk_tilde_setup(void) { ! bonk_class = class_new(gensym("bonk~"), (t_newmethod)bonk_new, ! (t_method)bonk_free, sizeof(t_bonk), 0, A_DEFFLOAT, A_DEFFLOAT, 0); class_addmethod(bonk_class, nullfn, gensym("signal"), 0); class_addmethod(bonk_class, (t_method)bonk_dsp, gensym("dsp"), 0);

1 0

pd/extra complex-mod~-help.pd, NONE, 1.1.6.1 hilbert~-help.pd, NONE, 1.1.6.1 rev1~-help.pd, NONE, 1.1.6.1 rev2~-help.pd, NONE, 1.1.6.1 rev3~-help.pd, NONE, 1.1.6.1 hilbert~.pd, 1.2, 1.2.2.1
by Hans-Christoph Steiner 20 Apr '07

20 Apr '07

Update of /cvsroot/pure-data/pd/extra In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2352 Modified Files: Tag: branch-v0-39-2-extended hilbert~.pd Added Files: Tag: branch-v0-39-2-extended complex-mod~-help.pd hilbert~-help.pd rev1~-help.pd rev2~-help.pd rev3~-help.pd Log Message: merged in pd/extra changes from MAIN/HEAD since the help files were missing in 0.39-2 --- NEW FILE: rev2~-help.pd --- #N canvas 167 160 766 354 12; #X floatatom 73 185 0 0 120 0 - - -; #X floatatom 106 323 0 0 120 0 - - -; #N canvas 0 0 539 448 tests 0; #X obj 67 33 inlet; #X obj 309 189 inlet; #X obj 235 207 line~; #X obj 235 230 cos~; #X obj 235 68 loadbang; #X msg 235 91 -0.25; #X obj 235 276 *~; #X obj 186 309 hip~ 5; #X floatatom 308 218 0 0 0 0 - - -; #X obj 308 264 osc~ 440; #X obj 308 241 mtof; #X obj 235 253 *~ 0.1; #X obj 308 299 *~; #X obj 326 325 *~; #X obj 292 330 *~; #X msg 279 150 -0.25 \, 0.25 \$1; #X obj 41 148 biquad~ 0 0 1 -1 0; #X obj 63 70 t b; #X obj 104 72 del 3; #X obj 57 101 1; #X obj 96 101 0; #X obj 41 355 outlet~; #X obj 279 126 inlet; #X obj 40 175 *~; #X connect 0 0 17 0; #X connect 1 0 8 0; #X connect 2 0 3 0; #X connect 3 0 11 0; #X connect 4 0 5 0; #X connect 5 0 2 0; #X connect 6 0 7 0; #X connect 7 0 21 0; #X connect 8 0 10 0; #X connect 9 0 6 1; #X connect 9 0 12 0; #X connect 9 0 12 1; #X connect 9 0 13 0; #X connect 10 0 9 0; #X connect 11 0 6 0; #X connect 12 0 13 1; #X connect 12 0 6 1; #X connect 12 0 14 0; #X connect 12 0 14 1; #X connect 13 0 6 1; #X connect 14 0 6 1; #X connect 15 0 2 0; #X connect 16 0 23 0; #X connect 17 0 18 0; #X connect 17 0 19 0; #X connect 18 0 20 0; #X connect 19 0 16 0; #X connect 19 0 23 1; #X connect 20 0 16 0; #X connect 20 0 23 1; #X connect 22 0 15 0; #X connect 23 0 21 0; #X restore 17 154 pd tests; #X msg 56 35 10; #X msg 54 62 20; #X msg 53 90 100; #X msg 52 115 500; #X obj 17 15 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X text 37 9 impulse; #N canvas 0 0 450 300 output 0; #X obj 54 202 dac~; #X obj 132 119 pack 0 100; #X obj 132 142 line~; #X obj 54 165 *~; #X obj 132 97 dbtorms; #X obj 33 42 inlet~; #X obj 177 42 inlet; #X obj 177 74 clip 0 120; #X msg 257 133 \; pd dsp 1; #X obj 98 42 inlet~; #X obj 94 168 *~; #X connect 1 0 2 0; #X connect 2 0 3 1; #X connect 2 0 10 1; #X connect 3 0 0 0; #X connect 4 0 1 0; #X connect 5 0 3 0; #X connect 6 0 7 0; #X connect 6 0 8 0; #X connect 7 0 4 0; #X connect 9 0 10 0; #X connect 10 0 0 1; #X restore 18 324 pd output; #X floatatom 97 127 0 0 0 0 - - -; #X text 136 96 tone; #X text 135 112 pitch; #X text 114 185 level \, dB; #X floatatom 117 209 0 0 100 0 - - -; #X text 158 209 liveness \, 0-100; #X text 505 330 modified for Pd version 0.37; #X floatatom 161 235 0 0 120 0 - - -; #X floatatom 205 259 0 0 120 0 - - -; #X text 192 235 crossover frequency \, Hz.; #X text 238 260 HF damping \, percent; #X obj 30 290 rev2~ 100 90 3000 20; #X text 141 324 output level \, dB; #X text 281 8 REV2~ - a simple 1-in \, 4-out reverberator; #X text 95 35 tone; #X text 96 52 bursts; #X text 231 37 The creation arguments (level \, liveness \, crossover frequency \, HF damping) may also be supplied in four inlets as shown. The "liveness" (actually the internal feedback percentage) should be 100 for infinite reverb \, 90 for longish \, and 80 for short. The crossover frequency and HF damping work together: at frequencies above crossover \, the feedback is diminished by the "damping" as a percentage. So zero HF damping means equal reverb time at all frequencies \, and 100% damping means almost nothing above the crossover frequency gets through.; #X text 132 130 (60 for; #X text 115 150 middle C); #X connect 0 0 21 1; #X connect 1 0 9 2; #X connect 2 0 9 0; #X connect 2 0 21 0; #X connect 3 0 2 1; #X connect 4 0 2 1; #X connect 5 0 2 1; #X connect 6 0 2 1; #X connect 7 0 2 0; #X connect 10 0 2 2; #X connect 14 0 21 2; #X connect 17 0 21 3; #X connect 18 0 21 4; #X connect 21 0 9 0; #X connect 21 1 9 1; --- NEW FILE: hilbert~-help.pd --- #N canvas 156 234 600 488 12; #X obj 67 124 hilbert~; #X obj 66 85 osc~ 440; #X graph graph1 0 -1 882 1 279 209 579 39; #X array out-left 882 float; #X array out-right 882 float; #X pop; #X obj 67 274 tabwrite~ out-left; #X obj 118 248 tabwrite~ out-right; #X msg 137 188 bang \; pd dsp 1; #X floatatom 66 57; #X text 71 319 The Hilbert transform (the name is abused here according to computer music tradition) puts out a phase quadrature version of the input signal suitable for signal sideband modulation via complex-mod~.; #X connect 0 0 3 0; #X connect 0 1 4 0; #X connect 1 0 0 0; #X connect 5 0 3 0; #X connect 5 0 4 0; #X connect 6 0 1 0; Index: hilbert~.pd =================================================================== RCS file: /cvsroot/pure-data/pd/extra/hilbert~.pd,v retrieving revision 1.2 retrieving revision 1.2.2.1 diff -C2 -d -r1.2 -r1.2.2.1 *** hilbert~.pd 18 May 2005 04:28:32 -0000 1.2 --- hilbert~.pd 20 Apr 2007 03:33:44 -0000 1.2.2.1 *************** *** 1,14 **** #N canvas 269 0 593 306 12; ! #X obj 113 68 biquad~ 0.83774 -0.06338 0.06338 -0.83774 1; ! #X obj 113 42 biquad~ 1.94632 -0.94657 0.94657 -1.94632 1; ! #X obj 94 125 biquad~ -0.02569 0.260502 -0.260502 0.02569 1; ! #X obj 94 151 biquad~ 1.8685 -0.870686 0.870686 -1.8685 1; ! #X obj 94 15 inlet~; ! #X obj 113 97 outlet~; ! #X obj 94 178 outlet~; ! #X text 32 210 This is a pair of 4th-order all-pass filters whose outputs somehow manage to be about 90 degrees out of phase from each other. Both have different phases from the original. Adapted from a 4X patch by Emmanuel Favreau \, circa 1982; #X connect 0 0 5 0; #X connect 1 0 0 0; --- 1,18 ---- #N canvas 269 0 593 306 12; ! #X obj 105 92 biquad~ 0.83774 -0.06338 0.06338 -0.83774 1; ! #X obj 105 66 biquad~ 1.94632 -0.94657 0.94657 -1.94632 1; ! #X obj 86 149 biquad~ -0.02569 0.260502 -0.260502 0.02569 1; ! #X obj 86 175 biquad~ 1.8685 -0.870686 0.870686 -1.8685 1; ! #X obj 86 39 inlet~; ! #X obj 105 121 outlet~; ! #X obj 86 202 outlet~; ! #X text 34 232 This is a pair of 4th-order all-pass filters whose outputs somehow manage to be about 90 degrees out of phase from each other. Both have different phases from the original. Adapted from a 4X patch by Emmanuel Favreau \, circa 1982; + #X obj 502 39 inlet; + #X text 461 13 bang to clear; + #X text 80 16 signal in; + #X msg 502 112 clear; #X connect 0 0 5 0; #X connect 1 0 0 0; *************** *** 17,18 **** --- 21,27 ---- #X connect 4 0 1 0; #X connect 4 0 2 0; + #X connect 8 0 11 0; + #X connect 11 0 1 0; + #X connect 11 0 0 0; + #X connect 11 0 2 0; + #X connect 11 0 3 0; --- NEW FILE: complex-mod~-help.pd --- #N canvas 136 85 600 480 12; #X graph graph1 0 -1 882 1 279 209 579 39; #X array mod-output 882 float; #X pop; #X msg 84 256 bang \; pd dsp 1; #X floatatom 67 56; #X obj 67 186 complex-mod~; #X obj 67 84 phasor~ 440; #X obj 67 115 cos~; #X obj 106 138 cos~; #X obj 106 114 -~ 0.25; #X floatatom 145 152; #X text 93 351 The complex modulator takes two signals in which it considers to be the real and imaginary part of a complex-valued signal. It then does a complex multiplication by a sinusoud to shift all frequencies up or down by any frequency shift in Hz. See also hilbert~.; #X obj 69 298 tabwrite~ mod-output; #X text 149 204 right outlet; #X text 151 220 gives the other; #X text 149 236 sideband; #X connect 1 0 10 0; #X connect 2 0 4 0; #X connect 3 0 10 0; #X connect 4 0 5 0; #X connect 4 0 7 0; #X connect 5 0 3 0; #X connect 6 0 3 1; #X connect 7 0 6 0; #X connect 8 0 3 2; --- NEW FILE: rev3~-help.pd --- #N canvas 70 263 765 380 12; #X floatatom 99 212 0 0 120 0 - - -; #X floatatom 105 340 0 0 120 0 - - -; #N canvas 0 0 539 448 tests 0; #X obj 67 33 inlet; #X obj 309 189 inlet; #X obj 235 207 line~; #X obj 235 230 cos~; #X obj 235 68 loadbang; #X msg 235 91 -0.25; #X obj 235 276 *~; #X obj 186 309 hip~ 5; #X floatatom 308 218 0 0 0 0 - - -; #X obj 308 264 osc~ 440; #X obj 308 241 mtof; #X obj 235 253 *~ 0.1; #X obj 308 299 *~; #X obj 326 325 *~; #X obj 292 330 *~; #X msg 279 150 -0.25 \, 0.25 \$1; #X obj 41 148 biquad~ 0 0 1 -1 0; #X obj 63 70 t b; #X obj 104 72 del 3; #X obj 57 101 1; #X obj 96 101 0; #X obj 41 355 outlet~; #X obj 279 126 inlet; #X obj 51 192 *~; #X connect 0 0 17 0; #X connect 1 0 8 0; #X connect 2 0 3 0; #X connect 3 0 11 0; #X connect 4 0 5 0; #X connect 5 0 2 0; #X connect 6 0 7 0; #X connect 7 0 21 0; #X connect 8 0 10 0; #X connect 9 0 6 1; #X connect 9 0 12 0; #X connect 9 0 12 1; #X connect 9 0 13 0; #X connect 10 0 9 0; #X connect 11 0 6 0; #X connect 12 0 13 1; #X connect 12 0 6 1; #X connect 12 0 14 0; #X connect 12 0 14 1; #X connect 13 0 6 1; #X connect 14 0 6 1; #X connect 15 0 2 0; #X connect 16 0 23 0; #X connect 17 0 18 0; #X connect 17 0 19 0; #X connect 18 0 20 0; #X connect 19 0 16 0; #X connect 19 0 23 1; #X connect 20 0 16 0; #X connect 20 0 23 1; #X connect 22 0 15 0; #X connect 23 0 21 0; #X restore 16 171 pd tests; #X msg 55 52 10; #X msg 53 79 20; #X msg 52 107 100; #X msg 51 132 500; #X obj 16 32 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X text 36 26 impulse; #N canvas 0 0 450 300 output 0; #X obj 54 202 dac~; #X obj 132 119 pack 0 100; #X obj 132 142 line~; #X obj 54 165 *~; #X obj 132 97 dbtorms; #X obj 33 42 inlet~; #X obj 177 42 inlet; #X obj 177 74 clip 0 120; #X msg 257 133 \; pd dsp 1; #X obj 98 42 inlet~; #X obj 94 168 *~; #X connect 1 0 2 0; #X connect 2 0 3 1; #X connect 2 0 10 1; #X connect 3 0 0 0; #X connect 4 0 1 0; #X connect 5 0 3 0; #X connect 6 0 7 0; #X connect 6 0 8 0; #X connect 7 0 4 0; #X connect 9 0 10 0; #X connect 10 0 0 1; #X restore 17 340 pd output; #X floatatom 96 144 0 0 0 0 - - -; #X text 135 113 tone; #X text 134 129 pitch; #X text 140 212 level \, dB; #X floatatom 134 234 0 0 100 0 - - -; #X text 175 234 liveness \, 0-100; #X floatatom 169 258 4 0 5000 0 - - -; #X floatatom 204 281 0 0 100 0 - - -; #X text 217 256 crossover frequency \, Hz.; #X text 240 283 HF damping \, percent; #X text 140 341 output level \, dB; #X text 94 52 tone; #X text 95 69 bursts; #X text 131 147 (60 for; #X text 114 167 middle C); #X obj 29 307 rev3~ 100 90 3000 20; #X text 263 4 REV3~ - hard-core \, 2-in \, 4-out reverberator; #X text 236 56 The creation arguments (level \, liveness \, crossover frequency \, HF damping) may also be supplied in four inlets as shown. The "liveness" (actually the internal feedback percentage) should be 100 for infinite reverb \, 90 for longish \, and 80 for short. The crossover frequency and HF damping work together: at frequencies above crossover \, the feedback is diminished by the "damping" as a percentage. So zero HF damping means equal reverb time at all frequencies \, and 100% damping means almost nothing above the crossover frequency gets through.; #X text 236 29 (A more expensive \, presumably better \, one than rev2~.) ; #X text 470 352 modified for Pd version 0.37-1; #X connect 0 0 25 2; #X connect 1 0 9 2; #X connect 2 0 9 0; #X connect 2 0 25 0; #X connect 3 0 2 1; #X connect 4 0 2 1; #X connect 5 0 2 1; #X connect 6 0 2 1; #X connect 7 0 2 0; #X connect 10 0 2 2; #X connect 14 0 25 3; #X connect 16 0 25 4; #X connect 17 0 25 5; #X connect 25 0 9 0; #X connect 25 1 9 1; --- NEW FILE: rev1~-help.pd --- #N canvas 55 21 1008 526 12; #X obj 148 439 dac~; #X obj 58 72 line~; #X msg 58 49 0 \, 10000 5; #X obj 58 118 cos~; #X msg 146 70 1; #X obj 146 47 loadbang; #X obj 58 95 clip~ 0 0.25; #X floatatom 173 264 0 0 0; #X obj 251 134 line~; #X obj 251 157 cos~; #X msg 324 54 -0.25 \, 0.25 100; #X obj 251 8 loadbang; #X msg 251 31 -0.25; #X obj 251 203 *~; #X obj 58 140 hip~ 5; #X floatatom 162 328 0 0 0; #X obj 162 373 pack 0 100; #X obj 162 396 line~; #X obj 148 416 *~; #X obj 162 350 dbtorms; #X msg 324 77 -0.25 \, 0.25 400; #X floatatom 324 145 0 0 0; #X obj 324 191 osc~ 440; #X obj 324 168 mtof; #X msg 324 31 -0.25 \, 0.25 20; #X obj 251 180 *~ 0.1; #X msg 324 100 -0.25 \, 0.25 1000; #X msg 324 122 -0.25 \, 0.25 2000; #X obj 324 226 *~; #X obj 342 252 *~; #X obj 58 439 dac~; #X floatatom 68 323 0 0 0; #X obj 68 368 pack 0 100; #X obj 68 391 line~; #X obj 58 416 *~; #X obj 68 346 dbtorms; #X msg 324 8 0; #X obj 308 257 *~; #X obj 58 26 metro 2000; #X floatatom 58 4 0 0 0; #X msg 220 265 bang; #X obj 284 322 env~ 32768; #X floatatom 284 344 0 0 0; #X text 166 244 1 sec; #X text 143 226 dB after; #X text 220 245 clear; #X text 1 51 impulse; #X text 362 7 tone; #X text 484 31 beeps; #X text 428 167 This is an experimental reverberator design composed of a series of allpass filters with exponentially growing delay times. Each allpass filter has a gain of 0.7. The reverb time is adjusted by adjusting the input gains of the allpass filters. The last unit is modified so that its first two "echos" mimic those of an allpass but its loop gain depends on reverb time.; #X text 430 299 Reverb time is controlled by specifying the dB gain (100 normal) after one second \, so that 100 corresponds to infinite reverb time \, 70 to two seconds \, 40 to one second \, and 0 to 0 ; #X text 671 499 modified for Pd version 0.30.; #X msg 560 34 \; pd dsp 1; #X text 427 475 The rev1~ module eats about 18% of my 300mHz P2 machine. ; #X obj 148 289 rev1~; #X text 428 381 The "clear" button impolitely clears out all the delay lines \, You may immediately resume pumping the reverberator \, but the input signal should be cleanly enveloped. The output \, too \, must be enveloped and may not be opened until 5 msec after the "clear" message is sent.; #X connect 1 0 6 0; #X connect 2 0 1 0; #X connect 3 0 14 0; #X connect 4 0 1 0; #X connect 5 0 4 0; #X connect 6 0 3 0; #X connect 7 0 54 1; #X connect 8 0 9 0; #X connect 9 0 25 0; #X connect 10 0 8 0; #X connect 11 0 12 0; #X connect 12 0 8 0; #X connect 13 0 14 0; #X connect 14 0 34 0; #X connect 14 0 54 0; #X connect 15 0 19 0; #X connect 16 0 17 0; #X connect 17 0 18 1; #X connect 18 0 0 0; #X connect 19 0 16 0; #X connect 20 0 8 0; #X connect 21 0 23 0; #X connect 22 0 13 1; #X connect 22 0 28 0; #X connect 22 0 28 1; #X connect 22 0 29 0; #X connect 23 0 22 0; #X connect 24 0 8 0; #X connect 25 0 13 0; #X connect 26 0 8 0; #X connect 27 0 8 0; #X connect 28 0 29 1; #X connect 28 0 13 1; #X connect 28 0 37 0; #X connect 28 0 37 1; #X connect 29 0 13 1; #X connect 31 0 35 0; #X connect 32 0 33 0; #X connect 33 0 34 1; #X connect 34 0 30 0; #X connect 35 0 32 0; #X connect 36 0 8 0; #X connect 37 0 13 1; #X connect 38 0 2 0; #X connect 39 0 38 0; #X connect 40 0 54 2; #X connect 41 0 42 0; #X connect 54 0 18 0; #X connect 54 0 41 0;

1 0

pd/extra/lrshift~ rlshift~-help.pd,NONE,1.1.6.1
by Hans-Christoph Steiner 20 Apr '07

20 Apr '07

Update of /cvsroot/pure-data/pd/extra/lrshift~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2352/lrshift~ Added Files: Tag: branch-v0-39-2-extended rlshift~-help.pd Log Message: merged in pd/extra changes from MAIN/HEAD since the help files were missing in 0.39-2 --- NEW FILE: rlshift~-help.pd --- #N canvas 143 0 673 325 12; #X msg 268 277 bang; #X obj 244 303 print~; #X msg 185 278 bang; #X obj 161 304 print~; #X text 53 117 click here first; #X msg 72 270 bang; #X obj 48 296 print~; #X text 162 222 shift left; #X text 243 224 shift right; #X obj 161 252 lrshift~ 1; #X obj 244 251 lrshift~ -1; #X text 39 37 Acting at whatever vector size the window is running at \, lrshift~ shifts samples to the left (toward the beginning sample) or to the right. The argument gives the direction and the amount of the shift. The rightmost (or leftmost) samples are set to zero.; #X graph graph2 0 0 63 1 448 258 648 118; #X array shiftin 64 float; #X pop; #X obj 47 11 rlshift~; #X text 115 11 -- shift signal vector elements left or right; #X msg 54 138 \; pd dsp 1 \; shiftin 1 1; #X obj 48 204 tabreceive~ shiftin; #X text 525 308 Updated for Pd 0.31.; #X connect 0 0 1 0; #X connect 2 0 3 0; #X connect 5 0 6 0; #X connect 9 0 3 0; #X connect 10 0 1 0; #X connect 16 0 6 0; #X connect 16 0 9 0; #X connect 16 0 10 0;

1 0

scripts/auto-build run-automated-builder,1.16,1.17
by Hans-Christoph Steiner 20 Apr '07

20 Apr '07

Update of /cvsroot/pure-data/scripts/auto-build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25258/auto-build Modified Files: run-automated-builder Log Message: made script run what's available on the machine instead of having it hard coded Index: run-automated-builder =================================================================== RCS file: /cvsroot/pure-data/scripts/auto-build/run-automated-builder,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** run-automated-builder 11 Dec 2006 06:37:16 -0000 1.16 --- run-automated-builder 20 Apr 2007 03:08:44 -0000 1.17 *************** *** 35,42 **** } ! run_build_script pd-main ! run_build_script pd-extended ! run_build_script pd-extended-release ! #run_build_script pd-devel ! ! --- 35,42 ---- } ! for dir in /home/pd/auto-build/*; do ! echo $dir ! dirname=`echo $dir | sed 's|.*/$.*$|\1|'` ! test -e $dir/scripts/auto-build/${dirname}-auto-builder.sh && \ ! run_build_script $dirname ! done

1 0

abstractions/ptz-camera elmo.pd,1.2,1.3
by B. Bogart 19 Apr '07

19 Apr '07

Update of /cvsroot/pure-data/abstractions/ptz-camera In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv404 Modified Files: elmo.pd Log Message: Removed elmo.pd dependancy on prepend. Index: elmo.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/ptz-camera/elmo.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** elmo.pd 14 Mar 2007 20:39:28 -0000 1.2 --- elmo.pd 19 Apr 2007 20:22:09 -0000 1.3 *************** *** 1,3 **** ! #N canvas 270 29 872 819 10; #X msg 169 454 bits 8 \, stopbit 0 \, parity 0 \, xonxoff 0 \, rtscts 0; --- 1,3 ---- ! #N canvas 73 190 1122 834 10; #X msg 169 454 bits 8 \, stopbit 0 \, parity 0 \, xonxoff 0 \, rtscts 0; *************** *** 197,201 **** #X connect 41 0 1 1; #X restore 429 239 pd class 10 two sets of 8 arguments (pan/tilt); ! #X obj 460 279 inlet; #X obj 30 43 inlet; #X text 57 162 on; --- 197,201 ---- #X connect 41 0 1 1; #X restore 429 239 pd class 10 two sets of 8 arguments (pan/tilt); ! #X obj 573 298 inlet; #X obj 30 43 inlet; #X text 57 162 on; *************** *** 212,240 **** #X obj 153 598 route 65 81 97; #X text 394 575 For each Camera; ! #X obj 128 771 outlet; ! #X obj 128 751 prepend CAM1; ! #X text 506 280 Raw Commands; #X obj 382 718 outlet; #X text 437 718 RAW output; ! #X text 511 177 absolute pan-tilt; #X obj 577 336 inlet; #X text 623 337 commport Commands; #X msg 143 654 ACK; ! #X msg 152 694 COMPLETE; ! #X msg 215 716 ERROR; #X text 16 7 Control Elmo PTC-100S Pan/Tilt/Zoom Camera; - #X obj 27 81 route on off zoom pantilt home; #X msg 208 137 71 0; ! #X obj 306 85 t b b; ! #X text 397 106 Arbitrary!; #X obj 465 783 outlet; #X obj 465 760 bang; #X obj 217 751 print CAM1; ! #X msg 404 176 2 \$1 \$2; ! #X msg 437 133 2 8714 1722; ! #X msg 466 156 2 2000 2000; ! #X obj 330 107 delay 100; #X obj 155 321 drip; ! #X obj 99 379 print debug; #X floatatom 308 209 5 0 0 0 - - -; #X msg 318 327 129 9 4 71 255; --- 212,235 ---- #X obj 153 598 route 65 81 97; #X text 394 575 For each Camera; ! #X obj 139 800 outlet; ! #X text 619 299 Raw Commands; #X obj 382 718 outlet; #X text 437 718 RAW output; ! #X text 533 133 absolute pan-tilt; #X obj 577 336 inlet; #X text 623 337 commport Commands; #X msg 143 654 ACK; ! #X msg 147 697 COMPLETE; #X text 16 7 Control Elmo PTC-100S Pan/Tilt/Zoom Camera; #X msg 208 137 71 0; ! #X text 469 74 Arbitrary!; #X obj 465 783 outlet; #X obj 465 760 bang; #X obj 217 751 print CAM1; ! #X msg 368 158 2 \$1 \$2; ! #X msg 427 119 2 8714 1722; ! #X obj 399 72 delay 100; #X obj 155 321 drip; ! #X obj 51 593 print debug; #X floatatom 308 209 5 0 0 0 - - -; #X msg 318 327 129 9 4 71 255; *************** *** 244,298 **** #X obj 215 667 bang; #X msg 245 361 136 48 1 255; - #X obj 153 481 comport \$1 9600; #X text 348 361 Address reset; #X floatatom 260 149 5 0 0 0 - - -; ! #X connect 0 0 52 0; #X connect 1 0 0 0; ! #X connect 2 0 43 0; ! #X connect 3 0 43 0; ! #X connect 4 0 43 0; ! #X connect 5 0 43 0; ! #X connect 6 0 32 0; #X connect 9 0 2 0; #X connect 10 0 2 0; #X connect 11 0 3 0; #X connect 14 0 17 0; ! #X connect 14 0 23 0; #X connect 15 0 16 0; #X connect 15 1 14 0; #X connect 16 0 14 0; #X connect 17 0 18 0; ! #X connect 18 0 48 0; ! #X connect 18 1 49 0; ! #X connect 18 2 50 0; ! #X connect 21 0 20 0; ! #X connect 26 0 52 0; ! #X connect 28 0 21 0; ! #X connect 29 0 21 0; ! #X connect 29 0 37 0; ! #X connect 30 0 21 0; ! #X connect 30 0 38 0; ! #X connect 32 0 10 0; ! #X connect 32 1 9 0; ! #X connect 32 2 11 0; ! #X connect 32 3 39 0; ! #X connect 32 4 34 0; ! #X connect 33 0 3 0; ! #X connect 34 0 42 0; ! #X connect 34 1 33 0; #X connect 37 0 36 0; ! #X connect 39 0 4 0; ! #X connect 40 0 4 0; ! #X connect 41 0 4 0; ! #X connect 42 0 40 0; ! #X connect 43 0 52 0; ! #X connect 45 0 2 1; ! #X connect 45 0 3 1; ! #X connect 45 0 4 1; ! #X connect 46 0 43 0; ! #X connect 48 0 28 0; ! #X connect 49 0 29 0; ! #X connect 50 0 30 0; ! #X connect 51 0 43 0; ! #X connect 52 0 15 0; #X connect 54 0 11 0; --- 239,524 ---- #X obj 215 667 bang; #X msg 245 361 136 48 1 255; #X text 348 361 Address reset; #X floatatom 260 149 5 0 0 0 - - -; ! #X obj 27 81 route on off zoom pantilt home relpantilt; ! #N canvas 100 70 934 824 class 0; ! #X text 178 211 Camera Address 129 to 135 (DEC); ! #X obj 131 212 f 129; ! #X obj 182 246 f 1; ! #X text 215 245 Command Header; ! #X text 252 305 Command ID; ! #X text 552 706 Footer; ! #X obj 507 704 f 255; ! #X text 232 275 Command Class; ! #X obj 431 20 inlet; ! #X obj 431 66 t b a; ! #X obj 69 786 outlet; ! #X obj 415 409 f 0; ! #X obj 437 439 f 0; ! #X obj 435 303 pyx ptz-camera int2bytes; ! #X obj 202 276 f 6; ! #X obj 452 470 f 0; ! #X obj 474 500 f 0; ! #X text 445 408 pan: Argument 3; ! #X text 467 438 pan: Argument 4; ! #X text 482 469 pan: Argument 5; ! #X text 504 499 pan: Argument 6; ! #X obj 616 526 f 0; ! #X obj 638 556 f 0; ! #X obj 648 587 f 0; ! #X obj 675 617 f 0; ! #X text 645 525 tilt: Argument 7; ! #X text 668 555 tilt: Argument 8; ! #X text 683 586 tilt: Argument 9; ! #X text 705 616 tilt: Argument 10; ! #X obj 69 761 pack f f f f f f f f f f f f f f f; ! #X obj 621 448 pyx ptz-camera int2bytes; ! #X obj 771 469 t b f; ! #X obj 535 329 t b f; ! #X obj 136 128 t b b b b b b b; ! #X text 282 338 Pan speed (NONFUNCTIONAL); ! #X text 293 367 tilt speed (NONFUNCTIONAL); ! #X obj 640 85 inlet; ! #X obj 222 306 f 3; ! #X obj 461 94 unpack f f f f f; ! #X obj 244 338 f 1; ! #X obj 261 367 f 1; ! #X msg 431 44 \$1 \$2 \$3 \$4 \$5; ! #X connect 1 0 29 0; ! #X connect 2 0 29 1; ! #X connect 6 0 29 14; ! #X connect 8 0 41 0; ! #X connect 9 0 33 0; ! #X connect 9 1 38 0; ! #X connect 11 0 29 6; ! #X connect 12 0 29 7; ! #X connect 13 0 11 1; ! #X connect 13 1 12 1; ! #X connect 13 2 15 1; ! #X connect 13 3 32 0; ! #X connect 14 0 29 2; ! #X connect 15 0 29 8; ! #X connect 16 0 29 9; ! #X connect 21 0 29 10; ! #X connect 22 0 29 11; ! #X connect 23 0 29 12; ! #X connect 24 0 29 13; ! #X connect 29 0 10 0; ! #X connect 30 0 21 1; ! #X connect 30 1 22 1; ! #X connect 30 2 23 1; ! #X connect 30 3 31 0; ! #X connect 31 0 23 0; ! #X connect 31 0 22 0; ! #X connect 31 0 21 0; ! #X connect 31 1 24 0; ! #X connect 32 0 15 0; ! #X connect 32 0 12 0; ! #X connect 32 0 11 0; ! #X connect 32 1 16 0; ! #X connect 33 0 1 0; ! #X connect 33 1 2 0; ! #X connect 33 2 14 0; ! #X connect 33 3 37 0; ! #X connect 33 4 39 0; ! #X connect 33 5 40 0; ! #X connect 33 6 6 0; ! #X connect 36 0 1 1; ! #X connect 37 0 29 3; ! #X connect 38 0 37 1; ! #X connect 38 1 39 1; ! #X connect 38 2 40 1; ! #X connect 38 3 13 1; ! #X connect 38 4 30 1; ! #X connect 39 0 29 4; ! #X connect 40 0 29 5; ! #X connect 41 0 9 0; ! #X restore 763 239 pd class 10 two sets of 8 arguments (pan/tilt); ! #X text 782 215 relative pan-tilt; ! #X obj 369 27 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X obj 153 481 comport \$1 9600; ! #X msg 178 175 241; ! #X msg 442 145 2 0 0; ! #X msg 455 169 2 17424 6912; ! #X msg 851 36 3 18 18 17424 0; ! #X msg 968 36 3 18 18 8712 0; ! #X msg 806 112 3 18 18 100 100; ! #X msg 726 35 3 18 18 -17424 0; ! #X msg 936 174 3 18 18 17424 6912; ! #X msg 929 128 3 18 18 -17424 -6912; ! #X text 971 106 right bottom; ! #X text 978 153 left top; ! #X msg 731 62 3 18 18 0 -6912; ! #X msg 856 63 3 18 18 0 6912; ! #X msg 973 63 3 18 18 0 3456; ! #X text 1081 37 pan; ! #X text 1085 66 tilt; ! #X text 751 10 Right; ! #X text 787 83 bottom; ! #X text 892 16 Left; ! #X text 900 82 top; ! #X text 1000 12 half; ! #X text 1013 85 half; ! #N canvas 577 200 482 598 where_is_elmo? 0; ! #X obj 26 31 inlet; ! #X obj 26 71 unpack f f f f f; ! #X obj 172 284 outlet; ! #X obj 331 287 outlet; ! #X obj 248 76 f 8714; ! #X obj 316 76 f 1722; ! #X obj 267 10 inlet; ! #X obj 318 191 f; ! #X obj 122 192 f; ! #X obj 308 10 loadbang; ! #X obj 154 256 + 0; ! #X obj 324 260 + 0; ! #X obj 274 37 t b b b; ! #X msg 401 158 0; ! #X obj 27 539 pack f f f f f; ! #X obj 27 564 outlet; ! #X obj 110 396 clip -8710 8710; ! #X text 227 397 pan; ! #X text 431 407 tilt; ! #X obj 292 400 clip -1722 5190; ! #X obj 160 333 expr -(17424-$f1); ! #X obj 160 308 t f f; ! #X obj 50 479 clip 1 18; ! #X obj 73 508 clip 1 18; ! #X obj 209 366 expr 17424-$f1; ! #X obj 324 314 t f f; ! #X obj 320 341 * -1; ! #X obj 359 369 expr 6912-$f1; ! #X floatatom 327 453 5 0 0 0 - - -; ! #X obj 110 120 t b f f; ! #X obj 298 124 t b f f; ! #X connect 0 0 1 0; ! #X connect 1 0 14 0; ! #X connect 1 1 22 0; ! #X connect 1 2 23 0; ! #X connect 1 3 29 0; ! #X connect 1 4 30 0; ! #X connect 4 0 8 0; ! #X connect 5 0 7 0; ! #X connect 6 0 12 0; ! #X connect 7 0 11 0; ! #X connect 8 0 10 0; ! #X connect 9 0 12 0; ! #X connect 10 0 8 1; ! #X connect 10 0 2 0; ! #X connect 10 0 21 0; ! #X connect 11 0 7 1; ! #X connect 11 0 3 0; ! #X connect 11 0 25 0; ! #X connect 12 0 4 0; ! #X connect 12 1 5 0; ! #X connect 12 2 13 0; ! #X connect 13 0 11 1; ! #X connect 13 0 10 1; ! #X connect 14 0 15 0; ! #X connect 16 0 14 3; ! #X connect 16 0 10 1; ! #X connect 19 0 14 4; ! #X connect 19 0 11 1; ! #X connect 20 0 16 1; ! #X connect 21 0 20 0; ! #X connect 21 1 24 0; ! #X connect 22 0 14 1; ! #X connect 23 0 14 2; ! #X connect 24 0 16 2; ! #X connect 25 0 26 0; ! #X connect 25 1 27 0; ! #X connect 26 0 19 1; ! #X connect 27 0 19 2; ! #X connect 29 0 8 0; ! #X connect 29 2 16 0; ! #X connect 30 0 7 0; ! #X connect 30 2 19 0; ! #X restore 676 152 pd where_is_elmo?; ! #X text 449 408 Pos Query; ! #X msg 340 409 129 9 6 18 255; ! #X floatatom 702 185 10 0 0 0 - - -; ! #X floatatom 795 183 10 0 0 0 - - -; ! #X msg 808 152 bang; ! #X msg 480 196 2 8714 0; ! #X obj 375 50 t b b b; ! #X msg 676 128 3 \$1 \$2 \$3 \$4; ! #X text 539 380 Auto Focus; ! #X msg 418 381 129 1 4 56 2 255; ! #X msg 138 775 CAM1 \$1; ! #X msg 215 716 ERROR; ! #X obj 138 753 symbol; ! #X connect 0 0 53 0; #X connect 1 0 0 0; ! #X connect 2 0 38 0; ! #X connect 3 0 38 0; ! #X connect 4 0 38 0; ! #X connect 5 0 38 0; ! #X connect 6 0 49 0; #X connect 9 0 2 0; #X connect 10 0 2 0; #X connect 11 0 3 0; #X connect 14 0 17 0; ! #X connect 14 0 22 0; #X connect 15 0 16 0; #X connect 15 1 14 0; #X connect 16 0 14 0; #X connect 17 0 18 0; ! #X connect 18 0 43 0; ! #X connect 18 1 44 0; ! #X connect 18 2 45 0; ! #X connect 25 0 53 0; ! #X connect 27 0 89 0; ! #X connect 28 0 33 0; ! #X connect 28 0 89 0; ! #X connect 30 0 3 0; ! #X connect 33 0 32 0; ! #X connect 35 0 4 0; ! #X connect 36 0 4 0; #X connect 37 0 36 0; ! #X connect 38 0 53 0; ! #X connect 40 0 2 1; ! #X connect 40 0 3 1; ! #X connect 40 0 4 1; ! #X connect 41 0 38 0; ! #X connect 43 0 27 0; ! #X connect 44 0 28 0; ! #X connect 45 0 88 0; ! #X connect 46 0 38 0; ! #X connect 48 0 11 0; ! #X connect 49 0 10 0; ! #X connect 49 1 9 0; ! #X connect 49 2 11 0; ! #X connect 49 3 35 0; ! #X connect 49 4 83 0; ! #X connect 49 5 84 0; ! #X connect 50 0 38 0; ! #X connect 52 0 83 0; ! #X connect 53 0 15 0; #X connect 54 0 11 0; + #X connect 55 0 4 0; + #X connect 56 0 4 0; + #X connect 57 0 50 0; + #X connect 58 0 50 0; + #X connect 59 0 50 0; + #X connect 60 0 50 0; + #X connect 61 0 50 0; + #X connect 62 0 50 0; + #X connect 65 0 50 0; + #X connect 66 0 50 0; + #X connect 67 0 50 0; + #X connect 76 0 50 0; + #X connect 76 1 79 0; + #X connect 76 2 80 0; + #X connect 78 0 38 0; + #X connect 81 0 76 1; + #X connect 82 0 4 0; + #X connect 83 0 37 0; + #X connect 83 1 30 0; + #X connect 83 2 76 1; + #X connect 84 0 76 0; + #X connect 86 0 38 0; + #X connect 87 0 20 0; + #X connect 88 0 34 0; + #X connect 88 0 89 0; + #X connect 89 0 87 0;

1 0

externals/loaders/hexloader Makefile, 1.1, 1.2 hexloader.c, 1.1, 1.2
by IOhannes m zmölnig 19 Apr '07

19 Apr '07

Update of /cvsroot/pure-data/externals/loaders/hexloader In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10541 Modified Files: Makefile hexloader.c Log Message: ... Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/loaders/hexloader/Makefile,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Makefile 19 Apr 2007 13:31:19 -0000 1.1 --- Makefile 19 Apr 2007 13:40:34 -0000 1.2 *************** *** 14,17 **** --- 14,20 ---- EXTENSION=$(MAKECMDGOALS) + + DEFINES=-DPD + # if no filename-extension is supplied by the user # try to guess one, based on what "uname" tells us *************** *** 19,28 **** ifeq ($(UNAME),Linux) DEFAULTEXTENSION= pd_linux else ifeq ($(UNAME),Darwin) DEFAULTEXTENSION= pd_darwin else ifeq (MINGW,$(findstring MINGW,$(UNAME))) ! DEFAULTEXTENSION= pd_nt else ifeq ($(UNAME),IRIX) --- 22,33 ---- ifeq ($(UNAME),Linux) DEFAULTEXTENSION= pd_linux + DEFINES+=-DDL_OPEN else ifeq ($(UNAME),Darwin) DEFAULTEXTENSION= pd_darwin + DEFINES+=-DDL_OPEN else ifeq (MINGW,$(findstring MINGW,$(UNAME))) ! DEFAULTEXTENSION=pd_nt else ifeq ($(UNAME),IRIX) *************** *** 30,35 **** --- 35,42 ---- ifeq (6.,$(findstring 6.,$(UNAMEV))) DEFAULTEXTENSION= pd_irix6 + DEFINES+=-DDL_OPEN else DEFAULTEXTENSION= pd_irix5 + DEFINES+=-DDL_OPEN endif else *************** *** 62,66 **** pd_linux: $(TARGETS) ! LINUXCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer -fPIC \ -Wall -W -Wshadow -Wstrict-prototypes -Werror \ -Wno-unused -Wno-parentheses -Wno-switch --- 69,73 ---- pd_linux: $(TARGETS) ! LINUXCFLAGS = $(DEFINES) -O2 -funroll-loops -fomit-frame-pointer -fPIC \ -Wall -W -Wshadow -Wstrict-prototypes -Werror \ -Wno-unused -Wno-parentheses -Wno-switch *************** *** 80,84 **** pd_darwin: $(TARGETS) ! DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \ -Wno-unused -Wno-parentheses -Wno-switch --- 87,91 ---- pd_darwin: $(TARGETS) ! DARWINCFLAGS = $(DEFINES) -O2 -Wall -W -Wshadow -Wstrict-prototypes \ -Wno-unused -Wno-parentheses -Wno-switch *************** *** 94,98 **** pd_irix5: $(TARGETS) ! SGICFLAGS5 = -o32 -DPD -DSGI -O2 SGIINCLUDE = -I$(PDSRCDIR) --- 101,105 ---- pd_irix5: $(TARGETS) ! SGICFLAGS5 = -o32 $(DEFINES) -DSGI -O2 SGIINCLUDE = -I$(PDSRCDIR) *************** *** 109,113 **** pd_irix6: $(TARGETS) ! SGICFLAGS6 = -DPD -DSGI -n32 \ -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ -Ofast=ip32 --- 116,120 ---- pd_irix6: $(TARGETS) ! SGICFLAGS6 = $(DEFINES) -DSGI -n32 \ -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ -Ofast=ip32 *************** *** 142,146 **** pd_nt: $(TARGETS) ! MINGWCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer \ -Wall -W -Wshadow -Wstrict-prototypes -Werror \ -Wno-unused -Wno-parentheses -Wno-switch -mms-bitfields --- 149,153 ---- pd_nt: $(TARGETS) ! MINGWCFLAGS = $(DEFINES) -O2 -funroll-loops -fomit-frame-pointer \ -Wall -W -Wshadow -Wstrict-prototypes -Werror \ -Wno-unused -Wno-parentheses -Wno-switch -mms-bitfields Index: hexloader.c =================================================================== RCS file: /cvsroot/pure-data/externals/loaders/hexloader/hexloader.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** hexloader.c 19 Apr 2007 13:31:19 -0000 1.1 --- hexloader.c 19 Apr 2007 13:40:34 -0000 1.2 *************** *** 1,8 **** #ifdef __WIN32__ # define MSW #endif - #define DL_OPEN - #include "m_pd.h" #include "s_stuff.h" --- 1,20 ---- + /* Copyright (c) 2007 IOhannes m zmölnig @ IEM + * For information on usage and redistribution, and for a DISCLAIMER OF ALL + * WARRANTIES, see the file, "LICENSE.txt," that comes with Pd. + */ + + /* + * this code adds an external "loader" to Miller S. Puckette's "pure data", + * which allows the loading of libraries/externals with special characters + * in the classname + * + * the infrastructure of this file is based on hcsteiner's "libdir" loader + */ + + #ifdef __WIN32__ # define MSW #endif #include "m_pd.h" #include "s_stuff.h"

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
27
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 April 2007