[PD-cvs] externals/iemlib/examples 1_simple_parameter_management.pd, 1.3, 1.4 2_GUI_DSP_parameter_management.pd, 1.3, 1.4 test_pbank.txt, 1.3, 1.4
by IOhannes m zmölnig 02 Jun '05
by IOhannes m zmölnig 02 Jun '05
02 Jun '05
Update of /cvsroot/pure-data/externals/iemlib/examples
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31768
Modified Files:
1_simple_parameter_management.pd
2_GUI_DSP_parameter_management.pd test_pbank.txt
Log Message:
updated for release 1.16
Index: test_pbank.txt
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/examples/test_pbank.txt,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** test_pbank.txt 1 Apr 2005 17:44:13 -0000 1.3
--- test_pbank.txt 2 Jun 2005 18:27:59 -0000 1.4
***************
*** 1,10 ****
! -8.095 1975.53 6.01904 lp
! -8.095 1975.53 6.01904 hp
! -8.095 1975.53 6.01904 bp
! -4.39667 554.365 10 lp
! -4.39667 554.365 10 hp
! -4.39667 554.365 10 bp
! -8.095 2093 6.71076 lp
! -8.095 2093 6.71076 hp
! -8.095 2093 6.71076 bp
! -1.86501 1567.98 0.166139 bp
--- 1,10 ----
! -8.095 1975.53 6.01904 lp
! -8.095 1975.53 6.01904 hp
! -8.095 1975.53 6.01904 bp
! -4.39667 554.365 10 lp
! -4.39667 554.365 10 hp
! -4.39667 554.365 10 bp
! -8.095 2093 6.71076 lp
! -8.095 2093 6.71076 hp
! -8.095 2093 6.71076 bp
! -1.86501 1567.98 0.166139 bp
Index: 1_simple_parameter_management.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/examples/1_simple_parameter_management.pd,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 1_simple_parameter_management.pd 1 Apr 2005 17:44:13 -0000 1.3
--- 1_simple_parameter_management.pd 2 Jun 2005 18:27:59 -0000 1.4
***************
*** 1,278 ****
! #N canvas 29 11 869 564 10;
! #X text 57 59 IEM KUG;
! #X text 31 70 graz \, austria 2003;
! #X obj 717 437 dsp;
! #X obj 383 501 dac~;
! #X floatatom 443 429 5 0 0 0 - - -;
! #X floatatom 509 431 5 0 0 0 - - -;
! #X floatatom 566 444 5 0 0 0 - - -;
! #X symbolatom 617 470 3 0 0 0 - - -;
! #N canvas 0 0 745 495 multi_filter~ 0;
! #X obj 116 45 inlet~;
! #X obj 114 403 outlet~;
! #X obj 115 174 lp2~ 440 2 100;
! #X obj 212 174 hp2~ 440 2 100;
! #X obj 308 174 rbpq2~ 440 2 100;
! #X obj 115 272 mull~ 1 100;
! #X obj 486 226 route 0 1 2;
! #X obj 115 303 +~;
! #X obj 115 327 +~;
! #X obj 332 48 inlet;
! #X obj 422 46 inlet;
! #X text 114 23 sig_in;
! #X text 432 27 Q;
! #X obj 486 45 inlet;
! #X obj 486 206 hdl 15 1 0 3 empty empty empty 0 -6 0 8 -262144 -1 -1
! 0;
! #X text 334 27 freq_Hz;
! #X obj 230 45 inlet;
! #X text 232 26 gain_db;
! #X obj 230 95 dbtorms;
! #X obj 115 375 mull~ 0.1 100;
! #X msg 486 138 0;
! #X msg 512 138 1;
! #X msg 538 138 2;
! #X text 487 29 mode;
! #X obj 486 178 t f;
! #X obj 486 117 route lp hp bp;
! #X obj 307 270 mull~ 0 100;
! #X obj 213 271 mull~ 0 100;
! #X obj 230 68 + 100;
! #X obj 486 96 unsymbol;
! #X connect 0 0 2 0;
! #X connect 0 0 3 0;
! #X connect 0 0 4 0;
! #X connect 2 0 5 0;
! #X connect 3 0 27 0;
! #X connect 4 0 26 0;
! #X connect 5 0 7 0;
! #X connect 6 0 5 1;
! #X connect 6 1 27 1;
! #X connect 6 2 26 1;
! #X connect 7 0 8 0;
! #X connect 8 0 19 0;
! #X connect 9 0 2 1;
! #X connect 9 0 3 1;
! #X connect 9 0 4 1;
! #X connect 10 0 2 2;
! #X connect 10 0 3 2;
! #X connect 10 0 4 2;
! #X connect 13 0 29 0;
! #X connect 14 0 6 0;
! #X connect 16 0 28 0;
! #X connect 18 0 19 1;
! #X connect 19 0 1 0;
! #X connect 20 0 24 0;
! #X connect 21 0 24 0;
! #X connect 22 0 24 0;
! #X connect 24 0 14 0;
! #X connect 25 0 20 0;
! #X connect 25 1 21 0;
! #X connect 25 2 22 0;
! #X connect 26 0 8 1;
! #X connect 27 0 7 1;
! #X connect 28 0 18 0;
! #X connect 29 0 25 0;
! #X restore 383 468 pd multi_filter~;
! #N canvas 52 43 624 184 GUI 0;
! #X obj 69 23 vsl 15 128 0 127 0 0 empty empty gain 0 -8 0 8 -44926
! -1 -1 0 1;
! #X obj 70 159 nbx 4 12 -1e+037 1e+037 0 0 empty empty dB 48 7 0 10
! -225280 -1 -1 0 256;
! #X obj 196 23 vsl 15 128 9 136 0 0 midi_freq_dsp midi_freq_gui freq
! 0 -8 192 8 -250685 -1 -1 0 1;
! #X obj 197 160 nbx 5 12 -1e+037 1e+037 0 0 empty empty Hz 58 7 0 10
! -257472 -1 -1 0 256;
! #X obj 293 160 nbx 4 12 -1e+037 1e+037 0 0 empty empty empty 48 7 0
! 10 -262131 -1 -1 0 256;
! #X obj 293 24 vsl 15 128 0.1 10 1 0 empty empty Q 0 -8 0 8 -260818
! -1 -1 0 1;
! #X obj 335 50 cnv 8 20 15 empty empty lowpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 87 32 vu 15 120 empty out -1 -8 0 8 -66577 -1 1 0;
! #X obj 10 231 + 100;
! #X obj 10 252 dbtofad;
! #X msg 232 46 set \$1;
! #X msg 10 274 set \$1;
! #X obj 11 297 fadtodb;
! #X obj 11 318 - 100;
! #X msg 131 60 set \$1;
! #X obj 131 40 ftom;
! #X obj 131 109 mtof;
! #X msg 376 272 0;
! #X msg 402 272 1;
! #X msg 428 272 2;
! #X obj 376 297 t f;
! #X obj 376 249 route lp hp bp;
! #X msg 376 318 set \$1;
! #X obj 376 225 unsymbol;
! #X obj 289 297 symbol;
! #X obj 317 48 vradio 15 1 0 3 empty empty mode 0 -6 0 10 -24198 -1
! -1 0;
! #X obj 335 66 cnv 8 20 15 empty empty highpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 335 82 cnv 8 20 15 empty empty bandpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 289 253 iem_sel_any;
! #X msg 186 214 0 lp \, 1 hp \, 2 bp;
! #X obj 186 193 loadbang;
! #X obj 186 235 pp add;
! #X obj 289 275 route set;
! #X floatatom 417 130 5 0 9 0 - - -;
! #X obj 417 25 vradio 10 1 0 10 empty empty recall_preset 0 -6 0 8 -257989
! -1 -1 0;
! #X floatatom 466 157 5 0 9 0 - - -;
! #X obj 466 52 vradio 10 1 0 10 empty empty store_preset 0 -6 0 8 -259803
! -1 -1 0;
! #X obj 507 101 bng 35 250 50 0 empty empty save_file 0 -6 0 8 -259609
! -237569 -1;
! #X msg 507 147 1;
! #X obj 10 30 tgl 15 0 empty empty DSP 0 -8 0 10 -24198 -1 -1 0 1;
! #X obj 10 69 nbx 4 12 -1e+037 1e+037 0 0 empty empty peak 0 -7 0 10
! -195568 -1 -1 6.00864 256;
! #X obj 10 98 nbx 4 12 -1e+037 1e+037 0 0 empty empty mean 0 -7 0 10
! -195568 -1 -1 26.64 256;
! #X obj 131 19 r freq;
! #X obj 131 131 s freq;
! #X obj 232 26 r Q;
! #X obj 237 128 s Q;
! #X obj 10 154 s audio;
! #X obj 10 173 r perf_peak;
! #X obj 10 191 r perf_mean;
! #X obj 10 210 r gain;
! #X obj 140 176 r out_level;
! #X obj 376 199 r mode;
! #X obj 417 176 s recall;
! #X obj 466 196 s store;
! #X obj 507 168 s save;
! #X obj 289 318 s mode;
! #X obj 11 338 s gain;
! #X connect 0 0 12 0;
! #X connect 2 0 16 0;
! #X connect 5 0 4 0;
! #X connect 5 0 45 0;
! #X connect 8 0 9 0;
! #X connect 9 0 11 0;
! #X connect 10 0 5 0;
! #X connect 11 0 0 0;
! #X connect 12 0 13 0;
! #X connect 13 0 1 0;
! #X connect 13 0 56 0;
! #X connect 14 0 2 0;
! #X connect 15 0 14 0;
! #X connect 16 0 3 0;
! #X connect 16 0 43 0;
! #X connect 17 0 20 0;
! #X connect 18 0 20 0;
! #X connect 19 0 20 0;
! #X connect 20 0 22 0;
! #X connect 21 0 17 0;
! #X connect 21 1 18 0;
! #X connect 21 2 19 0;
! #X connect 22 0 25 0;
! #X connect 23 0 21 0;
! #X connect 24 0 55 0;
! #X connect 25 0 28 0;
! #X connect 28 0 32 0;
! #X connect 29 0 31 0;
! #X connect 30 0 29 0;
! #X connect 31 0 28 0;
! #X connect 32 0 24 0;
! #X connect 33 0 52 0;
! #X connect 34 0 33 0;
! #X connect 35 0 53 0;
! #X connect 36 0 35 0;
! #X connect 37 0 38 0;
! #X connect 38 0 54 0;
! #X connect 39 0 46 0;
! #X connect 42 0 15 0;
! #X connect 42 0 3 0;
! #X connect 44 0 10 0;
! #X connect 44 0 4 0;
! #X connect 47 0 40 0;
! #X connect 48 0 41 0;
! #X connect 49 0 8 0;
! #X connect 49 0 1 0;
! #X connect 50 0 7 0;
! #X connect 51 0 23 0;
! #X coords 0 0 1 1 600 185 1;
! #X restore 243 21 pd GUI;
! #X obj 382 435 pink~;
! #N canvas 0 0 456 306 parameter_memory_management 0;
! #X msg 222 114 recall;
! #X msg 349 113 store;
! #X obj 55 63 loadbang;
! #X obj 55 105 pp add;
! #X obj 189 290 pp from;
! #X obj 86 267 iem_pbank_csv 4 10;
! #X obj 189 315 list2send 4;
! #X msg 55 84 0 gain \, 1 freq \, 2 Q \, 3 mode;
! #X msg 309 225 read test_pbank.txt brw;
! #X obj 309 204 loadbang;
! #X msg 437 143 write test_pbank.txt brw;
! #X obj 86 215 receive2list 4;
! #X obj 242 78 t b f;
! #X obj 242 56 inlet;
! #X obj 380 53 inlet;
! #X obj 379 80 t b f;
! #X obj 452 53 inlet;
! #X obj 452 83 bang;
! #X connect 0 0 5 0;
! #X connect 1 0 5 0;
! #X connect 2 0 7 0;
! #X connect 3 0 6 0;
! #X connect 3 0 11 0;
! #X connect 4 0 6 0;
! #X connect 5 1 4 0;
! #X connect 7 0 3 0;
! #X connect 8 0 5 0;
! #X connect 9 0 8 0;
! #X connect 10 0 5 0;
! #X connect 11 0 5 0;
! #X connect 12 0 0 0;
! #X connect 12 1 5 1;
! #X connect 13 0 12 0;
! #X connect 14 0 15 0;
! #X connect 15 0 1 0;
! #X connect 15 1 5 1;
! #X connect 16 0 17 0;
! #X connect 17 0 10 0;
! #X restore 104 476 pd parameter_memory_management;
! #X text 29 46 (c) musil(a)iem.at;
! #X text 7 367 ****************** DSP ***********************;
! #X text 11 246 ****************** GUI ***********************;
! #X obj 438 495 prvu~;
! #X text 294 246 ****************** GUI ***********************;
! #X text 578 246 ****************** GUI ***********************;
! #X text 289 367 ****************** DSP ***********************;
! #X text 573 367 ****************** DSP ***********************;
! #X obj 717 416 r audio;
! #X obj 730 458 s perf_peak;
! #X obj 717 478 s perf_mean;
! #X obj 609 446 r mode;
! #X obj 559 421 r Q;
! #X obj 502 408 r freq;
! #X obj 436 406 r gain;
! #X obj 438 517 s out_level;
! #X obj 279 435 r save;
! #X obj 191 436 r store;
! #X obj 104 437 r recall;
! #X connect 2 0 22 0;
! #X connect 2 1 21 0;
! #X connect 8 0 3 0;
! #X connect 8 0 3 1;
! #X connect 8 0 15 0;
! #X connect 10 0 8 0;
! #X connect 15 0 27 0;
! #X connect 20 0 2 0;
! #X connect 23 0 8 4;
! #X connect 23 0 7 0;
! #X connect 24 0 6 0;
! #X connect 24 0 8 3;
! #X connect 25 0 5 0;
! #X connect 25 0 8 2;
! #X connect 26 0 4 0;
! #X connect 26 0 8 1;
! #X connect 28 0 11 2;
! #X connect 29 0 11 1;
! #X connect 30 0 11 0;
--- 1,281 ----
! #N canvas 29 11 873 568 10;
! #X obj 717 437 dsp;
! #X obj 383 501 dac~;
! #X floatatom 443 429 5 0 0 0 - - -;
! #X floatatom 509 431 5 0 0 0 - - -;
! #X floatatom 566 444 5 0 0 0 - - -;
! #X symbolatom 617 470 3 0 0 0 - - -;
! #N canvas 0 0 745 495 multi_filter~ 0;
! #X obj 116 45 inlet~;
! #X obj 114 403 outlet~;
! #X obj 115 174 lp2~ 440 2 100;
! #X obj 212 174 hp2~ 440 2 100;
! #X obj 308 174 rbpq2~ 440 2 100;
! #X obj 115 272 mull~ 1 100;
! #X obj 486 226 route 0 1 2;
! #X obj 115 303 +~;
! #X obj 115 327 +~;
! #X obj 332 48 inlet;
! #X obj 422 46 inlet;
! #X text 114 23 sig_in;
! #X text 432 27 Q;
! #X obj 486 45 inlet;
! #X obj 486 206 hdl 15 1 0 3 empty empty empty 0 -6 0 8 -262144 -1 -1
! 0;
! #X text 334 27 freq_Hz;
! #X obj 230 45 inlet;
! #X text 232 26 gain_db;
! #X obj 230 95 dbtorms;
! #X obj 115 375 mull~ 0.1 100;
! #X msg 486 138 0;
! #X msg 512 138 1;
! #X msg 538 138 2;
! #X text 487 29 mode;
! #X obj 486 178 t f;
! #X obj 486 117 route lp hp bp;
! #X obj 307 270 mull~ 0 100;
! #X obj 213 271 mull~ 0 100;
! #X obj 230 68 + 100;
! #X obj 486 96 unsymbol;
! #X connect 0 0 2 0;
! #X connect 0 0 3 0;
! #X connect 0 0 4 0;
! #X connect 2 0 5 0;
! #X connect 3 0 27 0;
! #X connect 4 0 26 0;
! #X connect 5 0 7 0;
! #X connect 6 0 5 1;
! #X connect 6 1 27 1;
! #X connect 6 2 26 1;
! #X connect 7 0 8 0;
! #X connect 8 0 19 0;
! #X connect 9 0 2 1;
! #X connect 9 0 3 1;
! #X connect 9 0 4 1;
! #X connect 10 0 2 2;
! #X connect 10 0 3 2;
! #X connect 10 0 4 2;
! #X connect 13 0 29 0;
! #X connect 14 0 6 0;
! #X connect 16 0 28 0;
! #X connect 18 0 19 1;
! #X connect 19 0 1 0;
! #X connect 20 0 24 0;
! #X connect 21 0 24 0;
! #X connect 22 0 24 0;
! #X connect 24 0 14 0;
! #X connect 25 0 20 0;
! #X connect 25 1 21 0;
! #X connect 25 2 22 0;
! #X connect 26 0 8 1;
! #X connect 27 0 7 1;
! #X connect 28 0 18 0;
! #X connect 29 0 25 0;
! #X restore 383 468 pd multi_filter~;
! #N canvas 52 43 624 184 GUI 0;
! #X obj 69 23 vsl 15 128 0 127 0 0 empty empty gain 0 -8 0 8 -44926
! -1 -1 0 1;
! #X obj 70 159 nbx 4 12 -1e+037 1e+037 0 0 empty empty dB 48 7 0 10
! -225280 -1 -1 0 256;
! #X obj 196 23 vsl 15 128 9 136 0 0 midi_freq_dsp midi_freq_gui freq
! 0 -8 0 8 -250685 -1 -1 0 1;
! #X obj 197 160 nbx 5 12 -1e+037 1e+037 0 0 empty empty Hz 58 7 0 10
! -257472 -1 -1 0 256;
! #X obj 293 160 nbx 4 12 -1e+037 1e+037 0 0 empty empty empty 48 7 0
! 10 -262131 -1 -1 0 256;
! #X obj 293 24 vsl 15 128 0.1 10 1 0 empty empty Q 0 -8 0 8 -260818
! -1 -1 0 1;
! #X obj 335 50 cnv 8 20 15 empty empty lowpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 87 32 vu 15 120 empty out -1 -8 0 8 -66577 -1 1 0;
! #X obj 10 231 + 100;
! #X obj 10 252 dbtofad;
! #X msg 232 46 set \$1;
! #X msg 10 274 set \$1;
! #X obj 11 297 fadtodb;
! #X obj 11 318 - 100;
! #X msg 131 60 set \$1;
! #X obj 131 40 ftom;
! #X obj 131 109 mtof;
! #X msg 376 272 0;
! #X msg 402 272 1;
! #X msg 428 272 2;
! #X obj 376 297 t f;
! #X obj 376 249 route lp hp bp;
! #X msg 376 318 set \$1;
! #X obj 376 225 unsymbol;
! #X obj 289 297 symbol;
! #X obj 317 48 vradio 15 1 0 3 empty empty mode 0 -6 0 10 -24198 -1
! -1 0;
! #X obj 335 66 cnv 8 20 15 empty empty highpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 335 82 cnv 8 20 15 empty empty bandpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 289 253 iem_sel_any;
! #X msg 186 214 0 lp \, 1 hp \, 2 bp;
! #X obj 186 193 loadbang;
! #X obj 186 235 pp add;
! #X obj 289 275 route set;
! #X floatatom 417 130 5 0 9 0 - - -;
! #X obj 417 25 vradio 10 1 0 10 empty empty recall_preset 0 -6 0 8 -257989
! -1 -1 0;
! #X floatatom 466 157 5 0 9 0 - - -;
! #X obj 466 52 vradio 10 1 0 10 empty empty store_preset 0 -6 0 8 -259803
! -1 -1 0;
! #X obj 507 101 bng 35 250 50 0 empty empty save_file 0 -6 0 8 -259609
! -237569 -1;
! #X msg 507 147 1;
! #X obj 10 30 tgl 15 0 empty empty DSP 0 -8 0 10 -24198 -1 -1 0 1;
! #X obj 10 69 nbx 4 12 -1e+037 1e+037 0 0 empty empty peak 0 -7 0 10
! -195568 -1 -1 2.00288 256;
! #X obj 10 98 nbx 4 12 -1e+037 1e+037 0 0 empty empty mean 0 -7 0 10
! -195568 -1 -1 0.42 256;
! #X obj 131 19 r freq;
! #X obj 131 131 s freq;
! #X obj 232 26 r Q;
! #X obj 237 128 s Q;
! #X obj 10 154 s audio;
! #X obj 10 173 r perf_peak;
! #X obj 10 191 r perf_mean;
! #X obj 10 210 r gain;
! #X obj 140 176 r out_level;
! #X obj 376 199 r mode;
! #X obj 417 176 s recall;
! #X obj 466 196 s store;
! #X obj 507 168 s save;
! #X obj 289 318 s mode;
! #X obj 11 338 s gain;
! #X connect 0 0 12 0;
! #X connect 2 0 16 0;
! #X connect 5 0 4 0;
! #X connect 5 0 45 0;
! #X connect 8 0 9 0;
! #X connect 9 0 11 0;
! #X connect 10 0 5 0;
! #X connect 11 0 0 0;
! #X connect 12 0 13 0;
! #X connect 13 0 1 0;
! #X connect 13 0 56 0;
! #X connect 14 0 2 0;
! #X connect 15 0 14 0;
! #X connect 16 0 3 0;
! #X connect 16 0 43 0;
! #X connect 17 0 20 0;
! #X connect 18 0 20 0;
! #X connect 19 0 20 0;
! #X connect 20 0 22 0;
! #X connect 21 0 17 0;
! #X connect 21 1 18 0;
! #X connect 21 2 19 0;
! #X connect 22 0 25 0;
! #X connect 23 0 21 0;
! #X connect 24 0 55 0;
! #X connect 25 0 28 0;
! #X connect 28 0 32 0;
! #X connect 29 0 31 0;
! #X connect 30 0 29 0;
! #X connect 31 0 28 0;
! #X connect 32 0 24 0;
! #X connect 33 0 52 0;
! #X connect 34 0 33 0;
! #X connect 35 0 53 0;
! #X connect 36 0 35 0;
! #X connect 37 0 38 0;
! #X connect 38 0 54 0;
! #X connect 39 0 46 0;
! #X connect 42 0 15 0;
! #X connect 42 0 3 0;
! #X connect 44 0 10 0;
! #X connect 44 0 4 0;
! #X connect 47 0 40 0;
! #X connect 48 0 41 0;
! #X connect 49 0 8 0;
! #X connect 49 0 1 0;
! #X connect 50 0 7 0;
! #X connect 51 0 23 0;
! #X coords 0 0 1 1 600 185 1;
! #X restore 243 21 pd GUI;
! #X obj 382 435 pink~;
! #N canvas 0 0 456 306 parameter_memory_management 0;
! #X msg 222 114 recall;
! #X msg 349 113 store;
! #X obj 55 63 loadbang;
! #X obj 55 105 pp add;
! #X obj 189 290 pp from;
! #X obj 86 267 iem_pbank_csv 4 10;
! #X obj 189 315 list2send 4;
! #X msg 55 84 0 gain \, 1 freq \, 2 Q \, 3 mode;
! #X msg 309 225 read test_pbank.txt brw;
! #X obj 309 204 loadbang;
! #X msg 437 143 write test_pbank.txt brw;
! #X obj 86 215 receive2list 4;
! #X obj 242 78 t b f;
! #X obj 242 56 inlet;
! #X obj 380 53 inlet;
! #X obj 379 80 t b f;
! #X obj 452 53 inlet;
! #X obj 452 83 bang;
! #X connect 0 0 5 0;
! #X connect 1 0 5 0;
! #X connect 2 0 7 0;
! #X connect 3 0 6 0;
! #X connect 3 0 11 0;
! #X connect 4 0 6 0;
! #X connect 5 1 4 0;
! #X connect 7 0 3 0;
! #X connect 8 0 5 0;
! #X connect 9 0 8 0;
! #X connect 10 0 5 0;
! #X connect 11 0 5 0;
! #X connect 12 0 0 0;
! #X connect 12 1 5 1;
! #X connect 13 0 12 0;
! #X connect 14 0 15 0;
! #X connect 15 0 1 0;
! #X connect 15 1 5 1;
! #X connect 16 0 17 0;
! #X connect 17 0 10 0;
! #X restore 104 476 pd parameter_memory_management;
! #X text 7 367 ****************** DSP ***********************;
! #X text 11 246 ****************** GUI ***********************;
! #X obj 438 495 prvu~;
! #X text 294 246 ****************** GUI ***********************;
! #X text 578 246 ****************** GUI ***********************;
! #X text 289 367 ****************** DSP ***********************;
! #X text 573 367 ****************** DSP ***********************;
! #X obj 717 416 r audio;
! #X obj 730 458 s perf_peak;
! #X obj 717 478 s perf_mean;
! #X obj 609 446 r mode;
! #X obj 559 421 r Q;
! #X obj 502 408 r freq;
! #X obj 436 406 r gain;
! #X obj 438 517 s out_level;
! #X obj 279 435 r save;
! #X obj 191 436 r store;
! #X obj 104 437 r recall;
! #X text 96 95 IEM KUG;
! #X text 80 83 musil;
! #X text 110 83 @;
! #X text 116 83 iem.at;
! #X text 31 72 (c) Thomas Musil 2000 - 2005;
! #X text 79 105 Graz \, Austria;
! #X connect 0 0 19 0;
! #X connect 0 1 18 0;
! #X connect 6 0 1 0;
! #X connect 6 0 1 1;
! #X connect 6 0 12 0;
! #X connect 8 0 6 0;
! #X connect 12 0 24 0;
! #X connect 17 0 0 0;
! #X connect 20 0 6 4;
! #X connect 20 0 5 0;
! #X connect 21 0 4 0;
! #X connect 21 0 6 3;
! #X connect 22 0 3 0;
! #X connect 22 0 6 2;
! #X connect 23 0 2 0;
! #X connect 23 0 6 1;
! #X connect 25 0 9 2;
! #X connect 26 0 9 1;
! #X connect 27 0 9 0;
Index: 2_GUI_DSP_parameter_management.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/examples/2_GUI_DSP_parameter_management.pd,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 2_GUI_DSP_parameter_management.pd 1 Apr 2005 17:44:13 -0000 1.3
--- 2_GUI_DSP_parameter_management.pd 2 Jun 2005 18:27:59 -0000 1.4
***************
*** 1,454 ****
! #N canvas 21 46 962 572 10;
! #X text 55 20 IEM KUG;
! #X text 29 31 graz \, austria 2003;
! #X obj 792 387 dsp;
! #X obj 279 449 dac~;
! #X floatatom 306 381 5 0 0 0 - - -;
! #X floatatom 398 378 5 0 0 0 - - -;
! #X floatatom 494 399 5 0 0 0 - - -;
! #X symbolatom 490 471 3 0 0 0 - - -;
! #N canvas 0 0 745 495 multi_filter~ 0;
! #X obj 116 45 inlet~;
! #X obj 114 403 outlet~;
! #X obj 115 174 lp2~ 440 2 100;
! #X obj 212 174 hp2~ 440 2 100;
! #X obj 308 174 rbpq2~ 440 2 100;
! #X obj 115 272 mull~ 1 100;
! #X obj 486 226 route 0 1 2;
! #X obj 115 303 +~;
! #X obj 115 327 +~;
! #X obj 332 48 inlet;
! #X obj 422 46 inlet;
! #X text 114 23 sig_in;
! #X text 432 27 Q;
! #X obj 486 45 inlet;
! #X obj 486 206 hdl 15 1 0 3 empty empty empty 0 -6 0 8 -262144 -1 -1
! 0;
! #X text 334 27 freq_Hz;
! #X obj 230 45 inlet;
! #X text 232 26 gain_db;
! #X obj 230 95 dbtorms;
! #X obj 115 375 mull~ 0.1 100;
! #X msg 486 138 0;
! #X msg 512 138 1;
! #X msg 538 138 2;
! #X text 487 29 mode;
! #X obj 486 178 t f;
! #X obj 486 117 route lp hp bp;
! #X obj 307 270 mull~ 0 100;
! #X obj 213 271 mull~ 0 100;
! #X obj 230 68 + 100;
! #X obj 486 96 unsymbol;
! #X connect 0 0 2 0;
! #X connect 0 0 3 0;
! #X connect 0 0 4 0;
! #X connect 2 0 5 0;
! #X connect 3 0 27 0;
! #X connect 4 0 26 0;
! #X connect 5 0 7 0;
! #X connect 6 0 5 1;
! #X connect 6 1 27 1;
! #X connect 6 2 26 1;
! #X connect 7 0 8 0;
! #X connect 8 0 19 0;
! #X connect 9 0 2 1;
! #X connect 9 0 3 1;
! #X connect 9 0 4 1;
! #X connect 10 0 2 2;
! #X connect 10 0 3 2;
! #X connect 10 0 4 2;
! #X connect 13 0 29 0;
! #X connect 14 0 6 0;
! #X connect 16 0 28 0;
! #X connect 18 0 19 1;
! #X connect 19 0 1 0;
! #X connect 20 0 24 0;
! #X connect 21 0 24 0;
! #X connect 22 0 24 0;
! #X connect 24 0 14 0;
! #X connect 25 0 20 0;
! #X connect 25 1 21 0;
! #X connect 25 2 22 0;
! #X connect 26 0 8 1;
! #X connect 27 0 7 1;
! #X connect 28 0 18 0;
! #X connect 29 0 25 0;
! #X restore 279 416 pd multi_filter~;
! #N canvas 273 19 634 194 GUI 0;
! #X obj 69 23 vsl 15 128 0 127 0 0 empty empty gain 0 -8 0 8 -44926
! -1 -1 6900 1;
! #X obj 70 159 nbx 4 12 -1e+037 1e+037 0 0 empty empty dB 48 7 0 10
! -225280 -1 -1 -3 256;
! #X obj 196 23 vsl 15 128 9 136 0 0 midi_freq_dsp midi_freq_gui freq
! 0 -8 192 8 -250685 -1 -1 0 1;
! #X obj 197 160 nbx 5 12 -1e+037 1e+037 0 0 empty empty Hz 58 7 0 10
! -257472 -1 -1 0 256;
! #X obj 293 160 nbx 4 12 -1e+037 1e+037 0 0 empty empty empty 48 7 0
! 10 -262131 -1 -1 0 256;
! #X obj 293 24 vsl 15 128 0.1 10 1 0 empty empty Q 0 -8 0 8 -260818
! -1 -1 0 1;
! #X obj 335 50 cnv 8 20 15 empty empty lowpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 87 32 vu 15 120 empty out -1 -8 0 8 -66577 -1 1 0;
! #X obj 10 231 + 100;
! #X obj 10 252 dbtofad;
! #X msg 227 46 set \$1;
! #X msg 10 274 set \$1;
! #X obj 11 297 fadtodb;
! #X obj 11 318 - 100;
! #X msg 131 60 set \$1;
! #X obj 131 40 ftom;
! #X obj 131 109 mtof;
! #X msg 376 272 0;
! #X msg 402 272 1;
! #X msg 428 272 2;
! #X obj 376 297 t f;
! #X obj 376 249 route lp hp bp;
! #X msg 376 318 set \$1;
! #X obj 376 225 unsymbol;
! #X obj 284 297 symbol;
! #X obj 317 48 vradio 15 1 0 3 empty empty mode 0 -6 0 10 -24198 -1
! -1 0;
! #X obj 335 66 cnv 8 20 15 empty empty highpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 335 82 cnv 8 20 15 empty empty bandpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 284 253 iem_sel_any;
! #X msg 186 214 0 lp \, 1 hp \, 2 bp;
! #X obj 186 193 loadbang;
! #X obj 186 235 pp add;
! #X obj 284 275 route set;
! #X floatatom 417 130 5 0 9 0 - - -;
! #X obj 417 25 vradio 10 1 0 10 empty empty recall_preset 0 -6 0 8 -257989
! -1 -1 0;
! #X floatatom 466 157 5 0 9 0 - - -;
! #X obj 466 52 vradio 10 1 0 10 empty empty store_preset 0 -6 0 8 -259803
! -1 -1 0;
! #X obj 507 101 bng 35 250 50 0 empty empty save_file 0 -6 0 8 -259609
! -237569 -1;
! #X obj 417 176 s recall_gui;
! #X obj 466 196 s store_gui;
! #X obj 507 168 s save_gui;
! #X msg 507 147 1;
! #X obj 10 30 tgl 15 0 empty empty DSP 0 -8 0 10 -24198 -1 -1 1 1;
! #X obj 10 69 nbx 4 12 -1e+037 1e+037 0 0 empty empty peak 0 -7 0 10
! -195568 -1 -1 0 256;
! #X obj 10 98 nbx 4 12 -1e+037 1e+037 0 0 empty empty mean 0 -7 0 10
! -195568 -1 -1 1.11 256;
! #X obj 10 173 r perf_peak_gui;
! #X obj 10 191 r perf_mean_gui;
! #X obj 10 153 s audio_gui;
! #X obj 145 270 r out_level_gui;
! #X obj 227 26 r Q_gui_in;
! #X obj 222 128 s Q_gui_out;
! #X obj 284 318 s mode_gui_out;
! #X obj 376 199 r mode_gui_in;
! #X obj 11 338 s gain_gui_out;
! #X obj 10 210 r gain_gui_in;
! #X obj 131 176 s freq_gui_out;
! #X obj 111 6 r freq_gui_in;
! #X obj 57 233 s connect_back_gui;
! #X obj 10 128 tgl 15 0 empty empty connect 0 -6 0 8 -260818 -1 -1 1
! 1;
! #X obj 28 130 cnv 8 1 1 empty empty back 0 6 0 10 -262144 -1 0;
! #X connect 0 0 12 0;
! #X connect 2 0 16 0;
! #X connect 5 0 4 0;
! #X connect 5 0 50 0;
! #X connect 8 0 9 0;
! #X connect 9 0 11 0;
! #X connect 10 0 5 0;
! #X connect 11 0 0 0;
! #X connect 12 0 13 0;
! #X connect 13 0 1 0;
! #X connect 13 0 53 0;
! #X connect 14 0 2 0;
! #X connect 15 0 14 0;
! #X connect 16 0 3 0;
! #X connect 16 0 55 0;
! #X connect 17 0 20 0;
! #X connect 18 0 20 0;
! #X connect 19 0 20 0;
! #X connect 20 0 22 0;
! #X connect 21 0 17 0;
! #X connect 21 1 18 0;
! #X connect 21 2 19 0;
! #X connect 22 0 25 0;
! #X connect 23 0 21 0;
! #X connect 24 0 51 0;
! #X connect 25 0 28 0;
! #X connect 28 0 32 0;
! #X connect 29 0 31 0;
! #X connect 30 0 29 0;
! #X connect 31 0 28 0;
! #X connect 32 0 24 0;
! #X connect 33 0 38 0;
! #X connect 34 0 33 0;
! #X connect 35 0 39 0;
! #X connect 36 0 35 0;
! #X connect 37 0 41 0;
! #X connect 41 0 40 0;
! #X connect 42 0 47 0;
! #X connect 45 0 43 0;
! #X connect 46 0 44 0;
! #X connect 48 0 7 0;
! #X connect 49 0 10 0;
! #X connect 49 0 4 0;
! #X connect 52 0 23 0;
! #X connect 54 0 8 0;
! #X connect 54 0 1 0;
! #X connect 56 0 15 0;
! #X connect 56 0 3 0;
! #X connect 58 0 57 0;
! #X coords 0 0 1 1 600 190 1;
! #X restore 243 21 pd GUI;
! #X obj 268 385 pink~;
! #N canvas 0 0 638 448 parameter_memory_management 0;
! #X msg 258 107 recall;
! #X msg 349 113 store;
! #X obj 20 10 loadbang;
! #X obj 20 52 pp add;
! #X obj 189 290 pp from;
! #X obj 86 267 iem_pbank_csv 4 10;
! #X obj 189 319 list2send 4;
! #X msg 309 225 read test_pbank.txt brw;
! #X obj 309 204 loadbang;
! #X msg 437 143 write test_pbank.txt brw;
! #X obj 86 215 receive2list 4;
! #X obj 260 81 t b f;
! #X obj 260 59 inlet;
! #X obj 359 60 inlet;
! #X obj 358 87 t b f;
! #X obj 440 62 inlet;
! #X obj 440 88 bang;
! #X msg 20 31 0 gain_dsp_in \, 1 freq_dsp_in \, 2 Q_dsp_in \, 3 mode_dsp_in
! ;
! #X obj 281 255 loadbang;
! #X obj 281 297 pp add;
! #X msg 281 276 0 gain_dsp_out \, 1 freq_dsp_out \, 2 Q_dsp_out \, 3
! mode_dsp_out;
! #X connect 0 0 5 0;
! #X connect 1 0 5 0;
! #X connect 2 0 17 0;
! #X connect 3 0 10 0;
! #X connect 4 0 6 0;
! #X connect 5 1 4 0;
! #X connect 7 0 5 0;
! #X connect 8 0 7 0;
! #X connect 9 0 5 0;
! #X connect 10 0 5 0;
! #X connect 11 0 0 0;
! #X connect 11 1 5 1;
! #X connect 12 0 11 0;
! #X connect 13 0 14 0;
! #X connect 14 0 1 0;
! #X connect 14 1 5 1;
! #X connect 15 0 16 0;
! #X connect 16 0 9 0;
! #X connect 17 0 3 0;
! #X connect 18 0 20 0;
! #X connect 19 0 6 0;
! #X connect 20 0 19 0;
! #X restore 15 443 pd parameter_memory_management;
! #X text 27 7 (c) musil(a)iem.at;
! #X text 11 309 ****************** DSP ***********************;
! #X text 11 267 ****************** GUI ***********************;
! #X obj 15 404 r recall_dsp;
! #X obj 102 403 r store_dsp;
! #X obj 190 402 r save_dsp;
! #X obj 805 408 s perf_peak_dsp;
! #X obj 792 428 s perf_mean_dsp;
! #X obj 792 366 r audio_dsp;
! #X obj 334 443 prvu~;
! #X obj 334 465 s out_level_dsp;
! #X text 294 267 ****************** GUI ***********************;
! #X text 578 267 ****************** GUI ***********************;
! #X text 293 309 ****************** DSP ***********************;
! #X text 577 309 ****************** DSP ***********************;
! #X msg 38 160 disconnect;
! #N canvas 0 0 528 308 netsend 0;
! #X obj 91 48 inlet;
! #X obj 95 233 outlet;
! #X obj 91 74 route connect disconnect send;
! #X obj 56 127 bang;
! #X obj 147 98 bang;
! #X msg 56 151 1;
! #X msg 147 123 0;
! #X obj 179 228 spigot;
! #X obj 179 268 iem_s;
! #X obj 275 206 pp set;
! #X msg 287 158 clear;
! #X obj 362 122 pp list;
! #X obj 362 155 mergefilename _;
! #X connect 0 0 2 0;
! #X connect 2 0 3 0;
! #X connect 2 0 11 0;
! #X connect 2 1 4 0;
! #X connect 2 2 7 0;
! #X connect 3 0 5 0;
! #X connect 4 0 6 0;
! #X connect 5 0 1 0;
! #X connect 5 0 7 1;
! #X connect 6 0 1 0;
! #X connect 6 0 7 1;
! #X connect 6 0 10 0;
! #X connect 7 0 8 0;
! #X connect 9 0 8 1;
! #X connect 10 0 8 1;
! #X connect 11 0 12 0;
! #X connect 12 0 9 0;
! #X restore 54 226 pd netsend;
! #X msg 20 139 connect my_dsp_workstation 3000;
! #N canvas 0 0 610 373 from_gui_to_dsp 0;
! #X obj 35 38 loadbang;
! #X obj 35 110 pp add;
! #X obj 35 200 outlet;
! #X obj 35 175 pp send;
! #X obj 35 132 receive2list 9;
! #X msg 35 59 0 gain_gui_out \, 1 freq_gui_out \, 2 Q_gui_out \, 3 mode_gui_out
! \, 4 audio_gui \, 5 recall_gui \, 6 store_gui \, 7 save_gui \, 8 connect_back_gui
! ;
! #X connect 0 0 5 0;
! #X connect 1 0 4 0;
! #X connect 3 0 2 0;
! #X connect 4 0 3 0;
! #X connect 5 0 1 0;
! #X restore 54 181 pd from_gui_to_dsp;
! #N canvas 0 0 825 506 from_dsp_to_gui 0;
! #X obj 122 44 loadbang;
! #X obj 122 101 pp add;
! #X obj 53 132 list2send 7;
! #X msg 122 65 0 gain_gui_in \, 1 freq_gui_in \, 2 Q_gui_in \, 3 mode_gui_in
! \, 4 perf_peak_gui \, 5 perf_mean_gui \, 6 out_level_gui;
! #X obj 53 21 inlet;
! #X connect 0 0 3 0;
! #X connect 1 0 2 0;
! #X connect 3 0 1 0;
! #X connect 4 0 2 0;
! #X restore 578 242 pd from_dsp_to_gui;
! #N canvas 0 0 452 302 netreceive 0;
! #X obj 96 253 outlet;
! #X obj 96 197 r my_gui_notebook_3001;
! #X connect 1 0 0 0;
! #X restore 578 220 pd netreceive 3001;
! #X floatatom 54 250 5 0 0 0 - - -;
! #N canvas 0 0 462 312 netreceive 0;
! #X obj 96 253 outlet;
! #X obj 96 197 r my_dsp_workstation_3000;
! #X connect 1 0 0 0;
! #X restore 14 338 pd netreceive 3000;
! #N canvas 0 0 841 522 from_gui_to_dsp 0;
! #X obj 122 44 loadbang;
! #X obj 122 119 pp add;
! #X obj 53 21 inlet;
! #X obj 53 150 list2send 9;
! #X msg 122 65 0 gain_dsp_in \, 1 freq_dsp_in \, 2 Q_dsp_in \, 3 mode_dsp_in
! \, 4 audio_dsp \, 5 recall_dsp \, 6 store_dsp \, 7 save_dsp \, 8 connect_back_dsp
! ;
! #X connect 0 0 4 0;
! #X connect 1 0 3 0;
! #X connect 2 0 3 0;
! #X connect 4 0 1 0;
! #X restore 14 360 pd from_gui_to_dsp;
! #X msg 577 400 disconnect;
! #N canvas 0 0 530 310 netsend 0;
! #X obj 91 48 inlet;
! #X obj 95 233 outlet;
! #X obj 91 74 route connect disconnect send;
! #X obj 56 127 bang;
! #X obj 147 98 bang;
! #X msg 56 151 1;
! #X msg 147 123 0;
! #X obj 179 228 spigot;
! #X obj 179 268 iem_s;
! #X obj 275 206 pp set;
! #X msg 287 158 clear;
! #X obj 362 122 pp list;
! #X obj 362 155 mergefilename _;
! #X connect 0 0 2 0;
! #X connect 2 0 3 0;
! #X connect 2 0 11 0;
! #X connect 2 1 4 0;
! #X connect 2 2 7 0;
! #X connect 3 0 5 0;
! #X connect 4 0 6 0;
! #X connect 5 0 1 0;
! #X connect 5 0 7 1;
! #X connect 6 0 1 0;
! #X connect 6 0 7 1;
! #X connect 6 0 10 0;
! #X connect 7 0 8 0;
! #X connect 9 0 8 1;
! #X connect 10 0 8 1;
! #X connect 11 0 12 0;
! #X connect 12 0 9 0;
! #X restore 646 438 pd netsend;
! #X floatatom 646 462 5 0 0 0 - - -;
! #X msg 595 379 connect my_gui_notebook 3001;
! #N canvas 0 0 622 385 from_dsp_to_gui 0;
! #X obj 35 38 loadbang;
! #X obj 35 110 pp add;
! #X obj 35 200 outlet;
! #X obj 35 175 pp send;
! #X obj 35 132 receive2list 7;
! #X msg 35 59 0 gain_dsp_out \, 1 freq_dsp_out \, 2 Q_dsp_out \, 3 mode_dsp_out
! \, 4 perf_peak_dsp \, 5 perf_mean_dsp \, 6 out_level_dsp;
! #X connect 0 0 5 0;
! #X connect 1 0 4 0;
! #X connect 3 0 2 0;
! #X connect 4 0 3 0;
! #X connect 5 0 1 0;
! #X restore 646 401 pd from_dsp_to_gui;
! #X obj 577 337 r connect_back_dsp;
! #X obj 577 358 sel 0 1;
! #X obj 306 338 r gain_dsp_in;
! #X obj 398 336 r freq_dsp_in;
! #X obj 494 358 r Q_dsp_in;
! #X obj 490 427 r mode_dsp_in;
! #X obj 490 447 r mode_dsp_out;
! #X obj 494 378 r Q_dsp_out;
! #X obj 398 356 r freq_dsp_out;
! #X obj 306 359 r gain_dsp_out;
! #X text 36 60 1.) connect;
! #X text 36 71 2.) connect back;
! #X text 36 82 3.) DSP on;
! #X connect 2 0 19 0;
! #X connect 2 1 18 0;
! #X connect 8 0 3 0;
! #X connect 8 0 3 1;
! #X connect 8 0 21 0;
! #X connect 10 0 8 0;
! #X connect 15 0 11 0;
! #X connect 16 0 11 1;
! #X connect 17 0 11 2;
! #X connect 20 0 2 0;
! #X connect 21 0 22 0;
! #X connect 27 0 28 0;
! #X connect 28 0 33 0;
! #X connect 29 0 28 0;
! #X connect 30 0 28 0;
! #X connect 32 0 31 0;
! #X connect 34 0 35 0;
! #X connect 36 0 37 0;
! #X connect 37 0 38 0;
! #X connect 39 0 37 0;
! #X connect 40 0 37 0;
! #X connect 41 0 42 0;
! #X connect 42 0 36 0;
! #X connect 42 1 39 0;
! #X connect 43 0 4 0;
! #X connect 43 0 8 1;
! #X connect 44 0 5 0;
! #X connect 44 0 8 2;
! #X connect 45 0 6 0;
! #X connect 45 0 8 3;
! #X connect 46 0 7 0;
! #X connect 46 0 8 4;
! #X connect 47 0 8 4;
! #X connect 47 0 7 0;
! #X connect 48 0 6 0;
! #X connect 48 0 8 3;
! #X connect 49 0 5 0;
! #X connect 49 0 8 2;
! #X connect 50 0 4 0;
! #X connect 50 0 8 1;
--- 1,470 ----
! #N canvas 21 46 966 576 10;
! #X obj 792 427 dsp;
! #X obj 279 489 dac~;
! #X floatatom 306 421 5 0 0 0 - - -;
! #X floatatom 398 418 5 0 0 0 - - -;
! #X floatatom 494 439 5 0 0 0 - - -;
! #X symbolatom 490 511 3 0 0 0 - - -;
! #N canvas 0 0 745 495 multi_filter~ 0;
! #X obj 116 45 inlet~;
! #X obj 114 403 outlet~;
! #X obj 115 174 lp2~ 440 2 100;
! #X obj 212 174 hp2~ 440 2 100;
! #X obj 308 174 rbpq2~ 440 2 100;
! #X obj 115 272 mull~ 1 100;
! #X obj 486 226 route 0 1 2;
! #X obj 115 303 +~;
! #X obj 115 327 +~;
! #X obj 332 48 inlet;
! #X obj 422 46 inlet;
! #X text 114 23 sig_in;
! #X text 432 27 Q;
! #X obj 486 45 inlet;
! #X obj 486 206 hdl 15 1 0 3 empty empty empty 0 -6 0 8 -262144 -1 -1
! 0;
! #X text 334 27 freq_Hz;
! #X obj 230 45 inlet;
! #X text 232 26 gain_db;
! #X obj 230 95 dbtorms;
! #X obj 115 375 mull~ 0.1 100;
! #X msg 486 138 0;
! #X msg 512 138 1;
! #X msg 538 138 2;
! #X text 487 29 mode;
! #X obj 486 178 t f;
! #X obj 486 117 route lp hp bp;
! #X obj 307 270 mull~ 0 100;
! #X obj 213 271 mull~ 0 100;
! #X obj 230 68 + 100;
! #X obj 486 96 unsymbol;
! #X connect 0 0 2 0;
! #X connect 0 0 3 0;
! #X connect 0 0 4 0;
! #X connect 2 0 5 0;
! #X connect 3 0 27 0;
! #X connect 4 0 26 0;
! #X connect 5 0 7 0;
! #X connect 6 0 5 1;
! #X connect 6 1 27 1;
! #X connect 6 2 26 1;
! #X connect 7 0 8 0;
! #X connect 8 0 19 0;
! #X connect 9 0 2 1;
! #X connect 9 0 3 1;
! #X connect 9 0 4 1;
! #X connect 10 0 2 2;
! #X connect 10 0 3 2;
! #X connect 10 0 4 2;
! #X connect 13 0 29 0;
! #X connect 14 0 6 0;
! #X connect 16 0 28 0;
! #X connect 18 0 19 1;
! #X connect 19 0 1 0;
! #X connect 20 0 24 0;
! #X connect 21 0 24 0;
! #X connect 22 0 24 0;
! #X connect 24 0 14 0;
! #X connect 25 0 20 0;
! #X connect 25 1 21 0;
! #X connect 25 2 22 0;
! #X connect 26 0 8 1;
! #X connect 27 0 7 1;
! #X connect 28 0 18 0;
! #X connect 29 0 25 0;
! #X restore 279 456 pd multi_filter~;
! #N canvas 273 19 634 194 GUI 0;
! #X obj 69 23 vsl 15 128 0 127 0 0 empty empty gain 0 -8 0 8 -44926
! -1 -1 5581 1;
! #X obj 70 159 nbx 4 12 -1e+037 1e+037 0 0 empty empty dB 48 7 0 10
! -225280 -1 -1 -8.095 256;
! #X obj 196 23 vsl 15 128 9 136 0 0 midi_freq_dsp midi_freq_gui freq
! 0 -8 0 8 -250685 -1 -1 8600 1;
! #X obj 197 160 nbx 5 12 -1e+037 1e+037 0 0 empty empty Hz 58 7 0 10
! -257472 -1 -1 1975.53 256;
! #X obj 293 160 nbx 4 12 -1e+037 1e+037 0 0 empty empty empty 48 7 0
! 10 -262131 -1 -1 6.01904 256;
! #X obj 293 24 vsl 15 128 0.1 10 1 0 empty empty Q 0 -8 0 8 -260818
! -1 -1 11300 1;
! #X obj 335 50 cnv 8 20 15 empty empty lowpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 87 32 vu 15 120 empty out -1 -8 0 8 -66577 -1 1 0;
! #X obj 10 231 + 100;
! #X obj 10 252 dbtofad;
! #X msg 227 46 set \$1;
! #X msg 10 274 set \$1;
! #X obj 11 297 fadtodb;
! #X obj 11 318 - 100;
! #X msg 131 60 set \$1;
! #X obj 131 40 ftom;
! #X obj 131 109 mtof;
! #X msg 376 272 0;
! #X msg 402 272 1;
! #X msg 428 272 2;
! #X obj 376 297 t f;
! #X obj 376 249 route lp hp bp;
! #X msg 376 318 set \$1;
! #X obj 376 225 unsymbol;
! #X obj 284 297 symbol;
! #X obj 317 48 vradio 15 1 0 3 empty empty mode 0 -6 0 10 -24198 -1
! -1 2;
! #X obj 335 66 cnv 8 20 15 empty empty highpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 335 82 cnv 8 20 15 empty empty bandpass 0 5 0 10 -262144 -66577
! 0;
! #X obj 284 253 iem_sel_any;
! #X msg 186 214 0 lp \, 1 hp \, 2 bp;
! #X obj 186 193 loadbang;
! #X obj 186 235 pp add;
! #X obj 284 275 route set;
! #X floatatom 417 130 5 0 9 0 - - -;
! #X obj 417 25 vradio 10 1 0 10 empty empty recall_preset 0 -6 0 8 -257989
! -1 -1 2;
! #X floatatom 466 157 5 0 9 0 - - -;
! #X obj 466 52 vradio 10 1 0 10 empty empty store_preset 0 -6 0 8 -259803
! -1 -1 0;
! #X obj 507 101 bng 35 250 50 0 empty empty save_file 0 -6 0 8 -259609
! -237569 -1;
! #X obj 417 176 s recall_gui;
! #X obj 466 196 s store_gui;
! #X obj 507 168 s save_gui;
! #X msg 507 147 1;
! #X obj 10 30 tgl 15 0 empty empty DSP 0 -8 0 10 -24198 -1 -1 1 1;
! #X obj 10 69 nbx 4 12 -1e+037 1e+037 0 0 empty empty peak 0 -7 0 10
! -195568 -1 -1 4.00576 256;
! #X obj 10 98 nbx 4 12 -1e+037 1e+037 0 0 empty empty mean 0 -7 0 10
! -195568 -1 -1 1.08 256;
! #X obj 10 173 r perf_peak_gui;
! #X obj 10 191 r perf_mean_gui;
! #X obj 10 153 s audio_gui;
! #X obj 145 270 r out_level_gui;
! #X obj 227 26 r Q_gui_in;
! #X obj 222 128 s Q_gui_out;
! #X obj 284 318 s mode_gui_out;
! #X obj 376 199 r mode_gui_in;
! #X obj 11 338 s gain_gui_out;
! #X obj 10 210 r gain_gui_in;
! #X obj 131 176 s freq_gui_out;
! #X obj 111 6 r freq_gui_in;
! #X obj 57 233 s connect_back_gui;
! #X obj 10 128 tgl 15 0 empty empty connect 0 -6 0 8 -260818 -1 -1 1
! 1;
! #X obj 28 130 cnv 8 1 1 empty empty back 0 6 0 10 -262144 -1 0;
! #X connect 0 0 12 0;
! #X connect 2 0 16 0;
! #X connect 5 0 4 0;
! #X connect 5 0 50 0;
! #X connect 8 0 9 0;
! #X connect 9 0 11 0;
! #X connect 10 0 5 0;
! #X connect 11 0 0 0;
! #X connect 12 0 13 0;
! #X connect 13 0 1 0;
! #X connect 13 0 53 0;
! #X connect 14 0 2 0;
! #X connect 15 0 14 0;
! #X connect 16 0 3 0;
! #X connect 16 0 55 0;
! #X connect 17 0 20 0;
! #X connect 18 0 20 0;
! #X connect 19 0 20 0;
! #X connect 20 0 22 0;
! #X connect 21 0 17 0;
! #X connect 21 1 18 0;
! #X connect 21 2 19 0;
! #X connect 22 0 25 0;
! #X connect 23 0 21 0;
! #X connect 24 0 51 0;
! #X connect 25 0 28 0;
! #X connect 28 0 32 0;
! #X connect 29 0 31 0;
! #X connect 30 0 29 0;
! #X connect 31 0 28 0;
! #X connect 32 0 24 0;
! #X connect 33 0 38 0;
! #X connect 34 0 33 0;
! #X connect 35 0 39 0;
! #X connect 36 0 35 0;
! #X connect 37 0 41 0;
! #X connect 41 0 40 0;
! #X connect 42 0 47 0;
! #X connect 45 0 43 0;
! #X connect 46 0 44 0;
! #X connect 48 0 7 0;
! #X connect 49 0 10 0;
! #X connect 49 0 4 0;
! #X connect 52 0 23 0;
! #X connect 54 0 8 0;
! #X connect 54 0 1 0;
! #X connect 56 0 15 0;
! #X connect 56 0 3 0;
! #X connect 58 0 57 0;
! #X coords 0 0 1 1 600 190 1;
! #X restore 293 31 pd GUI;
! #X obj 268 425 pink~;
! #N canvas 0 0 638 448 parameter_memory_management 0;
! #X msg 258 107 recall;
! #X msg 349 113 store;
! #X obj 20 10 loadbang;
! #X obj 20 52 pp add;
! #X obj 189 290 pp from;
! #X obj 86 267 iem_pbank_csv 4 10;
! #X obj 189 319 list2send 4;
! #X msg 309 225 read test_pbank.txt brw;
! #X obj 309 204 loadbang;
! #X msg 437 143 write test_pbank.txt brw;
! #X obj 86 215 receive2list 4;
! #X obj 260 81 t b f;
! #X obj 260 59 inlet;
! #X obj 359 60 inlet;
! #X obj 358 87 t b f;
! #X obj 440 62 inlet;
! #X obj 440 88 bang;
! #X msg 20 31 0 gain_dsp_in \, 1 freq_dsp_in \, 2 Q_dsp_in \, 3 mode_dsp_in
! ;
! #X obj 281 255 loadbang;
! #X obj 281 297 pp add;
! #X msg 281 276 0 gain_dsp_out \, 1 freq_dsp_out \, 2 Q_dsp_out \, 3
! mode_dsp_out;
! #X connect 0 0 5 0;
! #X connect 1 0 5 0;
! #X connect 2 0 17 0;
! #X connect 3 0 10 0;
! #X connect 4 0 6 0;
! #X connect 5 1 4 0;
! #X connect 7 0 5 0;
! #X connect 8 0 7 0;
! #X connect 9 0 5 0;
! #X connect 10 0 5 0;
! #X connect 11 0 0 0;
! #X connect 11 1 5 1;
! #X connect 12 0 11 0;
! #X connect 13 0 14 0;
! #X connect 14 0 1 0;
! #X connect 14 1 5 1;
! #X connect 15 0 16 0;
! #X connect 16 0 9 0;
! #X connect 17 0 3 0;
! #X connect 18 0 20 0;
! #X connect 19 0 6 0;
! #X connect 20 0 19 0;
! #X restore 15 483 pd parameter_memory_management;
! #X text 11 349 ****************** DSP ***********************;
! #X text 11 307 ****************** GUI ***********************;
! #X obj 15 444 r recall_dsp;
! #X obj 102 443 r store_dsp;
! #X obj 190 442 r save_dsp;
! #X obj 805 448 s perf_peak_dsp;
! #X obj 792 468 s perf_mean_dsp;
! #X obj 792 406 r audio_dsp;
! #X obj 334 483 prvu~;
! #X obj 334 505 s out_level_dsp;
! #X text 294 307 ****************** GUI ***********************;
! #X text 578 307 ****************** GUI ***********************;
! #X text 293 349 ****************** DSP ***********************;
! #X text 577 349 ****************** DSP ***********************;
! #X msg 38 215 disconnect;
! #N canvas 0 0 540 320 netsend 0;
! #X obj 91 48 inlet;
! #X obj 95 233 outlet;
! #X obj 91 74 route connect disconnect send;
! #X obj 56 127 bang;
! #X obj 147 98 bang;
! #X msg 56 151 1;
! #X msg 147 123 0;
! #X obj 179 228 spigot;
! #X obj 179 268 iem_s;
! #X obj 362 188 pp set;
! #X msg 287 158 clear;
! #X obj 362 122 pp list;
! #X obj 362 155 mergefilename _;
! #X text 92 17 simulated netsend;
! #X connect 0 0 2 0;
! #X connect 2 0 3 0;
! #X connect 2 0 11 0;
! #X connect 2 1 4 0;
! #X connect 2 2 7 0;
! #X connect 3 0 5 0;
! #X connect 4 0 6 0;
! #X connect 5 0 1 0;
! #X connect 5 0 7 1;
! #X connect 6 0 1 0;
! #X connect 6 0 7 1;
! #X connect 6 0 10 0;
! #X connect 7 0 8 0;
! #X connect 9 0 8 1;
! #X connect 10 0 8 1;
! #X connect 11 0 12 0;
! #X connect 12 0 9 0;
! #X restore 54 266 pd netsend;
! #N canvas 0 0 614 377 from_gui_to_dsp 0;
! #X obj 35 38 loadbang;
! #X obj 35 110 pp add;
! #X obj 35 200 outlet;
! #X obj 35 175 pp send;
! #X obj 35 132 receive2list 9;
! #X msg 35 59 0 gain_gui_out \, 1 freq_gui_out \, 2 Q_gui_out \, 3 mode_gui_out
! \, 4 audio_gui \, 5 recall_gui \, 6 store_gui \, 7 save_gui \, 8 connect_back_gui
! ;
! #X connect 0 0 5 0;
! #X connect 1 0 4 0;
! #X connect 3 0 2 0;
! #X connect 4 0 3 0;
! #X connect 5 0 1 0;
! #X restore 54 236 pd from_gui_to_dsp;
! #N canvas 0 0 825 506 from_dsp_to_gui 0;
! #X obj 122 44 loadbang;
! #X obj 122 101 pp add;
! #X obj 53 132 list2send 7;
! #X msg 122 65 0 gain_gui_in \, 1 freq_gui_in \, 2 Q_gui_in \, 3 mode_gui_in
! \, 4 perf_peak_gui \, 5 perf_mean_gui \, 6 out_level_gui;
! #X obj 53 21 inlet;
! #X connect 0 0 3 0;
! #X connect 1 0 2 0;
! #X connect 3 0 1 0;
! #X connect 4 0 2 0;
! #X restore 628 252 pd from_dsp_to_gui;
! #N canvas 0 0 452 302 netreceive 0;
! #X obj 96 253 outlet;
! #X obj 96 197 r my_gui_notebook_3001;
! #X connect 1 0 0 0;
! #X restore 628 230 pd netreceive 3001;
! #X floatatom 54 290 5 0 0 0 - - -;
! #N canvas 0 0 474 324 netreceive 0;
! #X obj 96 253 outlet;
! #X obj 96 197 r my_dsp_workstation_3000;
! #X text 108 169 simulated netreceive;
! #X connect 1 0 0 0;
! #X restore 14 378 pd netreceive 3000;
! #N canvas 0 0 853 534 from_gui_to_dsp 0;
! #X obj 122 44 loadbang;
! #X obj 122 119 pp add;
! #X obj 53 21 inlet;
! #X obj 53 150 list2send 9;
! #X msg 122 65 0 gain_dsp_in \, 1 freq_dsp_in \, 2 Q_dsp_in \, 3 mode_dsp_in
! \, 4 audio_dsp \, 5 recall_dsp \, 6 store_dsp \, 7 save_dsp \, 8 connect_back_dsp
! ;
! #X connect 0 0 4 0;
! #X connect 1 0 3 0;
! #X connect 2 0 3 0;
! #X connect 4 0 1 0;
! #X restore 14 400 pd from_gui_to_dsp;
! #X msg 577 440 disconnect;
! #N canvas 0 0 530 310 netsend 0;
! #X obj 91 48 inlet;
! #X obj 95 233 outlet;
! #X obj 91 74 route connect disconnect send;
! #X obj 56 127 bang;
! #X obj 147 98 bang;
! #X msg 56 151 1;
! #X msg 147 123 0;
! #X obj 179 228 spigot;
! #X obj 179 268 iem_s;
! #X obj 275 206 pp set;
! #X msg 287 158 clear;
! #X obj 362 122 pp list;
! #X obj 362 155 mergefilename _;
! #X connect 0 0 2 0;
! #X connect 2 0 3 0;
! #X connect 2 0 11 0;
! #X connect 2 1 4 0;
! #X connect 2 2 7 0;
! #X connect 3 0 5 0;
! #X connect 4 0 6 0;
! #X connect 5 0 1 0;
! #X connect 5 0 7 1;
! #X connect 6 0 1 0;
! #X connect 6 0 7 1;
! #X connect 6 0 10 0;
! #X connect 7 0 8 0;
! #X connect 9 0 8 1;
! #X connect 10 0 8 1;
! #X connect 11 0 12 0;
! #X connect 12 0 9 0;
! #X restore 646 478 pd netsend;
! #X floatatom 646 502 5 0 0 0 - - -;
! #X msg 595 419 connect my_gui_notebook 3001;
! #N canvas 0 0 622 385 from_dsp_to_gui 0;
! #X obj 35 38 loadbang;
! #X obj 35 110 pp add;
! #X obj 35 200 outlet;
! #X obj 35 175 pp send;
! #X obj 35 132 receive2list 7;
! #X msg 35 59 0 gain_dsp_out \, 1 freq_dsp_out \, 2 Q_dsp_out \, 3 mode_dsp_out
! \, 4 perf_peak_dsp \, 5 perf_mean_dsp \, 6 out_level_dsp;
! #X connect 0 0 5 0;
! #X connect 1 0 4 0;
! #X connect 3 0 2 0;
! #X connect 4 0 3 0;
! #X connect 5 0 1 0;
! #X restore 646 441 pd from_dsp_to_gui;
! #X obj 577 377 r connect_back_dsp;
! #X obj 577 398 sel 0 1;
! #X obj 306 378 r gain_dsp_in;
! #X obj 398 376 r freq_dsp_in;
! #X obj 494 398 r Q_dsp_in;
! #X obj 490 467 r mode_dsp_in;
! #X obj 490 487 r mode_dsp_out;
! #X obj 494 418 r Q_dsp_out;
! #X obj 398 396 r freq_dsp_out;
! #X obj 306 399 r gain_dsp_out;
! #X text 69 35 IEM KUG;
! #X text 53 23 musil;
! #X text 83 23 @;
! #X text 89 23 iem.at;
! #X text 4 12 (c) Thomas Musil 2000 - 2005;
! #X text 52 45 Graz \, Austria;
! #X obj 20 179 cnv 12 70 12 empty empty empty 20 12 0 14 -44926 -66577
! 0;
! #X obj 189 157 cnv 12 100 12 empty empty empty 20 12 0 14 -260818 -66577
! 0;
! #X obj 219 63 cnv 12 70 12 empty empty empty 20 12 0 14 -24198 -66577
! 0;
! #X text 21 176 1.) connect;
! #X text 190 154 2.) connect back;
! #X text 222 60 3.) DSP on;
! #X obj 21 195 cnv 15 189 15 empty empty empty 20 12 0 14 -44926 -66577
! 0;
! #X msg 20 194 connect my_dsp_workstation 3000;
! #X obj 686 15 cnv 12 110 12 empty empty empty 20 12 0 14 -249797 -66577
! 0;
! #X text 687 12 4.) recall preset;
! #X connect 0 0 16 0;
! #X connect 0 1 15 0;
! #X connect 6 0 1 0;
! #X connect 6 0 1 1;
! #X connect 6 0 18 0;
! #X connect 8 0 6 0;
! #X connect 12 0 9 0;
! #X connect 13 0 9 1;
! #X connect 14 0 9 2;
! #X connect 17 0 0 0;
! #X connect 18 0 19 0;
! #X connect 24 0 25 0;
! #X connect 25 0 29 0;
! #X connect 26 0 25 0;
! #X connect 28 0 27 0;
! #X connect 30 0 31 0;
! #X connect 32 0 33 0;
! #X connect 33 0 34 0;
! #X connect 35 0 33 0;
! #X connect 36 0 33 0;
! #X connect 37 0 38 0;
! #X connect 38 0 32 0;
! #X connect 38 1 35 0;
! #X connect 39 0 2 0;
! #X connect 39 0 6 1;
! #X connect 40 0 3 0;
! #X connect 40 0 6 2;
! #X connect 41 0 4 0;
! #X connect 41 0 6 3;
! #X connect 42 0 5 0;
! #X connect 42 0 6 4;
! #X connect 43 0 6 4;
! #X connect 43 0 5 0;
! #X connect 44 0 4 0;
! #X connect 44 0 6 3;
! #X connect 45 0 3 0;
! #X connect 45 0 6 2;
! #X connect 46 0 2 0;
! #X connect 46 0 6 1;
! #X connect 60 0 25 0;
1
0
externals/iemlib/src/iemlib2 iem_anything.c, NONE, 1.1 iem_append.c, NONE, 1.1 iem_prepend.c, NONE, 1.1 iem_receive.c, NONE, 1.1 iem_send.c, NONE, 1.1 parentdollarzero.c, NONE, 1.1 protect_against_open.c, NONE, 1.1 receive2list.c, NONE, 1.1
by IOhannes m zmölnig 02 Jun '05
by IOhannes m zmölnig 02 Jun '05
02 Jun '05
Update of /cvsroot/pure-data/externals/iemlib/src/iemlib2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30876
Added Files:
iem_anything.c iem_append.c iem_prepend.c iem_receive.c
iem_send.c parentdollarzero.c protect_against_open.c
receive2list.c
Log Message:
added files for release 1.16
--- NEW FILE: iem_receive.c ---
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif
#include "m_pd.h"
#include "iemlib.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
/* ------------------------ iem_receive ---------------------------- */
/* -------- like millers r, but with setable receive label --------- */
struct _iem_receive_proxy;
static t_class *iem_receive_class;
static t_class *iem_receive_proxy_class;
typedef struct _iem_receive
{
t_object x_obj;
struct _iem_receive_proxy *x_proxy_receiver;
t_symbol *x_receive_label_sym;
} t_iem_receive;
typedef struct _iem_receive_proxy
{
t_object p_obj;
t_iem_receive *p_owner;
} t_iem_receive_proxy;
static void iem_receive_clear(t_iem_receive *x, t_symbol *s, int ac, t_atom *av)
{
t_iem_receive_proxy *p=x->x_proxy_receiver;
if(x->x_receive_label_sym)
pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
x->x_receive_label_sym = 0;
}
static void iem_receive_set(t_iem_receive *x, t_symbol *s, int ac, t_atom *av)
{
t_iem_receive_proxy *p=x->x_proxy_receiver;
if(ac > 0)
{
if(IS_A_SYMBOL(av,0))
{
if(x->x_receive_label_sym)
pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
x->x_receive_label_sym = atom_getsymbol(av);
pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
}
else if(IS_A_FLOAT(av,0))
{
char str[32];
if(x->x_receive_label_sym)
pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
sprintf(str, "%g", atom_getfloat(av));
x->x_receive_label_sym = gensym(str);
pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
}
}
}
/* begin of proxy methods (anything inlets) */
static void iem_receive_proxy_bang(t_iem_receive_proxy *p)
{
t_iem_receive *x = p->p_owner;
outlet_bang(x->x_obj.ob_outlet);
}
static void iem_receive_proxy_float(t_iem_receive_proxy *p, t_float f)
{
t_iem_receive *x = p->p_owner;
outlet_float(x->x_obj.ob_outlet, f);
}
static void iem_receive_proxy_symbol(t_iem_receive_proxy *p, t_symbol *s)
{
t_iem_receive *x = p->p_owner;
outlet_symbol(x->x_obj.ob_outlet, s);
}
static void iem_receive_proxy_pointer(t_iem_receive_proxy *p, t_gpointer *gp)
{
t_iem_receive *x = p->p_owner;
outlet_pointer(x->x_obj.ob_outlet, gp);
}
static void iem_receive_proxy_list(t_iem_receive_proxy *p, t_symbol *s, int argc, t_atom *argv)
{
t_iem_receive *x = p->p_owner;
outlet_list(x->x_obj.ob_outlet, &s_list, argc, argv);
}
static void iem_receive_proxy_anything(t_iem_receive_proxy *p, t_symbol *s, int argc, t_atom *argv)
{
t_iem_receive *x = p->p_owner;
outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
}
/* end of proxy methods (anything inlets) */
static void iem_receive_free(t_iem_receive *x)
{
t_iem_receive_proxy *p=x->x_proxy_receiver;
if(x->x_receive_label_sym)
pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
if(x->x_proxy_receiver)
pd_free((t_pd *)x->x_proxy_receiver);
}
static void *iem_receive_new(t_symbol *s, int ac, t_atom *av)
{
t_iem_receive *x = (t_iem_receive *)pd_new(iem_receive_class);
t_iem_receive_proxy *p = (t_iem_receive_proxy *)pd_new(iem_receive_proxy_class);
x->x_proxy_receiver = p;
p->p_owner = x;
if(ac > 0)
{
if(IS_A_SYMBOL(av,0))
{
x->x_receive_label_sym = atom_getsymbol(av);
pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
}
else if(IS_A_FLOAT(av,0))
{
char str[100];
sprintf(str, "%g", atom_getfloat(av));
x->x_receive_label_sym = gensym(str);
pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
}
else
x->x_receive_label_sym = 0;
}
else
x->x_receive_label_sym = 0;
outlet_new(&x->x_obj, &s_list);
return (x);
}
void iem_receive_setup(void)
{
iem_receive_class = class_new(gensym("iem_receive"), (t_newmethod)iem_receive_new,
(t_method)iem_receive_free, sizeof(t_iem_receive), 0, A_GIMME, 0);
class_addcreator((t_newmethod)iem_receive_new, gensym("iem_r"), A_GIMME, 0);
class_addmethod(iem_receive_class, (t_method)iem_receive_clear, gensym("clear"), A_GIMME, 0);
class_addmethod(iem_receive_class, (t_method)iem_receive_set, gensym("set"), A_GIMME, 0);
class_sethelpsymbol(iem_receive_class, gensym("iemhelp/help-iem_receive"));
iem_receive_proxy_class = class_new(gensym("_iem_receive_proxy"),
0, 0, sizeof(t_iem_receive_proxy), CLASS_PD | CLASS_NOINLET, 0);
class_addbang(iem_receive_proxy_class, iem_receive_proxy_bang);
class_addfloat(iem_receive_proxy_class, iem_receive_proxy_float);
class_addsymbol(iem_receive_proxy_class, iem_receive_proxy_symbol);
class_addpointer(iem_receive_proxy_class, iem_receive_proxy_pointer);
class_addlist(iem_receive_proxy_class, iem_receive_proxy_list);
class_addanything(iem_receive_proxy_class, iem_receive_proxy_anything);
}
--- NEW FILE: iem_prepend.c ---
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif
#include "m_pd.h"
#include "iemlib.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
/* ----------------------- iem_prepend --------------------------- */
/* -- concatenates message from cold (right) inlet with message -- */
/* ------- from hot (left) inlet and outputs it; initial ------- */
/* --- arguments (prependix) are eqal to message of cold inlet --- */
struct _iem_prepend_proxy;
static t_class *iem_prepend_class;
static t_class *iem_prepend_proxy_class;
typedef struct _iem_prepend
{
t_object x_obj;
struct _iem_prepend_proxy *x_proxy_inlet;
int x_size;
int x_ac;
t_atom *x_at;
t_symbol *x_selector_sym;
} t_iem_prepend;
typedef struct _iem_prepend_proxy
{
t_object p_obj;
t_iem_prepend *p_owner;
} t_iem_prepend_proxy;
static void iem_prepend_atcopy(t_atom *src, t_atom *dst, int n)
{
while(n--)
*dst++ = *src++;
}
static void iem_prepend_bang(t_iem_prepend *x)
{
outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac, x->x_at);
}
static void iem_prepend_float(t_iem_prepend *x, t_float f)
{
if(x->x_selector_sym == &s_bang)
outlet_float(x->x_obj.ob_outlet, f);
else
{
SETFLOAT(x->x_at+x->x_ac, f);
outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+1, x->x_at);
}
}
static void iem_prepend_symbol(t_iem_prepend *x, t_symbol *s)
{
if(x->x_selector_sym == &s_bang)
outlet_symbol(x->x_obj.ob_outlet, s);
else
{
SETSYMBOL(x->x_at+x->x_ac, s);
outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+1, x->x_at);
}
}
static void iem_prepend_pointer(t_iem_prepend *x, t_gpointer *gp)
{
if(x->x_selector_sym == &s_bang)
outlet_pointer(x->x_obj.ob_outlet, gp);
else
{
SETPOINTER(x->x_at+x->x_ac, gp);
outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+1, x->x_at);
}
}
static void iem_prepend_list(t_iem_prepend *x, t_symbol *s, int ac, t_atom *av)
{
if((ac+x->x_ac+1) >= x->x_size)
{
x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac+11)*sizeof(t_atom));
x->x_size = ac + x->x_ac + 11;
}
if(x->x_selector_sym == &s_bang)
outlet_anything(x->x_obj.ob_outlet, &s_list, ac, av);
else
{
iem_prepend_atcopy(av, x->x_at + x->x_ac, ac);
outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+ac, x->x_at);
}
}
static void iem_prepend_anything(t_iem_prepend *x, t_symbol *s, int ac, t_atom *av)
{
if((ac+x->x_ac+2) >= x->x_size)
{
x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac+12)*sizeof(t_atom));
x->x_size = ac + x->x_ac + 12;
}
if(x->x_selector_sym == &s_bang)
outlet_anything(x->x_obj.ob_outlet, s, ac, av);
else
{
SETSYMBOL(x->x_at + x->x_ac, s);
iem_prepend_atcopy(av, x->x_at+x->x_ac+1, ac);
outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+ac+1, x->x_at);
}
}
/* begin of proxy methods (anything inlets) */
static void iem_prepend_proxy_bang(t_iem_prepend_proxy *p)
{
t_iem_prepend *x = p->p_owner;
x->x_ac = 0;
x->x_selector_sym = &s_bang;
}
static void iem_prepend_proxy_float(t_iem_prepend_proxy *p, t_float f)
{
t_iem_prepend *x = p->p_owner;
x->x_ac = 1;
SETFLOAT(x->x_at, f);
x->x_selector_sym = &s_list;
}
static void iem_prepend_proxy_symbol(t_iem_prepend_proxy *p, t_symbol *s)
{
t_iem_prepend *x = p->p_owner;
x->x_ac = 1;
SETSYMBOL(x->x_at, s);
x->x_selector_sym = &s_list;
}
static void iem_prepend_proxy_pointer(t_iem_prepend_proxy *p, t_gpointer *gp)
{
t_iem_prepend *x = p->p_owner;
x->x_ac = 1;
SETPOINTER(x->x_at, gp);
x->x_selector_sym = &s_list;
}
static void iem_prepend_proxy_list(t_iem_prepend_proxy *p, t_symbol *s, int ac, t_atom *av)
{
t_iem_prepend *x = p->p_owner;
if((2*ac+10) > x->x_size)
{
x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (2*ac+10)*sizeof(t_atom));
x->x_size = 2*ac+10;
}
x->x_ac = ac;
x->x_selector_sym = &s_list;
iem_prepend_atcopy(av, x->x_at, ac);
}
static void iem_prepend_proxy_anything(t_iem_prepend_proxy *p, t_symbol *s, int ac, t_atom *av)
{
t_iem_prepend *x = p->p_owner;
if((2*ac+11) > x->x_size)
{
x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (2*ac+11)*sizeof(t_atom));
x->x_size = 2*ac + 11;
}
x->x_ac = ac;
x->x_selector_sym = s;
iem_prepend_atcopy(av, x->x_at, ac);
}
/* end of proxy methods (anything inlets) */
static void iem_prepend_free(t_iem_prepend *x)
{
if(x->x_at)
freebytes(x->x_at, x->x_size * sizeof(t_atom));
if(x->x_proxy_inlet)
pd_free((t_pd *)x->x_proxy_inlet);
}
static void *iem_prepend_new(t_symbol *s, int ac, t_atom *av)
{
t_iem_prepend *x = (t_iem_prepend *)pd_new(iem_prepend_class);
t_iem_prepend_proxy *p = (t_iem_prepend_proxy *)pd_new(iem_prepend_proxy_class);
x->x_proxy_inlet = p;
p->p_owner = x;
x->x_size = 30;
if(ac > 10)
x->x_size = 2*ac + 10;
x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
if(!ac)
{
x->x_ac = 0;
x->x_selector_sym = &s_bang;
}
else
{
if(IS_A_FLOAT(av, 0))
{
iem_prepend_proxy_list(p, &s_list, ac, av);
}
else if(IS_A_SYMBOL(av, 0))
{
iem_prepend_proxy_anything(p, atom_getsymbol(av), ac-1, av+1);
}
}
inlet_new((t_object *)x, (t_pd *)p, 0, 0);
outlet_new(&x->x_obj, &s_list);
return (x);
}
void iem_prepend_setup(void)
{
iem_prepend_class = class_new(gensym("iem_prepend"),
(t_newmethod)iem_prepend_new, (t_method)iem_prepend_free,
sizeof(t_iem_prepend), 0, A_GIMME, 0);
class_addcreator((t_newmethod)iem_prepend_new, gensym("pp"), A_GIMME, 0);
class_addcreator((t_newmethod)iem_prepend_new, gensym("prepend"), A_GIMME, 0);
class_addbang(iem_prepend_class, (t_method)iem_prepend_bang);
class_addpointer(iem_prepend_class, iem_prepend_pointer);
class_addfloat(iem_prepend_class, (t_method)iem_prepend_float);
class_addsymbol(iem_prepend_class, iem_prepend_symbol);
class_addlist(iem_prepend_class, iem_prepend_list);
class_addanything(iem_prepend_class, iem_prepend_anything);
class_sethelpsymbol(iem_prepend_class, gensym("iemhelp/help-iem_prepend"));
iem_prepend_proxy_class = class_new(gensym("_iem_prepend_proxy"),
0, 0, sizeof(t_iem_prepend_proxy), CLASS_PD | CLASS_NOINLET, 0);
class_addbang(iem_prepend_proxy_class, (t_method)iem_prepend_proxy_bang);
class_addpointer(iem_prepend_proxy_class, iem_prepend_proxy_pointer);
class_addfloat(iem_prepend_proxy_class, (t_method)iem_prepend_proxy_float);
class_addsymbol(iem_prepend_proxy_class, iem_prepend_proxy_symbol);
class_addlist(iem_prepend_proxy_class, iem_prepend_proxy_list);
class_addanything(iem_prepend_proxy_class, iem_prepend_proxy_anything);
}
--- NEW FILE: protect_against_open.c ---
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif
#include "m_pd.h"
#include "iemlib.h"
#include "g_canvas.h"
#include "g_all_guis.h"
#include <string.h>
#ifdef NT
#include <io.h>
#else
#include <unistd.h>
#endif
/* ---------------------- protect_against_open ----------------------- */
/* -- if you putting this object into a subpatch or an abstraction, -- */
/* ------------ you cannot open again this subpatch ------------------ */
t_widgetbehavior protect_against_open_widgetbehavior;
static t_class *protect_against_open_class;
typedef struct _protect_against_open
{
t_object x_obj;
t_symbol *x_sym;
t_pd *x_owner;
void *x_clock;
} t_protect_against_open;
/* ------------------------ cnv widgetbehaviour----------------------------- */
static void protect_against_open_tick(t_protect_against_open *x)
{
t_symbol *sym = gensym("vis");
t_atom at[1];
SETFLOAT(at, 0.0);
typedmess(x->x_sym->s_thing, sym, 1, at);
clock_unset(x->x_clock);
}
static void protect_against_open_vis(t_gobj *z, t_glist *glist, int vis)
{
t_protect_against_open *x = (t_protect_against_open *)z;
if(vis)
clock_delay(x->x_clock, 5);
}
static void *protect_against_open_new(t_symbol *s, int ac, t_atom *av)
{
t_protect_against_open *x = (t_protect_against_open *)pd_new(protect_against_open_class);
t_glist *glist = (t_glist *)canvas_getcurrent();
t_canvas *this_canvas = glist_getcanvas(glist);
t_symbol *s_unique;
char str[100];
x->x_owner = (t_pd *)glist;
s_unique = canvas_realizedollar(glist_getcanvas(glist), gensym("$0"));
strcpy(str, s_unique->s_name);
strcat(str, "-quabla");
x->x_sym = gensym(str);
if(*x->x_sym->s_name)
pd_bind(x->x_owner, x->x_sym);
x->x_clock = clock_new(x, (t_method)protect_against_open_tick);
return(x);
}
static void protect_against_open_ff(t_protect_against_open *x)
{
if(*x->x_sym->s_name)
pd_unbind(x->x_owner, x->x_sym);
clock_free(x->x_clock);
}
void protect_against_open_setup(void)
{
protect_against_open_class = class_new(gensym("protect_against_open"), (t_newmethod)protect_against_open_new,
(t_method)protect_against_open_ff, sizeof(t_protect_against_open), 0, A_GIMME, 0);
protect_against_open_widgetbehavior.w_getrectfn = NULL;
protect_against_open_widgetbehavior.w_displacefn = NULL;
protect_against_open_widgetbehavior.w_selectfn = NULL;
protect_against_open_widgetbehavior.w_activatefn = NULL;
protect_against_open_widgetbehavior.w_deletefn = NULL;
protect_against_open_widgetbehavior.w_visfn = protect_against_open_vis;
protect_against_open_widgetbehavior.w_clickfn = NULL;
#if defined(PD_MAJOR_VERSION) && (PD_MINOR_VERSION >= 37)
#else
protect_against_open_widgetbehavior.w_propertiesfn = NULL;
protect_against_open_widgetbehavior.w_savefn = NULL;
#endif
class_setwidget(protect_against_open_class, &protect_against_open_widgetbehavior);
}
--- NEW FILE: iem_send.c ---
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif
#include "m_pd.h"
#include "iemlib.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
/* -------------------- iem_send ------------------------------ */
/* ------- like millers s, but with setable send label -------- */
struct _iem_send_proxy;
static t_class *iem_send_class;
static t_class *iem_send_proxy_class;
typedef struct _iem_send
{
t_object x_obj;
struct _iem_send_proxy *x_proxy_inlet;
t_symbol *x_send_label_sym;
} t_iem_send;
typedef struct _iem_send_proxy
{
t_object p_obj;
t_iem_send *p_owner;
} t_iem_send_proxy;
static void iem_send_bang(t_iem_send *x)
{
if(x->x_send_label_sym)
if(x->x_send_label_sym->s_thing)
pd_bang(x->x_send_label_sym->s_thing);
}
static void iem_send_float(t_iem_send *x, t_float f)
{
if(x->x_send_label_sym)
if(x->x_send_label_sym->s_thing)
pd_float(x->x_send_label_sym->s_thing, f);
}
static void iem_send_symbol(t_iem_send *x, t_symbol *s)
{
if(x->x_send_label_sym)
if(x->x_send_label_sym->s_thing)
pd_symbol(x->x_send_label_sym->s_thing, s);
}
static void iem_send_pointer(t_iem_send *x, t_gpointer *gp)
{
if(x->x_send_label_sym)
if(x->x_send_label_sym->s_thing)
pd_pointer(x->x_send_label_sym->s_thing, gp);
}
static void iem_send_list(t_iem_send *x, t_symbol *s, int argc, t_atom *argv)
{
if(x->x_send_label_sym)
if(x->x_send_label_sym->s_thing)
pd_list(x->x_send_label_sym->s_thing, s, argc, argv);
}
static void iem_send_anything(t_iem_send *x, t_symbol *s, int argc, t_atom *argv)
{
if(x->x_send_label_sym)
if(x->x_send_label_sym->s_thing)
typedmess(x->x_send_label_sym->s_thing, s, argc, argv);
}
/* begin of proxy methods (anything inlets) */
static void iem_send_proxy_clear(t_iem_send_proxy *p, t_symbol *s, int ac, t_atom *av)
{
t_iem_send *x = p->p_owner;
x->x_send_label_sym = 0;
}
static void iem_send_proxy_set(t_iem_send_proxy *p, t_symbol *s, int ac, t_atom *av)
{
t_iem_send *x = p->p_owner;
if(ac > 0)
{
if(IS_A_SYMBOL(av,0))
x->x_send_label_sym = atom_getsymbol(av);
else if(IS_A_FLOAT(av,0))
{
char str[32];
sprintf(str, "%g", atom_getfloat(av));
x->x_send_label_sym = gensym(str);
}
}
}
/* end of proxy methods (anything inlets) */
static void iem_send_free(t_iem_send *x)
{
if(x->x_proxy_inlet)
pd_free((t_pd *)x->x_proxy_inlet);
}
static void *iem_send_new(t_symbol *s, int ac, t_atom *av)
{
t_iem_send *x = (t_iem_send *)pd_new(iem_send_class);
t_iem_send_proxy *p = (t_iem_send_proxy *)pd_new(iem_send_proxy_class);
x->x_proxy_inlet = p;
p->p_owner = x;
if(ac > 0)
{
if(IS_A_SYMBOL(av,0))
{
x->x_send_label_sym = atom_getsymbol(av);
}
else if(IS_A_FLOAT(av,0))
{
char str[32];
sprintf(str, "%g", atom_getfloat(av));
x->x_send_label_sym = gensym(str);
}
else
x->x_send_label_sym = 0;
}
else
x->x_send_label_sym = 0;
inlet_new((t_object *)x, (t_pd *)p, 0, 0);
return (x);
}
void iem_send_setup(void)
{
iem_send_class = class_new(gensym("iem_send"), (t_newmethod)iem_send_new, (t_method)iem_send_free,
sizeof(t_iem_send), 0, A_GIMME, 0);
class_addcreator((t_newmethod)iem_send_new, gensym("iem_s"), A_GIMME, 0);
class_addbang(iem_send_class, iem_send_bang);
class_addfloat(iem_send_class, iem_send_float);
class_addsymbol(iem_send_class, iem_send_symbol);
class_addpointer(iem_send_class, iem_send_pointer);
class_addlist(iem_send_class, iem_send_list);
class_addanything(iem_send_class, iem_send_anything);
class_sethelpsymbol(iem_send_class, gensym("iemhelp/help-iem_send"));
iem_send_proxy_class = class_new(gensym("_iem_send_proxy"),
0, 0, sizeof(t_iem_send_proxy), CLASS_PD | CLASS_NOINLET, 0);
class_addmethod(iem_send_proxy_class, (t_method)iem_send_proxy_clear, gensym("clear"), A_GIMME, 0);
class_addmethod(iem_send_proxy_class, (t_method)iem_send_proxy_set, gensym("set"), A_GIMME, 0);
}
--- NEW FILE: receive2list.c ---
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif
#include "m_pd.h"
#include "iemlib.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
/* -------------------------- receive2list ------------------------------ */
/* -- converts received message to a list with a prepended float index -- */
struct _receive2list_proxy;
static t_class *receive2list_class;
static t_class *receive2list_proxy_class;
typedef struct _receive2list
{
t_object x_obj;
int x_max;
struct _receive2list_proxy **x_proxy_receiver;
int x_size;
t_atom *x_at;
} t_receive2list;
typedef struct _receive2list_proxy
{
t_object p_obj;
t_receive2list *p_owner;
t_symbol *p_receive_label_sym;
int p_index;
} t_receive2list_proxy;
static void receive2list_atcopy(t_atom *src, t_atom *dst, int n)
{
while(n--)
*dst++ = *src++;
}
static void receive2list_clear(t_receive2list *x, t_symbol *s, int ac, t_atom *av)
{
t_receive2list_proxy *p;
int i, max=x->x_max;
for(i=0; i<max; i++)
{
p = x->x_proxy_receiver[i];
if(p->p_receive_label_sym)
pd_unbind(&p->p_obj.ob_pd, p->p_receive_label_sym);
p->p_receive_label_sym = 0;
}
}
static void receive2list_add(t_receive2list *x, t_symbol *s, int ac, t_atom *av)
{
t_receive2list_proxy *p;
int i;
if((ac > 1)&&(IS_A_FLOAT(av,0)))
{
i = atom_getint(av);
if((i >= 0)&&(i < x->x_max))
{
p = x->x_proxy_receiver[i];
if(IS_A_SYMBOL(av,1))
{
if(p->p_receive_label_sym)
pd_unbind(&p->p_obj.ob_pd, p->p_receive_label_sym);
p->p_receive_label_sym = atom_getsymbol(av+1);
pd_bind(&p->p_obj.ob_pd, p->p_receive_label_sym);
}
else if(IS_A_FLOAT(av,1))
{
char str[32];
if(p->p_receive_label_sym)
pd_unbind(&p->p_obj.ob_pd, p->p_receive_label_sym);
sprintf(str, "%g", atom_getfloat(av+1));
p->p_receive_label_sym = gensym(str);
pd_bind(&p->p_obj.ob_pd, p->p_receive_label_sym);
}
}
}
}
/* begin of proxy methods (anything inlets) */
static void receive2list_proxy_bang(t_receive2list_proxy *p)
{
t_receive2list *x = p->p_owner;
SETFLOAT(x->x_at, p->p_index);
outlet_list(x->x_obj.ob_outlet, &s_list, 1, x->x_at);
}
static void receive2list_proxy_float(t_receive2list_proxy *p, t_float f)
{
t_receive2list *x = p->p_owner;
SETFLOAT(x->x_at, p->p_index);
SETFLOAT(x->x_at+1, f);
outlet_list(x->x_obj.ob_outlet, &s_list, 2, x->x_at);
}
static void receive2list_proxy_symbol(t_receive2list_proxy *p, t_symbol *s)
{
t_receive2list *x = p->p_owner;
SETFLOAT(x->x_at, p->p_index);
SETSYMBOL(x->x_at+1, s);
outlet_list(x->x_obj.ob_outlet, &s_list, 2, x->x_at);
}
static void receive2list_proxy_pointer(t_receive2list_proxy *p, t_gpointer *gp)
{
t_receive2list *x = p->p_owner;
SETFLOAT(x->x_at, p->p_index);
SETPOINTER(x->x_at+1, gp);
outlet_list(x->x_obj.ob_outlet, &s_list, 2, x->x_at);
}
static void receive2list_proxy_list(t_receive2list_proxy *p, t_symbol *s, int argc, t_atom *argv)
{
t_receive2list *x = p->p_owner;
if((argc+1) >= x->x_size)
{
x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (argc+11)*sizeof(t_atom));
x->x_size = argc + 11;
}
SETFLOAT(x->x_at, p->p_index);
receive2list_atcopy(argv, x->x_at+1, argc);
outlet_list(x->x_obj.ob_outlet, &s_list, argc+1, x->x_at);
}
static void receive2list_proxy_anything(t_receive2list_proxy *p, t_symbol *s, int argc, t_atom *argv)
{
t_receive2list *x = p->p_owner;
if((argc+2) >= x->x_size)
{
x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (argc+12)*sizeof(t_atom));
x->x_size = argc + 12;
}
SETFLOAT(x->x_at, p->p_index);
SETSYMBOL(x->x_at+1, s);
receive2list_atcopy(argv, x->x_at+2, argc);
outlet_list(x->x_obj.ob_outlet, &s_list, argc+2, x->x_at);
}
/* end of proxy methods (anything inlets) */
static void receive2list_free(t_receive2list *x)
{
t_receive2list_proxy *p;
int i, max = x->x_max;
for(i=0; i<max; i++)
{
p = x->x_proxy_receiver[i];
if(p->p_receive_label_sym)
pd_unbind(&p->p_obj.ob_pd, p->p_receive_label_sym);
if(x->x_proxy_receiver[i])
pd_free((t_pd *)x->x_proxy_receiver[i]);
}
if(x->x_proxy_receiver)
freebytes(x->x_proxy_receiver, x->x_max * sizeof(t_receive2list_proxy *));
if(x->x_at)
freebytes(x->x_at, x->x_size * sizeof(t_atom));
}
static void *receive2list_new(t_float fmax)
{
t_receive2list *x = (t_receive2list *)pd_new(receive2list_class);
t_receive2list_proxy *p;
int i, max = (int)fmax;
if(max <= 0)
max = 80;
x->x_max = max;
x->x_proxy_receiver = (t_receive2list_proxy **)getbytes(x->x_max * sizeof(t_receive2list_proxy *));
x->x_size = 12;
x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
for(i=0; i<max; i++)
{
x->x_proxy_receiver[i] = (t_receive2list_proxy *)pd_new(receive2list_proxy_class);
p = x->x_proxy_receiver[i];
p->p_owner = x;
p->p_receive_label_sym = 0;
p->p_index = i;
}
outlet_new(&x->x_obj, &s_list);
return (x);
}
void receive2list_setup(void)
{
receive2list_class = class_new(gensym("receive2list"), (t_newmethod)receive2list_new,
(t_method)receive2list_free, sizeof(t_receive2list), 0, A_DEFFLOAT, 0);
class_addcreator((t_newmethod)receive2list_new, gensym("iem_r"), A_DEFFLOAT, 0);
class_addmethod(receive2list_class, (t_method)receive2list_clear, gensym("clear"), A_GIMME, 0);
class_addmethod(receive2list_class, (t_method)receive2list_add, gensym("add"), A_GIMME, 0);
class_sethelpsymbol(receive2list_class, gensym("iemhelp/help-receive2list"));
receive2list_proxy_class = class_new(gensym("_receive2list_proxy"),
0, 0, sizeof(t_receive2list_proxy), CLASS_PD | CLASS_NOINLET, 0);
class_addbang(receive2list_proxy_class, receive2list_proxy_bang);
class_addfloat(receive2list_proxy_class, receive2list_proxy_float);
class_addsymbol(receive2list_proxy_class, receive2list_proxy_symbol);
class_addpointer(receive2list_proxy_class, receive2list_proxy_pointer);
class_addlist(receive2list_proxy_class, receive2list_proxy_list);
class_addanything(receive2list_proxy_class, receive2list_proxy_anything);
}
--- NEW FILE: iem_anything.c ---
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif
#include "m_pd.h"
#include "iemlib.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
/* ------------------------------- iem_anything ---------------------------------- */
/* -- storage object for any message (bang, float, symbol, list, selector-list) -- */
/* ---------- with a hot and a cold inlet (like object float or symbol) ---------- */
/* ----------- initial arguments are equal to a message of cold inlet ------------ */
struct _iem_anything_proxy;
static t_class *iem_anything_class;
static t_class *iem_anything_proxy_class;
typedef struct _iem_anything
{
t_object x_obj;
struct _iem_anything_proxy *x_proxy_inlet;
int x_size;
int x_ac;
t_atom *x_at;
t_symbol *x_selector_sym;
} t_iem_anything;
typedef struct _iem_anything_proxy
{
t_object p_obj;
t_iem_anything *p_owner;
} t_iem_anything_proxy;
static void iem_anything_atcopy(t_atom *src, t_atom *dst, int n)
{
while(n--)
*dst++ = *src++;
}
static void iem_anything_anything(t_iem_anything *x, t_symbol *s, int ac, t_atom *av)
{
if(ac > x->x_size)
{
x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (10 + ac)*sizeof(t_atom));
x->x_size = 10 + ac;
}
x->x_ac = ac;
x->x_selector_sym = s;
iem_anything_atcopy(av, x->x_at, ac);
outlet_anything(x->x_obj.ob_outlet, s, ac, av);
}
static void iem_anything_bang(t_iem_anything *x)
{
if((x->x_selector_sym == &s_bang) && !x->x_ac)
{
outlet_bang(x->x_obj.ob_outlet);
}
else
{
outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac, x->x_at);
}
}
/* begin of proxy methods (anything inlets) */
static void iem_anything_proxy_anything(t_iem_anything_proxy *p, t_symbol *s, int ac, t_atom *av)
{
t_iem_anything *x = p->p_owner;
if(ac > x->x_size)
{
x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (10 + ac)*sizeof(t_atom));
x->x_size = 10 + ac;
}
x->x_ac = ac;
x->x_selector_sym = s;
iem_anything_atcopy(av, x->x_at, ac);
}
/* end of proxy methods (anything inlets) */
static void iem_anything_free(t_iem_anything *x)
{
if(x->x_at)
freebytes(x->x_at, x->x_size * sizeof(t_atom));
if(x->x_proxy_inlet)
pd_free((t_pd *)x->x_proxy_inlet);
}
static void *iem_anything_new(t_symbol *s, int ac, t_atom *av)
{
t_iem_anything *x = (t_iem_anything *)pd_new(iem_anything_class);
t_iem_anything_proxy *p = (t_iem_anything_proxy *)pd_new(iem_anything_proxy_class);
x->x_proxy_inlet = p;
p->p_owner = x;
x->x_size = 10 + ac;
x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
x->x_ac = ac;
if(!ac)
{
x->x_selector_sym = &s_bang;
}
else if(IS_A_SYMBOL(av, 0))
{
x->x_selector_sym = atom_getsymbol(av);
x->x_ac--;
iem_anything_proxy_anything(p, x->x_selector_sym, x->x_ac, av+1);
}
else
{
x->x_selector_sym = &s_list;
iem_anything_proxy_anything(p, x->x_selector_sym, x->x_ac, av);
}
inlet_new((t_object *)x, (t_pd *)p, 0, 0);
outlet_new(&x->x_obj, &s_list);
return (x);
}
void iem_anything_setup(void)
{
iem_anything_class = class_new(gensym("iem_anything"),
(t_newmethod)iem_anything_new, (t_method)iem_anything_free,
sizeof(t_iem_anything), 0, A_GIMME, 0);
class_addcreator((t_newmethod)iem_anything_new, gensym("any"), A_GIMME, 0);
class_addanything(iem_anything_class, iem_anything_anything);
class_addbang(iem_anything_class, iem_anything_bang);
class_sethelpsymbol(iem_anything_class, gensym("iemhelp/help-iem_anything"));
iem_anything_proxy_class = class_new(gensym("_iem_anything_proxy"),
0, 0, sizeof(t_iem_anything_proxy), CLASS_PD | CLASS_NOINLET, 0);
class_addanything(iem_anything_proxy_class, iem_anything_proxy_anything);
}
--- NEW FILE: parentdollarzero.c ---
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif
#include "m_pd.h"
#include "g_canvas.h"
#include "iemlib.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <math.h>
/* -------------- parentdollarzero --------------- */
/* -- receives the $0 value of the parent canvas --*/
static t_class *parentdollarzero_class;
typedef struct _parentdollarzero
{
t_object x_obj;
t_symbol *s_parent_unique;
unsigned int x_is_there_a_parent;
} t_parentdollarzero;
static void parentdollarzero_bang(t_parentdollarzero *x)
{
if(x->x_is_there_a_parent)
outlet_symbol(x->x_obj.ob_outlet, x->s_parent_unique);
}
static void *parentdollarzero_new(void)
{
t_parentdollarzero *x = (t_parentdollarzero *)pd_new(parentdollarzero_class);
t_glist *glist = (t_glist *)canvas_getcurrent();
t_canvas *this_canvas = glist_getcanvas(glist);
x->x_is_there_a_parent = (unsigned int)this_canvas->gl_owner;
if(x->x_is_there_a_parent)
x->s_parent_unique = canvas_realizedollar((t_canvas *)this_canvas->gl_owner, gensym("$0"));
else
x->s_parent_unique = gensym("");
outlet_new(&x->x_obj, &s_symbol);
return (x);
}
void parentdollarzero_setup(void)
{
parentdollarzero_class = class_new(gensym("parentdollarzero"), (t_newmethod)parentdollarzero_new,
0, sizeof(t_parentdollarzero), 0, 0);
class_addcreator((t_newmethod)parentdollarzero_new, gensym("parent$0"), 0);
class_addbang(parentdollarzero_class, (t_method)parentdollarzero_bang);
class_sethelpsymbol(parentdollarzero_class, gensym("iemhelp/help-parentdollarzero"));
}
--- NEW FILE: iem_append.c ---
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif
#include "m_pd.h"
#include "iemlib.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
/* ----------------------- iem_append -------------------------- */
/* -- concatenates message from hot (left) inlet with message -- */
/* ------ from cold (right) inlet and outputs it; initial ----- */
/* -- arguments (appendix) are eqal to message of cold inlet --- */
struct _iem_append_proxy;
static t_class *iem_append_class;
static t_class *iem_append_proxy_class;
typedef struct _iem_append
{
t_object x_obj;
struct _iem_append_proxy *x_proxy_inlet;
int x_size12;
int x_size2;
int x_ac1;
int x_ac2;
t_atom *x_at12;
t_atom *x_at2;
t_symbol *x_selector_sym1;
t_symbol *x_selector_sym2;
t_atomtype x_type1;
t_atomtype x_type2;
} t_iem_append;
typedef struct _iem_append_proxy
{
t_object p_obj;
t_iem_append *p_owner;
} t_iem_append_proxy;
static void iem_append_atcopy(t_atom *src, t_atom *dst, int n)
{
while(n--)
*dst++ = *src++;
}
static void iem_append_merge(t_iem_append *x, int off)
{
if((x->x_ac1+x->x_ac2+1) > x->x_size12)
{
x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2+1)*sizeof(t_atom));
x->x_size12 = 2*(x->x_ac1+x->x_ac2+1);
}
if(off)
SETSYMBOL(x->x_at12 + x->x_ac1, x->x_selector_sym2);
iem_append_atcopy(x->x_at2, x->x_at12 + x->x_ac1 + off, x->x_ac2);
}
static void iem_append_out(t_iem_append *x)
{
int off=0;
if(x->x_type1 == A_GIMME)
{
if(x->x_type2 == A_COMMA)
off = 1;
else
off = 0;
iem_append_merge(x, off);
outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
}
else if(x->x_type1 == A_COMMA)
{
if(x->x_type2 == A_COMMA)
off = 1;
else
off = 0;
iem_append_merge(x, off);
outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym1, x->x_ac1+x->x_ac2+off, x->x_at12);
}
else if(x->x_type1 == A_NULL)/*depends on 2.part*/
{
iem_append_merge(x, 0);
if(x->x_type2 == A_GIMME)
outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at12);
else if(x->x_type2 == A_COMMA)
outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym2, x->x_ac2, x->x_at12);
else if(x->x_type2 == A_FLOAT)
outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
else if(x->x_type2 == A_SYMBOL)
outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
else if(x->x_type2 == A_NULL)
outlet_bang(x->x_obj.ob_outlet);
else if(x->x_type2 == A_POINTER)
outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
}
else
{
if(x->x_type2 == A_COMMA)
off = 1;
else
off = 0;
iem_append_merge(x, off);
if(x->x_type2 == A_NULL)
{
if(x->x_type1 == A_FLOAT)
outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
else if(x->x_type1 == A_SYMBOL)
outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
else if(x->x_type1 == A_POINTER)
outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
}
else
outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
}
}
static void iem_append_bang(t_iem_append *x)
{
x->x_ac1 = 0;
x->x_type1 = A_NULL;
iem_append_out(x);
}
static void iem_append_float(t_iem_append *x, t_float f)
{
x->x_ac1 = 1;
x->x_type1 = A_FLOAT;
SETFLOAT(x->x_at12, f);
iem_append_out(x);
}
static void iem_append_symbol(t_iem_append *x, t_symbol *s)
{
x->x_ac1 = 1;
x->x_type1 = A_SYMBOL;
SETSYMBOL(x->x_at12, s);
iem_append_out(x);
}
static void iem_append_pointer(t_iem_append *x, t_gpointer *gp)
{
x->x_ac1 = 1;
x->x_type1 = A_POINTER;
SETPOINTER(x->x_at12, gp);
iem_append_out(x);
}
static void iem_append_list(t_iem_append *x, t_symbol *s, int ac, t_atom *av)
{
if((x->x_size2+ac+1) > x->x_size12)
{
x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), (x->x_size2+ac+11)*sizeof(t_atom));
x->x_size12 = x->x_size2+ac+11;
}
x->x_ac1 = ac;
x->x_type1 = A_GIMME;
iem_append_atcopy(av, x->x_at12, ac);
x->x_selector_sym1 = &s_list;
iem_append_out(x);
}
static void iem_append_anything(t_iem_append *x, t_symbol *s, int ac, t_atom *av)
{
if((x->x_size2+ac+2) > x->x_size12)
{
x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), (x->x_size2+ac+12)*sizeof(t_atom));
x->x_size12 = x->x_size2+ac+12;
}
x->x_ac1 = ac;
x->x_type1 = A_COMMA;
iem_append_atcopy(av, x->x_at12, ac);
x->x_selector_sym1 = s;
iem_append_out(x);
}
/* begin of proxy methods (anything inlets) */
static void iem_append_proxy_bang(t_iem_append_proxy *p)
{
t_iem_append *x = p->p_owner;
x->x_ac2 = 0;
x->x_type2 = A_NULL;
x->x_selector_sym2 = &s_list;
}
static void iem_append_proxy_float(t_iem_append_proxy *p, t_float f)
{
t_iem_append *x = p->p_owner;
x->x_ac2 = 1;
x->x_type2 = A_FLOAT;
SETFLOAT(x->x_at2, f);
x->x_selector_sym2 = &s_list;
}
static void iem_append_proxy_symbol(t_iem_append_proxy *p, t_symbol *s)
{
t_iem_append *x = p->p_owner;
x->x_ac2 = 1;
x->x_type2 = A_SYMBOL;
SETSYMBOL(x->x_at2, s);
x->x_selector_sym2 = &s_list;
}
static void iem_append_proxy_pointer(t_iem_append_proxy *p, t_gpointer *gp)
{
t_iem_append *x = p->p_owner;
x->x_ac2 = 1;
x->x_type2 = A_POINTER;
SETPOINTER(x->x_at2, gp);
x->x_selector_sym2 = &s_list;
}
static void iem_append_proxy_list(t_iem_append_proxy *p, t_symbol *s, int ac, t_atom *av)
{
t_iem_append *x = p->p_owner;
if(ac > x->x_size2)
{
x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), (ac+10)*sizeof(t_atom));
x->x_size2 = (ac+10);
}
x->x_ac2 = ac;
x->x_type2 = A_GIMME;
x->x_selector_sym2 = &s_list;
iem_append_atcopy(av, x->x_at2, ac);
}
static void iem_append_proxy_anything(t_iem_append_proxy *p, t_symbol *s, int ac, t_atom *av)
{
t_iem_append *x = p->p_owner;
if((ac+1) > x->x_size2)
{
x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), (ac+11)*sizeof(t_atom));
x->x_size2 = ac+11;
}
x->x_ac2 = ac;
x->x_type2 = A_COMMA;
x->x_selector_sym2 = s;
iem_append_atcopy(av, x->x_at2, ac);
}
/* end of proxy methods (anything inlets) */
static void iem_append_free(t_iem_append *x)
{
if(x->x_at12)
freebytes(x->x_at12, x->x_size12 * sizeof(t_atom));
if(x->x_at2)
freebytes(x->x_at2, x->x_size2 * sizeof(t_atom));
if(x->x_proxy_inlet)
pd_free((t_pd *)x->x_proxy_inlet);
}
static void *iem_append_new(t_symbol *s, int ac, t_atom *av)
{
t_iem_append *x = (t_iem_append *)pd_new(iem_append_class);
t_iem_append_proxy *p = (t_iem_append_proxy *)pd_new(iem_append_proxy_class);
x->x_proxy_inlet = p;
p->p_owner = x;
x->x_type1 = A_NULL;
x->x_selector_sym1 = &s_list;
x->x_size2 = 10;
if(ac > 5)
x->x_size2 = 2*ac;
x->x_at2 = (t_atom *)getbytes(x->x_size2 * sizeof(t_atom));
x->x_size12 = x->x_size2 + 10;
x->x_at12 = (t_atom *)getbytes(x->x_size12 * sizeof(t_atom));
x->x_ac1 = 0;
if(ac <= 0)
{
x->x_type2 = A_NULL;
x->x_ac2 = 0;
x->x_selector_sym2 = &s_list;
}
else
{
if(IS_A_FLOAT(av, 0))
{
if(ac == 1)
iem_append_proxy_float(p, atom_getfloat(av));
else
iem_append_proxy_list(p, &s_list, ac, av);
}
else if(IS_A_SYMBOL(av, 0))
{
t_symbol *xsym=atom_getsymbol(av);
if(xsym == &s_symbol)
{
if(ac > 1)
iem_append_proxy_symbol(p, atom_getsymbol(av+1));
else
iem_append_proxy_symbol(p, gensym(""));
}
else if(xsym == &s_float)
{
if(ac > 1)
{
if(IS_A_FLOAT(av, 1))
iem_append_proxy_float(p, atom_getfloat(av+1));
else
iem_append_proxy_float(p, 0.0f);
}
else
iem_append_proxy_float(p, 0.0f);
}
else if(xsym == &s_list)
{
iem_append_proxy_list(p, &s_list, ac-1, av+1);
}
else
{
iem_append_proxy_anything(p, xsym, ac-1, av+1);
}
}
}
inlet_new((t_object *)x, (t_pd *)p, 0, 0);
outlet_new(&x->x_obj, &s_list);
return (x);
}
void iem_append_setup(void)
{
iem_append_class = class_new(gensym("iem_append"),
(t_newmethod)iem_append_new, (t_method)iem_append_free,
sizeof(t_iem_append), 0, A_GIMME, 0);
class_addcreator((t_newmethod)iem_append_new, gensym("merge_any"), A_GIMME, 0);
class_addbang(iem_append_class, (t_method)iem_append_bang);
class_addpointer(iem_append_class, iem_append_pointer);
class_addfloat(iem_append_class, (t_method)iem_append_float);
class_addsymbol(iem_append_class, iem_append_symbol);
class_addlist(iem_append_class, iem_append_list);
class_addanything(iem_append_class, iem_append_anything);
class_sethelpsymbol(iem_append_class, gensym("iemhelp/help-iem_append"));
iem_append_proxy_class = class_new(gensym("_iem_append_proxy"),
0, 0, sizeof(t_iem_append_proxy), CLASS_PD | CLASS_NOINLET, 0);
class_addbang(iem_append_proxy_class, (t_method)iem_append_proxy_bang);
class_addpointer(iem_append_proxy_class, iem_append_proxy_pointer);
class_addfloat(iem_append_proxy_class, (t_method)iem_append_proxy_float);
class_addsymbol(iem_append_proxy_class, iem_append_proxy_symbol);
class_addlist(iem_append_proxy_class, iem_append_proxy_list);
class_addanything(iem_append_proxy_class, iem_append_proxy_anything);
}
1
0
Update of /cvsroot/pure-data/externals/iemlib/src/iemlib2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29541/iemlib2
Modified Files:
add2_comma.c bpe.c dollarg.c exp_inc.c float24.c
iem_anything_kernel.c iem_append_kernel.c iem_i_route.c
iem_pbank_csv.c iem_prepend_kernel.c iem_receive_kernel.c
iem_route.c iem_sel_any.c iem_send_kernel.c iemlib.h iemlib2.c
init.c list2send.c makefile makefile_win mergefilename.c
modulo_counter.c post_netreceive.c pre_inlet.c prepend_ascii.c
prepend_kernel.c round_zero.c sigLFO_noise.c sigfade.c
sigiem_blocksize.c sigiem_samplerate.c sigm2f.c speedlim.c
splitfilename.c stripfilename.c toggle_mess.c transf_fader.c
unsymbol.c wrap.c
Log Message:
updated to release-1.16
Index: sigLFO_noise.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/sigLFO_noise.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigLFO_noise.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- sigLFO_noise.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,129 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ LFO_noise~ ----------------------------- */
!
! static t_class *sigLFO_noise_class;
!
! typedef struct _sigLFO_noise
! {
! t_object x_obj;
! double x_range;
! double x_rcp_range;
! unsigned int x_state;
! float x_fact;
! float x_incr;
! float x_y1;
! float x_y2;
! float x_phase;
! } t_sigLFO_noise;
!
! static int sigLFO_noise_makeseed(void)
! {
! static unsigned int sigLFO_noise_nextseed = 1489853723;
!
! sigLFO_noise_nextseed = sigLFO_noise_nextseed * 435898247 + 938284287;
! return(sigLFO_noise_nextseed & 0x7fffffff);
! }
!
! static float sigLFO_noise_new_rand(t_sigLFO_noise *x)
! {
! unsigned int state = x->x_state;
! double new_val, range = x->x_range;
!
! x->x_state = state = state * 472940017 + 832416023;
! new_val = range * ((double)state) * (1./4294967296.);
! if(new_val >= range)
! new_val = range-1;
! new_val -= 32767.0;
! return(new_val*(1.0/32767.0));
! }
!
! static void *sigLFO_noise_new(t_float freq)
! {
! t_sigLFO_noise *x = (t_sigLFO_noise *)pd_new(sigLFO_noise_class);
!
! x->x_range = 65535.0;
! x->x_rcp_range = (double)x->x_range * (1.0/4294967296.0);
! x->x_state = sigLFO_noise_makeseed();
! x->x_fact = 2. / 44100.0;
! x->x_incr = freq * x->x_fact;
! if(x->x_incr < 0.0)
! x->x_incr = 0.0;
! else if(x->x_incr > 0.1)
! x->x_incr = 0.1;
! x->x_y1 = sigLFO_noise_new_rand(x);
! x->x_y2 = sigLFO_noise_new_rand(x);
! x->x_phase = 0.0;
! outlet_new(&x->x_obj, gensym("signal"));
! return (x);
! }
!
! static t_int *sigLFO_noise_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigLFO_noise *x = (t_sigLFO_noise *)(w[2]);
! int n = (int)(w[3]);
! float phase = x->x_phase;
! float x_y1 = x->x_y1;
! float x_y2 = x->x_y2;
! float incr = x->x_incr;
!
! while(n--)
! {
! if(phase > 1.0)
! {
! x_y1 = x_y2;
! x_y2 = sigLFO_noise_new_rand(x);
! phase -= 1.0;
! }
! *out++ = (x_y2 - x_y1) * phase + x_y1;
! phase += incr;
! }
! x->x_phase = phase;
! x->x_y1 = x_y1;
! x->x_y2 = x_y2;
! return (w+4);
! }
!
! static void sigLFO_noise_float(t_sigLFO_noise *x, t_float freq)
! {
! x->x_incr = freq * x->x_fact;
! if(x->x_incr < 0.0)
! x->x_incr = 0.0;
! else if(x->x_incr > 0.1)
! x->x_incr = 0.1;
! }
!
! static void sigLFO_noise_dsp(t_sigLFO_noise *x, t_signal **sp)
! {
! x->x_fact = 2. / sp[0]->s_sr;
! dsp_add(sigLFO_noise_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! void sigLFO_noise_setup(void)
! {
! sigLFO_noise_class = class_new(gensym("LFO_noise~"),
! (t_newmethod)sigLFO_noise_new, 0,
! sizeof(t_sigLFO_noise), 0, A_DEFFLOAT, 0);
! class_addmethod(sigLFO_noise_class, (t_method)sigLFO_noise_dsp,
! gensym("dsp"), 0);
! class_addfloat(sigLFO_noise_class, (t_method)sigLFO_noise_float);
! class_sethelpsymbol(sigLFO_noise_class, gensym("iemhelp/help-LFO_noise~"));
! }
!
--- 1,128 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* -------------------- LFO_noise~ --------------------- */
! /* ---- outputs a 2 point interpolated white noise ----- */
! /* -- with lower cutoff frequency than 0.5 samplerate -- */
!
! static t_class *sigLFO_noise_class;
!
! typedef struct _sigLFO_noise
! {
! t_object x_obj;
! double x_range;
! double x_rcp_range;
! unsigned int x_state;
! float x_fact;
! float x_incr;
! float x_y1;
! float x_y2;
! float x_phase;
! } t_sigLFO_noise;
!
! static int sigLFO_noise_makeseed(void)
! {
! static unsigned int sigLFO_noise_nextseed = 1489853723;
!
! sigLFO_noise_nextseed = sigLFO_noise_nextseed * 435898247 + 938284287;
! return(sigLFO_noise_nextseed & 0x7fffffff);
! }
!
! static float sigLFO_noise_new_rand(t_sigLFO_noise *x)
! {
! unsigned int state = x->x_state;
! double new_val, range = x->x_range;
!
! x->x_state = state = state * 472940017 + 832416023;
! new_val = range * ((double)state) * (1./4294967296.);
! if(new_val >= range)
! new_val = range-1;
! new_val -= 32767.0;
! return(new_val*(1.0/32767.0));
! }
!
! static void *sigLFO_noise_new(t_float freq)
! {
! t_sigLFO_noise *x = (t_sigLFO_noise *)pd_new(sigLFO_noise_class);
!
! x->x_range = 65535.0;
! x->x_rcp_range = (double)x->x_range * (1.0/4294967296.0);
! x->x_state = sigLFO_noise_makeseed();
! x->x_fact = 2. / 44100.0;
! x->x_incr = freq * x->x_fact;
! if(x->x_incr < 0.0)
! x->x_incr = 0.0;
! else if(x->x_incr > 0.1)
! x->x_incr = 0.1;
! x->x_y1 = sigLFO_noise_new_rand(x);
! x->x_y2 = sigLFO_noise_new_rand(x);
! x->x_phase = 0.0;
! outlet_new(&x->x_obj, gensym("signal"));
! return (x);
! }
!
! static t_int *sigLFO_noise_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigLFO_noise *x = (t_sigLFO_noise *)(w[2]);
! int n = (int)(w[3]);
! float phase = x->x_phase;
! float x_y1 = x->x_y1;
! float x_y2 = x->x_y2;
! float incr = x->x_incr;
!
! while(n--)
! {
! if(phase > 1.0)
! {
! x_y1 = x_y2;
! x_y2 = sigLFO_noise_new_rand(x);
! phase -= 1.0;
! }
! *out++ = (x_y2 - x_y1) * phase + x_y1;
! phase += incr;
! }
! x->x_phase = phase;
! x->x_y1 = x_y1;
! x->x_y2 = x_y2;
! return (w+4);
! }
!
! static void sigLFO_noise_float(t_sigLFO_noise *x, t_float freq)
! {
! x->x_incr = freq * x->x_fact;
! if(x->x_incr < 0.0)
! x->x_incr = 0.0;
! else if(x->x_incr > 0.1)
! x->x_incr = 0.1;
! }
!
! static void sigLFO_noise_dsp(t_sigLFO_noise *x, t_signal **sp)
! {
! x->x_fact = 2. / sp[0]->s_sr;
! dsp_add(sigLFO_noise_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! void sigLFO_noise_setup(void)
! {
! sigLFO_noise_class = class_new(gensym("LFO_noise~"),
! (t_newmethod)sigLFO_noise_new, 0,
! sizeof(t_sigLFO_noise), 0, A_DEFFLOAT, 0);
! class_addmethod(sigLFO_noise_class, (t_method)sigLFO_noise_dsp,
! gensym("dsp"), 0);
! class_addfloat(sigLFO_noise_class, (t_method)sigLFO_noise_float);
! class_sethelpsymbol(sigLFO_noise_class, gensym("iemhelp/help-LFO_noise~"));
! }
Index: init.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/init.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** init.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- init.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,203 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ init ---------------------------- */
! static t_class *init_class;
!
! typedef struct _init
! {
! t_object x_obj;
! int x_n;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_init;
!
! static void init_bang(t_init *x)
! {
! if(x->x_type == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at));
! else if(x->x_type == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at));
! else if(x->x_type == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! else if(x->x_type == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! else if(x->x_type == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at->a_w.w_gpointer);
! }
!
! static void init_loadbang(t_init *x)
! {
! if(!sys_noloadbang)
! init_bang(x);
! }
!
! static void init_float(t_init *x, t_float f)
! {
! x->x_ac = 1;
! SETFLOAT(x->x_at, f);
! x->x_sym = &s_float;
! x->x_type = A_FLOAT;
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void init_symbol(t_init *x, t_symbol *s)
! {
! x->x_ac = 1;
! SETSYMBOL(x->x_at, s);
! x->x_sym = &s_symbol;
! x->x_type = A_SYMBOL;
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void init_pointer(t_init *x, t_gpointer *gp)
! {
! x->x_ac = 1;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_pointer;
! x->x_type = A_POINTER;
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void init_list(t_init *x, t_symbol *s, int ac, t_atom *av)
! {
! t_atom *at;
!
! if(ac > x->x_n)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! x->x_n = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! x->x_ac = ac;
! x->x_sym = &s_list;
! at = x->x_at;
! while(ac--)
! *at++ = *av++;
! x->x_type = A_GIMME;
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! }
!
! static void init_anything(t_init *x, t_symbol *s, int ac, t_atom *av)
! {
! t_atom *at;
!
! if(ac > x->x_n)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! x->x_n = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! x->x_ac = ac;
! x->x_sym = s;
! at = x->x_at;
! while(ac--)
! *at++ = *av++;
! x->x_type = A_COMMA;
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
!
! static void init_free(t_init *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! }
!
! static void *init_new(t_symbol *s, int ac, t_atom *av)
! {
! t_init *x = (t_init *)pd_new(init_class);
! int i;
!
! x->x_type = A_NULL;
! if(!ac)
! {
! x->x_type = A_NULL;
! x->x_sym = &s_bang;
! x->x_n = 1;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type = A_COMMA;
! x->x_sym = atom_getsymbol(av);
! x->x_n = 1;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! else
! {
! if(IS_A_FLOAT(av,0))
! {
! x->x_type = A_FLOAT;
! x->x_sym = &s_float;
! }
! else if(IS_A_POINTER(av,0))
! {
! x->x_type = A_POINTER;
! x->x_sym = &s_pointer;
! }
! x->x_n = x->x_ac = 1;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! x->x_at[0] = *av;
! }
! }
! else
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type = A_COMMA;/*for anything*/
! x->x_sym = atom_getsymbol(av++);
! ac--;
! }
! else
! {
! x->x_type = A_GIMME;
! x->x_sym = &s_list;
! }
! x->x_n = x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! for(i=0; i<ac; i++)
! x->x_at[i] = *av++;
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void init_setup(void)
! {
! init_class = class_new(gensym("init"), (t_newmethod)init_new,
! (t_method)init_free, sizeof(t_init), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)init_new, gensym("ii"), A_GIMME, 0);
! class_addmethod(init_class, (t_method)init_loadbang, gensym("loadbang"), 0);
! class_addbang(init_class, (t_method)init_bang);
! class_addanything(init_class, init_anything);
! class_addlist(init_class, init_list);
! class_addpointer(init_class, init_pointer);
! class_addfloat(init_class, (t_method)init_float);
! class_addsymbol(init_class, init_symbol);
! class_sethelpsymbol(init_class, gensym("iemhelp/help-init"));
! }
!
--- 1,204 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ init ---------------------------- */
! /* -------- a combination of loadbang and any --------------- */
!
! static t_class *init_class;
!
! typedef struct _init
! {
! t_object x_obj;
! int x_n;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_init;
!
! static void init_bang(t_init *x)
! {
! if(x->x_type == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at));
! else if(x->x_type == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at));
! else if(x->x_type == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! else if(x->x_type == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! else if(x->x_type == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at->a_w.w_gpointer);
! }
!
! static void init_loadbang(t_init *x)
! {
! if(!sys_noloadbang)
! init_bang(x);
! }
!
! static void init_float(t_init *x, t_float f)
! {
! x->x_ac = 1;
! SETFLOAT(x->x_at, f);
! x->x_sym = &s_float;
! x->x_type = A_FLOAT;
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void init_symbol(t_init *x, t_symbol *s)
! {
! x->x_ac = 1;
! SETSYMBOL(x->x_at, s);
! x->x_sym = &s_symbol;
! x->x_type = A_SYMBOL;
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void init_pointer(t_init *x, t_gpointer *gp)
! {
! x->x_ac = 1;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_pointer;
! x->x_type = A_POINTER;
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void init_list(t_init *x, t_symbol *s, int ac, t_atom *av)
! {
! t_atom *at;
!
! if(ac > x->x_n)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! x->x_n = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! x->x_ac = ac;
! x->x_sym = &s_list;
! at = x->x_at;
! while(ac--)
! *at++ = *av++;
! x->x_type = A_GIMME;
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! }
!
! static void init_anything(t_init *x, t_symbol *s, int ac, t_atom *av)
! {
! t_atom *at;
!
! if(ac > x->x_n)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! x->x_n = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! x->x_ac = ac;
! x->x_sym = s;
! at = x->x_at;
! while(ac--)
! *at++ = *av++;
! x->x_type = A_COMMA;
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
!
! static void init_free(t_init *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! }
!
! static void *init_new(t_symbol *s, int ac, t_atom *av)
! {
! t_init *x = (t_init *)pd_new(init_class);
! int i;
!
! x->x_type = A_NULL;
! if(!ac)
! {
! x->x_type = A_NULL;
! x->x_sym = &s_bang;
! x->x_n = 1;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type = A_COMMA;
! x->x_sym = atom_getsymbol(av);
! x->x_n = 1;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! else
! {
! if(IS_A_FLOAT(av,0))
! {
! x->x_type = A_FLOAT;
! x->x_sym = &s_float;
! }
! else if(IS_A_POINTER(av,0))
! {
! x->x_type = A_POINTER;
! x->x_sym = &s_pointer;
! }
! x->x_n = x->x_ac = 1;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! x->x_at[0] = *av;
! }
! }
! else
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type = A_COMMA;/*for anything*/
! x->x_sym = atom_getsymbol(av++);
! ac--;
! }
! else
! {
! x->x_type = A_GIMME;
! x->x_sym = &s_list;
! }
! x->x_n = x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! for(i=0; i<ac; i++)
! x->x_at[i] = *av++;
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void init_setup(void)
! {
! init_class = class_new(gensym("init"), (t_newmethod)init_new,
! (t_method)init_free, sizeof(t_init), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)init_new, gensym("ii"), A_GIMME, 0);
! class_addmethod(init_class, (t_method)init_loadbang, gensym("loadbang"), 0);
! class_addbang(init_class, (t_method)init_bang);
! class_addanything(init_class, init_anything);
! class_addlist(init_class, init_list);
! class_addpointer(init_class, init_pointer);
! class_addfloat(init_class, (t_method)init_float);
! class_addsymbol(init_class, init_symbol);
! class_sethelpsymbol(init_class, gensym("iemhelp/help-init"));
! }
Index: makefile_win
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/makefile_win,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** makefile_win 9 Mar 2005 17:16:00 -0000 1.2
--- makefile_win 2 Jun 2005 18:25:00 -0000 1.3
***************
*** 28,46 ****
--- 28,54 ----
float24.c \
iem_anything_kernel.c \
+ iem_anything.c \
iem_append_kernel.c \
+ iem_append.c \
iem_i_route.c \
iem_pbank_csv.c \
iem_prepend_kernel.c \
+ iem_prepend.c \
iem_receive_kernel.c \
+ iem_receive.c \
iem_route.c \
iem_sel_any.c \
iem_send_kernel.c \
+ iem_send.c \
init.c \
list2send.c \
mergefilename.c \
modulo_counter.c \
+ parentdollarzero.c \
post_netreceive.c \
pre_inlet.c \
prepend_ascii.c \
+ protect_against_open.c \
+ receive2list.c \
round_zero.c \
sigfade.c \
Index: exp_inc.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/exp_inc.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** exp_inc.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- exp_inc.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,138 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ exp_inc ---------------------------- */
! static t_class *exp_inc_class;
!
! typedef struct _exp_inc
! {
! t_object x_obj;
! float x_initialval;
! float x_currentval;
! float x_mulfactor;
! float x_addincrement;
! float x_min;
! float x_max;
! } t_exp_inc;
!
! static void exp_inc_bang(t_exp_inc *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_currentval);
! x->x_currentval = x->x_currentval * x->x_mulfactor + x->x_addincrement;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_reset(t_exp_inc *x)
! {
! x->x_currentval = x->x_initialval;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_float(t_exp_inc *x, t_floatarg f)
! {
! x->x_initialval = (float)f;
! x->x_currentval = x->x_initialval;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_ft1(t_exp_inc *x, t_floatarg f)
! {
! x->x_mulfactor = 1.0 + 0.01*(float)f;
! }
!
! static void exp_inc_ft2(t_exp_inc *x, t_floatarg f)
! {
! x->x_addincrement = (float)f;
! }
!
! static void exp_inc_ft3(t_exp_inc *x, t_floatarg f)
! {
! x->x_min = (float)f;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! }
!
! static void exp_inc_ft4(t_exp_inc *x, t_floatarg f)
! {
! x->x_max = (float)f;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_list(t_exp_inc *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 5)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1)&&IS_A_FLOAT(av,2)
! &&IS_A_FLOAT(av,3)&&IS_A_FLOAT(av,4))
! {
! exp_inc_ft4(x, atom_getfloatarg(4, ac, av));
! exp_inc_ft3(x, atom_getfloatarg(3, ac, av));
! exp_inc_ft2(x, atom_getfloatarg(2, ac, av));
! exp_inc_ft1(x, atom_getfloatarg(1, ac, av));
! exp_inc_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void *exp_inc_new(t_symbol *s, int ac, t_atom *av)
! {
! t_exp_inc *x = (t_exp_inc *)pd_new(exp_inc_class);
!
! x->x_currentval = 10.0;
! x->x_mulfactor = 1.0;
! x->x_addincrement = 0.0;
! x->x_min = 0.0;
! x->x_max = 1000.0;
! if((ac == 5)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1)&&IS_A_FLOAT(av,2)
! &&IS_A_FLOAT(av,3)&&IS_A_FLOAT(av,4))
! {
! exp_inc_ft4(x, atom_getfloatarg(4, ac, av));
! exp_inc_ft3(x, atom_getfloatarg(3, ac, av));
! exp_inc_ft2(x, atom_getfloatarg(2, ac, av));
! exp_inc_ft1(x, atom_getfloatarg(1, ac, av));
! exp_inc_float(x, atom_getfloatarg(0, ac, av));
! }
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft3"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft4"));
! return (x);
! }
!
! void exp_inc_setup(void)
! {
! exp_inc_class = class_new(gensym("exp_inc"), (t_newmethod)exp_inc_new,
! 0, sizeof(t_exp_inc), 0, A_GIMME, 0);
! class_addbang(exp_inc_class, exp_inc_bang);
! class_addlist(exp_inc_class, (t_method)exp_inc_list);
! class_addmethod(exp_inc_class, (t_method)exp_inc_reset, gensym("reset"), 0);
! class_addfloat(exp_inc_class, (t_method)exp_inc_float);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft4, gensym("ft4"), A_FLOAT, 0);
! class_sethelpsymbol(exp_inc_class, gensym("iemhelp/help-exp_inc"));
! }
!
--- 1,135 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ exp_inc ---------------------------- */
! /* ------- exponetial/linear-incremental-bang-counter ---------- */
!
!
! static t_class *exp_inc_class;
!
! typedef struct _exp_inc
! {
! t_object x_obj;
! float x_initialval;
! float x_currentval;
! float x_mulfactor;
! float x_addincrement;
! float x_min;
! float x_max;
! } t_exp_inc;
!
! static void exp_inc_bang(t_exp_inc *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_currentval);
! x->x_currentval = x->x_currentval * x->x_mulfactor + x->x_addincrement;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_reset(t_exp_inc *x)
! {
! x->x_currentval = x->x_initialval;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_float(t_exp_inc *x, t_floatarg f)
! {
! x->x_initialval = (float)f;
! x->x_currentval = x->x_initialval;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_ft1(t_exp_inc *x, t_floatarg f)
! {
! x->x_mulfactor = 1.0 + 0.01*(float)f;
! }
!
! static void exp_inc_ft2(t_exp_inc *x, t_floatarg f)
! {
! x->x_addincrement = (float)f;
! }
!
! static void exp_inc_ft3(t_exp_inc *x, t_floatarg f)
! {
! x->x_min = (float)f;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! }
!
! static void exp_inc_ft4(t_exp_inc *x, t_floatarg f)
! {
! x->x_max = (float)f;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_list(t_exp_inc *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 5)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1)&&IS_A_FLOAT(av,2)
! &&IS_A_FLOAT(av,3)&&IS_A_FLOAT(av,4))
! {
! exp_inc_ft4(x, atom_getfloatarg(4, ac, av));
! exp_inc_ft3(x, atom_getfloatarg(3, ac, av));
! exp_inc_ft2(x, atom_getfloatarg(2, ac, av));
! exp_inc_ft1(x, atom_getfloatarg(1, ac, av));
! exp_inc_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void *exp_inc_new(t_symbol *s, int ac, t_atom *av)
! {
! t_exp_inc *x = (t_exp_inc *)pd_new(exp_inc_class);
!
! x->x_currentval = 10.0;
! x->x_mulfactor = 1.0;
! x->x_addincrement = 0.0;
! x->x_min = 0.0;
! x->x_max = 1000.0;
! if((ac == 5)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1)&&IS_A_FLOAT(av,2)
! &&IS_A_FLOAT(av,3)&&IS_A_FLOAT(av,4))
! {
! exp_inc_ft4(x, atom_getfloatarg(4, ac, av));
! exp_inc_ft3(x, atom_getfloatarg(3, ac, av));
! exp_inc_ft2(x, atom_getfloatarg(2, ac, av));
! exp_inc_ft1(x, atom_getfloatarg(1, ac, av));
! exp_inc_float(x, atom_getfloatarg(0, ac, av));
! }
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft3"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft4"));
! return (x);
! }
!
! void exp_inc_setup(void)
! {
! exp_inc_class = class_new(gensym("exp_inc"), (t_newmethod)exp_inc_new,
! 0, sizeof(t_exp_inc), 0, A_GIMME, 0);
! class_addbang(exp_inc_class, exp_inc_bang);
! class_addlist(exp_inc_class, (t_method)exp_inc_list);
! class_addmethod(exp_inc_class, (t_method)exp_inc_reset, gensym("reset"), 0);
! class_addfloat(exp_inc_class, (t_method)exp_inc_float);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft4, gensym("ft4"), A_FLOAT, 0);
! class_sethelpsymbol(exp_inc_class, gensym("iemhelp/help-exp_inc"));
! }
Index: iem_i_route.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_i_route.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_i_route.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- iem_i_route.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,111 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- iem_i_route ------------------------------ */
! /* routes a list beginning with a float to an outlet, which are defined by
! first- , last- index and offset-index */
!
! static t_class *iem_i_route_class;
!
! typedef struct _iem_i_route
! {
! t_object x_obj;
! int x_first_element;
! int x_last_element;
! t_outlet **x_out;
! } t_iem_i_route;
!
! static void iem_i_route_list(t_iem_i_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_outlet **out;
! int first, last, i;
!
! if(!argc)
! return;
! i = (int)atom_getintarg(0, argc, argv);
! first = x->x_first_element;
! last = x->x_last_element;
! out = x->x_out;
! if((i >= first)&&(i <= last))
! {
! out += i - first;
! if(argc >= 3)
! {
! if(IS_A_FLOAT(argv,1))
! outlet_list(*out, &s_list, argc-1, argv+1);
! else if(IS_A_SYMBOL(argv,1))
! outlet_anything(*out, atom_getsymbolarg(1, argc, argv), argc-2, argv+2);
! }
! else if(argc >= 2)
! {
! if(IS_A_FLOAT(argv,1))
! outlet_float(*out, (float)atom_getfloatarg(1, argc, argv));
! else if(IS_A_SYMBOL(argv,1))
! outlet_anything(*out, atom_getsymbolarg(1, argc, argv), 0, argv+2);
! }
! else
! outlet_bang(*out);
! }
! else
! {
! out += last - first + 1;
! outlet_list(*out, &s_list, argc, argv);
! }
! }
!
! static void iem_i_route_free(t_iem_i_route *x)
! {
! freebytes(x->x_out, (x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
! }
!
! static void *iem_i_route_new(t_symbol *s, int argc, t_atom *argv)
! {
! int n, i;
! t_outlet **out;
! t_iem_i_route *x = (t_iem_i_route *)pd_new(iem_i_route_class);
!
! if((argc >= 2)&&IS_A_FLOAT(argv,0)&&IS_A_FLOAT(argv,1))
! {
! x->x_first_element = (int)atom_getintarg(0, argc, argv);
! x->x_last_element = (int)atom_getintarg(1, argc, argv);
! if((argc >= 3)&&IS_A_FLOAT(argv,2))
! {
! i = (int)atom_getintarg(2, argc, argv);
! x->x_first_element += i;
! x->x_last_element += i;
! }
! x->x_out = (t_outlet **)getbytes((x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
! n = x->x_last_element - x->x_first_element + 2;
! for(i=0, out=x->x_out; i<n; i++, out++)
! *out = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
! else
! {
! post("iem_i_route-ERROR: needs 3 floats!!");
! return(0);
! }
! }
!
! void iem_i_route_setup(void)
! {
! iem_i_route_class = class_new(gensym("iem_i_route"), (t_newmethod)iem_i_route_new,
! (t_method)iem_i_route_free, sizeof(t_iem_i_route), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_i_route_new, gensym("iiroute"), A_GIMME, 0);
! class_addlist(iem_i_route_class, iem_i_route_list);
! class_sethelpsymbol(iem_i_route_class, gensym("iemhelp/help-iem_i_route"));
! }
--- 1,112 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- iem_i_route ------------------------------ */
! /* ---- routes a list beginning with a float to an outlet, which is ---- */
! /* -- defined by the 3 initial arguments first index, last index and --- */
! /* ---------------------- offset index --------------------------------- */
!
! static t_class *iem_i_route_class;
!
! typedef struct _iem_i_route
! {
! t_object x_obj;
! int x_first_element;
! int x_last_element;
! t_outlet **x_out;
! } t_iem_i_route;
!
! static void iem_i_route_list(t_iem_i_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_outlet **out;
! int first, last, i;
!
! if(!argc)
! return;
! i = (int)atom_getintarg(0, argc, argv);
! first = x->x_first_element;
! last = x->x_last_element;
! out = x->x_out;
! if((i >= first)&&(i <= last))
! {
! out += i - first;
! if(argc >= 3)
! {
! if(IS_A_FLOAT(argv,1))
! outlet_list(*out, &s_list, argc-1, argv+1);
! else if(IS_A_SYMBOL(argv,1))
! outlet_anything(*out, atom_getsymbolarg(1, argc, argv), argc-2, argv+2);
! }
! else if(argc >= 2)
! {
! if(IS_A_FLOAT(argv,1))
! outlet_float(*out, (float)atom_getfloatarg(1, argc, argv));
! else if(IS_A_SYMBOL(argv,1))
! outlet_anything(*out, atom_getsymbolarg(1, argc, argv), 0, argv+2);
! }
! else
! outlet_bang(*out);
! }
! else
! {
! out += last - first + 1;
! outlet_list(*out, &s_list, argc, argv);
! }
! }
!
! static void iem_i_route_free(t_iem_i_route *x)
! {
! freebytes(x->x_out, (x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
! }
!
! static void *iem_i_route_new(t_symbol *s, int argc, t_atom *argv)
! {
! int n, i;
! t_outlet **out;
! t_iem_i_route *x = (t_iem_i_route *)pd_new(iem_i_route_class);
!
! if((argc >= 2)&&IS_A_FLOAT(argv,0)&&IS_A_FLOAT(argv,1))
! {
! x->x_first_element = (int)atom_getintarg(0, argc, argv);
! x->x_last_element = (int)atom_getintarg(1, argc, argv);
! if((argc >= 3)&&IS_A_FLOAT(argv,2))
! {
! i = (int)atom_getintarg(2, argc, argv);
! x->x_first_element += i;
! x->x_last_element += i;
! }
! x->x_out = (t_outlet **)getbytes((x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
! n = x->x_last_element - x->x_first_element + 2;
! for(i=0, out=x->x_out; i<n; i++, out++)
! *out = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
! else
! {
! post("iem_i_route-ERROR: needs 3 floats!!");
! return(0);
! }
! }
!
! void iem_i_route_setup(void)
! {
! iem_i_route_class = class_new(gensym("iem_i_route"), (t_newmethod)iem_i_route_new,
! (t_method)iem_i_route_free, sizeof(t_iem_i_route), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_i_route_new, gensym("iiroute"), A_GIMME, 0);
! class_addlist(iem_i_route_class, iem_i_route_list);
! class_sethelpsymbol(iem_i_route_class, gensym("iemhelp/help-iem_i_route"));
! }
Index: prepend_ascii.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/prepend_ascii.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** prepend_ascii.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- prepend_ascii.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,127 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ prepend_ascii ---------------------------- */
! static t_class *prepend_ascii_class;
!
! typedef struct _prepend_ascii
! {
! t_object x_obj;
! t_atom *x_at;
! int x_size;
! int x_ac;
! t_symbol *x_sym;
! } t_prepend_ascii;
!
! static void prepend_ascii_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void prepend_ascii_bang(t_prepend_ascii *x)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
!
! static void prepend_ascii_float(t_prepend_ascii *x, t_float f)
! {
! SETFLOAT(x->x_at+x->x_ac, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_symbol(t_prepend_ascii *x, t_symbol *s)
! {
! SETSYMBOL(x->x_at+x->x_ac, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_pointer(t_prepend_ascii *x, t_gpointer *gp)
! {
! SETPOINTER(x->x_at+x->x_ac, gp);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_list(t_prepend_ascii *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac)*sizeof(t_atom));
! x->x_size = (ac+x->x_ac);
! }
! prepend_ascii_atcopy(av, x->x_at+x->x_ac, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+x->x_ac, x->x_at);
! }
!
! static void prepend_ascii_anything(t_prepend_ascii *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = (ac+x->x_ac+1);
! }
! SETSYMBOL(x->x_at+x->x_ac, s);
! prepend_ascii_atcopy(av, x->x_at+x->x_ac+1, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_free(t_prepend_ascii *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *prepend_ascii_new(t_symbol *s, int ac, t_atom *av)
! {
! if((ac <= 0) || (!IS_A_FLOAT(av,0)))
! {
! post("ERROR: prepend_ascii need a float between 1 and 255 as 1. arg. !!!");
! return(0);
! }
! else
! {
! t_prepend_ascii *x = (t_prepend_ascii *)pd_new(prepend_ascii_class);
! char str[2];
! int i;
!
! x->x_size = 10 + ac;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! str[0] = (char)((int)(atom_getfloatarg(0,ac,av))&0xff);
! str[1] = 0;
! x->x_sym = gensym(str);
! x->x_ac = ac - 1;
! for(i=1; i<ac; i++)
! x->x_at[i-1] = av[i];
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
! }
!
! void prepend_ascii_setup(void)
! {
! prepend_ascii_class = class_new(gensym("prepend_ascii"), (t_newmethod)prepend_ascii_new,
! (t_method)prepend_ascii_free, sizeof(t_prepend_ascii), 0, A_GIMME, 0);
! class_addbang(prepend_ascii_class, (t_method)prepend_ascii_bang);
! class_addfloat(prepend_ascii_class, (t_method)prepend_ascii_float);
! class_addsymbol(prepend_ascii_class, prepend_ascii_symbol);
! class_addpointer(prepend_ascii_class, prepend_ascii_pointer);
! class_addlist(prepend_ascii_class, prepend_ascii_list);
! class_addanything(prepend_ascii_class, prepend_ascii_anything);
! class_sethelpsymbol(prepend_ascii_class, gensym("iemhelp/help-prepend_ascii"));
! }
!
--- 1,129 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------- prepend_ascii ---------------------------- */
! /* -- this object prepends to any incoming message a selector symbol -- */
! /* --- containing the n-th character of the ASCII-table. "n" is the --- */
! /* ----------------- first initial argument (integer) ----------------- */
!
! static t_class *prepend_ascii_class;
!
! typedef struct _prepend_ascii
! {
! t_object x_obj;
! t_atom *x_at;
! int x_size;
! int x_ac;
! t_symbol *x_sym;
! } t_prepend_ascii;
!
! static void prepend_ascii_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void prepend_ascii_bang(t_prepend_ascii *x)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
!
! static void prepend_ascii_float(t_prepend_ascii *x, t_float f)
! {
! SETFLOAT(x->x_at+x->x_ac, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_symbol(t_prepend_ascii *x, t_symbol *s)
! {
! SETSYMBOL(x->x_at+x->x_ac, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_pointer(t_prepend_ascii *x, t_gpointer *gp)
! {
! SETPOINTER(x->x_at+x->x_ac, gp);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_list(t_prepend_ascii *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac)*sizeof(t_atom));
! x->x_size = (ac+x->x_ac);
! }
! prepend_ascii_atcopy(av, x->x_at+x->x_ac, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+x->x_ac, x->x_at);
! }
!
! static void prepend_ascii_anything(t_prepend_ascii *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = (ac+x->x_ac+1);
! }
! SETSYMBOL(x->x_at+x->x_ac, s);
! prepend_ascii_atcopy(av, x->x_at+x->x_ac+1, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_free(t_prepend_ascii *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *prepend_ascii_new(t_symbol *s, int ac, t_atom *av)
! {
! if((ac <= 0) || (!IS_A_FLOAT(av,0)))
! {
! post("ERROR: prepend_ascii need a float between 1 and 255 as 1. arg. !!!");
! return(0);
! }
! else
! {
! t_prepend_ascii *x = (t_prepend_ascii *)pd_new(prepend_ascii_class);
! char str[2];
! int i;
!
! x->x_size = 10 + ac;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! str[0] = (char)((int)(atom_getfloatarg(0,ac,av))&0xff);
! str[1] = 0;
! x->x_sym = gensym(str);
! x->x_ac = ac - 1;
! for(i=1; i<ac; i++)
! x->x_at[i-1] = av[i];
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
! }
!
! void prepend_ascii_setup(void)
! {
! prepend_ascii_class = class_new(gensym("prepend_ascii"), (t_newmethod)prepend_ascii_new,
! (t_method)prepend_ascii_free, sizeof(t_prepend_ascii), 0, A_GIMME, 0);
! class_addbang(prepend_ascii_class, (t_method)prepend_ascii_bang);
! class_addfloat(prepend_ascii_class, (t_method)prepend_ascii_float);
! class_addsymbol(prepend_ascii_class, prepend_ascii_symbol);
! class_addpointer(prepend_ascii_class, prepend_ascii_pointer);
! class_addlist(prepend_ascii_class, prepend_ascii_list);
! class_addanything(prepend_ascii_class, prepend_ascii_anything);
! class_sethelpsymbol(prepend_ascii_class, gensym("iemhelp/help-prepend_ascii"));
! }
Index: round_zero.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/round_zero.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** round_zero.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- round_zero.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,67 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* ------------------------ round_zero ---------------------------- */
! static t_class *round_zero_class;
!
! typedef struct _round_zero
! {
! t_object x_obj;
! t_float x_bound;
! } t_round_zero;
!
! static void round_zero_anything(t_round_zero *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
! t_float f, bound=x->x_bound;
!
! for(i=0; i<ac; i++)
! {
! if(IS_A_FLOAT(av, i))
! {
! f = atom_getfloatarg(i, ac, av);
! if((f <= bound)&&(f >= -bound))
! {
! f = 0.0f;
! SETFLOAT(av+i, f);
! }
! }
! }
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void *round_zero_new(t_floatarg bound)
! {
! t_round_zero *x = (t_round_zero *)pd_new(round_zero_class);
!
! if(bound < 0.0f)
! x->x_bound = -bound;
! else
! x->x_bound = bound;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void round_zero_setup(void)
! {
! round_zero_class = class_new(gensym("round_zero"), (t_newmethod)round_zero_new,
! 0, sizeof(t_round_zero), 0, A_DEFFLOAT, 0);
! class_addanything(round_zero_class, round_zero_anything);
! class_sethelpsymbol(round_zero_class, gensym("iemhelp/help-round_zero"));
! }
!
--- 1,68 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdio.h>
! #include <string.h>
!
!
! /* ------------------------ round_zero ---------------------------- */
! /* ------ small float numbers of an anything message within ------- */
! /* ---- plus minus initial argument will be truncated to zero ----- */
!
! static t_class *round_zero_class;
!
! typedef struct _round_zero
! {
! t_object x_obj;
! t_float x_bound;
! } t_round_zero;
!
! static void round_zero_anything(t_round_zero *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
! t_float f, bound=x->x_bound;
!
! for(i=0; i<ac; i++)
! {
! if(IS_A_FLOAT(av, i))
! {
! f = atom_getfloatarg(i, ac, av);
! if((f <= bound)&&(f >= -bound))
! {
! f = 0.0f;
! SETFLOAT(av+i, f);
! }
! }
! }
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void *round_zero_new(t_floatarg bound)
! {
! t_round_zero *x = (t_round_zero *)pd_new(round_zero_class);
!
! if(bound < 0.0f)
! x->x_bound = -bound;
! else
! x->x_bound = bound;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void round_zero_setup(void)
! {
! round_zero_class = class_new(gensym("round_zero"), (t_newmethod)round_zero_new,
! 0, sizeof(t_round_zero), 0, A_DEFFLOAT, 0);
! class_addanything(round_zero_class, round_zero_anything);
! class_sethelpsymbol(round_zero_class, gensym("iemhelp/help-round_zero"));
! }
Index: iem_send_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_send_kernel.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_send_kernel.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- iem_send_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,140 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* -------------------- iem_send_kernel ------------------------------ */
!
! static t_class *iem_send_kernel_class;
!
! typedef struct _iem_send_kernel
! {
! t_object x_obj;
! t_symbol *x_sym;
! } t_iem_send_kernel;
!
! static void iem_send_kernel_set_name(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0)&&((IS_A_SYMBOL(argv,0))||(IS_A_FLOAT(argv,0))))
! {
! if(IS_A_SYMBOL(argv,0))
! x->x_sym = atom_getsymbol(argv);
! else if(IS_A_FLOAT(argv,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(argv));
! x->x_sym = gensym(str);
! }
! }
! }
!
! static void iem_send_kernel_clear(t_iem_send_kernel *x)
! {
! x->x_sym = 0;
! }
!
! static void iem_send_kernel_bang(t_iem_send_kernel *x)
! {
! if(x->x_sym->s_thing)
! pd_bang(x->x_sym->s_thing);
! }
!
! static void iem_send_kernel_float(t_iem_send_kernel *x, t_float f)
! {
! if(x->x_sym->s_thing)
! pd_float(x->x_sym->s_thing, f);
! }
!
! static void iem_send_kernel_symbol(t_iem_send_kernel *x, t_symbol *s)
! {
! if(x->x_sym->s_thing)
! pd_symbol(x->x_sym->s_thing, s);
! }
!
! static void iem_send_kernel_pointer(t_iem_send_kernel *x, t_gpointer *gp)
! {
! if(x->x_sym->s_thing)
! pd_pointer(x->x_sym->s_thing, gp);
! }
!
! static void iem_send_kernel_list(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_sym->s_thing)
! pd_list(x->x_sym->s_thing, s, argc, argv);
! }
!
! static void iem_send_kernel_anything(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_sym->s_thing)
! typedmess(x->x_sym->s_thing, s, argc, argv);
! }
!
! static void *iem_send_kernel_new(void)
! {
! t_iem_send_kernel *x = (t_iem_send_kernel *)pd_new(iem_send_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_sym = gensym(str);
! }
! else
! x->x_sym = 0;
! }
! else
! x->x_sym = 0;
! return (x);
! }
!
! void iem_send_kernel_setup(void)
! {
! char str[2];
!
! str[1] = 0;
! iem_send_kernel_class = class_new(gensym("iem_send_kernel"), (t_newmethod)iem_send_kernel_new, 0,
! sizeof(t_iem_send_kernel), 0, 0);
! class_addcreator((t_newmethod)iem_send_kernel_new, gensym("s"), A_DEFSYM, 0);
! class_addbang(iem_send_kernel_class, iem_send_kernel_bang);
! class_addfloat(iem_send_kernel_class, iem_send_kernel_float);
! class_addsymbol(iem_send_kernel_class, iem_send_kernel_symbol);
! class_addpointer(iem_send_kernel_class, iem_send_kernel_pointer);
! class_addlist(iem_send_kernel_class, iem_send_kernel_list);
! class_addanything(iem_send_kernel_class, iem_send_kernel_anything);
! str[0] = 1;/*inlet-sym = "\0x01"*/
! class_addmethod(iem_send_kernel_class, (t_method)iem_send_kernel_set_name, gensym(str), A_GIMME, 0);
! str[0] = 2;/*inlet-sym = "\0x02"*/
! class_addmethod(iem_send_kernel_class, (t_method)iem_send_kernel_clear, gensym(str), 0);
! class_sethelpsymbol(iem_send_kernel_class, gensym("iemhelp/help-iem_send"));
! }
--- 1,140 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* -------------------- iem_send_kernel ------------------------------ */
!
! static t_class *iem_send_kernel_class;
!
! typedef struct _iem_send_kernel
! {
! t_object x_obj;
! t_symbol *x_sym;
! } t_iem_send_kernel;
!
! static void iem_send_kernel_set_name(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0)&&((IS_A_SYMBOL(argv,0))||(IS_A_FLOAT(argv,0))))
! {
! if(IS_A_SYMBOL(argv,0))
! x->x_sym = atom_getsymbol(argv);
! else if(IS_A_FLOAT(argv,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(argv));
! x->x_sym = gensym(str);
! }
! }
! }
!
! static void iem_send_kernel_clear(t_iem_send_kernel *x)
! {
! x->x_sym = 0;
! }
!
! static void iem_send_kernel_bang(t_iem_send_kernel *x)
! {
! if(x->x_sym->s_thing)
! pd_bang(x->x_sym->s_thing);
! }
!
! static void iem_send_kernel_float(t_iem_send_kernel *x, t_float f)
! {
! if(x->x_sym->s_thing)
! pd_float(x->x_sym->s_thing, f);
! }
!
! static void iem_send_kernel_symbol(t_iem_send_kernel *x, t_symbol *s)
! {
! if(x->x_sym->s_thing)
! pd_symbol(x->x_sym->s_thing, s);
! }
!
! static void iem_send_kernel_pointer(t_iem_send_kernel *x, t_gpointer *gp)
! {
! if(x->x_sym->s_thing)
! pd_pointer(x->x_sym->s_thing, gp);
! }
!
! static void iem_send_kernel_list(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_sym->s_thing)
! pd_list(x->x_sym->s_thing, s, argc, argv);
! }
!
! static void iem_send_kernel_anything(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_sym->s_thing)
! typedmess(x->x_sym->s_thing, s, argc, argv);
! }
!
! static void *iem_send_kernel_new(void)
! {
! t_iem_send_kernel *x = (t_iem_send_kernel *)pd_new(iem_send_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_sym = gensym(str);
! }
! else
! x->x_sym = 0;
! }
! else
! x->x_sym = 0;
! return (x);
! }
!
! void iem_send_kernel_setup(void)
! {
! char str[2];
!
! str[1] = 0;
! iem_send_kernel_class = class_new(gensym("iem_send_kernel"), (t_newmethod)iem_send_kernel_new, 0,
! sizeof(t_iem_send_kernel), 0, 0);
! class_addcreator((t_newmethod)iem_send_kernel_new, gensym("s"), A_DEFSYM, 0);
! class_addbang(iem_send_kernel_class, iem_send_kernel_bang);
! class_addfloat(iem_send_kernel_class, iem_send_kernel_float);
! class_addsymbol(iem_send_kernel_class, iem_send_kernel_symbol);
! class_addpointer(iem_send_kernel_class, iem_send_kernel_pointer);
! class_addlist(iem_send_kernel_class, iem_send_kernel_list);
! class_addanything(iem_send_kernel_class, iem_send_kernel_anything);
! str[0] = 1;/*inlet-sym = "\0x01"*/
! class_addmethod(iem_send_kernel_class, (t_method)iem_send_kernel_set_name, gensym(str), A_GIMME, 0);
! str[0] = 2;/*inlet-sym = "\0x02"*/
! class_addmethod(iem_send_kernel_class, (t_method)iem_send_kernel_clear, gensym(str), 0);
! class_sethelpsymbol(iem_send_kernel_class, gensym("iemhelp/help-iem_send"));
! }
Index: add2_comma.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/add2_comma.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** add2_comma.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- add2_comma.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,123 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ add2_comma ---------------------------- */
! static t_class *add2_comma_class;
!
! typedef struct _add2_comma
! {
! t_object x_obj;
! int x_size;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_add2_comma;
!
! static void add2_comma_bang(t_add2_comma *x)
! {
! SETCOMMA(x->x_at);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, x->x_at);
! }
!
! static void add2_comma_float(t_add2_comma *x, t_float f)
! {
! SETCOMMA(x->x_at);
! SETFLOAT(x->x_at+1, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 2, x->x_at);
! }
!
! static void add2_comma_symbol(t_add2_comma *x, t_symbol *s)
! {
! SETCOMMA(x->x_at);
! SETSYMBOL(x->x_at+1, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 2, x->x_at);
! }
!
! /*static void add2_comma_pointer(t_add2_comma *x, t_gpointer *gp)
! {
! if(!x->x_at)
! {
! x->x_n = 1;
! x->x_at = (t_atom *)getbytes(sizeof(t_atom));
! }
! x->x_ac = 1;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_pointer;
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }*/
!
! static void add2_comma_list(t_add2_comma *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
!
! if((ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+2)*sizeof(t_atom));
! x->x_size = ac+2;
! }
! SETCOMMA(x->x_at);
! for(i=1; i<=ac; i++)
! x->x_at[i] = av[i-1];
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+1, x->x_at);
! }
!
! static void add2_comma_anything(t_add2_comma *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
!
! if((ac+2) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+3)*sizeof(t_atom));
! x->x_size = ac+3;
! }
! SETCOMMA(x->x_at);
! SETSYMBOL(x->x_at+1, s);
! for(i=1; i<=ac; i++)
! x->x_at[i+1] = av[i-1];
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+2, x->x_at);
! }
!
! static void add2_comma_free(t_add2_comma *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *add2_comma_new(void)
! {
! t_add2_comma *x = (t_add2_comma *)pd_new(add2_comma_class);
!
! x->x_size = 10;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! x->x_sym = gensym("add2");
! outlet_new(&x->x_obj, &s_list);
! return(x);
! }
!
! void add2_comma_setup(void)
! {
! add2_comma_class = class_new(gensym("add2_comma"), (t_newmethod)add2_comma_new,
! (t_method)add2_comma_free, sizeof(t_add2_comma), 0, 0);
! class_addbang(add2_comma_class, (t_method)add2_comma_bang);
! class_addanything(add2_comma_class, add2_comma_anything);
! class_addlist(add2_comma_class, add2_comma_list);
! /*class_addpointer(add2_comma_class, add2_comma_pointer);*/
! class_addfloat(add2_comma_class, (t_method)add2_comma_float);
! class_addsymbol(add2_comma_class, add2_comma_symbol);
! class_sethelpsymbol(add2_comma_class, gensym("iemhelp/help-add2_comma"));
! }
!
--- 1,119 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* --------------------------------- add2_comma ----------------------------------- */
! /* -- a special add2-message for messageboxes, which append a comma to a message -- */
!
! static t_class *add2_comma_class;
!
! typedef struct _add2_comma
! {
! t_object x_obj;
! int x_size;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_add2_comma;
!
! static void add2_comma_bang(t_add2_comma *x)
! {
! SETCOMMA(x->x_at);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, x->x_at);
! }
!
! static void add2_comma_float(t_add2_comma *x, t_float f)
! {
! SETCOMMA(x->x_at);
! SETFLOAT(x->x_at+1, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 2, x->x_at);
! }
!
! static void add2_comma_symbol(t_add2_comma *x, t_symbol *s)
! {
! SETCOMMA(x->x_at);
! SETSYMBOL(x->x_at+1, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 2, x->x_at);
! }
!
! /*static void add2_comma_pointer(t_add2_comma *x, t_gpointer *gp)
! {
! if(!x->x_at)
! {
! x->x_n = 1;
! x->x_at = (t_atom *)getbytes(sizeof(t_atom));
! }
! x->x_ac = 1;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_pointer;
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }*/
!
! static void add2_comma_list(t_add2_comma *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
!
! if((ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+2)*sizeof(t_atom));
! x->x_size = ac+2;
! }
! SETCOMMA(x->x_at);
! for(i=1; i<=ac; i++)
! x->x_at[i] = av[i-1];
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+1, x->x_at);
! }
!
! static void add2_comma_anything(t_add2_comma *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
!
! if((ac+2) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+3)*sizeof(t_atom));
! x->x_size = ac+3;
! }
! SETCOMMA(x->x_at);
! SETSYMBOL(x->x_at+1, s);
! for(i=1; i<=ac; i++)
! x->x_at[i+1] = av[i-1];
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+2, x->x_at);
! }
!
! static void add2_comma_free(t_add2_comma *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *add2_comma_new(void)
! {
! t_add2_comma *x = (t_add2_comma *)pd_new(add2_comma_class);
!
! x->x_size = 10;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! x->x_sym = gensym("add2");
! outlet_new(&x->x_obj, &s_list);
! return(x);
! }
!
! void add2_comma_setup(void)
! {
! add2_comma_class = class_new(gensym("add2_comma"), (t_newmethod)add2_comma_new,
! (t_method)add2_comma_free, sizeof(t_add2_comma), 0, 0);
! class_addbang(add2_comma_class, (t_method)add2_comma_bang);
! class_addanything(add2_comma_class, add2_comma_anything);
! class_addlist(add2_comma_class, add2_comma_list);
! /*class_addpointer(add2_comma_class, add2_comma_pointer);*/
! class_addfloat(add2_comma_class, (t_method)add2_comma_float);
! class_addsymbol(add2_comma_class, add2_comma_symbol);
! class_sethelpsymbol(add2_comma_class, gensym("iemhelp/help-add2_comma"));
! }
Index: wrap.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/wrap.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** wrap.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- wrap.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,69 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ---- wrap - float=int or list of float=symbol concaternat to int=float ----- */
!
!
!
! typedef struct _wrap
! {
! t_object x_obj;
! float x_f;
! } t_wrap;
!
! static t_class *wrap_class;
!
! static void wrap_bang(t_wrap *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_f);
! }
!
! static void wrap_float(t_wrap *x, t_float f)
! {
! int i=(int)f;
!
! if(f > 0.0)
! x->x_f = f - (float)i;
! else
! x->x_f = f - (float)(i - 1);
! wrap_bang(x);
! }
!
! static void wrap_list(t_wrap *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0) && (IS_A_FLOAT(argv, 0)))
! wrap_float(x, atom_getfloat(argv));
! }
!
! static void *wrap_new(void)
! {
! t_wrap *x = (t_wrap *)pd_new(wrap_class);
!
! outlet_new(&x->x_obj, &s_float);
! x->x_f = 0.0;
! return (x);
! }
!
! void wrap_setup(void)
! {
! wrap_class = class_new(gensym("wrap"), (t_newmethod)wrap_new, 0,
! sizeof(t_wrap), 0, 0);
! class_addbang(wrap_class, (t_method)wrap_bang);
! class_addfloat(wrap_class, (t_method)wrap_float);
! class_addlist(wrap_class, (t_method)wrap_list);
! class_sethelpsymbol(wrap_class, gensym("iemhelp/help-wrap"));
! }
--- 1,67 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ------------------------ wrap ----------------- */
! /* -- leave the fractal part of a float message -- */
!
! typedef struct _wrap
! {
! t_object x_obj;
! float x_f;
! } t_wrap;
!
! static t_class *wrap_class;
!
! static void wrap_bang(t_wrap *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_f);
! }
!
! static void wrap_float(t_wrap *x, t_float f)
! {
! int i=(int)f;
!
! if(f > 0.0)
! x->x_f = f - (float)i;
! else
! x->x_f = f - (float)(i - 1);
! wrap_bang(x);
! }
!
! static void wrap_list(t_wrap *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0) && (IS_A_FLOAT(argv, 0)))
! wrap_float(x, atom_getfloat(argv));
! }
!
! static void *wrap_new(void)
! {
! t_wrap *x = (t_wrap *)pd_new(wrap_class);
!
! outlet_new(&x->x_obj, &s_float);
! x->x_f = 0.0;
! return (x);
! }
!
! void wrap_setup(void)
! {
! wrap_class = class_new(gensym("wrap"), (t_newmethod)wrap_new, 0,
! sizeof(t_wrap), 0, 0);
! class_addbang(wrap_class, (t_method)wrap_bang);
! class_addfloat(wrap_class, (t_method)wrap_float);
! class_addlist(wrap_class, (t_method)wrap_list);
! class_sethelpsymbol(wrap_class, gensym("iemhelp/help-wrap"));
! }
Index: sigiem_blocksize.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/sigiem_blocksize.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigiem_blocksize.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- sigiem_blocksize.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,61 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
!
! /* ------------------------ iem_blocksize~ ----------------------------- */
!
! static t_class *sigiem_blocksize_class;
!
! typedef struct _sigiem_blocksize
! {
! t_object x_obj;
! t_float x_blocksize;
! t_clock *x_clock;
! t_float x_f;
! } t_sigiem_blocksize;
!
! static void sigiem_blocksize_out(t_sigiem_blocksize *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_blocksize);
! }
!
! static void sigiem_blocksize_free(t_sigiem_blocksize *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *sigiem_blocksize_new(t_symbol *s)
! {
! t_sigiem_blocksize *x = (t_sigiem_blocksize *)pd_new(sigiem_blocksize_class);
! x->x_clock = clock_new(x, (t_method)sigiem_blocksize_out);
! outlet_new(&x->x_obj, &s_float);
! x->x_blocksize = 64.0f;
! x->x_f = 0.0f;
! return (x);
! }
!
! static void sigiem_blocksize_dsp(t_sigiem_blocksize *x, t_signal **sp)
! {
! x->x_blocksize = (t_float)(sp[0]->s_n);
! clock_delay(x->x_clock, 0.0f);
! }
!
! void sigiem_blocksize_setup(void)
! {
! sigiem_blocksize_class = class_new(gensym("iem_blocksize~"), (t_newmethod)sigiem_blocksize_new,
! (t_method)sigiem_blocksize_free, sizeof(t_sigiem_blocksize), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_blocksize_class, t_sigiem_blocksize, x_f);
! class_addmethod(sigiem_blocksize_class, (t_method)sigiem_blocksize_dsp, gensym("dsp"), 0);
! }
!
--- 1,60 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
!
! /* ------------------- iem_blocksize~ -------------------- */
! /* -- outputs the current signal-blocksize of a window --- */
!
! static t_class *sigiem_blocksize_class;
!
! typedef struct _sigiem_blocksize
! {
! t_object x_obj;
! t_float x_blocksize;
! t_clock *x_clock;
! t_float x_f;
! } t_sigiem_blocksize;
!
! static void sigiem_blocksize_out(t_sigiem_blocksize *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_blocksize);
! }
!
! static void sigiem_blocksize_free(t_sigiem_blocksize *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *sigiem_blocksize_new(t_symbol *s)
! {
! t_sigiem_blocksize *x = (t_sigiem_blocksize *)pd_new(sigiem_blocksize_class);
! x->x_clock = clock_new(x, (t_method)sigiem_blocksize_out);
! outlet_new(&x->x_obj, &s_float);
! x->x_blocksize = 64.0f;
! x->x_f = 0.0f;
! return (x);
! }
!
! static void sigiem_blocksize_dsp(t_sigiem_blocksize *x, t_signal **sp)
! {
! x->x_blocksize = (t_float)(sp[0]->s_n);
! clock_delay(x->x_clock, 0.0f);
! }
!
! void sigiem_blocksize_setup(void)
! {
! sigiem_blocksize_class = class_new(gensym("iem_blocksize~"), (t_newmethod)sigiem_blocksize_new,
! (t_method)sigiem_blocksize_free, sizeof(t_sigiem_blocksize), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_blocksize_class, t_sigiem_blocksize, x_f);
! class_addmethod(sigiem_blocksize_class, (t_method)sigiem_blocksize_dsp, gensym("dsp"), 0);
! }
Index: iem_prepend_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_prepend_kernel.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_prepend_kernel.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- iem_prepend_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,259 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
!
! /* ------------------------ iem_prepend_kernel ---------------------------- */
! static t_class *iem_prepend_kernel_class;
!
! typedef struct _iem_prepend_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_iem_prepend_kernel;
!
! static void iem_prepend_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_prepend_kernel_inlet_select(t_iem_prepend_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void iem_prepend_kernel_bang(t_iem_prepend_kernel *x)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 0;
! x->x_type = A_NULL;
! x->x_sym = &s_bang;
! }
! else /* if 1st inlet */
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
! }
!
! static void iem_prepend_kernel_float(t_iem_prepend_kernel *x, t_float f)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_FLOAT;
! SETFLOAT(x->x_at, f);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_float(x->x_obj.ob_outlet, f);
! }
! else
! {
! SETFLOAT(x->x_at+x->x_ac, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_symbol(t_iem_prepend_kernel *x, t_symbol *s)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_SYMBOL;
! SETSYMBOL(x->x_at, s);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
! else
! {
! SETSYMBOL(x->x_at+x->x_ac, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_pointer(t_iem_prepend_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_POINTER;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
! else
! {
! SETPOINTER(x->x_at+x->x_ac, gp);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_list(t_iem_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+10) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+10)*sizeof(t_atom));
! x->x_size = 2*(ac+10);
! }
! x->x_ac = ac;
! x->x_type = A_GIMME;
! x->x_sym = &s_list;
! iem_prepend_kernel_atcopy(av, x->x_at, ac);
! }
! else /* if 1st inlet */
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = 2*(ac+x->x_ac+1);
! }
! if(x->x_type == A_NULL)
! {
! outlet_anything(x->x_obj.ob_outlet, &s_list, ac, av);
! }
! else
! {
! iem_prepend_kernel_atcopy(av, x->x_at + x->x_ac, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+ac, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_anything(t_iem_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+10) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+10)*sizeof(t_atom));
! x->x_size = 2*(ac+10);
! }
! x->x_ac = ac;
! x->x_type = A_COMMA;
! x->x_sym = s;
! iem_prepend_kernel_atcopy(av, x->x_at, ac);
! }
! else /* if 1st inlet */
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = 2*(ac+x->x_ac+1);
! }
! if(x->x_type == A_NULL)
! {
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
! else
! {
! SETSYMBOL(x->x_at + x->x_ac, s);
! iem_prepend_kernel_atcopy(av, x->x_at+x->x_ac+1, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_free(t_iem_prepend_kernel *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *iem_prepend_kernel_new(void)
! {
! t_iem_prepend_kernel *x = (t_iem_prepend_kernel *)pd_new(iem_prepend_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_size = 30;
! if(ac > 5)
! x->x_size = 2*(ac+10);
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! x->x_inlet_select = 1;
! if(ac <= 0)
! {
! x->x_type = A_NULL;
! x->x_ac = 0;
! x->x_sym = &s_bang;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! iem_prepend_kernel_list(x, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! iem_prepend_kernel_anything(x, atom_getsymbol(av), ac-1, av+1);
! }
! }
! outlet_new(&x->x_obj, &s_list);
! return(x);
! }
!
! void iem_prepend_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! iem_prepend_kernel_class = class_new(gensym("iem_prepend_kernel"),
! (t_newmethod)iem_prepend_kernel_new, (t_method)iem_prepend_kernel_free,
! sizeof(t_iem_prepend_kernel), 0, 0);
! class_addbang(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_bang);
! class_addpointer(iem_prepend_kernel_class, iem_prepend_kernel_pointer);
! class_addfloat(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_float);
! class_addsymbol(iem_prepend_kernel_class, iem_prepend_kernel_symbol);
! class_addlist(iem_prepend_kernel_class, iem_prepend_kernel_list);
! class_addmethod(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_prepend_kernel_class, iem_prepend_kernel_anything);
! class_sethelpsymbol(iem_prepend_kernel_class, gensym("iemhelp/help-merge_any"));
! }
--- 1,258 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
!
! /* ------------------------ iem_prepend_kernel ---------------------------- */
! static t_class *iem_prepend_kernel_class;
!
! typedef struct _iem_prepend_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_iem_prepend_kernel;
!
! static void iem_prepend_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_prepend_kernel_inlet_select(t_iem_prepend_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void iem_prepend_kernel_bang(t_iem_prepend_kernel *x)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 0;
! x->x_type = A_NULL;
! x->x_sym = &s_bang;
! }
! else /* if 1st inlet */
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
! }
!
! static void iem_prepend_kernel_float(t_iem_prepend_kernel *x, t_float f)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_FLOAT;
! SETFLOAT(x->x_at, f);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_float(x->x_obj.ob_outlet, f);
! }
! else
! {
! SETFLOAT(x->x_at+x->x_ac, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_symbol(t_iem_prepend_kernel *x, t_symbol *s)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_SYMBOL;
! SETSYMBOL(x->x_at, s);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
! else
! {
! SETSYMBOL(x->x_at+x->x_ac, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_pointer(t_iem_prepend_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_POINTER;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
! else
! {
! SETPOINTER(x->x_at+x->x_ac, gp);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_list(t_iem_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+10) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+10)*sizeof(t_atom));
! x->x_size = 2*(ac+10);
! }
! x->x_ac = ac;
! x->x_type = A_GIMME;
! x->x_sym = &s_list;
! iem_prepend_kernel_atcopy(av, x->x_at, ac);
! }
! else /* if 1st inlet */
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = 2*(ac+x->x_ac+1);
! }
! if(x->x_type == A_NULL)
! {
! outlet_anything(x->x_obj.ob_outlet, &s_list, ac, av);
! }
! else
! {
! iem_prepend_kernel_atcopy(av, x->x_at + x->x_ac, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+ac, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_anything(t_iem_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+10) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+10)*sizeof(t_atom));
! x->x_size = 2*(ac+10);
! }
! x->x_ac = ac;
! x->x_type = A_COMMA;
! x->x_sym = s;
! iem_prepend_kernel_atcopy(av, x->x_at, ac);
! }
! else /* if 1st inlet */
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = 2*(ac+x->x_ac+1);
! }
! if(x->x_type == A_NULL)
! {
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
! else
! {
! SETSYMBOL(x->x_at + x->x_ac, s);
! iem_prepend_kernel_atcopy(av, x->x_at+x->x_ac+1, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_free(t_iem_prepend_kernel *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *iem_prepend_kernel_new(void)
! {
! t_iem_prepend_kernel *x = (t_iem_prepend_kernel *)pd_new(iem_prepend_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_size = 30;
! if(ac > 5)
! x->x_size = 2*(ac+10);
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! x->x_inlet_select = 1;
! if(ac <= 0)
! {
! x->x_type = A_NULL;
! x->x_ac = 0;
! x->x_sym = &s_bang;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! iem_prepend_kernel_list(x, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! iem_prepend_kernel_anything(x, atom_getsymbol(av), ac-1, av+1);
! }
! }
! outlet_new(&x->x_obj, &s_list);
! return(x);
! }
!
! void iem_prepend_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! iem_prepend_kernel_class = class_new(gensym("iem_prepend_kernel"),
! (t_newmethod)iem_prepend_kernel_new, (t_method)iem_prepend_kernel_free,
! sizeof(t_iem_prepend_kernel), 0, 0);
! class_addbang(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_bang);
! class_addpointer(iem_prepend_kernel_class, iem_prepend_kernel_pointer);
! class_addfloat(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_float);
! class_addsymbol(iem_prepend_kernel_class, iem_prepend_kernel_symbol);
! class_addlist(iem_prepend_kernel_class, iem_prepend_kernel_list);
! class_addmethod(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_prepend_kernel_class, iem_prepend_kernel_anything);
! class_sethelpsymbol(iem_prepend_kernel_class, gensym("iemhelp/help-merge_any"));
! }
Index: iem_append_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_append_kernel.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_append_kernel.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- iem_append_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,351 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
!
! /* ------------------------ iem_append_kernel ---------------------------- */
! static t_class *iem_append_kernel_class;
!
! typedef struct _iem_append_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size12;
! int x_size2;
! int x_ac1;
! int x_ac2;
! t_atom *x_at12;
! t_atom *x_at2;
! t_symbol *x_sym1;
! t_symbol *x_sym2;
! t_atomtype x_type1;
! t_atomtype x_type2;
! } t_iem_append_kernel;
!
! static void iem_append_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_append_kernel_merge(t_iem_append_kernel *x, int off)
! {
! if((x->x_ac1+x->x_ac2+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2+1)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_ac1+x->x_ac2+1);
! }
! if(off)
! SETSYMBOL(x->x_at12 + x->x_ac1, x->x_sym2);
! iem_append_kernel_atcopy(x->x_at2, x->x_at12 + x->x_ac1 + off, x->x_ac2);
! }
!
! static void iem_append_kernel_out(t_iem_append_kernel *x)
! {
! int off=0;
!
! if(x->x_type1 == A_GIMME)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_COMMA)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym1, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_NULL)/*depends on 2.part*/
! {
! iem_append_kernel_merge(x, 0);
! if(x->x_type2 == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym2, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type2 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type2 == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type2 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! if(x->x_type2 == A_NULL)
! {
! if(x->x_type1 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type1 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type1 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! }
!
! static void iem_append_kernel_inlet_select(t_iem_append_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void iem_append_kernel_bang(t_iem_append_kernel *x)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 0;
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 0;
! x->x_type1 = A_NULL;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_float(t_iem_append_kernel *x, t_float f)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_FLOAT;
! SETFLOAT(x->x_at2, f);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_FLOAT;
! SETFLOAT(x->x_at12, f);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_symbol(t_iem_append_kernel *x, t_symbol *s)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_SYMBOL;
! SETSYMBOL(x->x_at2, s);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_SYMBOL;
! SETSYMBOL(x->x_at12, s);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_pointer(t_iem_append_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_POINTER;
! SETPOINTER(x->x_at2, gp);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_POINTER;
! SETPOINTER(x->x_at12, gp);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_list(t_iem_append_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if(ac > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_GIMME;
! x->x_sym2 = &s_list;
! iem_append_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_size2+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_size2+ac)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_size2+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_GIMME;
! iem_append_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = &s_list;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_anything(t_iem_append_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+1) > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_COMMA;
! x->x_sym2 = s;
! iem_append_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_size2+ac+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_size2+ac+1)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_size2+ac+1);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_COMMA;
! iem_append_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = s;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_free(t_iem_append_kernel *x)
! {
! if(x->x_at12)
! freebytes(x->x_at12, x->x_size12 * sizeof(t_atom));
! if(x->x_at2)
! freebytes(x->x_at2, x->x_size2 * sizeof(t_atom));
! }
!
! static void *iem_append_kernel_new(void)
! {
! t_iem_append_kernel *x = (t_iem_append_kernel *)pd_new(iem_append_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_type1 = A_NULL;
! x->x_sym1 = &s_list;
! x->x_size2 = 10;
! if(ac > 5)
! x->x_size2 = 2*ac;
! x->x_at2 = (t_atom *)getbytes(x->x_size2 * sizeof(t_atom));
! x->x_size12 = x->x_size2 + 10;
! x->x_at12 = (t_atom *)getbytes(x->x_size12 * sizeof(t_atom));
! x->x_ac1 = 0;
! x->x_inlet_select = 1;
! if(ac <= 0)
! {
! x->x_type2 = A_NULL;
! x->x_ac2 = 0;
! x->x_sym2 = &s_list;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! if(ac == 1)
! iem_append_kernel_float(x, atom_getfloat(av));
! else
! iem_append_kernel_list(x, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! t_symbol *xsym=atom_getsymbol(av);
!
! if(xsym == gensym("symbol"))
! {
! if(ac > 1)
! iem_append_kernel_symbol(x, atom_getsymbol(av+1));
! else
! iem_append_kernel_symbol(x, gensym(""));
! }
! else if(xsym == gensym("float"))
! {
! if(ac > 1)
! {
! if(IS_A_FLOAT(av, 1))
! iem_append_kernel_float(x, atom_getfloat(av+1));
! else
! iem_append_kernel_float(x, 0.0f);
! }
! else
! iem_append_kernel_float(x, 0.0f);
! }
! else if(xsym == gensym("list"))
! {
! iem_append_kernel_list(x, &s_list, ac-1, av+1);
! }
! else
! {
! iem_append_kernel_anything(x, xsym, ac-1, av+1);
! }
! }
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_append_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! iem_append_kernel_class = class_new(gensym("iem_append_kernel"),
! (t_newmethod)iem_append_kernel_new, (t_method)iem_append_kernel_free,
! sizeof(t_iem_append_kernel), 0, 0);
! class_addbang(iem_append_kernel_class, (t_method)iem_append_kernel_bang);
! class_addpointer(iem_append_kernel_class, iem_append_kernel_pointer);
! class_addfloat(iem_append_kernel_class, (t_method)iem_append_kernel_float);
! class_addsymbol(iem_append_kernel_class, iem_append_kernel_symbol);
! class_addlist(iem_append_kernel_class, iem_append_kernel_list);
! class_addmethod(iem_append_kernel_class, (t_method)iem_append_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_append_kernel_class, iem_append_kernel_anything);
! class_sethelpsymbol(iem_append_kernel_class, gensym("iemhelp/help-merge_any"));
! }
--- 1,350 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
!
! /* ------------------------ iem_append_kernel ---------------------------- */
! static t_class *iem_append_kernel_class;
!
! typedef struct _iem_append_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size12;
! int x_size2;
! int x_ac1;
! int x_ac2;
! t_atom *x_at12;
! t_atom *x_at2;
! t_symbol *x_sym1;
! t_symbol *x_sym2;
! t_atomtype x_type1;
! t_atomtype x_type2;
! } t_iem_append_kernel;
!
! static void iem_append_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_append_kernel_merge(t_iem_append_kernel *x, int off)
! {
! if((x->x_ac1+x->x_ac2+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2+1)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_ac1+x->x_ac2+1);
! }
! if(off)
! SETSYMBOL(x->x_at12 + x->x_ac1, x->x_sym2);
! iem_append_kernel_atcopy(x->x_at2, x->x_at12 + x->x_ac1 + off, x->x_ac2);
! }
!
! static void iem_append_kernel_out(t_iem_append_kernel *x)
! {
! int off=0;
!
! if(x->x_type1 == A_GIMME)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_COMMA)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym1, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_NULL)/*depends on 2.part*/
! {
! iem_append_kernel_merge(x, 0);
! if(x->x_type2 == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym2, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type2 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type2 == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type2 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! if(x->x_type2 == A_NULL)
! {
! if(x->x_type1 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type1 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type1 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! }
!
! static void iem_append_kernel_inlet_select(t_iem_append_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void iem_append_kernel_bang(t_iem_append_kernel *x)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 0;
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 0;
! x->x_type1 = A_NULL;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_float(t_iem_append_kernel *x, t_float f)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_FLOAT;
! SETFLOAT(x->x_at2, f);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_FLOAT;
! SETFLOAT(x->x_at12, f);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_symbol(t_iem_append_kernel *x, t_symbol *s)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_SYMBOL;
! SETSYMBOL(x->x_at2, s);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_SYMBOL;
! SETSYMBOL(x->x_at12, s);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_pointer(t_iem_append_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_POINTER;
! SETPOINTER(x->x_at2, gp);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_POINTER;
! SETPOINTER(x->x_at12, gp);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_list(t_iem_append_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if(ac > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_GIMME;
! x->x_sym2 = &s_list;
! iem_append_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_size2+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_size2+ac)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_size2+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_GIMME;
! iem_append_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = &s_list;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_anything(t_iem_append_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+1) > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_COMMA;
! x->x_sym2 = s;
! iem_append_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_size2+ac+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_size2+ac+1)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_size2+ac+1);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_COMMA;
! iem_append_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = s;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_free(t_iem_append_kernel *x)
! {
! if(x->x_at12)
! freebytes(x->x_at12, x->x_size12 * sizeof(t_atom));
! if(x->x_at2)
! freebytes(x->x_at2, x->x_size2 * sizeof(t_atom));
! }
!
! static void *iem_append_kernel_new(void)
! {
! t_iem_append_kernel *x = (t_iem_append_kernel *)pd_new(iem_append_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_type1 = A_NULL;
! x->x_sym1 = &s_list;
! x->x_size2 = 10;
! if(ac > 5)
! x->x_size2 = 2*ac;
! x->x_at2 = (t_atom *)getbytes(x->x_size2 * sizeof(t_atom));
! x->x_size12 = x->x_size2 + 10;
! x->x_at12 = (t_atom *)getbytes(x->x_size12 * sizeof(t_atom));
! x->x_ac1 = 0;
! x->x_inlet_select = 1;
! if(ac <= 0)
! {
! x->x_type2 = A_NULL;
! x->x_ac2 = 0;
! x->x_sym2 = &s_list;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! if(ac == 1)
! iem_append_kernel_float(x, atom_getfloat(av));
! else
! iem_append_kernel_list(x, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! t_symbol *xsym=atom_getsymbol(av);
!
! if(xsym == gensym("symbol"))
! {
! if(ac > 1)
! iem_append_kernel_symbol(x, atom_getsymbol(av+1));
! else
! iem_append_kernel_symbol(x, gensym(""));
! }
! else if(xsym == gensym("float"))
! {
! if(ac > 1)
! {
! if(IS_A_FLOAT(av, 1))
! iem_append_kernel_float(x, atom_getfloat(av+1));
! else
! iem_append_kernel_float(x, 0.0f);
! }
! else
! iem_append_kernel_float(x, 0.0f);
! }
! else if(xsym == gensym("list"))
! {
! iem_append_kernel_list(x, &s_list, ac-1, av+1);
! }
! else
! {
! iem_append_kernel_anything(x, xsym, ac-1, av+1);
! }
! }
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_append_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! iem_append_kernel_class = class_new(gensym("iem_append_kernel"),
! (t_newmethod)iem_append_kernel_new, (t_method)iem_append_kernel_free,
! sizeof(t_iem_append_kernel), 0, 0);
! class_addbang(iem_append_kernel_class, (t_method)iem_append_kernel_bang);
! class_addpointer(iem_append_kernel_class, iem_append_kernel_pointer);
! class_addfloat(iem_append_kernel_class, (t_method)iem_append_kernel_float);
! class_addsymbol(iem_append_kernel_class, iem_append_kernel_symbol);
! class_addlist(iem_append_kernel_class, iem_append_kernel_list);
! class_addmethod(iem_append_kernel_class, (t_method)iem_append_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_append_kernel_class, iem_append_kernel_anything);
! class_sethelpsymbol(iem_append_kernel_class, gensym("iemhelp/help-merge_any"));
! }
Index: mergefilename.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/mergefilename.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** mergefilename.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- mergefilename.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,229 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- mergefilename ------------------------------ */
!
! static t_class *mergefilename_class;
!
! typedef struct _mergefilename
! {
! t_object x_obj;
! char x_sep[2];
! } t_mergefilename;
!
! static void mergefilename_separator(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! if(strlen(av->a_w.w_symbol->s_name) == 1)
! x->x_sep[0] = av->a_w.w_symbol->s_name[0];
! else if(!strcmp(av->a_w.w_symbol->s_name, "backslash"))
! x->x_sep[0] = '\\';
! else if(!strcmp(av->a_w.w_symbol->s_name, "slash"))
! x->x_sep[0] = '/';
! else if(!strcmp(av->a_w.w_symbol->s_name, "blank"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "space"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "dollar"))
! x->x_sep[0] = '$';
! else if(!strcmp(av->a_w.w_symbol->s_name, "comma"))
! x->x_sep[0] = ',';
! else if(!strcmp(av->a_w.w_symbol->s_name, "semi"))
! x->x_sep[0] = ';';
! else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace"))
! x->x_sep[0] = '{';
! else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace"))
! x->x_sep[0] = '}';
! else
! x->x_sep[0] = 0;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! int i;
! float f=fabs(av->a_w.w_float);
!
! while(f >= 10.0)
! f *= 0.1;
! i = (int)f;
! x->x_sep[0] = (char)i + '0';
! }
! }
! else
! x->x_sep[0] = 0;
! }
!
! static void mergefilename_float(t_mergefilename *x, t_floatarg f)
! {
! char fbuf[30];
!
! fbuf[0] = 0;
! sprintf(fbuf, "%g", f);
! outlet_symbol(x->x_obj.ob_outlet, gensym(fbuf));
! }
!
! static void mergefilename_symbol(t_mergefilename *x, t_symbol *s)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void mergefilename_list(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! char *cbeg, fbuf[30];
! int size=400, i, len, cursize=0;
!
! cbeg = (char *)getbytes(size * sizeof(char));
! cbeg[0] = 0;
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! }
!
! if(ac > 1)
! {
! for(i=1; i<ac; i++)
! {
! av++;
! strcat(cbeg, x->x_sep);
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! }
! }
! outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg));
! freebytes(cbeg, size * sizeof(char));
! }
!
! static void mergefilename_anything(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! char *cbeg, fbuf[30];
! int size=400, i, len, cursize=0;
!
! cbeg = (char *)getbytes(size * sizeof(char));
! cbeg[0] = 0;
! len = strlen(s->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, s->s_name);
! cursize += len;
! if(ac > 0)
! {
! for(i=0; i<ac; i++)
! {
! strcat(cbeg, x->x_sep);
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! av++;
! }
! }
! outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg));
! freebytes(cbeg, size * sizeof(char));
! }
!
! static void *mergefilename_new(t_symbol *s, int ac, t_atom *av)
! {
! t_mergefilename *x = (t_mergefilename *)pd_new(mergefilename_class);
!
! x->x_sep[0] = 0;
! x->x_sep[1] = 0;
! if(ac > 0)
! mergefilename_separator(x, s, ac, av);
! outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void mergefilename_setup(void)
! {
! mergefilename_class = class_new(gensym("mergefilename"), (t_newmethod)mergefilename_new,
! 0, sizeof(t_mergefilename), 0, A_GIMME, 0);
! class_addmethod(mergefilename_class, (t_method)mergefilename_separator, gensym("separator"), A_GIMME, 0);
! class_addmethod(mergefilename_class, (t_method)mergefilename_separator, gensym("sep"), A_GIMME, 0);
! class_addfloat(mergefilename_class, mergefilename_float);
! class_addsymbol(mergefilename_class, mergefilename_symbol);
! class_addlist(mergefilename_class, mergefilename_list);
! class_addanything(mergefilename_class, mergefilename_anything);
! class_sethelpsymbol(mergefilename_class, gensym("iemhelp/help-mergefilename"));
! }
--- 1,230 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- mergefilename ------------------------------ */
! /* ------------ concatenates a list of symbols to one symbol ------------- */
! /* ----- between the linked symbols, there is a variable character ------- */
!
! static t_class *mergefilename_class;
!
! typedef struct _mergefilename
! {
! t_object x_obj;
! char x_sep[2];
! } t_mergefilename;
!
! static void mergefilename_separator(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! if(strlen(av->a_w.w_symbol->s_name) == 1)
! x->x_sep[0] = av->a_w.w_symbol->s_name[0];
! else if(!strcmp(av->a_w.w_symbol->s_name, "backslash"))
! x->x_sep[0] = '\\';
! else if(!strcmp(av->a_w.w_symbol->s_name, "slash"))
! x->x_sep[0] = '/';
! else if(!strcmp(av->a_w.w_symbol->s_name, "blank"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "space"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "dollar"))
! x->x_sep[0] = '$';
! else if(!strcmp(av->a_w.w_symbol->s_name, "comma"))
! x->x_sep[0] = ',';
! else if(!strcmp(av->a_w.w_symbol->s_name, "semi"))
! x->x_sep[0] = ';';
! else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace"))
! x->x_sep[0] = '{';
! else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace"))
! x->x_sep[0] = '}';
! else
! x->x_sep[0] = 0;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! int i;
! float f=fabs(av->a_w.w_float);
!
! while(f >= 10.0)
! f *= 0.1;
! i = (int)f;
! x->x_sep[0] = (char)i + '0';
! }
! }
! else
! x->x_sep[0] = 0;
! }
!
! static void mergefilename_float(t_mergefilename *x, t_floatarg f)
! {
! char fbuf[30];
!
! fbuf[0] = 0;
! sprintf(fbuf, "%g", f);
! outlet_symbol(x->x_obj.ob_outlet, gensym(fbuf));
! }
!
! static void mergefilename_symbol(t_mergefilename *x, t_symbol *s)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void mergefilename_list(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! char *cbeg, fbuf[30];
! int size=400, i, len, cursize=0;
!
! cbeg = (char *)getbytes(size * sizeof(char));
! cbeg[0] = 0;
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! }
!
! if(ac > 1)
! {
! for(i=1; i<ac; i++)
! {
! av++;
! strcat(cbeg, x->x_sep);
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! }
! }
! outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg));
! freebytes(cbeg, size * sizeof(char));
! }
!
! static void mergefilename_anything(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! char *cbeg, fbuf[30];
! int size=400, i, len, cursize=0;
!
! cbeg = (char *)getbytes(size * sizeof(char));
! cbeg[0] = 0;
! len = strlen(s->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, s->s_name);
! cursize += len;
! if(ac > 0)
! {
! for(i=0; i<ac; i++)
! {
! strcat(cbeg, x->x_sep);
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! av++;
! }
! }
! outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg));
! freebytes(cbeg, size * sizeof(char));
! }
!
! static void *mergefilename_new(t_symbol *s, int ac, t_atom *av)
! {
! t_mergefilename *x = (t_mergefilename *)pd_new(mergefilename_class);
!
! x->x_sep[0] = 0;
! x->x_sep[1] = 0;
! if(ac > 0)
! mergefilename_separator(x, s, ac, av);
! outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void mergefilename_setup(void)
! {
! mergefilename_class = class_new(gensym("mergefilename"), (t_newmethod)mergefilename_new,
! 0, sizeof(t_mergefilename), 0, A_GIMME, 0);
! class_addmethod(mergefilename_class, (t_method)mergefilename_separator, gensym("separator"), A_GIMME, 0);
! class_addmethod(mergefilename_class, (t_method)mergefilename_separator, gensym("sep"), A_GIMME, 0);
! class_addfloat(mergefilename_class, mergefilename_float);
! class_addsymbol(mergefilename_class, mergefilename_symbol);
! class_addlist(mergefilename_class, mergefilename_list);
! class_addanything(mergefilename_class, mergefilename_anything);
! class_sethelpsymbol(mergefilename_class, gensym("iemhelp/help-mergefilename"));
! }
Index: sigiem_samplerate.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/sigiem_samplerate.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigiem_samplerate.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- sigiem_samplerate.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,61 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
!
! /* ------------------------ iem_samplerate~ ----------------------------- */
!
! static t_class *sigiem_samplerate_class;
!
! typedef struct _sigiem_samplerate
! {
! t_object x_obj;
! t_float x_samplerate;
! t_clock *x_clock;
! t_float x_f;
! } t_sigiem_samplerate;
!
! static void sigiem_samplerate_out(t_sigiem_samplerate *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_samplerate);
! }
!
! static void sigiem_samplerate_free(t_sigiem_samplerate *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *sigiem_samplerate_new(t_symbol *s)
! {
! t_sigiem_samplerate *x = (t_sigiem_samplerate *)pd_new(sigiem_samplerate_class);
! x->x_clock = clock_new(x, (t_method)sigiem_samplerate_out);
! outlet_new(&x->x_obj, &s_float);
! x->x_samplerate = 44100.0f;
! x->x_f = 0.0f;
! return (x);
! }
!
! static void sigiem_samplerate_dsp(t_sigiem_samplerate *x, t_signal **sp)
! {
! x->x_samplerate = (t_float)(sp[0]->s_sr);
! clock_delay(x->x_clock, 0.0f);
! }
!
! void sigiem_samplerate_setup(void)
! {
! sigiem_samplerate_class = class_new(gensym("iem_samplerate~"), (t_newmethod)sigiem_samplerate_new,
! (t_method)sigiem_samplerate_free, sizeof(t_sigiem_samplerate), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_samplerate_class, t_sigiem_samplerate, x_f);
! class_addmethod(sigiem_samplerate_class, (t_method)sigiem_samplerate_dsp, gensym("dsp"), 0);
! }
!
--- 1,60 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
!
! /* --------------- iem_samplerate~ ----------------- */
! /* -- outputs the current samplerate of a window --- */
!
! static t_class *sigiem_samplerate_class;
!
! typedef struct _sigiem_samplerate
! {
! t_object x_obj;
! t_float x_samplerate;
! t_clock *x_clock;
! t_float x_f;
! } t_sigiem_samplerate;
!
! static void sigiem_samplerate_out(t_sigiem_samplerate *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_samplerate);
! }
!
! static void sigiem_samplerate_free(t_sigiem_samplerate *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *sigiem_samplerate_new(t_symbol *s)
! {
! t_sigiem_samplerate *x = (t_sigiem_samplerate *)pd_new(sigiem_samplerate_class);
! x->x_clock = clock_new(x, (t_method)sigiem_samplerate_out);
! outlet_new(&x->x_obj, &s_float);
! x->x_samplerate = 44100.0f;
! x->x_f = 0.0f;
! return (x);
! }
!
! static void sigiem_samplerate_dsp(t_sigiem_samplerate *x, t_signal **sp)
! {
! x->x_samplerate = (t_float)(sp[0]->s_sr);
! clock_delay(x->x_clock, 0.0f);
! }
!
! void sigiem_samplerate_setup(void)
! {
! sigiem_samplerate_class = class_new(gensym("iem_samplerate~"), (t_newmethod)sigiem_samplerate_new,
! (t_method)sigiem_samplerate_free, sizeof(t_sigiem_samplerate), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_samplerate_class, t_sigiem_samplerate, x_f);
! class_addmethod(sigiem_samplerate_class, (t_method)sigiem_samplerate_dsp, gensym("dsp"), 0);
! }
Index: iem_sel_any.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_sel_any.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_sel_any.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- iem_sel_any.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,111 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ iem_sel_any ---------------------------- */
! static t_class *iem_sel_any_class;
!
! typedef struct _iem_sel_any
! {
! t_object x_obj;
! int x_ac;
! int x_max_ac;
! t_symbol **x_any;
! t_symbol *x_set;
! void *x_out_any;
! void *x_out_set_any;
! } t_iem_sel_any;
!
!
! static void iem_sel_any_float(t_iem_sel_any *x, t_float f)
! {
! int i = (int)f;
! t_atom at;
!
! if(x->x_ac > 0)
! {
! if(i < 0)
! i = 0;
! if(i >= x->x_ac)
! i = x->x_ac - 1;
! SETSYMBOL(&at, x->x_any[i]);
! outlet_anything(x->x_out_any, x->x_any[i], 0, 0);
! outlet_anything(x->x_out_set_any, x->x_set, 1, &at);
! }
! }
!
! static void iem_sel_any_add(t_iem_sel_any *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av, 0)))
! {
! int i = (int)atom_getintarg(0, ac, av);
!
! if((i >= 0) && (i < x->x_max_ac))
! {
! if(IS_A_SYMBOL(av, 1))
! x->x_any[i] = atom_getsymbolarg(1, ac, av);
! else if(IS_A_FLOAT(av, 1))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloatarg(1, ac, av));
! x->x_any[i] = gensym(str);
! }
! if(i >= x->x_ac)
! x->x_ac = i+1;
! }
! }
! }
!
! static void iem_sel_any_clear(t_iem_sel_any *x)
! {
! x->x_ac = 0;
! }
!
! static void iem_sel_any_free(t_iem_sel_any *x)
! {
! freebytes(x->x_any, x->x_max_ac * sizeof(t_symbol *));
! }
!
! static void *iem_sel_any_new(t_float fmax)
! {
! t_iem_sel_any *x = (t_iem_sel_any *)pd_new(iem_sel_any_class);
! int i;
! t_symbol *default_sym=gensym("no_entry");
!
! if(fmax <= 0.0)
! fmax = 10.0;
! x->x_max_ac = (int)fmax;
! x->x_any = (t_symbol **)getbytes(x->x_max_ac * sizeof(t_symbol *));
! x->x_ac = 0;
! x->x_set = gensym("set");
! for(i=0; i<x->x_max_ac; i++)
! x->x_any[i] = default_sym;
! x->x_out_set_any = outlet_new(&x->x_obj, &s_list);
! x->x_out_any = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_sel_any_setup(void)
! {
! iem_sel_any_class = class_new(gensym("iem_sel_any"), (t_newmethod)iem_sel_any_new,
! (t_method)iem_sel_any_free, sizeof(t_iem_sel_any), 0, A_DEFFLOAT, 0);
! class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_add, gensym("add"), A_GIMME, 0);
! class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_clear, gensym("clear"), 0);
! class_addfloat(iem_sel_any_class, (t_method)iem_sel_any_float);
! class_sethelpsymbol(iem_sel_any_class, gensym("iemhelp/help-iem_sel_any"));
! }
!
--- 1,112 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ iem_sel_any ---------------------------- */
! /* -- stores an array of symbols, random access by index ----------- */
!
! static t_class *iem_sel_any_class;
!
! typedef struct _iem_sel_any
! {
! t_object x_obj;
! int x_ac;
! int x_max_ac;
! t_symbol **x_any;
! t_symbol *x_set;
! void *x_out_any;
! void *x_out_set_any;
! } t_iem_sel_any;
!
!
! static void iem_sel_any_float(t_iem_sel_any *x, t_float f)
! {
! int i = (int)f;
! t_atom at;
!
! if(x->x_ac > 0)
! {
! if(i < 0)
! i = 0;
! if(i >= x->x_ac)
! i = x->x_ac - 1;
! SETSYMBOL(&at, x->x_any[i]);
! outlet_anything(x->x_out_any, x->x_any[i], 0, 0);
! outlet_anything(x->x_out_set_any, x->x_set, 1, &at);
! }
! }
!
! static void iem_sel_any_add(t_iem_sel_any *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av, 0)))
! {
! int i = (int)atom_getintarg(0, ac, av);
!
! if((i >= 0) && (i < x->x_max_ac))
! {
! if(IS_A_SYMBOL(av, 1))
! x->x_any[i] = atom_getsymbolarg(1, ac, av);
! else if(IS_A_FLOAT(av, 1))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloatarg(1, ac, av));
! x->x_any[i] = gensym(str);
! }
! if(i >= x->x_ac)
! x->x_ac = i+1;
! }
! }
! }
!
! static void iem_sel_any_clear(t_iem_sel_any *x)
! {
! x->x_ac = 0;
! }
!
! static void iem_sel_any_free(t_iem_sel_any *x)
! {
! freebytes(x->x_any, x->x_max_ac * sizeof(t_symbol *));
! }
!
! static void *iem_sel_any_new(t_float fmax)
! {
! t_iem_sel_any *x = (t_iem_sel_any *)pd_new(iem_sel_any_class);
! int i;
! t_symbol *default_sym=gensym("no_entry");
!
! if(fmax <= 0.0)
! fmax = 10.0;
! x->x_max_ac = (int)fmax;
! x->x_any = (t_symbol **)getbytes(x->x_max_ac * sizeof(t_symbol *));
! x->x_ac = 0;
! x->x_set = gensym("set");
! for(i=0; i<x->x_max_ac; i++)
! x->x_any[i] = default_sym;
! x->x_out_set_any = outlet_new(&x->x_obj, &s_list);
! x->x_out_any = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_sel_any_setup(void)
! {
! iem_sel_any_class = class_new(gensym("iem_sel_any"), (t_newmethod)iem_sel_any_new,
! (t_method)iem_sel_any_free, sizeof(t_iem_sel_any), 0, A_DEFFLOAT, 0);
! class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_add, gensym("add"), A_GIMME, 0);
! class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_clear, gensym("clear"), 0);
! class_addfloat(iem_sel_any_class, (t_method)iem_sel_any_float);
! class_sethelpsymbol(iem_sel_any_class, gensym("iemhelp/help-iem_sel_any"));
! }
Index: sigm2f.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/sigm2f.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigm2f.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- sigm2f.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,127 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ m2f~ ----------------------------- */
!
! #define M2FTABSIZE 2048
!
! float *iem_m2f_table=(float *)0L;
!
! static t_class *sigm2f_class;
!
! typedef struct _sigm2f
! {
! t_object x_obj;
! float x_msi;
! } t_sigm2f;
!
! static void *sigm2f_new(void)
! {
! t_sigm2f *x = (t_sigm2f *)pd_new(sigm2f_class);
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! static t_int *sigm2f_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigm2f *x = (t_sigm2f *)(w[3]);
! int n = (int)(w[4]);
! float *tab = iem_m2f_table, *addr, f1, f2, frac, iinn;
! double dphase;
! int normhipart;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. */
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! while (--n)
! {
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! f1 = addr[0];
! f2 = addr[1];
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! *out++ = f1 + frac * (f2 - f1);
! tf.tf_i[HIOFFSET] = normhipart;
! }
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! #endif
! return (w+5);
! }
!
! static void sigm2f_dsp(t_sigm2f *x, t_signal **sp)
! {
! dsp_add(sigm2f_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigm2f_maketable(void)
! {
! union tabfudge tf;
!
! if(!iem_m2f_table)
! {
! int i;
! float *fp, midi, refexp=440.0*exp(-5.75*log(2.0));
!
! iem_m2f_table = (float *)getbytes(sizeof(float) * (M2FTABSIZE+1));
! for(i=0, fp=iem_m2f_table, midi=-67.0; i<=M2FTABSIZE; i++, fp++, midi+=0.1)
! *fp = refexp * exp(0.057762265047 * midi);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("m2f~: unexpected machine alignment");
! }
!
! void sigm2f_setup(void)
! {
! sigm2f_class = class_new(gensym("m2f~"), (t_newmethod)sigm2f_new, 0,
! sizeof(t_sigm2f), 0, 0);
! CLASS_MAINSIGNALIN(sigm2f_class, t_sigm2f, x_msi);
! class_addmethod(sigm2f_class, (t_method)sigm2f_dsp, gensym("dsp"), 0);
! sigm2f_maketable();
! class_sethelpsymbol(sigm2f_class, gensym("iemhelp/help-m2f~"));
! }
!
--- 1,125 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------- m2f~ ----------- */
! /* --------- obsolete --------- */
!
! #define M2FTABSIZE 2048
!
! float *iem_m2f_table=(float *)0L;
!
! static t_class *sigm2f_class;
!
! typedef struct _sigm2f
! {
! t_object x_obj;
! float x_msi;
! } t_sigm2f;
!
! static void *sigm2f_new(void)
! {
! t_sigm2f *x = (t_sigm2f *)pd_new(sigm2f_class);
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! static t_int *sigm2f_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigm2f *x = (t_sigm2f *)(w[3]);
! int n = (int)(w[4]);
! float *tab = iem_m2f_table, *addr, f1, f2, frac, iinn;
! double dphase;
! int normhipart;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. */
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! while (--n)
! {
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! f1 = addr[0];
! f2 = addr[1];
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! *out++ = f1 + frac * (f2 - f1);
! tf.tf_i[HIOFFSET] = normhipart;
! }
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! #endif
! return (w+5);
! }
!
! static void sigm2f_dsp(t_sigm2f *x, t_signal **sp)
! {
! dsp_add(sigm2f_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigm2f_maketable(void)
! {
! union tabfudge tf;
!
! if(!iem_m2f_table)
! {
! int i;
! float *fp, midi, refexp=440.0*exp(-5.75*log(2.0));
!
! iem_m2f_table = (float *)getbytes(sizeof(float) * (M2FTABSIZE+1));
! for(i=0, fp=iem_m2f_table, midi=-67.0; i<=M2FTABSIZE; i++, fp++, midi+=0.1)
! *fp = refexp * exp(0.057762265047 * midi);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("m2f~: unexpected machine alignment");
! }
!
! void sigm2f_setup(void)
! {
! sigm2f_class = class_new(gensym("m2f~"), (t_newmethod)sigm2f_new, 0,
! sizeof(t_sigm2f), 0, 0);
! CLASS_MAINSIGNALIN(sigm2f_class, t_sigm2f, x_msi);
! class_addmethod(sigm2f_class, (t_method)sigm2f_dsp, gensym("dsp"), 0);
! sigm2f_maketable();
! class_sethelpsymbol(sigm2f_class, gensym("iemhelp/help-m2f~"));
! }
Index: stripfilename.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/stripfilename.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** stripfilename.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- stripfilename.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,81 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- stripfilename ------------------------------ */
!
! static t_class *stripfilename_class;
!
! typedef struct _stripfilename
! {
! t_object x_obj;
! int x_nr_char;
! } t_stripfilename;
!
! static void stripfilename_symbol(t_stripfilename *x, t_symbol *s)
! {
! if(x->x_nr_char < 0)
! {
! int len = strlen(s->s_name);
! char *str=(char *)getbytes((len+2)*sizeof(char));
! int i=len + x->x_nr_char;
!
! strcpy(str, s->s_name);
! if(i < 0)
! i = 0;
! str[i] = 0;
! outlet_symbol(x->x_obj.ob_outlet, gensym(str));
! freebytes(str, (len+2)*sizeof(char));
! }
! else if(x->x_nr_char > 0)
! {
! int len = strlen(s->s_name);
! char *str=(char *)getbytes((len+2)*sizeof(char));
! int i=x->x_nr_char;
!
! strcpy(str, s->s_name);
! if(i > len)
! i = len;
! outlet_symbol(x->x_obj.ob_outlet, gensym(str+i));
! freebytes(str, (len+2)*sizeof(char));
! }
! else
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void stripfilename_set(t_stripfilename *x, t_floatarg nr_char)
! {
! x->x_nr_char = (int)nr_char;
! }
!
! static void *stripfilename_new(t_floatarg nr_char)
! {
! t_stripfilename *x = (t_stripfilename *)pd_new(stripfilename_class);
!
! stripfilename_set(x, nr_char);
! outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void stripfilename_setup(void)
! {
! stripfilename_class = class_new(gensym("stripfilename"), (t_newmethod)stripfilename_new,
! 0, sizeof(t_stripfilename), 0, A_DEFFLOAT, 0);
! class_addsymbol(stripfilename_class, stripfilename_symbol);
! class_addmethod(stripfilename_class, (t_method)stripfilename_set, gensym("set"), A_FLOAT, 0);
! class_sethelpsymbol(stripfilename_class, gensym("iemhelp/help-stripfilename"));
! }
--- 1,81 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* -------------------------- stripfilename ----------------------- */
! /* -- strips the first n or last n characters, depending on sign -- */
! /* ------- of the initial argument (set message argument) --------- */
!
! static t_class *stripfilename_class;
!
! typedef struct _stripfilename
! {
! t_object x_obj;
! int x_nr_char;
! } t_stripfilename;
!
! static void stripfilename_symbol(t_stripfilename *x, t_symbol *s)
! {
! if(x->x_nr_char < 0)
! {
! int len = strlen(s->s_name);
! char *str=(char *)getbytes((len+2)*sizeof(char));
! int i=len + x->x_nr_char;
!
! strcpy(str, s->s_name);
! if(i < 0)
! i = 0;
! str[i] = 0;
! outlet_symbol(x->x_obj.ob_outlet, gensym(str));
! freebytes(str, (len+2)*sizeof(char));
! }
! else if(x->x_nr_char > 0)
! {
! int len = strlen(s->s_name);
! char *str=(char *)getbytes((len+2)*sizeof(char));
! int i=x->x_nr_char;
!
! strcpy(str, s->s_name);
! if(i > len)
! i = len;
! outlet_symbol(x->x_obj.ob_outlet, gensym(str+i));
! freebytes(str, (len+2)*sizeof(char));
! }
! else
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void stripfilename_set(t_stripfilename *x, t_floatarg nr_char)
! {
! x->x_nr_char = (int)nr_char;
! }
!
! static void *stripfilename_new(t_floatarg nr_char)
! {
! t_stripfilename *x = (t_stripfilename *)pd_new(stripfilename_class);
!
! stripfilename_set(x, nr_char);
! outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void stripfilename_setup(void)
! {
! stripfilename_class = class_new(gensym("stripfilename"), (t_newmethod)stripfilename_new,
! 0, sizeof(t_stripfilename), 0, A_DEFFLOAT, 0);
! class_addsymbol(stripfilename_class, stripfilename_symbol);
! class_addmethod(stripfilename_class, (t_method)stripfilename_set, gensym("set"), A_FLOAT, 0);
! class_sethelpsymbol(stripfilename_class, gensym("iemhelp/help-stripfilename"));
! }
Index: sigfade.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/sigfade.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigfade.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- sigfade.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,183 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ fade~ ----------------------------- */
!
! float *iem_fade_table_lin=(float *)0L;
! float *iem_fade_table_linsqrt=(float *)0L;
! float *iem_fade_table_sqrt=(float *)0L;
! float *iem_fade_table_sin=(float *)0L;
! float *iem_fade_table_sinhann=(float *)0L;
! float *iem_fade_table_hann=(float *)0L;
!
! static t_class *sigfade_class;
!
! typedef struct _sigfade
! {
! t_object x_obj;
! float *x_table;
! float x_f;
! } t_sigfade;
!
! static void sigfade_set(t_sigfade *x, t_symbol *s)
! {
! if(!strcmp(s->s_name, "_lin"))
! x->x_table = iem_fade_table_lin;
! else if(!strcmp(s->s_name, "_linsqrt"))
! x->x_table = iem_fade_table_linsqrt;
! else if(!strcmp(s->s_name, "_sqrt"))
! x->x_table = iem_fade_table_sqrt;
! else if(!strcmp(s->s_name, "_sin"))
! x->x_table = iem_fade_table_sin;
! else if(!strcmp(s->s_name, "_sinhann"))
! x->x_table = iem_fade_table_sinhann;
! else if(!strcmp(s->s_name, "_hann"))
! x->x_table = iem_fade_table_hann;
! }
!
! static void *sigfade_new(t_symbol *s)
! {
! t_sigfade *x = (t_sigfade *)pd_new(sigfade_class);
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_f = 0;
! x->x_table = iem_fade_table_lin;
! sigfade_set(x, s);
! return (x);
! }
!
! static t_int *sigfade_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigfade *x = (t_sigfade *)(w[3]);
! int n = (int)(w[4]);
! float *tab = x->x_table, *addr, f1, f2, frac;
! double dphase;
! int normhipart;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. */
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! while (--n)
! {
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! f1 = addr[0];
! f2 = addr[1];
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! *out++ = f1 + frac * (f2 - f1);
! tf.tf_i[HIOFFSET] = normhipart;
! }
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! #endif
! return (w+5);
! }
!
! static void sigfade_dsp(t_sigfade *x, t_signal **sp)
! {
! dsp_add(sigfade_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigfade_maketable(void)
! {
! int i;
! float *fp, phase, fff,phsinc = 0.5*3.141592653 / ((float)COSTABSIZE*0.99999);
! union tabfudge tf;
!
! if(!iem_fade_table_sin)
! {
! iem_fade_table_sin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sin, phase=0; i--; fp++, phase+=phsinc)
! *fp = sin(phase);
! }
! if(!iem_fade_table_sinhann)
! {
! iem_fade_table_sinhann = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sinhann, phase=0; i--; fp++, phase+=phsinc)
! {
! fff = sin(phase);
! *fp = fff*sqrt(fff);
! }
! }
! if(!iem_fade_table_hann)
! {
! iem_fade_table_hann = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_hann, phase=0; i--; fp++, phase+=phsinc)
! {
! fff = sin(phase);
! *fp = fff*fff;
! }
! }
! phsinc = 1.0 / ((float)COSTABSIZE*0.99999);
! if(!iem_fade_table_lin)
! {
! iem_fade_table_lin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_lin, phase=0; i--; fp++, phase+=phsinc)
! *fp = phase;
! }
! if(!iem_fade_table_linsqrt)
! {
! iem_fade_table_linsqrt = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_linsqrt, phase=0; i--; fp++, phase+=phsinc)
! *fp = pow(phase, 0.75);
! }
! if(!iem_fade_table_sqrt)
! {
! iem_fade_table_sqrt = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sqrt, phase=0; i--; fp++, phase+=phsinc)
! *fp = sqrt(phase);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("fade~: unexpected machine alignment");
! }
!
! void sigfade_setup(void)
! {
! sigfade_class = class_new(gensym("fade~"), (t_newmethod)sigfade_new, 0,
! sizeof(t_sigfade), 0, A_DEFSYM, 0);
! CLASS_MAINSIGNALIN(sigfade_class, t_sigfade, x_f);
! class_addmethod(sigfade_class, (t_method)sigfade_dsp, gensym("dsp"), 0);
! class_addmethod(sigfade_class, (t_method)sigfade_set, gensym("set"), A_DEFSYM, 0);
! class_sethelpsymbol(sigfade_class, gensym("iemhelp/help-fade~"));
! sigfade_maketable();
! }
!
--- 1,184 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------- fade~ ----------------------------- */
! /* --- signal lookup tabel object with input range of 0 to 1 --- */
! /* ---- converts a linear signal ramp to the half of a : ------ */
! /* -- sine-wave, hanning-wave, squareroot-wave or mixes of it -- */
!
! float *iem_fade_table_lin=(float *)0L;
! float *iem_fade_table_linsqrt=(float *)0L;
! float *iem_fade_table_sqrt=(float *)0L;
! float *iem_fade_table_sin=(float *)0L;
! float *iem_fade_table_sinhann=(float *)0L;
! float *iem_fade_table_hann=(float *)0L;
!
! static t_class *sigfade_class;
!
! typedef struct _sigfade
! {
! t_object x_obj;
! float *x_table;
! float x_f;
! } t_sigfade;
!
! static void sigfade_set(t_sigfade *x, t_symbol *s)
! {
! if(!strcmp(s->s_name, "_lin"))
! x->x_table = iem_fade_table_lin;
! else if(!strcmp(s->s_name, "_linsqrt"))
! x->x_table = iem_fade_table_linsqrt;
! else if(!strcmp(s->s_name, "_sqrt"))
! x->x_table = iem_fade_table_sqrt;
! else if(!strcmp(s->s_name, "_sin"))
! x->x_table = iem_fade_table_sin;
! else if(!strcmp(s->s_name, "_sinhann"))
! x->x_table = iem_fade_table_sinhann;
! else if(!strcmp(s->s_name, "_hann"))
! x->x_table = iem_fade_table_hann;
! }
!
! static void *sigfade_new(t_symbol *s)
! {
! t_sigfade *x = (t_sigfade *)pd_new(sigfade_class);
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_f = 0;
! x->x_table = iem_fade_table_lin;
! sigfade_set(x, s);
! return (x);
! }
!
! static t_int *sigfade_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigfade *x = (t_sigfade *)(w[3]);
! int n = (int)(w[4]);
! float *tab = x->x_table, *addr, f1, f2, frac;
! double dphase;
! int normhipart;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. */
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! while (--n)
! {
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! f1 = addr[0];
! f2 = addr[1];
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! *out++ = f1 + frac * (f2 - f1);
! tf.tf_i[HIOFFSET] = normhipart;
! }
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! #endif
! return (w+5);
! }
!
! static void sigfade_dsp(t_sigfade *x, t_signal **sp)
! {
! dsp_add(sigfade_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigfade_maketable(void)
! {
! int i;
! float *fp, phase, fff,phsinc = 0.5*3.141592653 / ((float)COSTABSIZE*0.99999);
! union tabfudge tf;
!
! if(!iem_fade_table_sin)
! {
! iem_fade_table_sin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sin, phase=0; i--; fp++, phase+=phsinc)
! *fp = sin(phase);
! }
! if(!iem_fade_table_sinhann)
! {
! iem_fade_table_sinhann = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sinhann, phase=0; i--; fp++, phase+=phsinc)
! {
! fff = sin(phase);
! *fp = fff*sqrt(fff);
! }
! }
! if(!iem_fade_table_hann)
! {
! iem_fade_table_hann = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_hann, phase=0; i--; fp++, phase+=phsinc)
! {
! fff = sin(phase);
! *fp = fff*fff;
! }
! }
! phsinc = 1.0 / ((float)COSTABSIZE*0.99999);
! if(!iem_fade_table_lin)
! {
! iem_fade_table_lin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_lin, phase=0; i--; fp++, phase+=phsinc)
! *fp = phase;
! }
! if(!iem_fade_table_linsqrt)
! {
! iem_fade_table_linsqrt = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_linsqrt, phase=0; i--; fp++, phase+=phsinc)
! *fp = pow(phase, 0.75);
! }
! if(!iem_fade_table_sqrt)
! {
! iem_fade_table_sqrt = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sqrt, phase=0; i--; fp++, phase+=phsinc)
! *fp = sqrt(phase);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("fade~: unexpected machine alignment");
! }
!
! void sigfade_setup(void)
! {
! sigfade_class = class_new(gensym("fade~"), (t_newmethod)sigfade_new, 0,
! sizeof(t_sigfade), 0, A_DEFSYM, 0);
! CLASS_MAINSIGNALIN(sigfade_class, t_sigfade, x_f);
! class_addmethod(sigfade_class, (t_method)sigfade_dsp, gensym("dsp"), 0);
! class_addmethod(sigfade_class, (t_method)sigfade_set, gensym("set"), A_DEFSYM, 0);
! class_sethelpsymbol(sigfade_class, gensym("iemhelp/help-fade~"));
! sigfade_maketable();
! }
Index: transf_fader.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/transf_fader.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** transf_fader.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- transf_fader.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,153 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* -------------------------- transf_fader ------------------------------ */
!
! typedef struct _transf_fader
! {
! t_object x_obj;
! int x_size;
! int x_message;
! float *x_array;
! } t_transf_fader;
!
! static t_class *transf_fader_class;
!
! static void transf_fader_pairs(t_transf_fader *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc >= 4)
! {
! int i, j, k, ac=argc/2;
! int n=1000;
! int i_prev=0;
! int first=1;
! int i_delta;
! float val_delta;
! float delta;
! float val_prev=0.0f;
! float val=0.0f;
! float *vec=x->x_array;
! float fad_in, fad_out;
!
! for(j=0; j<n; j++)
! {
! vec[j] = -123456.0f;
! }
!
! for(j=0; j<ac; j++)
! {
! fad_in = atom_getfloat(argv++);
! while(fad_in < 0.0f)
! fad_in = 0.0f;
! while(fad_in > 1000.0f)
! fad_in = 1000.0f;
!
! fad_out = atom_getfloat(argv++);
! while(fad_out < -123455.0f)
! fad_out = -123455.0f;
!
! i = (int)fad_in;
! vec[i] = fad_out;
! }
!
! for(j=0; j<n; j++)
! {
! if(vec[j] > -123456.0f)
! {
! if(first)
! {
! first = 0;
! i_prev = j;
! val_prev = vec[j];
! }
! else
! {
! i = j;
! val = vec[j];
! i_delta = i - i_prev;
! val_delta = val - val_prev;
! if(i_delta > 1)
! {
! delta = val_delta / (float)i_delta;
! for(k=i_prev+1; k<i; k++)
! {
! vec[k] = val_prev + delta*(float)(k - i_prev);
! }
! }
! i_prev = i;
! val_prev = val;
! }
! }
! }
! }
! else
! {
! if(x->x_message)
! post("transf_fader-ERROR: less than 2 pairs make no sense");
! }
! }
!
! static void transf_fader_float(t_transf_fader *x, t_floatarg fad_in)
! {
! float fad_out;
! float *vec=x->x_array;
! float fract;
! int i;
!
! while(fad_in < 0.0f)
! fad_in = 0.0f;
! while(fad_in > 999.0f)
! fad_in = 999.0f;
!
! i = (int)fad_in;
! fract = fad_in - (float)i;
! fad_out = vec[i] + fract*(vec[i+1] - vec[i]);
! if(fad_out > -123455.0f)
! outlet_float(x->x_obj.ob_outlet, fad_out);
! }
!
! static void transf_fader_free(t_transf_fader *x)
! {
! freebytes(x->x_array, x->x_size * sizeof(float));
! }
!
! static void *transf_fader_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_transf_fader *x = (t_transf_fader *)pd_new(transf_fader_class);
! int i, n;
!
! x->x_size = 1001;
! x->x_message = 0;
! x->x_array = (float *)getbytes(x->x_size * sizeof(float));
! n = x->x_size;
! for(i=0; i<n; i++)
! x->x_array[i] = -123456.0f;
! transf_fader_pairs(x, gensym("pairs"), argc, argv);
! x->x_message = 1;
! outlet_new(&x->x_obj, &s_float);
! return (x);
! }
!
! void transf_fader_setup(void)
! {
! transf_fader_class = class_new(gensym("transf_fader"), (t_newmethod)transf_fader_new, (t_method)transf_fader_free,
! sizeof(t_transf_fader), 0, A_GIMME, 0);
! class_addfloat(transf_fader_class, (t_method)transf_fader_float);
! class_addmethod(transf_fader_class, (t_method)transf_fader_pairs, gensym("pairs"), A_GIMME, 0);
! class_sethelpsymbol(transf_fader_class, gensym("iemhelp/help-transf_fader"));
! }
--- 1,154 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdio.h>
! #include <string.h>
!
!
! /* ------------------------ transf_fader ----------------------- */
! /* -- this loopkup tabel objekt makes a 2-point interpolation -- */
! /* --------- between the pairs of determinating points --------- */
!
! typedef struct _transf_fader
! {
! t_object x_obj;
! int x_size;
! int x_message;
! float *x_array;
! } t_transf_fader;
!
! static t_class *transf_fader_class;
!
! static void transf_fader_pairs(t_transf_fader *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc >= 4)
! {
! int i, j, k, ac=argc/2;
! int n=1000;
! int i_prev=0;
! int first=1;
! int i_delta;
! float val_delta;
! float delta;
! float val_prev=0.0f;
! float val=0.0f;
! float *vec=x->x_array;
! float fad_in, fad_out;
!
! for(j=0; j<n; j++)
! {
! vec[j] = -123456.0f;
! }
!
! for(j=0; j<ac; j++)
! {
! fad_in = atom_getfloat(argv++);
! while(fad_in < 0.0f)
! fad_in = 0.0f;
! while(fad_in > 1000.0f)
! fad_in = 1000.0f;
!
! fad_out = atom_getfloat(argv++);
! while(fad_out < -123455.0f)
! fad_out = -123455.0f;
!
! i = (int)fad_in;
! vec[i] = fad_out;
! }
!
! for(j=0; j<n; j++)
! {
! if(vec[j] > -123456.0f)
! {
! if(first)
! {
! first = 0;
! i_prev = j;
! val_prev = vec[j];
! }
! else
! {
! i = j;
! val = vec[j];
! i_delta = i - i_prev;
! val_delta = val - val_prev;
! if(i_delta > 1)
! {
! delta = val_delta / (float)i_delta;
! for(k=i_prev+1; k<i; k++)
! {
! vec[k] = val_prev + delta*(float)(k - i_prev);
! }
! }
! i_prev = i;
! val_prev = val;
! }
! }
! }
! }
! else
! {
! if(x->x_message)
! post("transf_fader-ERROR: less than 2 pairs make no sense");
! }
! }
!
! static void transf_fader_float(t_transf_fader *x, t_floatarg fad_in)
! {
! float fad_out;
! float *vec=x->x_array;
! float fract;
! int i;
!
! while(fad_in < 0.0f)
! fad_in = 0.0f;
! while(fad_in > 999.0f)
! fad_in = 999.0f;
!
! i = (int)fad_in;
! fract = fad_in - (float)i;
! fad_out = vec[i] + fract*(vec[i+1] - vec[i]);
! if(fad_out > -123455.0f)
! outlet_float(x->x_obj.ob_outlet, fad_out);
! }
!
! static void transf_fader_free(t_transf_fader *x)
! {
! freebytes(x->x_array, x->x_size * sizeof(float));
! }
!
! static void *transf_fader_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_transf_fader *x = (t_transf_fader *)pd_new(transf_fader_class);
! int i, n;
!
! x->x_size = 1001;
! x->x_message = 0;
! x->x_array = (float *)getbytes(x->x_size * sizeof(float));
! n = x->x_size;
! for(i=0; i<n; i++)
! x->x_array[i] = -123456.0f;
! transf_fader_pairs(x, gensym("pairs"), argc, argv);
! x->x_message = 1;
! outlet_new(&x->x_obj, &s_float);
! return (x);
! }
!
! void transf_fader_setup(void)
! {
! transf_fader_class = class_new(gensym("transf_fader"), (t_newmethod)transf_fader_new, (t_method)transf_fader_free,
! sizeof(t_transf_fader), 0, A_GIMME, 0);
! class_addfloat(transf_fader_class, (t_method)transf_fader_float);
! class_addmethod(transf_fader_class, (t_method)transf_fader_pairs, gensym("pairs"), A_GIMME, 0);
! class_sethelpsymbol(transf_fader_class, gensym("iemhelp/help-transf_fader"));
! }
Index: dollarg.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/dollarg.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** dollarg.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- dollarg.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,113 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------ dollarg ---------------------------- */
!
! static t_class *dollarg_class;
!
! typedef struct _dollarg
! {
! t_object x_obj;
! void *x_outlet_ac;
! t_atom *x_at;
! int x_ac;
! } t_dollarg;
!
! static void dollarg_float(t_dollarg *x, t_floatarg f)
! {
! int i = (int)f;
!
! if(!i)
! {
! outlet_float(x->x_outlet_ac, x->x_ac);
! if(x->x_ac)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! }
! else if(i > 0)
! {
! if(i <= x->x_ac)
! {
! outlet_float(x->x_outlet_ac, i);
! if(IS_A_FLOAT(x->x_at, i-1))
! outlet_float(x->x_obj.ob_outlet, atom_getfloatarg(i-1, x->x_ac, x->x_at));
! else if(IS_A_SYMBOL(x->x_at, i-1))
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbolarg(i-1, x->x_ac, x->x_at));
! }
! else
! outlet_float(x->x_outlet_ac, 0);
! }
! else
! {
! int j = x->x_ac + i;
!
! if(j >= 0)
! {
! outlet_float(x->x_outlet_ac, j+1);
! if(IS_A_FLOAT(x->x_at, j))
! outlet_float(x->x_obj.ob_outlet, atom_getfloatarg(j, x->x_ac, x->x_at));
! else if(IS_A_SYMBOL(x->x_at, j))
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbolarg(j, x->x_ac, x->x_at));
! }
! else
! outlet_float(x->x_outlet_ac, 0);
! }
! }
!
! static void dollarg_bang(t_dollarg *x)
! {
! dollarg_float(x, 0.0f);
! }
!
! static void dollarg_free(t_dollarg *x)
! {
! if(x->x_ac)
! freebytes(x->x_at, x->x_ac * sizeof(t_atom));
! }
!
! static void *dollarg_new(void)
! {
! t_dollarg *x = (t_dollarg *)pd_new(dollarg_class);
! t_glist *glist=(t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int pargc;
! t_atom *pargv, *at;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&pargc, &pargv);
! canvas_unsetcurrent(canvas);
! x->x_at = (t_atom *)getbytes(pargc*sizeof(t_atom));
! x->x_ac = pargc;
! at = x->x_at;
! while(pargc--)
! *at++ = *pargv++;
! outlet_new(&x->x_obj, &s_list);
! x->x_outlet_ac = outlet_new(&x->x_obj, &s_float);
! return (x);
! }
!
! void dollarg_setup(void)
! {
! dollarg_class = class_new(gensym("dollarg"), (t_newmethod)dollarg_new,
! (t_method)dollarg_free, sizeof(t_dollarg), 0, 0);
! class_addcreator((t_newmethod)dollarg_new, gensym("$n"), 0);
! class_addbang(dollarg_class, (t_method)dollarg_bang);
! class_addfloat(dollarg_class, (t_method)dollarg_float);
! class_sethelpsymbol(dollarg_class, gensym("iemhelp/help-dollarg"));
! }
--- 1,110 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------- dollarg ---------------------------- */
! /* --- dollar-arguments, output the initial-arguments and the --- */
! /* ------- number of them of the parent abstraction-patch ------- */
!
! static t_class *dollarg_class;
!
! typedef struct _dollarg
! {
! t_object x_obj;
! void *x_outlet_ac;
! t_atom *x_at;
! int x_ac;
! } t_dollarg;
!
! static void dollarg_float(t_dollarg *x, t_floatarg f)
! {
! int i = (int)f;
!
! if(!i)
! {
! outlet_float(x->x_outlet_ac, x->x_ac);
! if(x->x_ac)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! }
! else if(i > 0)
! {
! if(i <= x->x_ac)
! {
! outlet_float(x->x_outlet_ac, i);
! if(IS_A_FLOAT(x->x_at, i-1))
! outlet_float(x->x_obj.ob_outlet, atom_getfloatarg(i-1, x->x_ac, x->x_at));
! else if(IS_A_SYMBOL(x->x_at, i-1))
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbolarg(i-1, x->x_ac, x->x_at));
! }
! else
! outlet_float(x->x_outlet_ac, 0);
! }
! else
! {
! int j = x->x_ac + i;
!
! if(j >= 0)
! {
! outlet_float(x->x_outlet_ac, j+1);
! if(IS_A_FLOAT(x->x_at, j))
! outlet_float(x->x_obj.ob_outlet, atom_getfloatarg(j, x->x_ac, x->x_at));
! else if(IS_A_SYMBOL(x->x_at, j))
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbolarg(j, x->x_ac, x->x_at));
! }
! else
! outlet_float(x->x_outlet_ac, 0);
! }
! }
!
! static void dollarg_bang(t_dollarg *x)
! {
! dollarg_float(x, 0.0f);
! }
!
! static void dollarg_free(t_dollarg *x)
! {
! if(x->x_ac)
! freebytes(x->x_at, x->x_ac * sizeof(t_atom));
! }
!
! static void *dollarg_new(void)
! {
! t_dollarg *x = (t_dollarg *)pd_new(dollarg_class);
! t_glist *glist=(t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int pargc;
! t_atom *pargv, *at;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&pargc, &pargv);
! canvas_unsetcurrent(canvas);
! x->x_at = (t_atom *)getbytes(pargc*sizeof(t_atom));
! x->x_ac = pargc;
! at = x->x_at;
! while(pargc--)
! *at++ = *pargv++;
! outlet_new(&x->x_obj, &s_list);
! x->x_outlet_ac = outlet_new(&x->x_obj, &s_float);
! return (x);
! }
!
! void dollarg_setup(void)
! {
! dollarg_class = class_new(gensym("dollarg"), (t_newmethod)dollarg_new,
! (t_method)dollarg_free, sizeof(t_dollarg), 0, 0);
! class_addcreator((t_newmethod)dollarg_new, gensym("$n"), 0);
! class_addbang(dollarg_class, (t_method)dollarg_bang);
! class_addfloat(dollarg_class, (t_method)dollarg_float);
! class_sethelpsymbol(dollarg_class, gensym("iemhelp/help-dollarg"));
! }
Index: toggle_mess.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/toggle_mess.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** toggle_mess.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- toggle_mess.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,119 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ toggle_mess ---------------------------- */
! static t_class *toggle_mess_class;
!
! typedef struct _toggle_mess
! {
! t_object x_obj;
! int x_index;
! int x_ac;
! t_atom *x_at;
! void *x_out_mid_sym;
! void *x_out_rght_flt;
! t_symbol *x_set;
! } t_toggle_mess;
!
! static void toggle_mess_bang(t_toggle_mess *x)
! {
! int i = x->x_index;
!
! outlet_float(x->x_out_rght_flt, (float)i);
! if(IS_A_FLOAT(x->x_at, i))
! outlet_float(x->x_out_mid_sym, atom_getfloat(&x->x_at[i]));
! else
! outlet_anything(x->x_out_mid_sym, atom_getsymbol(&x->x_at[i]), 0, x->x_at);
! outlet_anything(x->x_obj.ob_outlet, x->x_set, 1, &x->x_at[i]);
! }
!
! static void toggle_mess_float(t_toggle_mess *x, t_float f)
! {
! x->x_index++;
! if(x->x_index >= x->x_ac)
! x->x_index = 0;
! toggle_mess_bang(x);
! }
!
! static void toggle_mess_set(t_toggle_mess *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 1) && (IS_A_FLOAT(av, 0)))
! {
! int x_index = (int)atom_getint(av);
!
! if(x_index < 0)
! x_index = 0;
! else if(x_index >= x->x_ac)
! x_index = x->x_ac;
! x->x_index = x_index;
! outlet_anything(x->x_obj.ob_outlet, x->x_set, 1, &x->x_at[x_index]);
! }
! else
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_symbol(t_toggle_mess *x, t_symbol *s)
! {
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_anything(t_toggle_mess *x, t_symbol *s, int ac, t_atom *av)
! {
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_free(t_toggle_mess *x)
! {
! freebytes(x->x_at, x->x_ac * sizeof(t_atom));
! }
!
! static void *toggle_mess_new(t_symbol *s, int ac, t_atom *av)
! {
! t_toggle_mess *x = (t_toggle_mess *)pd_new(toggle_mess_class);
! int i;
!
! if(!ac)
! {
! post("toggle_mess-ERROR: must have at least one argument!");
! x->x_at = (t_atom *)0;
! return(0);
! }
! x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(ac * sizeof(t_atom));
! for(i=0; i<ac; i++)
! x->x_at[i] = *av++;
! x->x_index = 0;
! x->x_set = gensym("set");
! outlet_new(&x->x_obj, &s_list);
! x->x_out_mid_sym = outlet_new(&x->x_obj, &s_list);
! x->x_out_rght_flt = outlet_new(&x->x_obj, &s_float);
! return(x);
! }
!
! void toggle_mess_setup(void)
! {
! toggle_mess_class = class_new(gensym("toggle_mess"), (t_newmethod)toggle_mess_new,
! (t_method)toggle_mess_free, sizeof(t_toggle_mess), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)toggle_mess_new, gensym("tm"), A_GIMME, 0);
! class_addbang(toggle_mess_class, (t_method)toggle_mess_bang);
! class_addmethod(toggle_mess_class, (t_method)toggle_mess_set, gensym("set"), A_GIMME, 0);
! class_addfloat(toggle_mess_class, (t_method)toggle_mess_float);
! class_addsymbol(toggle_mess_class, toggle_mess_symbol);
! class_addanything(toggle_mess_class, toggle_mess_anything);
! class_sethelpsymbol(toggle_mess_class, gensym("iemhelp/help-toggle_mess"));
! }
--- 1,121 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ------------------------ toggle_mess ---------------------------- */
! /* -- inital arguments building a set of messages, any incomming --- */
! /* -- increments the internal counter and outputs the n-th initial --*/
! /* -- message. -- */
!
! static t_class *toggle_mess_class;
!
! typedef struct _toggle_mess
! {
! t_object x_obj;
! int x_index;
! int x_ac;
! t_atom *x_at;
! void *x_out_mid_sym;
! void *x_out_rght_flt;
! t_symbol *x_set;
! } t_toggle_mess;
!
! static void toggle_mess_bang(t_toggle_mess *x)
! {
! int i = x->x_index;
!
! outlet_float(x->x_out_rght_flt, (float)i);
! if(IS_A_FLOAT(x->x_at, i))
! outlet_float(x->x_out_mid_sym, atom_getfloat(&x->x_at[i]));
! else
! outlet_anything(x->x_out_mid_sym, atom_getsymbol(&x->x_at[i]), 0, x->x_at);
! outlet_anything(x->x_obj.ob_outlet, x->x_set, 1, &x->x_at[i]);
! }
!
! static void toggle_mess_float(t_toggle_mess *x, t_float f)
! {
! x->x_index++;
! if(x->x_index >= x->x_ac)
! x->x_index = 0;
! toggle_mess_bang(x);
! }
!
! static void toggle_mess_set(t_toggle_mess *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 1) && (IS_A_FLOAT(av, 0)))
! {
! int x_index = (int)atom_getint(av);
!
! if(x_index < 0)
! x_index = 0;
! else if(x_index >= x->x_ac)
! x_index = x->x_ac;
! x->x_index = x_index;
! outlet_anything(x->x_obj.ob_outlet, x->x_set, 1, &x->x_at[x_index]);
! }
! else
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_symbol(t_toggle_mess *x, t_symbol *s)
! {
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_anything(t_toggle_mess *x, t_symbol *s, int ac, t_atom *av)
! {
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_free(t_toggle_mess *x)
! {
! freebytes(x->x_at, x->x_ac * sizeof(t_atom));
! }
!
! static void *toggle_mess_new(t_symbol *s, int ac, t_atom *av)
! {
! t_toggle_mess *x = (t_toggle_mess *)pd_new(toggle_mess_class);
! int i;
!
! if(!ac)
! {
! post("toggle_mess-ERROR: must have at least one argument!");
! x->x_at = (t_atom *)0;
! return(0);
! }
! x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(ac * sizeof(t_atom));
! for(i=0; i<ac; i++)
! x->x_at[i] = *av++;
! x->x_index = 0;
! x->x_set = gensym("set");
! outlet_new(&x->x_obj, &s_list);
! x->x_out_mid_sym = outlet_new(&x->x_obj, &s_list);
! x->x_out_rght_flt = outlet_new(&x->x_obj, &s_float);
! return(x);
! }
!
! void toggle_mess_setup(void)
! {
! toggle_mess_class = class_new(gensym("toggle_mess"), (t_newmethod)toggle_mess_new,
! (t_method)toggle_mess_free, sizeof(t_toggle_mess), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)toggle_mess_new, gensym("tm"), A_GIMME, 0);
! class_addbang(toggle_mess_class, (t_method)toggle_mess_bang);
! class_addmethod(toggle_mess_class, (t_method)toggle_mess_set, gensym("set"), A_GIMME, 0);
! class_addfloat(toggle_mess_class, (t_method)toggle_mess_float);
! class_addsymbol(toggle_mess_class, toggle_mess_symbol);
! class_addanything(toggle_mess_class, toggle_mess_anything);
! class_sethelpsymbol(toggle_mess_class, gensym("iemhelp/help-toggle_mess"));
! }
Index: float24.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/float24.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** float24.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- float24.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,83 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ---- float24 - float=int or list of float=symbol concaternat to int=float ----- */
!
! typedef struct _float24
! {
! t_object x_obj;
! float x_arg;
! } t_float24;
!
! static t_class *float24_class;
!
! static float float24_calc_sum(int argc, t_atom *argv)
! {
! int i;
! char str[1000], buf[100];
!
! str[0] = 0;
! for(i=0; i<argc; i++)
! {
! if(IS_A_FLOAT(argv, i))
! {
! sprintf(buf, "%g", (float)atom_getfloatarg(i, argc, argv));
! strcat(str, buf);
! }
! }
! return(atof(str));
! }
!
! static void float24_bang(t_float24 *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_arg);
! }
!
! static void float24_float(t_float24 *x, t_float f)
! {
! x->x_arg = f;
! float24_bang(x);
! }
!
! static void float24_list(t_float24 *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc > 0)
! x->x_arg = float24_calc_sum(argc, argv);
! float24_bang(x);
! }
!
! static void *float24_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_float24 *x = (t_float24 *)pd_new(float24_class);
!
! outlet_new(&x->x_obj, &s_float);
! x->x_arg = 0.0f;
! if(argc > 0)
! x->x_arg = float24_calc_sum(argc, argv);
! return (x);
! }
!
! void float24_setup(void)
! {
! float24_class = class_new(gensym("float24"), (t_newmethod)float24_new, 0,
! sizeof(t_float24), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)float24_new, gensym("f24"), A_GIMME, 0);
! class_addbang(float24_class, (t_method)float24_bang);
! class_addfloat(float24_class, (t_method)float24_float);
! class_addlist(float24_class, (t_method)float24_list);
! class_sethelpsymbol(float24_class, gensym("iemhelp/help-float24"));
! }
--- 1,81 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- float24 ----------------------- */
! /* ----------- float-object with 24 bit accuracy ------------ */
! /* -- concaternate a list of float-arguments to one string -- */
! /* ----------- and convert it to a float-number ------------- */
!
! typedef struct _float24
! {
! t_object x_obj;
! float x_arg;
! } t_float24;
!
! static t_class *float24_class;
!
! static float float24_calc_sum(int argc, t_atom *argv)
! {
! int i;
! char str[1000], buf[100];
!
! str[0] = 0;
! for(i=0; i<argc; i++)
! {
! if(IS_A_FLOAT(argv, i))
! {
! sprintf(buf, "%g", (float)atom_getfloatarg(i, argc, argv));
! strcat(str, buf);
! }
! }
! return(atof(str));
! }
!
! static void float24_bang(t_float24 *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_arg);
! }
!
! static void float24_float(t_float24 *x, t_float f)
! {
! x->x_arg = f;
! float24_bang(x);
! }
!
! static void float24_list(t_float24 *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc > 0)
! x->x_arg = float24_calc_sum(argc, argv);
! float24_bang(x);
! }
!
! static void *float24_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_float24 *x = (t_float24 *)pd_new(float24_class);
!
! outlet_new(&x->x_obj, &s_float);
! x->x_arg = 0.0f;
! if(argc > 0)
! x->x_arg = float24_calc_sum(argc, argv);
! return (x);
! }
!
! void float24_setup(void)
! {
! float24_class = class_new(gensym("float24"), (t_newmethod)float24_new, 0,
! sizeof(t_float24), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)float24_new, gensym("f24"), A_GIMME, 0);
! class_addbang(float24_class, (t_method)float24_bang);
! class_addfloat(float24_class, (t_method)float24_float);
! class_addlist(float24_class, (t_method)float24_list);
! class_sethelpsymbol(float24_class, gensym("iemhelp/help-float24"));
! }
Index: speedlim.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/speedlim.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** speedlim.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- speedlim.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,107 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ speedlim ---------------------------- */
! static t_class *speedlim_class;
!
! typedef struct _speedlim
! {
! t_object x_obj;
! t_clock *x_clock;
! float x_delay;
! int x_output_is_locked;
! int x_there_was_n_event;
! float x_curval;
! float x_lastout;
! } t_speedlim;
!
! static void speedlim_stop(t_speedlim *x)
! {
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! clock_unset(x->x_clock);
! }
!
! static void speedlim_tick(t_speedlim *x)
! {
! if(x->x_there_was_n_event)
! {
! x->x_output_is_locked = 1;
! x->x_there_was_n_event = 0;
! outlet_float(x->x_obj.ob_outlet, x->x_curval);
! clock_delay(x->x_clock, x->x_delay);
! }
! else
! {
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! }
! }
!
! static void speedlim_float(t_speedlim *x, t_float val)
! {
! x->x_curval = val;
! if(!x->x_output_is_locked)
! {
! x->x_output_is_locked = 1;
! x->x_there_was_n_event = 0;
! outlet_float(x->x_obj.ob_outlet, x->x_curval);
! clock_delay(x->x_clock, x->x_delay);
! }
! else
! x->x_there_was_n_event = 1;
! }
!
! static void speedlim_ft1(t_speedlim *x, t_float delay)
! {
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! }
!
! static void speedlim_free(t_speedlim *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *speedlim_new(t_float delay)
! {
! t_speedlim *x = (t_speedlim *)pd_new(speedlim_class);
!
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! x->x_curval = 0.0f;
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! x->x_clock = clock_new(x, (t_method)speedlim_tick);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void speedlim_setup(void)
! {
! speedlim_class = class_new(gensym("speedlim"), (t_newmethod)speedlim_new,
! (t_method)speedlim_free, sizeof(t_speedlim), 0, A_DEFFLOAT, 0);
! class_addmethod(speedlim_class, (t_method)speedlim_stop, gensym("stop"), 0);
! class_addfloat(speedlim_class, (t_method)speedlim_float);
! class_addmethod(speedlim_class, (t_method)speedlim_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(speedlim_class, gensym("iemhelp/help-speedlim"));
! }
!
--- 1,107 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------------------- speedlim -------------------------- */
! /* -- reduces the flow of float-messages to one message per -- */
! /* ----------------- initial argument time in ms ------------- */
!
! static t_class *speedlim_class;
!
! typedef struct _speedlim
! {
! t_object x_obj;
! t_clock *x_clock;
! float x_delay;
! int x_output_is_locked;
! int x_there_was_n_event;
! float x_curval;
! float x_lastout;
! } t_speedlim;
!
! static void speedlim_stop(t_speedlim *x)
! {
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! clock_unset(x->x_clock);
! }
!
! static void speedlim_tick(t_speedlim *x)
! {
! if(x->x_there_was_n_event)
! {
! x->x_output_is_locked = 1;
! x->x_there_was_n_event = 0;
! outlet_float(x->x_obj.ob_outlet, x->x_curval);
! clock_delay(x->x_clock, x->x_delay);
! }
! else
! {
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! }
! }
!
! static void speedlim_float(t_speedlim *x, t_float val)
! {
! x->x_curval = val;
! if(!x->x_output_is_locked)
! {
! x->x_output_is_locked = 1;
! x->x_there_was_n_event = 0;
! outlet_float(x->x_obj.ob_outlet, x->x_curval);
! clock_delay(x->x_clock, x->x_delay);
! }
! else
! x->x_there_was_n_event = 1;
! }
!
! static void speedlim_ft1(t_speedlim *x, t_float delay)
! {
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! }
!
! static void speedlim_free(t_speedlim *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *speedlim_new(t_float delay)
! {
! t_speedlim *x = (t_speedlim *)pd_new(speedlim_class);
!
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! x->x_curval = 0.0f;
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! x->x_clock = clock_new(x, (t_method)speedlim_tick);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void speedlim_setup(void)
! {
! speedlim_class = class_new(gensym("speedlim"), (t_newmethod)speedlim_new,
! (t_method)speedlim_free, sizeof(t_speedlim), 0, A_DEFFLOAT, 0);
! class_addmethod(speedlim_class, (t_method)speedlim_stop, gensym("stop"), 0);
! class_addfloat(speedlim_class, (t_method)speedlim_float);
! class_addmethod(speedlim_class, (t_method)speedlim_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(speedlim_class, gensym("iemhelp/help-speedlim"));
! }
Index: list2send.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/list2send.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** list2send.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- list2send.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,246 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ list2send ---------------------------- */
! static t_class *list2send_class;
!
! typedef struct _list2send
! {
! t_object x_obj;
! int x_max;
! char *x_snd_able;
! t_symbol **x_send_entries;
! t_symbol *x_set;
! } t_list2send;
!
! static void list2send_list(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av,0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(x->x_snd_able[identifier_index])
! {
! t_symbol *sender = x->x_send_entries[identifier_index];
!
! if(sender->s_thing)
! {
! if(ac == 2)
! {
! if(IS_A_FLOAT(av, 1))
! pd_float(sender->s_thing, atom_getfloatarg(1, ac, av));
! else if(IS_A_SYMBOL(av, 1))
! pd_symbol(sender->s_thing, atom_getsymbolarg(1, ac, av));
! }
! else
! pd_list(sender->s_thing, &s_list, ac-1, av+1);
! }
! }
! }
! }
! }
!
! static void list2send_set(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av,0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(x->x_snd_able[identifier_index])
! {
! t_symbol *sender = x->x_send_entries[identifier_index];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, s, ac-1, av+1);
! }
! }
! }
! }
!
! static void list2send_all(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, n=x->x_max;
!
! if(ac == n)
! {
! for(i=n-1; i>=0; i--)/*change*/
! {
! if(x->x_snd_able[i])
! {
! t_symbol *sender = x->x_send_entries[i];
!
! if(sender->s_thing)
! {
! if(IS_A_FLOAT(av, i))
! pd_float(sender->s_thing, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av, i))
! pd_symbol(sender->s_thing, atom_getsymbolarg(i, ac, av));
! }
! }
! }
! }
! }
!
! static void list2send_set_all(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, n=x->x_max;
!
! if(ac == n)
! {
! for(i=n-1; i>=0; i--)/*change*/
! {
! if(x->x_snd_able[i])
! {
! t_symbol *sender = x->x_send_entries[i];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
!
! static void list2send_from(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int n=x->x_max;
!
! if(ac >= 1)
! {
! int i, j, beg=(int)atom_getintarg(0, ac, av);
!
! if((beg + ac - 1) <= n)
! {
! for(i=ac-1,j=beg+ac-2; i>=1; i--,j--)/*change*/
! {
! if(x->x_snd_able[j])
! {
! t_symbol *sender = x->x_send_entries[j];
!
! if(sender->s_thing)
! {
! if(IS_A_FLOAT(av, i))
! pd_float(sender->s_thing, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av, i))
! pd_symbol(sender->s_thing, atom_getsymbolarg(i, ac, av));
! }
! }
! }
! }
! }
! }
!
! static void list2send_set_from(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int n=x->x_max;
!
! if(ac >= 1)
! {
! int i, j, beg=(int)atom_getintarg(0, ac, av);
!
! if((beg + ac - 1) <= n)
! {
! for(i=ac-1,j=beg+ac-2; i>=1; i--,j--)/*change*/
! {
! if(x->x_snd_able[j])
! {
! t_symbol *sender = x->x_send_entries[j];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
! }
!
! static void list2send_add(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac == 2)
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(IS_A_SYMBOL(av, 1))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(1, ac, av);
! x->x_snd_able[identifier_index] = 1;
! }
! else if(IS_A_FLOAT(av, 1))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloatarg(1, ac, av));
! x->x_send_entries[identifier_index] = gensym(str);
! x->x_snd_able[identifier_index] = 1;
! }
! }
! }
! }
!
! static void list2send_clear(t_list2send *x)
! {
! int i, n=x->x_max;
!
! for(i=0; i<n; i++)
! {
! if(x->x_snd_able[i])
! x->x_snd_able[i] = 0;
! }
! }
!
! static void list2send_free(t_list2send *x)
! {
! freebytes(x->x_snd_able, x->x_max * sizeof(char));
! freebytes(x->x_send_entries, x->x_max * sizeof(t_symbol *));
! }
!
! static void *list2send_new(t_float fmax)
! {
! t_list2send *x = (t_list2send *)pd_new(list2send_class);
! int i, max = (int)fmax;
! t_atom *ap;
!
! if(max <= 0)
! max = 80;
! x->x_max = max;
! x->x_snd_able = (char *)getbytes(max * sizeof(char));
! x->x_send_entries = (t_symbol **)getbytes(max * sizeof(t_symbol *));
! for(i=0; i<max; i++)
! x->x_snd_able[i] = 0;
! x->x_set = gensym("set");
! return (x);
! }
!
! void list2send_setup(void)
! {
! list2send_class = class_new(gensym("list2send"), (t_newmethod)list2send_new,
! (t_method)list2send_free, sizeof(t_list2send), 0, A_DEFFLOAT, 0);
! class_addlist(list2send_class, list2send_list);
! class_addmethod(list2send_class, (t_method)list2send_add, gensym("add"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set, gensym("set"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_all, gensym("all"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set_all, gensym("set_all"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_from, gensym("from"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set_from, gensym("set_from"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_clear, gensym("clear"), 0);
! class_sethelpsymbol(list2send_class, gensym("iemhelp/help-list2send"));
! }
--- 1,250 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------- list2send ----------------------------- */
! /* -- via an array of send labels, an incomming list with leading -- */
! /* -- float index will be sent to a receive object with the label -- */
! /* ------------ name of the index-th entry of the array ------------ */
!
! static t_class *list2send_class;
!
! typedef struct _list2send
! {
! t_object x_obj;
! int x_max;
! char *x_snd_able;
! t_symbol **x_send_entries;
! t_symbol *x_set;
! } t_list2send;
!
! static void list2send_list(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av,0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(x->x_snd_able[identifier_index])
! {
! t_symbol *sender = x->x_send_entries[identifier_index];
!
! if(sender->s_thing)
! {
! if(ac == 2)
! {
! if(IS_A_FLOAT(av, 1))
! pd_float(sender->s_thing, atom_getfloatarg(1, ac, av));
! else if(IS_A_SYMBOL(av, 1))
! pd_symbol(sender->s_thing, atom_getsymbolarg(1, ac, av));
! }
! else
! pd_list(sender->s_thing, &s_list, ac-1, av+1);
! }
! }
! }
! }
! }
!
! static void list2send_set(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av,0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(x->x_snd_able[identifier_index])
! {
! t_symbol *sender = x->x_send_entries[identifier_index];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, s, ac-1, av+1);
! }
! }
! }
! }
!
! static void list2send_all(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, n=x->x_max;
!
! if(ac == n)
! {
! for(i=n-1; i>=0; i--)/*change*/
! {
! if(x->x_snd_able[i])
! {
! t_symbol *sender = x->x_send_entries[i];
!
! if(sender->s_thing)
! {
! if(IS_A_FLOAT(av, i))
! pd_float(sender->s_thing, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av, i))
! pd_symbol(sender->s_thing, atom_getsymbolarg(i, ac, av));
! }
! }
! }
! }
! }
!
! static void list2send_set_all(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, n=x->x_max;
!
! if(ac == n)
! {
! for(i=n-1; i>=0; i--)/*change*/
! {
! if(x->x_snd_able[i])
! {
! t_symbol *sender = x->x_send_entries[i];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
!
! static void list2send_from(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int n=x->x_max;
!
! if(ac >= 1)
! {
! int i, j, beg=(int)atom_getintarg(0, ac, av);
!
! if((beg + ac - 1) <= n)
! {
! for(i=ac-1,j=beg+ac-2; i>=1; i--,j--)/*change*/
! {
! if(x->x_snd_able[j])
! {
! t_symbol *sender = x->x_send_entries[j];
!
! if(sender->s_thing)
! {
! if(IS_A_FLOAT(av, i))
! pd_float(sender->s_thing, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av, i))
! pd_symbol(sender->s_thing, atom_getsymbolarg(i, ac, av));
! }
! }
! }
! }
! }
! }
!
! static void list2send_set_from(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int n=x->x_max;
!
! if(ac >= 1)
! {
! int i, j, beg=(int)atom_getintarg(0, ac, av);
!
! if((beg + ac - 1) <= n)
! {
! for(i=ac-1,j=beg+ac-2; i>=1; i--,j--)/*change*/
! {
! if(x->x_snd_able[j])
! {
! t_symbol *sender = x->x_send_entries[j];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
! }
!
! static void list2send_add(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac > 1) && (IS_A_FLOAT(av, 0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(IS_A_SYMBOL(av, 1))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(1, ac, av);
! x->x_snd_able[identifier_index] = 1;
! }
! else if(IS_A_FLOAT(av, 1))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloatarg(1, ac, av));
! x->x_send_entries[identifier_index] = gensym(str);
! x->x_snd_able[identifier_index] = 1;
! }
! }
! }
! }
!
! static void list2send_clear(t_list2send *x)
! {
! int i, n=x->x_max;
!
! for(i=0; i<n; i++)
! {
! if(x->x_snd_able[i])
! x->x_snd_able[i] = 0;
! }
! }
!
! static void list2send_free(t_list2send *x)
! {
! freebytes(x->x_snd_able, x->x_max * sizeof(char));
! freebytes(x->x_send_entries, x->x_max * sizeof(t_symbol *));
! }
!
! static void *list2send_new(t_float fmax)
! {
! t_list2send *x = (t_list2send *)pd_new(list2send_class);
! int i, max = (int)fmax;
! t_atom *ap;
!
! if(max <= 0)
! max = 80;
! x->x_max = max;
! x->x_snd_able = (char *)getbytes(max * sizeof(char));
! x->x_send_entries = (t_symbol **)getbytes(max * sizeof(t_symbol *));
! for(i=0; i<max; i++)
! x->x_snd_able[i] = 0;
! x->x_set = gensym("set");
! return (x);
! }
!
! void list2send_setup(void)
! {
! list2send_class = class_new(gensym("list2send"), (t_newmethod)list2send_new,
! (t_method)list2send_free, sizeof(t_list2send), 0, A_DEFFLOAT, 0);
! class_addlist(list2send_class, list2send_list);
! class_addmethod(list2send_class, (t_method)list2send_add, gensym("add"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set, gensym("set"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_all, gensym("all"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set_all, gensym("set_all"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_from, gensym("from"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set_from, gensym("set_from"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_clear, gensym("clear"), 0);
! class_sethelpsymbol(list2send_class, gensym("iemhelp/help-list2send"));
! }
Index: modulo_counter.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/modulo_counter.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** modulo_counter.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- modulo_counter.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,90 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ---------------- modulo-counter. ----------------- */
!
! static t_class *modulo_counter_class;
!
! typedef struct _modulo_counter
! {
! t_object x_obj;
! int x_max;
! int x_cur;
! } t_modulo_counter;
!
! static void modulo_counter_bang(t_modulo_counter *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_cur++);
! x->x_cur = x->x_cur % x->x_max;
! }
!
! static void modulo_counter_float(t_modulo_counter *x, t_float max)
! {
! int i = (int)max;
!
! if(i < 1)
! i = 1;
! if(x->x_cur >= i)
! x->x_cur = i - 1;
! x->x_max = i;
! }
!
! static void modulo_counter_ft1(t_modulo_counter *x, t_float set_init)
! {
! int i = (int)set_init;
!
! if(i < 0)
! i = 0;
! if(i >= x->x_max)
! i = x->x_max - 1;
! x->x_cur = i;
! }
!
! static void *modulo_counter_new(t_symbol *s, int ac, t_atom *av)
! {
! t_modulo_counter *x = (t_modulo_counter *)pd_new(modulo_counter_class);
! int max = 1, cur = 0;
!
! if((ac > 0) && IS_A_FLOAT(av, 0))
! max = atom_getintarg(0, ac, av);
! if((ac > 1) && IS_A_FLOAT(av, 1))
! cur = atom_getintarg(1, ac, av);
! if(max < 1)
! x->x_max = 1;
! else
! x->x_max = max;
! if(cur < 0)
! cur = 0;
! if(cur >= x->x_max)
! cur = x->x_max - 1;
! x->x_cur = cur;
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void modulo_counter_setup(void)
! {
! modulo_counter_class = class_new(gensym("modulo_counter"),
! (t_newmethod)modulo_counter_new, 0,
! sizeof(t_modulo_counter), 0, A_GIMME, 0);
! class_addbang(modulo_counter_class, (t_method)modulo_counter_bang);
! class_addfloat(modulo_counter_class, (t_method)modulo_counter_float);
! class_addmethod(modulo_counter_class, (t_method)modulo_counter_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(modulo_counter_class, gensym("iemhelp/help-modulo_counter"));
! }
--- 1,91 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ---------------- modulo-counter. ----------------- */
! /* -------- counter increments if input a bang ------ */
! /* -------- output is a modulo function. ------------ */
!
! static t_class *modulo_counter_class;
!
! typedef struct _modulo_counter
! {
! t_object x_obj;
! int x_max;
! int x_cur;
! } t_modulo_counter;
!
! static void modulo_counter_bang(t_modulo_counter *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_cur++);
! x->x_cur = x->x_cur % x->x_max;
! }
!
! static void modulo_counter_float(t_modulo_counter *x, t_float max)
! {
! int i = (int)max;
!
! if(i < 1)
! i = 1;
! if(x->x_cur >= i)
! x->x_cur = i - 1;
! x->x_max = i;
! }
!
! static void modulo_counter_ft1(t_modulo_counter *x, t_float set_init)
! {
! int i = (int)set_init;
!
! if(i < 0)
! i = 0;
! if(i >= x->x_max)
! i = x->x_max - 1;
! x->x_cur = i;
! }
!
! static void *modulo_counter_new(t_symbol *s, int ac, t_atom *av)
! {
! t_modulo_counter *x = (t_modulo_counter *)pd_new(modulo_counter_class);
! int max = 1, cur = 0;
!
! if((ac > 0) && IS_A_FLOAT(av, 0))
! max = atom_getintarg(0, ac, av);
! if((ac > 1) && IS_A_FLOAT(av, 1))
! cur = atom_getintarg(1, ac, av);
! if(max < 1)
! x->x_max = 1;
! else
! x->x_max = max;
! if(cur < 0)
! cur = 0;
! if(cur >= x->x_max)
! cur = x->x_max - 1;
! x->x_cur = cur;
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void modulo_counter_setup(void)
! {
! modulo_counter_class = class_new(gensym("modulo_counter"),
! (t_newmethod)modulo_counter_new, 0,
! sizeof(t_modulo_counter), 0, A_GIMME, 0);
! class_addbang(modulo_counter_class, (t_method)modulo_counter_bang);
! class_addfloat(modulo_counter_class, (t_method)modulo_counter_float);
! class_addmethod(modulo_counter_class, (t_method)modulo_counter_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(modulo_counter_class, gensym("iemhelp/help-modulo_counter"));
! }
Index: iemlib2.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iemlib2.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iemlib2.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- iemlib2.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,121 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
! /*
! #include <ctype.h>
! #include <signal.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
!
! #ifndef NT
! #include <sys/signal.h>
! #include <unistd.h>
! #endif
!
! #ifdef NT
! #include <io.h>
! #endif
! */
!
! static t_class *iemlib2_class;
!
! static void *iemlib2_new(void)
! {
! t_object *x = (t_object *)pd_new(iemlib2_class);
!
! return (x);
! }
!
! void add2_comma_setup(void);
! void bpe_setup(void);
! void dollarg_setup(void);
! void exp_inc_setup(void);
! void float24_setup(void);
! void iem_anything_kernel_setup(void);
! void iem_append_kernel_setup(void);
! void iem_i_route_setup(void);
! void iem_prepend_kernel_setup(void);
! void iem_pbank_csv_setup(void);
! void iem_receive_kernel_setup(void);
! void iem_send_kernel_setup(void);
! void iem_route_setup(void);
! void iem_sel_any_setup(void);
! void init_setup(void);
! void list2send_setup(void);
! void mergefilename_setup(void);
! void modulo_counter_setup(void);
! void pre_inlet_setup(void);
! void prepend_ascii_setup(void);
! void post_netreceive_setup(void);
! void round_zero_setup(void);
! void sigfade_setup(void);
! void sigiem_blocksize_setup(void);
! void sigiem_samplerate_setup(void);
! void sigLFO_noise_setup(void);
! void sigm2f_setup(void);
! void speedlim_setup(void);
! void splitfilename_setup(void);
! void stripfilename_setup(void);
! void toggle_mess_setup(void);
! void transf_fader_setup(void);
! void unsymbol_setup(void);
! void wrap_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iemlib2_setup(void)
! {
! iemlib2_class = class_new(gensym("iemlib2"), iemlib2_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! add2_comma_setup();
! bpe_setup();
! dollarg_setup();
! exp_inc_setup();
! float24_setup();
! iem_anything_kernel_setup();
! iem_append_kernel_setup();
! iem_i_route_setup();
! iem_pbank_csv_setup();
! iem_prepend_kernel_setup();
! iem_receive_kernel_setup();
! iem_send_kernel_setup();
! iem_route_setup();
! iem_sel_any_setup();
! init_setup();
! list2send_setup();
! mergefilename_setup();
! modulo_counter_setup();
! pre_inlet_setup();
! prepend_ascii_setup();
! post_netreceive_setup();
! round_zero_setup();
! sigfade_setup();
! sigiem_blocksize_setup();
! sigiem_samplerate_setup();
! sigLFO_noise_setup();
! sigm2f_setup();
! speedlim_setup();
! splitfilename_setup();
! stripfilename_setup();
! toggle_mess_setup();
! transf_fader_setup();
! unsymbol_setup();
! wrap_setup();
!
! post("iemlib2 (R-1.15) library loaded!");
! }
--- 1,137 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
! /*
! #include <ctype.h>
! #include <signal.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
!
! #ifndef NT
! #include <sys/signal.h>
! #include <unistd.h>
! #endif
!
! #ifdef NT
! #include <io.h>
! #endif
! */
!
! static t_class *iemlib2_class;
!
! static void *iemlib2_new(void)
! {
! t_object *x = (t_object *)pd_new(iemlib2_class);
!
! return (x);
! }
!
! void add2_comma_setup(void);
! void bpe_setup(void);
! void dollarg_setup(void);
! void exp_inc_setup(void);
! void float24_setup(void);
! void iem_anything_kernel_setup(void);
! void iem_anything_setup(void);
! void iem_append_kernel_setup(void);
! void iem_append_setup(void);
! void iem_i_route_setup(void);
! void iem_prepend_kernel_setup(void);
! void iem_prepend_setup(void);
! void iem_pbank_csv_setup(void);
! void iem_receive_kernel_setup(void);
! void iem_receive_setup(void);
! void iem_send_kernel_setup(void);
! void iem_send_setup(void);
! void iem_route_setup(void);
! void iem_sel_any_setup(void);
! void init_setup(void);
! void list2send_setup(void);
! void mergefilename_setup(void);
! void modulo_counter_setup(void);
! void parentdollarzero_setup(void);
! void pre_inlet_setup(void);
! void prepend_ascii_setup(void);
! void protect_against_open_setup(void);
! void post_netreceive_setup(void);
! void receive2list_setup(void);
! void round_zero_setup(void);
! void sigfade_setup(void);
! void sigiem_blocksize_setup(void);
! void sigiem_samplerate_setup(void);
! void sigLFO_noise_setup(void);
! void sigm2f_setup(void);
! void speedlim_setup(void);
! void splitfilename_setup(void);
! void stripfilename_setup(void);
! void toggle_mess_setup(void);
! void transf_fader_setup(void);
! void unsymbol_setup(void);
! void wrap_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iemlib2_setup(void)
! {
! iemlib2_class = class_new(gensym("iemlib2"), iemlib2_new, 0, sizeof(t_object), CLASS_NOINLET, 0);
!
! add2_comma_setup();
! bpe_setup();
! dollarg_setup();
! exp_inc_setup();
! float24_setup();
! iem_anything_kernel_setup();
! iem_anything_setup();
! iem_append_kernel_setup();
! iem_append_setup();
! iem_i_route_setup();
! iem_pbank_csv_setup();
! iem_prepend_kernel_setup();
! iem_prepend_setup();
! iem_receive_kernel_setup();
! iem_receive_setup();
! iem_send_kernel_setup();
! iem_send_setup();
! iem_route_setup();
! iem_sel_any_setup();
! init_setup();
! list2send_setup();
! mergefilename_setup();
! modulo_counter_setup();
! parentdollarzero_setup();
! pre_inlet_setup();
! prepend_ascii_setup();
! protect_against_open_setup();
! post_netreceive_setup();
! receive2list_setup();
! round_zero_setup();
! sigfade_setup();
! sigiem_blocksize_setup();
! sigiem_samplerate_setup();
! sigLFO_noise_setup();
! sigm2f_setup();
! speedlim_setup();
! splitfilename_setup();
! stripfilename_setup();
! toggle_mess_setup();
! transf_fader_setup();
! unsymbol_setup();
! wrap_setup();
!
! post("iemlib2 (R-1.16) library loaded! (c) Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
Index: makefile
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/makefile,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** makefile 9 Mar 2005 17:16:00 -0000 1.2
--- makefile 2 Jun 2005 18:25:00 -0000 1.3
***************
*** 24,42 ****
--- 24,50 ----
float24.c \
iem_anything_kernel.c \
+ iem_anything.c \
iem_append_kernel.c \
+ iem_append.c \
iem_i_route.c \
iem_pbank_csv.c \
iem_prepend_kernel.c \
+ iem_prepend.c \
iem_receive_kernel.c \
+ iem_receive.c \
iem_route.c \
iem_sel_any.c \
iem_send_kernel.c \
+ iem_send.c \
init.c \
list2send.c \
mergefilename.c \
modulo_counter.c \
+ parentdollarzero.c \
post_netreceive.c \
pre_inlet.c \
prepend_ascii.c \
+ protect_against_open.c \
+ receive2list.c \
round_zero.c \
sigfade.c \
Index: splitfilename.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/splitfilename.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** splitfilename.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- splitfilename.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,142 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- splitfilename ------------------------------ */
!
! static t_class *splitfilename_class;
!
! typedef struct _splitfilename
! {
! t_object x_obj;
! char x_sep[2];
! void *x_outpath;
! void *x_outfile;
! } t_splitfilename;
!
! static void splitfilename_separator(t_splitfilename *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! if(strlen(av->a_w.w_symbol->s_name) == 1)
! x->x_sep[0] = av->a_w.w_symbol->s_name[0];
! else if(!strcmp(av->a_w.w_symbol->s_name, "backslash"))
! x->x_sep[0] = '\\';
! else if(!strcmp(av->a_w.w_symbol->s_name, "slash"))
! x->x_sep[0] = '/';
! else if(!strcmp(av->a_w.w_symbol->s_name, "blank"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "space"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "dollar"))
! x->x_sep[0] = '$';
! else if(!strcmp(av->a_w.w_symbol->s_name, "comma"))
! x->x_sep[0] = ',';
! else if(!strcmp(av->a_w.w_symbol->s_name, "semi"))
! x->x_sep[0] = ';';
! else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace"))
! x->x_sep[0] = '{';
! else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace"))
! x->x_sep[0] = '}';
! else
! x->x_sep[0] = '/';
! }
! else if(IS_A_FLOAT(av, 0))
! {
! int i;
! float f=fabs(av->a_w.w_float);
!
! while(f >= 10.0)
! f *= 0.1;
! i = (int)f;
! x->x_sep[0] = (char)i + '0';
! }
! }
! else
! x->x_sep[0] = 0;
! }
!
! static void splitfilename_symbol(t_splitfilename *x, t_symbol *s)
! {
! int len = strlen(s->s_name);
!
! if(len)
! {
! if(x->x_sep[0] != 0)
! {
! char *str_path = (char *)getbytes(len*sizeof(char));
! char *str_file = (char *)getbytes(len*sizeof(char));
! char *cpp, *cpf;
!
! strcpy(str_path, s->s_name);
! strcpy(str_file, s->s_name);
! cpp = strrchr(str_path, x->x_sep[0]);
! cpf = strrchr(str_file, x->x_sep[0]);
! if(((int)cpp - (int)str_path) < 0)
! {
! outlet_symbol(x->x_outfile, gensym(str_file));
! outlet_symbol(x->x_outpath, &s_);
! }
! else if(((int)cpp - (int)str_path) >= len)
! {
! outlet_symbol(x->x_outfile, &s_);
! outlet_symbol(x->x_outpath, gensym(str_path));
! }
! else
! {
! *cpp = 0;
! cpf++;
! outlet_symbol(x->x_outfile, gensym(cpf));
! outlet_symbol(x->x_outpath, gensym(str_path));
! }
! freebytes(str_file, len*sizeof(char));
! freebytes(str_path, len*sizeof(char));
! }
! else
! {
! outlet_symbol(x->x_outfile, &s_);
! outlet_symbol(x->x_outpath, s);
! }
! }
! }
!
! static void *splitfilename_new(t_symbol *s, int ac, t_atom *av)
! {
! t_splitfilename *x = (t_splitfilename *)pd_new(splitfilename_class);
!
! x->x_sep[0] = 0;
! x->x_sep[1] = 0;
! if(ac == 0)
! x->x_sep[0] = '/';
! else
! splitfilename_separator(x, s, ac, av);
! x->x_outpath = outlet_new(&x->x_obj, &s_symbol);
! x->x_outfile = outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void splitfilename_setup(void)
! {
! splitfilename_class = class_new(gensym("splitfilename"), (t_newmethod)splitfilename_new,
! 0, sizeof(t_splitfilename), 0, A_GIMME, 0);
! class_addsymbol(splitfilename_class, splitfilename_symbol);
! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("separator"), A_GIMME, 0);
! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("sep"), A_GIMME, 0);
! class_sethelpsymbol(splitfilename_class, gensym("iemhelp/help-splitfilename"));
! }
--- 1,143 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------------------- splitfilename -------------------------- */
! /* -- splits a symbol into 2 parts (path + file) at the position -- */
! /* -- of the first separator-character beginnig from the right ---- */
! /* ---------- eliminating the separator-character ----------------- */
!
! static t_class *splitfilename_class;
!
! typedef struct _splitfilename
! {
! t_object x_obj;
! char x_sep[2];
! void *x_outpath;
! void *x_outfile;
! } t_splitfilename;
!
! static void splitfilename_separator(t_splitfilename *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! if(strlen(av->a_w.w_symbol->s_name) == 1)
! x->x_sep[0] = av->a_w.w_symbol->s_name[0];
! else if(!strcmp(av->a_w.w_symbol->s_name, "backslash"))
! x->x_sep[0] = '\\';
! else if(!strcmp(av->a_w.w_symbol->s_name, "slash"))
! x->x_sep[0] = '/';
! else if(!strcmp(av->a_w.w_symbol->s_name, "blank"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "space"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "dollar"))
! x->x_sep[0] = '$';
! else if(!strcmp(av->a_w.w_symbol->s_name, "comma"))
! x->x_sep[0] = ',';
! else if(!strcmp(av->a_w.w_symbol->s_name, "semi"))
! x->x_sep[0] = ';';
! else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace"))
! x->x_sep[0] = '{';
! else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace"))
! x->x_sep[0] = '}';
! else
! x->x_sep[0] = '/';
! }
! else if(IS_A_FLOAT(av, 0))
! {
! int i;
! float f=fabs(av->a_w.w_float);
!
! while(f >= 10.0)
! f *= 0.1;
! i = (int)f;
! x->x_sep[0] = (char)i + '0';
! }
! }
! else
! x->x_sep[0] = 0;
! }
!
! static void splitfilename_symbol(t_splitfilename *x, t_symbol *s)
! {
! int len = strlen(s->s_name);
!
! if(len)
! {
! if(x->x_sep[0] != 0)
! {
! char *str_path = (char *)getbytes(len*sizeof(char));
! char *str_file = (char *)getbytes(len*sizeof(char));
! char *cpp, *cpf;
!
! strcpy(str_path, s->s_name);
! strcpy(str_file, s->s_name);
! cpp = strrchr(str_path, x->x_sep[0]);
! cpf = strrchr(str_file, x->x_sep[0]);
! if(((int)cpp - (int)str_path) < 0)
! {
! outlet_symbol(x->x_outfile, gensym(str_file));
! outlet_symbol(x->x_outpath, &s_);
! }
! else if(((int)cpp - (int)str_path) >= len)
! {
! outlet_symbol(x->x_outfile, &s_);
! outlet_symbol(x->x_outpath, gensym(str_path));
! }
! else
! {
! *cpp = 0;
! cpf++;
! outlet_symbol(x->x_outfile, gensym(cpf));
! outlet_symbol(x->x_outpath, gensym(str_path));
! }
! freebytes(str_file, len*sizeof(char));
! freebytes(str_path, len*sizeof(char));
! }
! else
! {
! outlet_symbol(x->x_outfile, &s_);
! outlet_symbol(x->x_outpath, s);
! }
! }
! }
!
! static void *splitfilename_new(t_symbol *s, int ac, t_atom *av)
! {
! t_splitfilename *x = (t_splitfilename *)pd_new(splitfilename_class);
!
! x->x_sep[0] = 0;
! x->x_sep[1] = 0;
! if(ac == 0)
! x->x_sep[0] = '/';
! else
! splitfilename_separator(x, s, ac, av);
! x->x_outpath = outlet_new(&x->x_obj, &s_symbol);
! x->x_outfile = outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void splitfilename_setup(void)
! {
! splitfilename_class = class_new(gensym("splitfilename"), (t_newmethod)splitfilename_new,
! 0, sizeof(t_splitfilename), 0, A_GIMME, 0);
! class_addsymbol(splitfilename_class, splitfilename_symbol);
! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("separator"), A_GIMME, 0);
! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("sep"), A_GIMME, 0);
! class_sethelpsymbol(splitfilename_class, gensym("iemhelp/help-splitfilename"));
! }
Index: prepend_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/prepend_kernel.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** prepend_kernel.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- prepend_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,351 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
!
! /* ------------------------ prepend_kernel ---------------------------- */
! static t_class *prepend_kernel_class;
!
! typedef struct _prepend_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size12;
! int x_size2;
! int x_ac1;
! int x_ac2;
! t_atom *x_at12;
! t_atom *x_at2;
! t_symbol *x_sym1;
! t_symbol *x_sym2;
! t_atomtype x_type1;
! t_atomtype x_type2;
! } t_prepend_kernel;
!
! static void prepend_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void prepend_kernel_merge(t_prepend_kernel *x, int off)
! {
! if((x->x_ac1+x->x_ac2) > x->x_size1)
! {
! x->x_at1 = (t_atom *)resizebytes(x->x_at1, x->x_size1*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2)*sizeof(t_atom));
! x->x_size1 = 2*(x->x_ac1+x->x_ac2);
! }
! if(off)
! SETSYMBOL(x->x_at1 + x->x_ac1, x->x_sym2);
! prepend_kernel_atcopy(x->x_at2, x->x_at1 + x->x_ac1 + off, x->x_ac2);
! }
!
! static void prepend_kernel_out(t_prepend_kernel *x)
! {
! int off=0;
!
! if(x->x_type1 == A_GIMME)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! else if(x->x_type1 == A_COMMA)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym1, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! else if(x->x_type1 == A_NULL)/*depends on 2.part*/
! {
! prepend_kernel_merge(x, 0);
! if(x->x_type2 == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at1);
! else if(x->x_type2 == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym2, x->x_ac2, x->x_at1);
! else if(x->x_type2 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at1));
! else if(x->x_type2 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at1));
! else if(x->x_type2 == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type2 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at1->a_w.w_gpointer);
! }
! else
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! if(x->x_type2 == A_NULL)
! {
! if(x->x_type1 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at1));
! else if(x->x_type1 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at1));
! else if(x->x_type1 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at1->a_w.w_gpointer);
! }
! else
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! }
!
! static void prepend_kernel_inlet_select(t_prepend_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void prepend_kernel_bang(t_prepend_kernel *x)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 0;
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 0;
! x->x_type1 = A_NULL;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_float(t_prepend_kernel *x, t_float f)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_FLOAT;
! SETFLOAT(x->x_at2, f);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_FLOAT;
! SETFLOAT(x->x_at1, f);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_symbol(t_prepend_kernel *x, t_symbol *s)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_SYMBOL;
! SETSYMBOL(x->x_at2, s);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_SYMBOL;
! SETSYMBOL(x->x_at12, s);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_pointer(t_prepend_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_POINTER;
! SETPOINTER(x->x_at2, gp);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_POINTER;
! SETPOINTER(x->x_at12, gp);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_list(t_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if(ac > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_GIMME;
! x->x_sym2 = &s_list;
! prepend_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_ac1+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+ac)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_ac1+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_GIMME;
! prepend_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = &s_list;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_anything(t_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+1) > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! SETSYMBOL(x->x_at2, s);
! x->x_ac2 = ac;
! x->x_type2 = A_COMMA;
! x->x_sym2 = s;
! prepend_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_ac1+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), (2*x->x_ac1+ac)*sizeof(t_atom));
! x->x_size12 = (2*x->x_ac1+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_COMMA;
! prepend_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = s;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_free(t_prepend_kernel *x)
! {
! if(x->x_at1)
! freebytes(x->x_at1, x->x_size1 * sizeof(t_atom));
! }
!
! static void *prepend_kernel_new(void)
! {
! t_prepend_kernel *x = (t_prepend_kernel *)pd_new(prepend_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! x->x_ac2 = 0;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_type1 = A_NULL;
! if(!ac)
! {
! x->x_type1 = A_NULL;
! x->x_sym1 = &s_bang;
! x->x_size1 = 10;
! x->x_ac1 = 0;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type1 = A_COMMA;
! x->x_sym1 = atom_getsymbol(av);
! x->x_size1 = 10;
! x->x_ac1 = 0;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! }
! else
! {
! if(IS_A_FLOAT(av,0))
! {
! x->x_type1 = A_FLOAT;
! x->x_sym1 = &s_float;
! }
! else if(IS_A_POINTER(av,0))
! {
! x->x_type1 = A_POINTER;
! x->x_sym1 = &s_pointer;
! }
! x->x_size1 = 11;
! x->x_ac1 = 1;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! x->x_at1[0] = *av;
! }
! }
! else /* ac > 1 */
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type1 = A_COMMA;/*for anything*/
! x->x_sym1 = atom_getsymbol(av++);
! ac--;
! }
! else
! {
! x->x_type1 = A_GIMME;
! x->x_sym1 = &s_list;
! }
! x->x_size1 = ac + 10;
! x->x_ac1 = ac;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! prepend_kernel_atcopy(av, x->x_at1, ac);
! }
!
! x->x_inlet_select = 1;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void prepend_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! prepend_kernel_class = class_new(gensym("prepend_kernel"),
! (t_newmethod)prepend_kernel_new, (t_method)prepend_kernel_free,
! sizeof(t_prepend_kernel), 0, 0);
! class_addbang(prepend_kernel_class, (t_method)prepend_kernel_bang);
! class_addpointer(prepend_kernel_class, prepend_kernel_pointer);
! class_addfloat(prepend_kernel_class, (t_method)prepend_kernel_float);
! class_addsymbol(prepend_kernel_class, prepend_kernel_symbol);
! class_addlist(prepend_kernel_class, prepend_kernel_list);
! class_addmethod(prepend_kernel_class, (t_method)prepend_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(prepend_kernel_class, prepend_kernel_anything);
! class_sethelpsymbol(prepend_kernel_class, gensym("iemhelp/help-merge_any"));
! }
!
--- 1,349 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
!
! /* ------------------------ prepend_kernel ---------------------------- */
! static t_class *prepend_kernel_class;
!
! typedef struct _prepend_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size12;
! int x_size2;
! int x_ac1;
! int x_ac2;
! t_atom *x_at12;
! t_atom *x_at2;
! t_symbol *x_sym1;
! t_symbol *x_sym2;
! t_atomtype x_type1;
! t_atomtype x_type2;
! } t_prepend_kernel;
!
! static void prepend_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void prepend_kernel_merge(t_prepend_kernel *x, int off)
! {
! if((x->x_ac1+x->x_ac2) > x->x_size1)
! {
! x->x_at1 = (t_atom *)resizebytes(x->x_at1, x->x_size1*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2)*sizeof(t_atom));
! x->x_size1 = 2*(x->x_ac1+x->x_ac2);
! }
! if(off)
! SETSYMBOL(x->x_at1 + x->x_ac1, x->x_sym2);
! prepend_kernel_atcopy(x->x_at2, x->x_at1 + x->x_ac1 + off, x->x_ac2);
! }
!
! static void prepend_kernel_out(t_prepend_kernel *x)
! {
! int off=0;
!
! if(x->x_type1 == A_GIMME)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! else if(x->x_type1 == A_COMMA)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym1, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! else if(x->x_type1 == A_NULL)/*depends on 2.part*/
! {
! prepend_kernel_merge(x, 0);
! if(x->x_type2 == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at1);
! else if(x->x_type2 == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym2, x->x_ac2, x->x_at1);
! else if(x->x_type2 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at1));
! else if(x->x_type2 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at1));
! else if(x->x_type2 == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type2 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at1->a_w.w_gpointer);
! }
! else
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! if(x->x_type2 == A_NULL)
! {
! if(x->x_type1 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at1));
! else if(x->x_type1 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at1));
! else if(x->x_type1 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at1->a_w.w_gpointer);
! }
! else
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! }
!
! static void prepend_kernel_inlet_select(t_prepend_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void prepend_kernel_bang(t_prepend_kernel *x)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 0;
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 0;
! x->x_type1 = A_NULL;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_float(t_prepend_kernel *x, t_float f)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_FLOAT;
! SETFLOAT(x->x_at2, f);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_FLOAT;
! SETFLOAT(x->x_at1, f);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_symbol(t_prepend_kernel *x, t_symbol *s)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_SYMBOL;
! SETSYMBOL(x->x_at2, s);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_SYMBOL;
! SETSYMBOL(x->x_at12, s);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_pointer(t_prepend_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_POINTER;
! SETPOINTER(x->x_at2, gp);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_POINTER;
! SETPOINTER(x->x_at12, gp);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_list(t_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if(ac > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_GIMME;
! x->x_sym2 = &s_list;
! prepend_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_ac1+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+ac)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_ac1+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_GIMME;
! prepend_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = &s_list;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_anything(t_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+1) > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! SETSYMBOL(x->x_at2, s);
! x->x_ac2 = ac;
! x->x_type2 = A_COMMA;
! x->x_sym2 = s;
! prepend_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_ac1+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), (2*x->x_ac1+ac)*sizeof(t_atom));
! x->x_size12 = (2*x->x_ac1+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_COMMA;
! prepend_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = s;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_free(t_prepend_kernel *x)
! {
! if(x->x_at1)
! freebytes(x->x_at1, x->x_size1 * sizeof(t_atom));
! }
!
! static void *prepend_kernel_new(void)
! {
! t_prepend_kernel *x = (t_prepend_kernel *)pd_new(prepend_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! x->x_ac2 = 0;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_type1 = A_NULL;
! if(!ac)
! {
! x->x_type1 = A_NULL;
! x->x_sym1 = &s_bang;
! x->x_size1 = 10;
! x->x_ac1 = 0;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type1 = A_COMMA;
! x->x_sym1 = atom_getsymbol(av);
! x->x_size1 = 10;
! x->x_ac1 = 0;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! }
! else
! {
! if(IS_A_FLOAT(av,0))
! {
! x->x_type1 = A_FLOAT;
! x->x_sym1 = &s_float;
! }
! else if(IS_A_POINTER(av,0))
! {
! x->x_type1 = A_POINTER;
! x->x_sym1 = &s_pointer;
! }
! x->x_size1 = 11;
! x->x_ac1 = 1;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! x->x_at1[0] = *av;
! }
! }
! else /* ac > 1 */
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type1 = A_COMMA;/*for anything*/
! x->x_sym1 = atom_getsymbol(av++);
! ac--;
! }
! else
! {
! x->x_type1 = A_GIMME;
! x->x_sym1 = &s_list;
! }
! x->x_size1 = ac + 10;
! x->x_ac1 = ac;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! prepend_kernel_atcopy(av, x->x_at1, ac);
! }
!
! x->x_inlet_select = 1;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void prepend_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! prepend_kernel_class = class_new(gensym("prepend_kernel"),
! (t_newmethod)prepend_kernel_new, (t_method)prepend_kernel_free,
! sizeof(t_prepend_kernel), 0, 0);
! class_addbang(prepend_kernel_class, (t_method)prepend_kernel_bang);
! class_addpointer(prepend_kernel_class, prepend_kernel_pointer);
! class_addfloat(prepend_kernel_class, (t_method)prepend_kernel_float);
! class_addsymbol(prepend_kernel_class, prepend_kernel_symbol);
! class_addlist(prepend_kernel_class, prepend_kernel_list);
! class_addmethod(prepend_kernel_class, (t_method)prepend_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(prepend_kernel_class, prepend_kernel_anything);
! class_sethelpsymbol(prepend_kernel_class, gensym("iemhelp/help-merge_any"));
! }
Index: iem_anything_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_anything_kernel.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_anything_kernel.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- iem_anything_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,148 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------ iem_anything_kernel ---------------------------- */
! static t_class *iem_anything_kernel_class;
!
! typedef struct _iem_anything_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! } t_iem_anything_kernel;
!
! static void iem_anything_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_anything_kernel_inlet_select(t_iem_anything_kernel *x, t_floatarg in_sel_01)
! {
! x->x_inlet_select = (int)in_sel_01;
! }
!
! static void iem_anything_kernel_anything(t_iem_anything_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 0)&&(s == &s_bang))
! {
! if(x->x_inlet_select)
! {
! x->x_ac = ac;
! x->x_sym = s;
! }
! else
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
! else
! {
! if(ac > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), ac*sizeof(t_atom));
! x->x_size = ac;
! }
! x->x_ac = ac;
! x->x_sym = s;
! iem_anything_kernel_atcopy(av, x->x_at, ac);
! if(!x->x_inlet_select)
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
! }
!
! static void iem_anything_kernel_free(t_iem_anything_kernel *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *iem_anything_kernel_new(void)
! {
! t_iem_anything_kernel *x = (t_iem_anything_kernel *)pd_new(iem_anything_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(!ac)
! {
! x->x_sym = &s_bang;
! x->x_size = 10;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! x->x_size = 10;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! x->x_ac = 0;
! }
! else
! {
! x->x_sym = &s_list;
! x->x_ac = 1;
! x->x_at[0] = *av;
! }
! }
! else /* ac > 1 */
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av++);
! ac--;
! }
! else
! x->x_sym = &s_list;
! if(ac < 10)
! x->x_size = 10;
! else
! x->x_size = ac;
! x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! iem_anything_kernel_atcopy(av, x->x_at, ac);
! }
! x->x_inlet_select = 1;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_anything_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;/*inlet-sym = "\0x01"*/
! str[1] = 0;
! iem_anything_kernel_class = class_new(gensym("iem_anything_kernel"),
! (t_newmethod)iem_anything_kernel_new, (t_method)iem_anything_kernel_free,
! sizeof(t_iem_anything_kernel), 0, 0);
! class_addmethod(iem_anything_kernel_class, (t_method)iem_anything_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_anything_kernel_class, iem_anything_kernel_anything);
! class_sethelpsymbol(iem_anything_kernel_class, gensym("iemhelp/help-iem_anything"));
! }
!
--- 1,148 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------ iem_anything_kernel ---------------------------- */
!
! static t_class *iem_anything_kernel_class;
!
! typedef struct _iem_anything_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! } t_iem_anything_kernel;
!
! static void iem_anything_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_anything_kernel_inlet_select(t_iem_anything_kernel *x, t_floatarg in_sel_01)
! {
! x->x_inlet_select = (int)in_sel_01;
! }
!
! static void iem_anything_kernel_anything(t_iem_anything_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 0)&&(s == &s_bang))
! {
! if(x->x_inlet_select)
! {
! x->x_ac = ac;
! x->x_sym = s;
! }
! else
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
! else
! {
! if(ac > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), ac*sizeof(t_atom));
! x->x_size = ac;
! }
! x->x_ac = ac;
! x->x_sym = s;
! iem_anything_kernel_atcopy(av, x->x_at, ac);
! if(!x->x_inlet_select)
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
! }
!
! static void iem_anything_kernel_free(t_iem_anything_kernel *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *iem_anything_kernel_new(void)
! {
! t_iem_anything_kernel *x = (t_iem_anything_kernel *)pd_new(iem_anything_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(!ac)
! {
! x->x_sym = &s_bang;
! x->x_size = 10;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! x->x_size = 10;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! x->x_ac = 0;
! }
! else
! {
! x->x_sym = &s_list;
! x->x_ac = 1;
! x->x_at[0] = *av;
! }
! }
! else /* ac > 1 */
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av++);
! ac--;
! }
! else
! x->x_sym = &s_list;
! if(ac < 10)
! x->x_size = 10;
! else
! x->x_size = ac;
! x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! iem_anything_kernel_atcopy(av, x->x_at, ac);
! }
! x->x_inlet_select = 1;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_anything_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;/*inlet-sym = "\0x01"*/
! str[1] = 0;
! iem_anything_kernel_class = class_new(gensym("iem_anything_kernel"),
! (t_newmethod)iem_anything_kernel_new, (t_method)iem_anything_kernel_free,
! sizeof(t_iem_anything_kernel), 0, 0);
! class_addmethod(iem_anything_kernel_class, (t_method)iem_anything_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_anything_kernel_class, iem_anything_kernel_anything);
! class_sethelpsymbol(iem_anything_kernel_class, gensym("iemhelp/help-iem_anything"));
! }
Index: iem_route.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_route.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_route.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- iem_route.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,198 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- iem_route ------------------------------ */
!
! static t_class *iem_route_class;
!
! typedef struct _iem_routeelement
! {
! t_word e_w;
! t_outlet *e_outlet;
! } t_iem_routeelement;
!
! typedef struct _iem_route
! {
! t_object x_obj;
! t_atomtype x_type;
! t_int x_nelement;
! t_iem_routeelement *x_vec;
! t_outlet *x_rejectout;
! } t_iem_route;
!
! static void iem_route_anything(t_iem_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_iem_routeelement *e;
! int nelement;
!
! if(x->x_type == A_SYMBOL)
! {
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_symbol == sel)
! {
! if(!argc)
! outlet_bang(e->e_outlet);
! else
! {
! if(argc == 1)
! {
! if(argv[0].a_type == A_FLOAT)
! outlet_float(e->e_outlet, argv[0].a_w.w_float);
! else
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, 0, argv+1);
! }
! else
! {
! if(argv[0].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, argc-1, argv+1);
! else
! outlet_list(e->e_outlet, &s_list, argc, argv);
! }
! }
! return;
! }
! }
! }
! outlet_anything(x->x_rejectout, sel, argc, argv);
! }
!
! static void iem_route_list(t_iem_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_iem_routeelement *e;
! int nelement;
!
! if (x->x_type == A_FLOAT)
! {
! float f;
!
! if(!argc)
! return;
! f = atom_getfloat(argv);
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_float == f)
! {
! if(argc > 1 && argv[1].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[1].a_w.w_symbol, argc-2, argv+2);
! else
! {
! if(argc == 1)
! outlet_bang(e->e_outlet);
! else if(argc == 2)
! outlet_float(e->e_outlet, atom_getfloat(argv+1));
! else
! outlet_list(e->e_outlet, &s_list, argc-1, argv+1);
! }
! return;
! }
! }
! }
! else /* symbol arguments */
! {
! if(argc > 1) /* 2 or more args: treat as "list" */
! {
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_symbol == &s_list)
! {
! if(argv[0].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, argc-1, argv+1);
! else
! outlet_list(e->e_outlet, &s_list, argc, argv);
! return;
! }
! }
! }
! else if(argc == 0) /* no args: treat as "bang" */
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_bang)
! {
! outlet_bang(e->e_outlet);
! return;
! }
! }
! }
! else if (argv[0].a_type == A_FLOAT) /* one float arg */
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_float)
! {
! outlet_float(e->e_outlet, argv[0].a_w.w_float);
! return;
! }
! }
! }
! else
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_symbol)
! {
! outlet_symbol(e->e_outlet, argv[0].a_w.w_symbol);
! return;
! }
! }
! }
! }
! outlet_list(x->x_rejectout, &s_list, argc, argv);
! }
!
!
! static void iem_route_free(t_iem_route *x)
! {
! freebytes(x->x_vec, x->x_nelement * sizeof(*x->x_vec));
! }
!
! static void *iem_route_new(t_symbol *s, int argc, t_atom *argv)
! {
! int n;
! t_iem_routeelement *e;
! t_iem_route *x = (t_iem_route *)pd_new(iem_route_class);
! t_atom a;
! if (argc == 0)
! {
! argc = 1;
! SETFLOAT(&a, 0);
! argv = &a;
! }
! x->x_type = argv[0].a_type;
! x->x_nelement = argc;
! x->x_vec = (t_iem_routeelement *)getbytes(argc * sizeof(*x->x_vec));
! for (n = 0, e = x->x_vec; n < argc; n++, e++)
! {
! e->e_outlet = outlet_new(&x->x_obj, &s_list);
! if (x->x_type == A_FLOAT)
! e->e_w.w_float = atom_getfloatarg(n, argc, argv);
! else e->e_w.w_symbol = atom_getsymbolarg(n, argc, argv);
! }
! x->x_rejectout = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_route_setup(void)
! {
! iem_route_class = class_new(gensym("iem_route"), (t_newmethod)iem_route_new,
! (t_method)iem_route_free, sizeof(t_iem_route), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_route_new, gensym("ir"), A_GIMME, 0);
! class_addlist(iem_route_class, iem_route_list);
! class_addanything(iem_route_class, iem_route_anything);
! class_sethelpsymbol(iem_route_class, gensym("iemhelp/help-iem_route"));
! }
--- 1,199 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- iem_route ------------------------------ */
! /* -------- like millers route, but can output bangs ----------------- */
!
! static t_class *iem_route_class;
!
! typedef struct _iem_routeelement
! {
! t_word e_w;
! t_outlet *e_outlet;
! } t_iem_routeelement;
!
! typedef struct _iem_route
! {
! t_object x_obj;
! t_atomtype x_type;
! t_int x_nelement;
! t_iem_routeelement *x_vec;
! t_outlet *x_rejectout;
! } t_iem_route;
!
! static void iem_route_anything(t_iem_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_iem_routeelement *e;
! int nelement;
!
! if(x->x_type == A_SYMBOL)
! {
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_symbol == sel)
! {
! if(!argc)
! outlet_bang(e->e_outlet);
! else
! {
! if(argc == 1)
! {
! if(argv[0].a_type == A_FLOAT)
! outlet_float(e->e_outlet, argv[0].a_w.w_float);
! else
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, 0, argv+1);
! }
! else
! {
! if(argv[0].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, argc-1, argv+1);
! else
! outlet_list(e->e_outlet, &s_list, argc, argv);
! }
! }
! return;
! }
! }
! }
! outlet_anything(x->x_rejectout, sel, argc, argv);
! }
!
! static void iem_route_list(t_iem_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_iem_routeelement *e;
! int nelement;
!
! if (x->x_type == A_FLOAT)
! {
! float f;
!
! if(!argc)
! return;
! f = atom_getfloat(argv);
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_float == f)
! {
! if(argc > 1 && argv[1].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[1].a_w.w_symbol, argc-2, argv+2);
! else
! {
! if(argc == 1)
! outlet_bang(e->e_outlet);
! else if(argc == 2)
! outlet_float(e->e_outlet, atom_getfloat(argv+1));
! else
! outlet_list(e->e_outlet, &s_list, argc-1, argv+1);
! }
! return;
! }
! }
! }
! else /* symbol arguments */
! {
! if(argc > 1) /* 2 or more args: treat as "list" */
! {
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_symbol == &s_list)
! {
! if(argv[0].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, argc-1, argv+1);
! else
! outlet_list(e->e_outlet, &s_list, argc, argv);
! return;
! }
! }
! }
! else if(argc == 0) /* no args: treat as "bang" */
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_bang)
! {
! outlet_bang(e->e_outlet);
! return;
! }
! }
! }
! else if (argv[0].a_type == A_FLOAT) /* one float arg */
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_float)
! {
! outlet_float(e->e_outlet, argv[0].a_w.w_float);
! return;
! }
! }
! }
! else
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_symbol)
! {
! outlet_symbol(e->e_outlet, argv[0].a_w.w_symbol);
! return;
! }
! }
! }
! }
! outlet_list(x->x_rejectout, &s_list, argc, argv);
! }
!
!
! static void iem_route_free(t_iem_route *x)
! {
! freebytes(x->x_vec, x->x_nelement * sizeof(*x->x_vec));
! }
!
! static void *iem_route_new(t_symbol *s, int argc, t_atom *argv)
! {
! int n;
! t_iem_routeelement *e;
! t_iem_route *x = (t_iem_route *)pd_new(iem_route_class);
! t_atom a;
! if (argc == 0)
! {
! argc = 1;
! SETFLOAT(&a, 0);
! argv = &a;
! }
! x->x_type = argv[0].a_type;
! x->x_nelement = argc;
! x->x_vec = (t_iem_routeelement *)getbytes(argc * sizeof(*x->x_vec));
! for (n = 0, e = x->x_vec; n < argc; n++, e++)
! {
! e->e_outlet = outlet_new(&x->x_obj, &s_list);
! if (x->x_type == A_FLOAT)
! e->e_w.w_float = atom_getfloatarg(n, argc, argv);
! else e->e_w.w_symbol = atom_getsymbolarg(n, argc, argv);
! }
! x->x_rejectout = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_route_setup(void)
! {
! iem_route_class = class_new(gensym("iem_route"), (t_newmethod)iem_route_new,
! (t_method)iem_route_free, sizeof(t_iem_route), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_route_new, gensym("ir"), A_GIMME, 0);
! class_addlist(iem_route_class, iem_route_list);
! class_addanything(iem_route_class, iem_route_anything);
! class_sethelpsymbol(iem_route_class, gensym("iemhelp/help-iem_route"));
! }
Index: unsymbol.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/unsymbol.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** unsymbol.c 18 May 2004 21:33:33 -0000 1.1.1.1
--- unsymbol.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,49 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- unsymbol ------------------------------ */
!
! static t_class *unsymbol_class;
!
! typedef struct _unsymbol
! {
! t_object x_obj;
! t_atom x_at;
! } t_unsymbol;
!
! static void unsymbol_symbol(t_unsymbol *x, t_symbol *s)
! {
! outlet_anything(x->x_obj.ob_outlet, s, 0, &(x->x_at));
! }
!
! static void *unsymbol_new(void)
! {
! t_unsymbol *x = (t_unsymbol *)pd_new(unsymbol_class);
!
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void unsymbol_setup(void)
! {
! unsymbol_class = class_new(gensym("unsymbol"), (t_newmethod)unsymbol_new,
! 0, sizeof(t_unsymbol), 0, 0);
! class_addcreator((t_newmethod)unsymbol_new, gensym("unsym"), 0);
! class_addsymbol(unsymbol_class, unsymbol_symbol);
! class_sethelpsymbol(unsymbol_class, gensym("iemhelp/help-unsymbol"));
! }
--- 1,48 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------- unsymbol ------------------------- */
! /* -- converts a symbol to an anything message -- */
!
! static t_class *unsymbol_class;
!
! typedef struct _unsymbol
! {
! t_object x_obj;
! t_atom x_at;
! } t_unsymbol;
!
! static void unsymbol_symbol(t_unsymbol *x, t_symbol *s)
! {
! outlet_anything(x->x_obj.ob_outlet, s, 0, &(x->x_at));
! }
!
! static void *unsymbol_new(void)
! {
! t_unsymbol *x = (t_unsymbol *)pd_new(unsymbol_class);
!
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void unsymbol_setup(void)
! {
! unsymbol_class = class_new(gensym("unsymbol"), (t_newmethod)unsymbol_new,
! 0, sizeof(t_unsymbol), 0, 0);
! class_addcreator((t_newmethod)unsymbol_new, gensym("unsym"), 0);
! class_addsymbol(unsymbol_class, unsymbol_symbol);
! class_sethelpsymbol(unsymbol_class, gensym("iemhelp/help-unsymbol"));
! }
Index: iemlib.h
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iemlib.h,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iemlib.h 18 May 2004 21:33:32 -0000 1.1.1.1
--- iemlib.h 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,98 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifndef __IEMLIB_H__
! #define __IEMLIB_H__
!
!
! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)
! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)
! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)
! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)
! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)
! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)
! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)
!
!
! #ifdef NT
! int sys_noloadbang;
! //t_symbol *iemgui_key_sym=0;
! #include <io.h>
! #else
! extern int sys_noloadbang;
! //extern t_symbol *iemgui_key_sym;
! #include <unistd.h>
! #endif
!
! #define DEFDELVS 64
! #define XTRASAMPS 4
! #define SAMPBLK 4
!
!
! #define UNITBIT32 1572864. /* 3*2^19; bit 32 has place value 1 */
!
! /* machine-dependent definitions. These ifdefs really
! should have been by CPU type and not by operating system! */
! #ifdef IRIX
! /* big-endian. Most significant byte is at low address in memory */
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 long /* a data type that has 32 bits */
! #else
! #ifdef MSW
! /* little-endian; most significant byte is at highest address */
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #define int32 long
! #else
! #ifdef __FreeBSD__
! #include <machine/endian.h>
! #if BYTE_ORDER == LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* BYTE_ORDER */
! #include <sys/types.h>
! #define int32 int32_t
! #endif
! #ifdef __linux__
!
! #include <endian.h>
!
! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)
! #error No byte order defined
! #endif
!
! #if __BYTE_ORDER == __LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* __BYTE_ORDER */
!
! #include <sys/types.h>
! #define int32 int32_t
!
! #else
! #ifdef MACOSX
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 int /* a data type that has 32 bits */
!
! #endif /* MACOSX */
! #endif /* __linux__ */
! #endif /* MSW */
! #endif /* SGI */
!
! union tabfudge
! {
! double tf_d;
! int32 tf_i[2];
! };
!
! #endif
--- 1,102 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifndef __IEMLIB_H__
! #define __IEMLIB_H__
!
!
! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)
! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)
! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)
! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)
! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)
! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)
! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)
!
!
! #ifdef NT
! int sys_noloadbang;
! //t_symbol *iemgui_key_sym=0;
! #include <io.h>
! #else
! extern int sys_noloadbang;
! //extern t_symbol *iemgui_key_sym;
! #include <unistd.h>
! #endif
!
! #define DEFDELVS 64
! #define XTRASAMPS 4
! #define SAMPBLK 4
!
!
! #define UNITBIT32 1572864. /* 3*2^19; bit 32 has place value 1 */
!
! /* machine-dependent definitions. These ifdefs really
! should have been by CPU type and not by operating system! */
! #ifdef IRIX
! /* big-endian. Most significant byte is at low address in memory */
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 long /* a data type that has 32 bits */
! #else
! #ifdef MSW
! /* little-endian; most significant byte is at highest address */
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #define int32 long
! #else
! #ifdef __FreeBSD__
! #include <machine/endian.h>
! #if BYTE_ORDER == LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* BYTE_ORDER */
! #include <sys/types.h>
! #define int32 int32_t
! #endif
! #ifdef __linux__
!
! #include <endian.h>
!
! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)
! #error No byte order defined
! #endif
!
! #if __BYTE_ORDER == __LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* __BYTE_ORDER */
!
! #include <sys/types.h>
! #define int32 int32_t
!
! #else
! #ifdef __APPLE__
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 int /* a data type that has 32 bits */
!
! #endif /* __APPLE__ */
! #endif /* __linux__ */
! #endif /* MSW */
! #endif /* SGI */
!
! union tabfudge
! {
! double tf_d;
! int32 tf_i[2];
! };
!
! #define IEM_DENORMAL(f) ((((*(unsigned int*)&(f))&0x60000000)==0) || \
! (((*(unsigned int*)&(f))&0x60000000)==0x60000000))
! /* more stringent test: anything not between 1e-19 and 1e19 in absolute val */
!
! #endif
Index: bpe.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/bpe.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** bpe.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- bpe.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,125 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ bpe ---------------------------- */
! static t_class *bpe_class;
!
! typedef struct _bpe
! {
! t_object x_obj;
! t_clock *x_clock;
! int x_maxnum;
! int x_curnum;
! int x_curindex;
! t_atom *x_beg;
! void *x_out_val;
! void *x_out_time;
! void *x_out_finished;
! } t_bpe;
!
! static void bpe_stop(t_bpe *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void bpe_tick(t_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val, time;
!
! if(x->x_curindex >= x->x_curnum)
! {
! bpe_stop(x);
! outlet_bang(x->x_out_finished);
! }
! else
! {
! vec += x->x_curindex;
! val = atom_getfloat(vec++);
! time = atom_getfloat(vec);
! outlet_float(x->x_out_time, time);
! outlet_float(x->x_out_val, val);
! x->x_curindex += 2;
! clock_delay(x->x_clock, time);
! }
! }
!
! static void bpe_bang(t_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val, time;
!
! if(x->x_curnum)
! {
! x->x_curindex = 2;
! val = atom_getfloat(vec++);
! time = atom_getfloat(vec);
! outlet_float(x->x_out_time, time);
! outlet_float(x->x_out_val, val);
! clock_delay(x->x_clock, time);
! }
! }
!
! static void bpe_list(t_bpe *x, t_symbol *s, int ac, t_atom *av)
! {
! int n = ac & 0xfffffffe, i;
! t_atom *vec = x->x_beg;
! if(n > x->x_maxnum)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! x->x_maxnum = 2 + n;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! vec = x->x_beg;
! }
! x->x_curnum = n;
! for(i=0; i<n; i++)
! {
! *vec++ = *av++;
! }
! }
!
! static void bpe_free(t_bpe *x)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! clock_free(x->x_clock);
! }
!
! static void *bpe_new(void)
! {
! t_bpe *x = (t_bpe *)pd_new(bpe_class);
!
! x->x_curindex = 0;
! x->x_maxnum = 20;
! x->x_curnum = 0;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! x->x_clock = clock_new(x, (t_method)bpe_tick);
! x->x_out_val = outlet_new(&x->x_obj, &s_float);
! x->x_out_time = outlet_new(&x->x_obj, &s_float);
! x->x_out_finished = outlet_new(&x->x_obj, &s_bang);
! return (x);
! }
!
! void bpe_setup(void)
! {
! bpe_class = class_new(gensym("bpe"), (t_newmethod)bpe_new,
! (t_method)bpe_free, sizeof(t_bpe), 0, 0);
! class_addmethod(bpe_class, (t_method)bpe_stop, gensym("stop"), 0);
! class_addbang(bpe_class, bpe_bang);
! class_addlist(bpe_class, (t_method)bpe_list);
! class_sethelpsymbol(bpe_class, gensym("iemhelp/help-bpe"));
! }
!
--- 1,122 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* --------------------------- bpe -------------------------------- */
! /* -- break-point-envelope, convert a list of value-time-doubles -- */
! /* ------- into a time-scheduled stream of value-time-pairs ------- */
!
! static t_class *bpe_class;
!
! typedef struct _bpe
! {
! t_object x_obj;
! t_clock *x_clock;
! int x_maxnum;
! int x_curnum;
! int x_curindex;
! t_atom *x_beg;
! void *x_out_val;
! void *x_out_time;
! void *x_out_finished;
! } t_bpe;
!
! static void bpe_stop(t_bpe *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void bpe_tick(t_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val, time;
!
! if(x->x_curindex >= x->x_curnum)
! {
! bpe_stop(x);
! outlet_bang(x->x_out_finished);
! }
! else
! {
! vec += x->x_curindex;
! val = atom_getfloat(vec++);
! time = atom_getfloat(vec);
! outlet_float(x->x_out_time, time);
! outlet_float(x->x_out_val, val);
! x->x_curindex += 2;
! clock_delay(x->x_clock, time);
! }
! }
!
! static void bpe_bang(t_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val, time;
!
! if(x->x_curnum)
! {
! x->x_curindex = 2;
! val = atom_getfloat(vec++);
! time = atom_getfloat(vec);
! outlet_float(x->x_out_time, time);
! outlet_float(x->x_out_val, val);
! clock_delay(x->x_clock, time);
! }
! }
!
! static void bpe_list(t_bpe *x, t_symbol *s, int ac, t_atom *av)
! {
! int n = ac & 0xfffffffe, i;
! t_atom *vec = x->x_beg;
! if(n > x->x_maxnum)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! x->x_maxnum = 2 + n;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! vec = x->x_beg;
! }
! x->x_curnum = n;
! for(i=0; i<n; i++)
! {
! *vec++ = *av++;
! }
! }
!
! static void bpe_free(t_bpe *x)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! clock_free(x->x_clock);
! }
!
! static void *bpe_new(void)
! {
! t_bpe *x = (t_bpe *)pd_new(bpe_class);
!
! x->x_curindex = 0;
! x->x_maxnum = 20;
! x->x_curnum = 0;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! x->x_clock = clock_new(x, (t_method)bpe_tick);
! x->x_out_val = outlet_new(&x->x_obj, &s_float);
! x->x_out_time = outlet_new(&x->x_obj, &s_float);
! x->x_out_finished = outlet_new(&x->x_obj, &s_bang);
! return (x);
! }
!
! void bpe_setup(void)
! {
! bpe_class = class_new(gensym("bpe"), (t_newmethod)bpe_new,
! (t_method)bpe_free, sizeof(t_bpe), 0, 0);
! class_addmethod(bpe_class, (t_method)bpe_stop, gensym("stop"), 0);
! class_addbang(bpe_class, bpe_bang);
! class_addlist(bpe_class, (t_method)bpe_list);
! class_sethelpsymbol(bpe_class, gensym("iemhelp/help-bpe"));
! }
Index: post_netreceive.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/post_netreceive.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** post_netreceive.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- post_netreceive.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,243 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ post_netreceive ---------------------------- */
! static t_class *post_netreceive_class;
!
! typedef struct _post_netreceive
! {
! t_object x_obj;
! int x_max_send_entries;
! int x_min_send_entries;
! char *x_snd_able;
! t_symbol **x_send_entries;
! t_symbol **x_plus_entries;
! t_symbol *x_set;
! t_atom x_at[2];
! t_atom *x_atbuf;
! t_symbol *x_send;
! t_symbol *x_setall;
! } t_post_netreceive;
!
! static void post_netreceive_list(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
! t_symbol *sender=0;
!
! if((identifier_index >= x->x_min_send_entries) && (identifier_index < x->x_max_send_entries))
! {
! if(x->x_snd_able[identifier_index] == 1)
! {
! sender = x->x_send_entries[identifier_index];
! if(sender->s_thing)
! {
! if(ac == 2)
! pd_float(sender->s_thing, atom_getfloatarg(1, ac, av));
! else
! pd_list(sender->s_thing, &s_list, ac-1, av+1);
! }
! }
! else if(x->x_snd_able[identifier_index] == 2)
! {
! sender = x->x_send_entries[identifier_index];
! if(sender->s_thing)
! {
! typedmess(sender->s_thing, x->x_plus_entries[identifier_index], ac-1, av+1);
! }
! }
! if(IS_A_FLOAT(av,1))
! SETFLOAT(x->x_atbuf+identifier_index+1, atom_getfloatarg(1, ac, av));
! else if(IS_A_SYMBOL(av,1))
! SETSYMBOL(x->x_atbuf+identifier_index+1, atom_getsymbolarg(1, ac, av));
! }
! }
!
! /*static void post_netreceive_set_item_name(t_post_netreceive *x, t_symbol *snd, t_float findex)
! {
! int index = (int)findex;
!
! if((index >= 0) && (index < x->x_max_send_entries))
! {
! x->x_send_entries[index] = snd;
! x->x_snd_able[index] = 1;
! }
! }*/
!
! static void post_netreceive_set_item_name(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac == 2)
! {
! int identifier_index = (int)atom_getintarg(1, ac, av);
!
! if((identifier_index >= x->x_min_send_entries) && (identifier_index < x->x_max_send_entries))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(0, ac, av);
! x->x_snd_able[identifier_index] = 1;
! }
! }
! else if(ac >= 3)
! {
! int identifier_index = (int)atom_getintarg(2, ac, av);
!
! if((identifier_index >= 0) && (identifier_index < x->x_max_send_entries))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(1, ac, av);
! x->x_snd_able[identifier_index] = 2;
! x->x_plus_entries[identifier_index] = atom_getsymbolarg(0, ac, av);
! }
! }
! }
!
! static void post_netreceive_all_parameters(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, min = x->x_min_send_entries, max = x->x_max_send_entries;
! t_symbol *sendname=0;
!
! if(min > ac)
! min = ac;
! if(max > ac)
! max = ac;
! for(i=min; i<max; i++)
! {
! if(x->x_snd_able[i] == 1)
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! pd_float(sendname->s_thing, atom_getfloatarg(i, ac, av));
! }
! }
! else if(x->x_snd_able[i] == 2)
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! typedmess(sendname->s_thing, x->x_plus_entries[i], 1, av+i);
! }
! }
! if(IS_A_FLOAT(av,i))
! SETFLOAT(x->x_atbuf+i+1, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av,i))
! SETSYMBOL(x->x_atbuf+i+1, atom_getsymbolarg(i, ac, av));
! }
! }
!
! static void post_netreceive_set_all_parameters(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, min = x->x_min_send_entries, max = x->x_max_send_entries;
! t_symbol *sendname;
!
! if(min > ac)
! min = ac;
! if(max > ac)
! max = ac;
! for(i=min; i<max; i++)
! {
! if(x->x_snd_able[i])
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! typedmess(sendname->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
!
! static void post_netreceive_clear(t_post_netreceive *x)
! {
! int i, max = x->x_max_send_entries;
!
! for(i=0; i<max; i++)
! {
! if(x->x_snd_able[i])
! {
! x->x_snd_able[i] = 0;
! }
! }
! }
!
! static void post_netreceive_fetch_all_parameters(t_post_netreceive *x, t_float nr_sended_para)
! {
! int nrsp=(int)nr_sended_para;
! t_atom *ap=x->x_atbuf+x->x_min_send_entries;
!
! if(nrsp <= 0)
! nrsp = 1;
! if(nrsp > (x->x_max_send_entries - x->x_min_send_entries))
! nrsp = (x->x_max_send_entries - x->x_min_send_entries);
! outlet_anything(x->x_obj.ob_outlet, x->x_send, nrsp+1, x->x_atbuf);
! }
!
! static void post_netreceive_free(t_post_netreceive *x)
! {
! freebytes(x->x_snd_able, x->x_max_send_entries * sizeof(char));
! freebytes(x->x_send_entries, x->x_max_send_entries * sizeof(t_symbol *));
! freebytes(x->x_atbuf, (x->x_max_send_entries+2) * sizeof(t_atom));
! freebytes(x->x_plus_entries, x->x_max_send_entries * sizeof(t_symbol *));
! }
!
! static void *post_netreceive_new(t_float fmin, t_float fmax)
! {
! t_post_netreceive *x = (t_post_netreceive *)pd_new(post_netreceive_class);
! int i, min = (int)fmin, max = (int)fmax;
! t_atom *ap;
!
! if(min < 0)
! min = 0;
! if(max <= 0)
! max = 80;
! x->x_min_send_entries = min;
! x->x_max_send_entries = max;
! x->x_atbuf = (t_atom *)getbytes((x->x_max_send_entries+2) * sizeof(t_atom));
! x->x_snd_able = (char *)getbytes(x->x_max_send_entries * sizeof(char));
! x->x_send_entries = (t_symbol **)getbytes(x->x_max_send_entries * sizeof(t_symbol *));
! x->x_plus_entries = (t_symbol **)getbytes(x->x_max_send_entries * sizeof(t_symbol *));
! x->x_set = gensym("set");
! x->x_setall = gensym("set_all_parameters");
! x->x_send = gensym("send");
! ap = x->x_atbuf;
! SETSYMBOL(ap, x->x_setall);
! ap++;
! for(i=1; i<=max; i++)
! {
! SETFLOAT(ap, 0.0);
! ap++;
! }
! for(i=0; i<max; i++)
! {
! x->x_snd_able[i] = 0;
! x->x_plus_entries[i] = x->x_set;
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void post_netreceive_setup(void)
! {
! post_netreceive_class = class_new(gensym("post_netreceive"), (t_newmethod)post_netreceive_new,
! (t_method)post_netreceive_free, sizeof(t_post_netreceive), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addlist(post_netreceive_class, post_netreceive_list);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_set_item_name, gensym("set_item_name"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_all_parameters, gensym("all_parameters"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_set_all_parameters, gensym("set_all_parameters"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_fetch_all_parameters, gensym("fetch_all_parameters"), A_DEFFLOAT, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_clear, gensym("clear"), 0);
! class_sethelpsymbol(post_netreceive_class, gensym("iemhelp/help-post_netreceive"));
! }
!
--- 1,241 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ post_netreceive ---------------------------- */
! static t_class *post_netreceive_class;
!
! typedef struct _post_netreceive
! {
! t_object x_obj;
! int x_max_send_entries;
! int x_min_send_entries;
! char *x_snd_able;
! t_symbol **x_send_entries;
! t_symbol **x_plus_entries;
! t_symbol *x_set;
! t_atom x_at[2];
! t_atom *x_atbuf;
! t_symbol *x_send;
! t_symbol *x_setall;
! } t_post_netreceive;
!
! static void post_netreceive_list(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
! t_symbol *sender=0;
!
! if((identifier_index >= x->x_min_send_entries) && (identifier_index < x->x_max_send_entries))
! {
! if(x->x_snd_able[identifier_index] == 1)
! {
! sender = x->x_send_entries[identifier_index];
! if(sender->s_thing)
! {
! if(ac == 2)
! pd_float(sender->s_thing, atom_getfloatarg(1, ac, av));
! else
! pd_list(sender->s_thing, &s_list, ac-1, av+1);
! }
! }
! else if(x->x_snd_able[identifier_index] == 2)
! {
! sender = x->x_send_entries[identifier_index];
! if(sender->s_thing)
! {
! typedmess(sender->s_thing, x->x_plus_entries[identifier_index], ac-1, av+1);
! }
! }
! if(IS_A_FLOAT(av,1))
! SETFLOAT(x->x_atbuf+identifier_index+1, atom_getfloatarg(1, ac, av));
! else if(IS_A_SYMBOL(av,1))
! SETSYMBOL(x->x_atbuf+identifier_index+1, atom_getsymbolarg(1, ac, av));
! }
! }
!
! /*static void post_netreceive_set_item_name(t_post_netreceive *x, t_symbol *snd, t_float findex)
! {
! int index = (int)findex;
!
! if((index >= 0) && (index < x->x_max_send_entries))
! {
! x->x_send_entries[index] = snd;
! x->x_snd_able[index] = 1;
! }
! }*/
!
! static void post_netreceive_set_item_name(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac == 2)
! {
! int identifier_index = (int)atom_getintarg(1, ac, av);
!
! if((identifier_index >= x->x_min_send_entries) && (identifier_index < x->x_max_send_entries))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(0, ac, av);
! x->x_snd_able[identifier_index] = 1;
! }
! }
! else if(ac >= 3)
! {
! int identifier_index = (int)atom_getintarg(2, ac, av);
!
! if((identifier_index >= 0) && (identifier_index < x->x_max_send_entries))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(1, ac, av);
! x->x_snd_able[identifier_index] = 2;
! x->x_plus_entries[identifier_index] = atom_getsymbolarg(0, ac, av);
! }
! }
! }
!
! static void post_netreceive_all_parameters(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, min = x->x_min_send_entries, max = x->x_max_send_entries;
! t_symbol *sendname=0;
!
! if(min > ac)
! min = ac;
! if(max > ac)
! max = ac;
! for(i=min; i<max; i++)
! {
! if(x->x_snd_able[i] == 1)
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! pd_float(sendname->s_thing, atom_getfloatarg(i, ac, av));
! }
! }
! else if(x->x_snd_able[i] == 2)
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! typedmess(sendname->s_thing, x->x_plus_entries[i], 1, av+i);
! }
! }
! if(IS_A_FLOAT(av,i))
! SETFLOAT(x->x_atbuf+i+1, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av,i))
! SETSYMBOL(x->x_atbuf+i+1, atom_getsymbolarg(i, ac, av));
! }
! }
!
! static void post_netreceive_set_all_parameters(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, min = x->x_min_send_entries, max = x->x_max_send_entries;
! t_symbol *sendname;
!
! if(min > ac)
! min = ac;
! if(max > ac)
! max = ac;
! for(i=min; i<max; i++)
! {
! if(x->x_snd_able[i])
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! typedmess(sendname->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
!
! static void post_netreceive_clear(t_post_netreceive *x)
! {
! int i, max = x->x_max_send_entries;
!
! for(i=0; i<max; i++)
! {
! if(x->x_snd_able[i])
! {
! x->x_snd_able[i] = 0;
! }
! }
! }
!
! static void post_netreceive_fetch_all_parameters(t_post_netreceive *x, t_float nr_sended_para)
! {
! int nrsp=(int)nr_sended_para;
! t_atom *ap=x->x_atbuf+x->x_min_send_entries;
!
! if(nrsp <= 0)
! nrsp = 1;
! if(nrsp > (x->x_max_send_entries - x->x_min_send_entries))
! nrsp = (x->x_max_send_entries - x->x_min_send_entries);
! outlet_anything(x->x_obj.ob_outlet, x->x_send, nrsp+1, x->x_atbuf);
! }
!
! static void post_netreceive_free(t_post_netreceive *x)
! {
! freebytes(x->x_snd_able, x->x_max_send_entries * sizeof(char));
! freebytes(x->x_send_entries, x->x_max_send_entries * sizeof(t_symbol *));
! freebytes(x->x_atbuf, (x->x_max_send_entries+2) * sizeof(t_atom));
! freebytes(x->x_plus_entries, x->x_max_send_entries * sizeof(t_symbol *));
! }
!
! static void *post_netreceive_new(t_float fmin, t_float fmax)
! {
! t_post_netreceive *x = (t_post_netreceive *)pd_new(post_netreceive_class);
! int i, min = (int)fmin, max = (int)fmax;
! t_atom *ap;
!
! if(min < 0)
! min = 0;
! if(max <= 0)
! max = 80;
! x->x_min_send_entries = min;
! x->x_max_send_entries = max;
! x->x_atbuf = (t_atom *)getbytes((x->x_max_send_entries+2) * sizeof(t_atom));
! x->x_snd_able = (char *)getbytes(x->x_max_send_entries * sizeof(char));
! x->x_send_entries = (t_symbol **)getbytes(x->x_max_send_entries * sizeof(t_symbol *));
! x->x_plus_entries = (t_symbol **)getbytes(x->x_max_send_entries * sizeof(t_symbol *));
! x->x_set = gensym("set");
! x->x_setall = gensym("set_all_parameters");
! x->x_send = gensym("send");
! ap = x->x_atbuf;
! SETSYMBOL(ap, x->x_setall);
! ap++;
! for(i=1; i<=max; i++)
! {
! SETFLOAT(ap, 0.0);
! ap++;
! }
! for(i=0; i<max; i++)
! {
! x->x_snd_able[i] = 0;
! x->x_plus_entries[i] = x->x_set;
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void post_netreceive_setup(void)
! {
! post_netreceive_class = class_new(gensym("post_netreceive"), (t_newmethod)post_netreceive_new,
! (t_method)post_netreceive_free, sizeof(t_post_netreceive), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addlist(post_netreceive_class, post_netreceive_list);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_set_item_name, gensym("set_item_name"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_all_parameters, gensym("all_parameters"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_set_all_parameters, gensym("set_all_parameters"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_fetch_all_parameters, gensym("fetch_all_parameters"), A_DEFFLOAT, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_clear, gensym("clear"), 0);
! class_sethelpsymbol(post_netreceive_class, gensym("iemhelp/help-post_netreceive"));
! }
Index: iem_receive_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_receive_kernel.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_receive_kernel.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- iem_receive_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,155 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------ iem_receive_kernel ---------------------------- */
!
! static t_class *iem_receive_kernel_class;
!
! typedef struct _iem_receive_kernel
! {
! t_object x_obj;
! t_symbol *x_sym;
! } t_iem_receive_kernel;
!
! void iem_receive_kernel_copy_at(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_receive_kernel_set_name(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0)&&((IS_A_SYMBOL(argv,0))||(IS_A_FLOAT(argv,0))))
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! if(IS_A_SYMBOL(argv,0))
! x->x_sym = atom_getsymbol(argv);
! else if(IS_A_FLOAT(argv,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(argv));
! x->x_sym = gensym(str);
! }
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! }
!
! static void iem_receive_kernel_clear(t_iem_receive_kernel *x)
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! x->x_sym = 0;
! }
!
! static void iem_receive_kernel_bang(t_iem_receive_kernel *x)
! {
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void iem_receive_kernel_float(t_iem_receive_kernel *x, t_float f)
! {
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void iem_receive_kernel_symbol(t_iem_receive_kernel *x, t_symbol *s)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void iem_receive_kernel_pointer(t_iem_receive_kernel *x, t_gpointer *gp)
! {
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void iem_receive_kernel_list(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! outlet_list(x->x_obj.ob_outlet, &s_list, argc, argv);
! }
!
! static void iem_receive_kernel_anything(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void iem_receive_kernel_free(t_iem_receive_kernel *x)
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! }
!
! static void *iem_receive_kernel_new(void)
! {
! t_iem_receive_kernel *x = (t_iem_receive_kernel *)pd_new(iem_receive_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_sym = gensym(str);
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! else
! x->x_sym = 0;
! }
! else
! x->x_sym = 0;
!
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_receive_kernel_setup(void)
! {
! char str[2];
!
! str[1] = 0;
! iem_receive_kernel_class = class_new(gensym("iem_receive_kernel"), (t_newmethod)iem_receive_kernel_new,
! (t_method)iem_receive_kernel_free, sizeof(t_iem_receive_kernel), 0, 0);
! class_addbang(iem_receive_kernel_class, iem_receive_kernel_bang);
! class_addfloat(iem_receive_kernel_class, iem_receive_kernel_float);
! class_addsymbol(iem_receive_kernel_class, iem_receive_kernel_symbol);
! class_addpointer(iem_receive_kernel_class, iem_receive_kernel_pointer);
! class_addlist(iem_receive_kernel_class, iem_receive_kernel_list);
! class_addanything(iem_receive_kernel_class, iem_receive_kernel_anything);
! // class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_set, gensym("set"), A_GIMME, 0);
! str[0] = 1;/*inlet-sym = "\0x01"*/
! class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_set_name, gensym(str), A_GIMME, 0);
! str[0] = 2;/*inlet-sym = "\0x02"*/
! class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_clear, gensym(str), 0);
! class_sethelpsymbol(iem_receive_kernel_class, gensym("iemhelp/help-iem_receive"));
! }
--- 1,155 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------ iem_receive_kernel ---------------------------- */
!
! static t_class *iem_receive_kernel_class;
!
! typedef struct _iem_receive_kernel
! {
! t_object x_obj;
! t_symbol *x_sym;
! } t_iem_receive_kernel;
!
! void iem_receive_kernel_copy_at(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_receive_kernel_set_name(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0)&&((IS_A_SYMBOL(argv,0))||(IS_A_FLOAT(argv,0))))
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! if(IS_A_SYMBOL(argv,0))
! x->x_sym = atom_getsymbol(argv);
! else if(IS_A_FLOAT(argv,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(argv));
! x->x_sym = gensym(str);
! }
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! }
!
! static void iem_receive_kernel_clear(t_iem_receive_kernel *x)
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! x->x_sym = 0;
! }
!
! static void iem_receive_kernel_bang(t_iem_receive_kernel *x)
! {
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void iem_receive_kernel_float(t_iem_receive_kernel *x, t_float f)
! {
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void iem_receive_kernel_symbol(t_iem_receive_kernel *x, t_symbol *s)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void iem_receive_kernel_pointer(t_iem_receive_kernel *x, t_gpointer *gp)
! {
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void iem_receive_kernel_list(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! outlet_list(x->x_obj.ob_outlet, &s_list, argc, argv);
! }
!
! static void iem_receive_kernel_anything(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void iem_receive_kernel_free(t_iem_receive_kernel *x)
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! }
!
! static void *iem_receive_kernel_new(void)
! {
! t_iem_receive_kernel *x = (t_iem_receive_kernel *)pd_new(iem_receive_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_sym = gensym(str);
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! else
! x->x_sym = 0;
! }
! else
! x->x_sym = 0;
!
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_receive_kernel_setup(void)
! {
! char str[2];
!
! str[1] = 0;
! iem_receive_kernel_class = class_new(gensym("iem_receive_kernel"), (t_newmethod)iem_receive_kernel_new,
! (t_method)iem_receive_kernel_free, sizeof(t_iem_receive_kernel), 0, 0);
! class_addbang(iem_receive_kernel_class, iem_receive_kernel_bang);
! class_addfloat(iem_receive_kernel_class, iem_receive_kernel_float);
! class_addsymbol(iem_receive_kernel_class, iem_receive_kernel_symbol);
! class_addpointer(iem_receive_kernel_class, iem_receive_kernel_pointer);
! class_addlist(iem_receive_kernel_class, iem_receive_kernel_list);
! class_addanything(iem_receive_kernel_class, iem_receive_kernel_anything);
! // class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_set, gensym("set"), A_GIMME, 0);
! str[0] = 1;/*inlet-sym = "\0x01"*/
! class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_set_name, gensym(str), A_GIMME, 0);
! str[0] = 2;/*inlet-sym = "\0x02"*/
! class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_clear, gensym(str), 0);
! class_sethelpsymbol(iem_receive_kernel_class, gensym("iemhelp/help-iem_receive"));
! }
Index: iem_pbank_csv.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_pbank_csv.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_pbank_csv.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- iem_pbank_csv.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,801 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
[...1574 lines suppressed...]
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! x->x_canvas = canvas_getcurrent();
! return (x);
! }
!
! /* ---------------- global setup function -------------------- */
!
! void iem_pbank_csv_setup(void )
! {
! iem_pbank_csv_class = class_new(gensym("iem_pbank_csv"), (t_newmethod)iem_pbank_csv_new,
! (t_method)iem_pbank_csv_free, sizeof(t_iem_pbank_csv), 0, A_GIMME, 0);
! class_addmethod(iem_pbank_csv_class, (t_method)iem_pbank_csv_recall, gensym("recall"), A_GIMME, 0);
! class_addmethod(iem_pbank_csv_class, (t_method)iem_pbank_csv_store, gensym("store"), A_GIMME, 0);
! class_addmethod(iem_pbank_csv_class, (t_method)iem_pbank_csv_read, gensym("read"), A_SYMBOL, A_DEFSYM, 0);
! class_addmethod(iem_pbank_csv_class, (t_method)iem_pbank_csv_write, gensym("write"), A_SYMBOL, A_DEFSYM, 0);
! class_addlist(iem_pbank_csv_class, iem_pbank_csv_list);
! class_addbang(iem_pbank_csv_class, iem_pbank_csv_bang);
! class_addmethod(iem_pbank_csv_class, (t_method)iem_pbank_csv_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(iem_pbank_csv_class, gensym("iemhelp/help-iem_pbank_csv"));
! }
Index: pre_inlet.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/pre_inlet.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** pre_inlet.c 18 May 2004 21:33:32 -0000 1.1.1.1
--- pre_inlet.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,94 ****
! /* Copyright (c) 1997-2003 Miller Puckette.
! * For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ pre_inlet ---------------------------- */
! static t_class *pre_inlet_class;
!
! typedef struct _pre_inlet
! {
! t_object x_obj;
! t_atom x_at;
! t_symbol *x_sym;
! } t_pre_inlet;
!
! static void pre_inlet_bang(t_pre_inlet *x)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void pre_inlet_float(t_pre_inlet *x, t_float f)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void pre_inlet_symbol(t_pre_inlet *x, t_symbol *s)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void pre_inlet_pointer(t_pre_inlet *x, t_gpointer *gp)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void pre_inlet_list(t_pre_inlet *x, t_symbol *s, int ac, t_atom *av)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_list(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void pre_inlet_anything(t_pre_inlet *x, t_symbol *s, int ac, t_atom *av)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void pre_inlet_free(t_pre_inlet *x)
! {
! }
!
! static void *pre_inlet_new(t_floatarg fsym, t_floatarg finlet)
! {
! t_pre_inlet *x = (t_pre_inlet *)pd_new(pre_inlet_class);
! char str[2];
!
! SETFLOAT(&x->x_at, finlet);
! str[0] = (char)((int)(fsym)&0xff);
! str[1] = 0;
! x->x_sym = gensym(str);
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void pre_inlet_setup(void)
! {
! pre_inlet_class = class_new(gensym("pre_inlet"), (t_newmethod)pre_inlet_new,
! (t_method)pre_inlet_free, sizeof(t_pre_inlet), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addbang(pre_inlet_class, (t_method)pre_inlet_bang);
! class_addfloat(pre_inlet_class, (t_method)pre_inlet_float);
! class_addsymbol(pre_inlet_class, pre_inlet_symbol);
! class_addpointer(pre_inlet_class, pre_inlet_pointer);
! class_addlist(pre_inlet_class, pre_inlet_list);
! class_addanything(pre_inlet_class, pre_inlet_anything);
! class_sethelpsymbol(pre_inlet_class, gensym("iemhelp/help-pre_inlet"));
! }
!
--- 1,99 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ pre_inlet ---------------------------- */
! /* --------- any incoming message produce additionally a --------- */
! /* ----- special anything message at output, followed by the ----- */
! /* --- original message. this pre message contains a selector ---- */
! /* ---- symbol made of one character of the m-th entry of the ---- */
! /* --- ASCII-table, followed by one float atom list entry with --- */
! /* ---- with value n. "m" and "n" are the 2 initial arguments ---- */
!
! static t_class *pre_inlet_class;
!
! typedef struct _pre_inlet
! {
! t_object x_obj;
! t_atom x_at;
! t_symbol *x_sym;
! } t_pre_inlet;
!
! static void pre_inlet_bang(t_pre_inlet *x)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void pre_inlet_float(t_pre_inlet *x, t_float f)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void pre_inlet_symbol(t_pre_inlet *x, t_symbol *s)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void pre_inlet_pointer(t_pre_inlet *x, t_gpointer *gp)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void pre_inlet_list(t_pre_inlet *x, t_symbol *s, int ac, t_atom *av)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_list(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void pre_inlet_anything(t_pre_inlet *x, t_symbol *s, int ac, t_atom *av)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void pre_inlet_free(t_pre_inlet *x)
! {
! }
!
! static void *pre_inlet_new(t_floatarg fsym, t_floatarg finlet)
! {
! t_pre_inlet *x = (t_pre_inlet *)pd_new(pre_inlet_class);
! char str[2];
!
! SETFLOAT(&x->x_at, finlet);
! str[0] = (char)((int)(fsym)&0xff);
! str[1] = 0;
! x->x_sym = gensym(str);
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void pre_inlet_setup(void)
! {
! pre_inlet_class = class_new(gensym("pre_inlet"), (t_newmethod)pre_inlet_new,
! (t_method)pre_inlet_free, sizeof(t_pre_inlet), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addbang(pre_inlet_class, (t_method)pre_inlet_bang);
! class_addfloat(pre_inlet_class, (t_method)pre_inlet_float);
! class_addsymbol(pre_inlet_class, pre_inlet_symbol);
! class_addpointer(pre_inlet_class, pre_inlet_pointer);
! class_addlist(pre_inlet_class, pre_inlet_list);
! class_addanything(pre_inlet_class, pre_inlet_anything);
! class_sethelpsymbol(pre_inlet_class, gensym("iemhelp/help-pre_inlet"));
! }
1
0
externals/iemlib/src/iem_mp3 iem_mp3.c, 1.1.1.1, 1.2 iemlib.h, 1.1.1.1, 1.2 sigmp3play.c, 1.1.1.1, 1.2
by IOhannes m zmölnig 02 Jun '05
by IOhannes m zmölnig 02 Jun '05
02 Jun '05
Update of /cvsroot/pure-data/externals/iemlib/src/iem_mp3
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29541/iem_mp3
Modified Files:
iem_mp3.c iemlib.h sigmp3play.c
Log Message:
updated to release-1.16
Index: iem_mp3.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_mp3/iem_mp3.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_mp3.c 18 May 2004 21:33:25 -0000 1.1.1.1
--- iem_mp3.c 2 Jun 2005 18:24:59 -0000 1.2
***************
*** 1,35 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_mp3 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
!
! static t_class *iem_mp3_class;
!
! static void *iem_mp3_new(void)
! {
! t_object *x = (t_object *)pd_new(iem_mp3_class);
!
! return (x);
! }
!
! void sigmp3play_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iem_mp3_setup(void)
! {
! iem_mp3_class = class_new(gensym("iem_mp3"), iem_mp3_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! sigmp3play_setup();
!
! post("iem_mp3 (R-1.15) library loaded!");
! }
--- 1,36 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_mp3 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
!
! static t_class *iem_mp3_class;
!
! static void *iem_mp3_new(void)
! {
! t_object *x = (t_object *)pd_new(iem_mp3_class);
!
! return (x);
! }
!
! void sigmp3play_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iem_mp3_setup(void)
! {
! iem_mp3_class = class_new(gensym("iem_mp3"), iem_mp3_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! sigmp3play_setup();
!
! post("iem_mp3 (R-1.16) library loaded! (c) Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
Index: sigmp3play.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_mp3/sigmp3play.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigmp3play.c 18 May 2004 21:33:27 -0000 1.1.1.1
--- sigmp3play.c 2 Jun 2005 18:24:59 -0000 1.2
***************
*** 1,3865 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_mp3 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! /*
! sigmp3play.c - Mpeg Layer III Player for PD
! Version:0.1
! 05-18-2000
! written by Thomas Musil (musil(a)iem.kug.ac.at), Norbert Math (math(a)iem.kug.ac.at)
[...7700 lines suppressed...]
! }
!
! void sigmp3play_setup(void)
! {
! sigmp3play_class = class_new(gensym("mp3play~"), (t_newmethod)sigmp3play_new,
! (t_method)sigmp3play_free, sizeof(t_sigmp3play), 0, 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_dsp, gensym("dsp"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_start, gensym("start"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_ft1,
! gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_stop, gensym("stop"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_pause, gensym("pause"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_open_again_at, gensym("open_again_at"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_open, gensym("open"), A_DEFSYM, 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_open_again, gensym("open_again"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_open_at, gensym("open_at"), A_DEFSYM, 0);
! class_sethelpsymbol(sigmp3play_class, gensym("iemhelp/help-mp3play~"));
! /*post("\nmp3play~ written by thomas musil & norbert math\nV 0.1 iem graz
! austria 05 2000\n");*/
! }
Index: iemlib.h
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_mp3/iemlib.h,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iemlib.h 18 May 2004 21:33:25 -0000 1.1.1.1
--- iemlib.h 2 Jun 2005 18:24:59 -0000 1.2
***************
*** 1,98 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifndef __IEMLIB_H__
! #define __IEMLIB_H__
!
!
! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)
! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)
! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)
! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)
! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)
! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)
! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)
!
!
! #ifdef NT
! int sys_noloadbang;
! //t_symbol *iemgui_key_sym=0;
! #include <io.h>
! #else
! extern int sys_noloadbang;
! //extern t_symbol *iemgui_key_sym;
! #include <unistd.h>
! #endif
!
! #define DEFDELVS 64
! #define XTRASAMPS 4
! #define SAMPBLK 4
!
!
! #define UNITBIT32 1572864. /* 3*2^19; bit 32 has place value 1 */
!
! /* machine-dependent definitions. These ifdefs really
! should have been by CPU type and not by operating system! */
! #ifdef IRIX
! /* big-endian. Most significant byte is at low address in memory */
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 long /* a data type that has 32 bits */
! #else
! #ifdef MSW
! /* little-endian; most significant byte is at highest address */
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #define int32 long
! #else
! #ifdef __FreeBSD__
! #include <machine/endian.h>
! #if BYTE_ORDER == LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* BYTE_ORDER */
! #include <sys/types.h>
! #define int32 int32_t
! #endif
! #ifdef __linux__
!
! #include <endian.h>
!
! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)
! #error No byte order defined
! #endif
!
! #if __BYTE_ORDER == __LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* __BYTE_ORDER */
!
! #include <sys/types.h>
! #define int32 int32_t
!
! #else
! #ifdef MACOSX
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 int /* a data type that has 32 bits */
!
! #endif /* MACOSX */
! #endif /* __linux__ */
! #endif /* MSW */
! #endif /* SGI */
!
! union tabfudge
! {
! double tf_d;
! int32 tf_i[2];
! };
!
! #endif
--- 1,102 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifndef __IEMLIB_H__
! #define __IEMLIB_H__
!
!
! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)
! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)
! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)
! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)
! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)
! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)
! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)
!
!
! #ifdef NT
! int sys_noloadbang;
! //t_symbol *iemgui_key_sym=0;
! #include <io.h>
! #else
! extern int sys_noloadbang;
! //extern t_symbol *iemgui_key_sym;
! #include <unistd.h>
! #endif
!
! #define DEFDELVS 64
! #define XTRASAMPS 4
! #define SAMPBLK 4
!
!
! #define UNITBIT32 1572864. /* 3*2^19; bit 32 has place value 1 */
!
! /* machine-dependent definitions. These ifdefs really
! should have been by CPU type and not by operating system! */
! #ifdef IRIX
! /* big-endian. Most significant byte is at low address in memory */
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 long /* a data type that has 32 bits */
! #else
! #ifdef MSW
! /* little-endian; most significant byte is at highest address */
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #define int32 long
! #else
! #ifdef __FreeBSD__
! #include <machine/endian.h>
! #if BYTE_ORDER == LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* BYTE_ORDER */
! #include <sys/types.h>
! #define int32 int32_t
! #endif
! #ifdef __linux__
!
! #include <endian.h>
!
! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)
! #error No byte order defined
! #endif
!
! #if __BYTE_ORDER == __LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* __BYTE_ORDER */
!
! #include <sys/types.h>
! #define int32 int32_t
!
! #else
! #ifdef __APPLE__
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 int /* a data type that has 32 bits */
!
! #endif /* __APPLE__ */
! #endif /* __linux__ */
! #endif /* MSW */
! #endif /* SGI */
!
! union tabfudge
! {
! double tf_d;
! int32 tf_i[2];
! };
!
! #define IEM_DENORMAL(f) ((((*(unsigned int*)&(f))&0x60000000)==0) || \
! (((*(unsigned int*)&(f))&0x60000000)==0x60000000))
! /* more stringent test: anything not between 1e-19 and 1e19 in absolute val */
!
! #endif
1
0
externals/iemlib/src/iem_t3_lib iem_t3_lib.c, 1.1.1.1, 1.2 iemlib.h, 1.1.1.1, 1.2 sigt3_line.c, 1.1.1.1, 1.2 sigt3_sig.c, 1.1.1.1, 1.2 t3_bpe.c, 1.1.1.1, 1.2 t3_delay.c, 1.1.1.1, 1.2 t3_metro.c, 1.1.1.1, 1.2 t3_timer.c, 1.1.1.1, 1.2
by IOhannes m zmölnig 02 Jun '05
by IOhannes m zmölnig 02 Jun '05
02 Jun '05
Update of /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29541/iem_t3_lib
Modified Files:
iem_t3_lib.c iemlib.h sigt3_line.c sigt3_sig.c t3_bpe.c
t3_delay.c t3_metro.c t3_timer.c
Log Message:
updated to release-1.16
Index: t3_timer.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_timer.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** t3_timer.c 18 May 2004 21:33:28 -0000 1.1.1.1
--- t3_timer.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,55 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- t3_timer ------------------------------ */
! static t_class *t3_timer_class;
!
! typedef struct _t3_timer
! {
! t_object x_obj;
! double x_settime;
! double x_t3_off;
! } t_t3_timer;
!
! static void t3_timer_float(t_t3_timer *x, t_float t3_bang)
! {
! x->x_settime = (double)clock_getsystime();
! x->x_t3_off = (double)t3_bang;
! }
!
! static void t3_timer_ft1(t_t3_timer *x, t_float t3_bang)
! {
! outlet_float(x->x_obj.ob_outlet, clock_gettimesince(x->x_settime)
! + (double)t3_bang - x->x_t3_off);
! }
!
! static void *t3_timer_new(void)
! {
! t_t3_timer *x = (t_t3_timer *)pd_new(t3_timer_class);
! t3_timer_float(x, 0.0);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void t3_timer_setup(void)
! {
! t3_timer_class = class_new(gensym("t3_timer"), (t_newmethod)t3_timer_new, 0,
! sizeof(t_t3_timer), 0, 0);
! class_addfloat(t3_timer_class, t3_timer_float);
! class_addmethod(t3_timer_class, (t_method)t3_timer_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(t3_timer_class, gensym("iemhelp/help-t3_timer"));
! }
--- 1,55 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- t3_timer ------------------------------ */
! static t_class *t3_timer_class;
!
! typedef struct _t3_timer
! {
! t_object x_obj;
! double x_settime;
! double x_t3_off;
! } t_t3_timer;
!
! static void t3_timer_float(t_t3_timer *x, t_float t3_bang)
! {
! x->x_settime = (double)clock_getsystime();
! x->x_t3_off = (double)t3_bang;
! }
!
! static void t3_timer_ft1(t_t3_timer *x, t_float t3_bang)
! {
! outlet_float(x->x_obj.ob_outlet, clock_gettimesince(x->x_settime)
! + (double)t3_bang - x->x_t3_off);
! }
!
! static void *t3_timer_new(void)
! {
! t_t3_timer *x = (t_t3_timer *)pd_new(t3_timer_class);
! t3_timer_float(x, 0.0);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void t3_timer_setup(void)
! {
! t3_timer_class = class_new(gensym("t3_timer"), (t_newmethod)t3_timer_new, 0,
! sizeof(t_t3_timer), 0, 0);
! class_addfloat(t3_timer_class, t3_timer_float);
! class_addmethod(t3_timer_class, (t_method)t3_timer_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(t3_timer_class, gensym("iemhelp/help-t3_timer"));
! }
Index: sigt3_sig.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/sigt3_sig.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigt3_sig.c 18 May 2004 21:33:28 -0000 1.1.1.1
--- sigt3_sig.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,200 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- sigt3_sig~ ------------------------------ */
! static t_class *sigt3_sig_class;
!
! typedef struct _sigt3_sig
! {
! t_object x_obj;
! t_clock *x_clock;
! float x_old_val;
! float x_new_val;
! float *x_beg;
! int x_n;
! int x_t3_bang_samps;
! int x_transient;
! float x_ms2samps;
! float x_ticks2ms;
! } t_sigt3_sig;
!
! static void sigt3_sig_tick(t_sigt3_sig *x)
! {
! float *trans = x->x_beg, val;
! int n = x->x_n, t3_bang_samps, i;
!
! t3_bang_samps = x->x_t3_bang_samps;
! if(!x->x_transient)
! {
! val = x->x_old_val;
! for(i=0; i<t3_bang_samps; i++)
! trans[i] = val;
! x->x_transient = 1;
! }
! val = x->x_old_val = x->x_new_val;
! for(i=t3_bang_samps; i<n; i++)
! trans[i] = val;
! }
!
! static void sigt3_sig_stop(t_sigt3_sig *x)
! {
! clock_unset(x->x_clock);
! x->x_new_val = x->x_old_val;
! }
!
! static void sigt3_sig_list(t_sigt3_sig *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! int n = x->x_n, t3_bang_samps, ticks;
!
! t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
! x->x_new_val = (float)atom_getfloatarg(1, ac, av);
! if(t3_bang_samps < 0)
! t3_bang_samps = 0;
! ticks = t3_bang_samps / n;
! x->x_t3_bang_samps = t3_bang_samps - n*ticks;
! if(ticks < 1)
! sigt3_sig_tick(x);
! else
! clock_delay(x->x_clock, (double)ticks * (double)x->x_ticks2ms);
! }
! }
!
! static t_int *sigt3_sig_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
! int n = (int)(w[3]);
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! while(n--)
! *out++ = *trans++;
! x->x_transient = 0;
! }
! else
! {
! float val = x->x_new_val;
!
! while(n--)
! *out++ = val;
! }
! return (w+4);
! }
!
! static t_int *sigt3_sig_perf8(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
! int n = (int)(w[3]), i;
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! for(i=0; i<n; i+=8, out+=8, trans+=8)
! {
! out[0] = trans[0];
! out[1] = trans[1];
! out[2] = trans[2];
! out[3] = trans[3];
! out[4] = trans[4];
! out[5] = trans[5];
! out[6] = trans[6];
! out[7] = trans[7];
! }
! x->x_transient = 0;
! }
! else
! {
! float val = x->x_new_val;
!
! for(i=0; i<n; i+=8, out+=8)
! {
! out[0] = val;
! out[1] = val;
! out[2] = val;
! out[3] = val;
! out[4] = val;
! out[5] = val;
! out[6] = val;
! out[7] = val;
! }
! }
! return (w+4);
! }
!
! static void sigt3_sig_dsp(t_sigt3_sig *x, t_signal **sp)
! {
! int i;
! float *trans, val;
!
! if(sp[0]->s_n > x->x_n)
! {
! freebytes(x->x_beg, x->x_n*sizeof(float));
! x->x_n = sp[0]->s_n;
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! }
! else
! x->x_n = sp[0]->s_n;
! x->x_ms2samps = 0.001*(float)sp[0]->s_sr;
! x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
! i = x->x_n;
! val = x->x_new_val;
! trans = x->x_beg;
! while(i--)
! *trans++ = val;
!
! if((sp[0]->s_n)&7)
! dsp_add(sigt3_sig_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! else
! dsp_add(sigt3_sig_perf8, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigt3_sig_free(t_sigt3_sig *x)
! {
! if(x->x_beg)
! freebytes(x->x_beg, x->x_n*sizeof(float));
! clock_free(x->x_clock);
! }
!
! static void *sigt3_sig_new(t_floatarg init_val)
! {
! t_sigt3_sig *x = (t_sigt3_sig *)pd_new(sigt3_sig_class);
!
! x->x_new_val = x->x_old_val = init_val;
! x->x_n = (int)sys_getblksize();
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! x->x_t3_bang_samps = x->x_transient = 0;
! x->x_ms2samps = 0.001 * (float)sys_getsr();
! x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
! x->x_clock = clock_new(x, (t_method)sigt3_sig_tick);
! outlet_new(&x->x_obj, &s_signal);
! return (x);
! }
!
! void sigt3_sig_setup(void)
! {
! sigt3_sig_class = class_new(gensym("t3_sig~"), (t_newmethod)sigt3_sig_new,
! (t_method)sigt3_sig_free, sizeof(t_sigt3_sig), 0, A_DEFFLOAT, 0);
! class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_dsp, gensym("dsp"), 0);
! class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_stop, gensym("stop"), 0);
! class_addlist(sigt3_sig_class, (t_method)sigt3_sig_list);
! class_sethelpsymbol(sigt3_sig_class, gensym("iemhelp/help-t3_sig~"));
! }
--- 1,200 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- sigt3_sig~ ------------------------------ */
! static t_class *sigt3_sig_class;
!
! typedef struct _sigt3_sig
! {
! t_object x_obj;
! t_clock *x_clock;
! float x_old_val;
! float x_new_val;
! float *x_beg;
! int x_n;
! int x_t3_bang_samps;
! int x_transient;
! float x_ms2samps;
! float x_ticks2ms;
! } t_sigt3_sig;
!
! static void sigt3_sig_tick(t_sigt3_sig *x)
! {
! float *trans = x->x_beg, val;
! int n = x->x_n, t3_bang_samps, i;
!
! t3_bang_samps = x->x_t3_bang_samps;
! if(!x->x_transient)
! {
! val = x->x_old_val;
! for(i=0; i<t3_bang_samps; i++)
! trans[i] = val;
! x->x_transient = 1;
! }
! val = x->x_old_val = x->x_new_val;
! for(i=t3_bang_samps; i<n; i++)
! trans[i] = val;
! }
!
! static void sigt3_sig_stop(t_sigt3_sig *x)
! {
! clock_unset(x->x_clock);
! x->x_new_val = x->x_old_val;
! }
!
! static void sigt3_sig_list(t_sigt3_sig *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! int n = x->x_n, t3_bang_samps, ticks;
!
! t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
! x->x_new_val = (float)atom_getfloatarg(1, ac, av);
! if(t3_bang_samps < 0)
! t3_bang_samps = 0;
! ticks = t3_bang_samps / n;
! x->x_t3_bang_samps = t3_bang_samps - n*ticks;
! if(ticks < 1)
! sigt3_sig_tick(x);
! else
! clock_delay(x->x_clock, (double)ticks * (double)x->x_ticks2ms);
! }
! }
!
! static t_int *sigt3_sig_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
! int n = (int)(w[3]);
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! while(n--)
! *out++ = *trans++;
! x->x_transient = 0;
! }
! else
! {
! float val = x->x_new_val;
!
! while(n--)
! *out++ = val;
! }
! return (w+4);
! }
!
! static t_int *sigt3_sig_perf8(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
! int n = (int)(w[3]), i;
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! for(i=0; i<n; i+=8, out+=8, trans+=8)
! {
! out[0] = trans[0];
! out[1] = trans[1];
! out[2] = trans[2];
! out[3] = trans[3];
! out[4] = trans[4];
! out[5] = trans[5];
! out[6] = trans[6];
! out[7] = trans[7];
! }
! x->x_transient = 0;
! }
! else
! {
! float val = x->x_new_val;
!
! for(i=0; i<n; i+=8, out+=8)
! {
! out[0] = val;
! out[1] = val;
! out[2] = val;
! out[3] = val;
! out[4] = val;
! out[5] = val;
! out[6] = val;
! out[7] = val;
! }
! }
! return (w+4);
! }
!
! static void sigt3_sig_dsp(t_sigt3_sig *x, t_signal **sp)
! {
! int i;
! float *trans, val;
!
! if(sp[0]->s_n > x->x_n)
! {
! freebytes(x->x_beg, x->x_n*sizeof(float));
! x->x_n = sp[0]->s_n;
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! }
! else
! x->x_n = sp[0]->s_n;
! x->x_ms2samps = 0.001*(float)sp[0]->s_sr;
! x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
! i = x->x_n;
! val = x->x_new_val;
! trans = x->x_beg;
! while(i--)
! *trans++ = val;
!
! if((sp[0]->s_n)&7)
! dsp_add(sigt3_sig_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! else
! dsp_add(sigt3_sig_perf8, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigt3_sig_free(t_sigt3_sig *x)
! {
! if(x->x_beg)
! freebytes(x->x_beg, x->x_n*sizeof(float));
! clock_free(x->x_clock);
! }
!
! static void *sigt3_sig_new(t_floatarg init_val)
! {
! t_sigt3_sig *x = (t_sigt3_sig *)pd_new(sigt3_sig_class);
!
! x->x_new_val = x->x_old_val = init_val;
! x->x_n = (int)sys_getblksize();
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! x->x_t3_bang_samps = x->x_transient = 0;
! x->x_ms2samps = 0.001 * (float)sys_getsr();
! x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
! x->x_clock = clock_new(x, (t_method)sigt3_sig_tick);
! outlet_new(&x->x_obj, &s_signal);
! return (x);
! }
!
! void sigt3_sig_setup(void)
! {
! sigt3_sig_class = class_new(gensym("t3_sig~"), (t_newmethod)sigt3_sig_new,
! (t_method)sigt3_sig_free, sizeof(t_sigt3_sig), 0, A_DEFFLOAT, 0);
! class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_dsp, gensym("dsp"), 0);
! class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_stop, gensym("stop"), 0);
! class_addlist(sigt3_sig_class, (t_method)sigt3_sig_list);
! class_sethelpsymbol(sigt3_sig_class, gensym("iemhelp/help-t3_sig~"));
! }
Index: t3_delay.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_delay.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** t3_delay.c 18 May 2004 21:33:28 -0000 1.1.1.1
--- t3_delay.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,97 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_delay ---------------------------- */
! static t_class *t3_delay_class;
!
! typedef struct _t3_delay
! {
! t_object x_obj;
! t_clock *x_clock;
! double x_deltime;
! double x_ticks2ms;
! double x_t3_bang;
! } t_t3_delay;
!
! static void t3_delay_tick(t_t3_delay *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
! }
!
! static void t3_delay_stop(t_t3_delay *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_delay_float(t_t3_delay *x, t_floatarg t3_bang)
! {
! double dticks;
! int iticks;
!
! if(t3_bang < 0)
! t3_bang = 0;
! dticks = (x->x_deltime + (double)t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
!
! static void t3_delay_ft1(t_t3_delay *x, t_floatarg f)
! {
! if(f < 0)
! f = 0;
! x->x_deltime = f;
! }
!
! static void t3_delay_list(t_t3_delay *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! t3_delay_ft1(x, atom_getfloatarg(1, ac, av));
! t3_delay_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void t3_delay_free(t_t3_delay *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *t3_delay_new(t_floatarg f)
! {
! t_t3_delay *x = (t_t3_delay *)pd_new(t3_delay_class);
!
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! t3_delay_ft1(x, f);
! x->x_clock = clock_new(x, (t_method)t3_delay_tick);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void t3_delay_setup(void)
! {
! t3_delay_class = class_new(gensym("t3_delay"), (t_newmethod)t3_delay_new,
! (t_method)t3_delay_free, sizeof(t_t3_delay), 0, A_DEFFLOAT, 0);
! class_addcreator((t_newmethod)t3_delay_new, gensym("t3_del"), A_DEFFLOAT, 0);
! class_addmethod(t3_delay_class, (t_method)t3_delay_stop, gensym("stop"), 0);
! class_addmethod(t3_delay_class, (t_method)t3_delay_ft1,
! gensym("ft1"), A_FLOAT, 0);
! class_addfloat(t3_delay_class, (t_method)t3_delay_float);
! class_addlist(t3_delay_class, (t_method)t3_delay_list);
! class_sethelpsymbol(t3_delay_class, gensym("iemhelp/help-t3_delay"));
! }
!
--- 1,96 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_delay ---------------------------- */
! static t_class *t3_delay_class;
!
! typedef struct _t3_delay
! {
! t_object x_obj;
! t_clock *x_clock;
! double x_deltime;
! double x_ticks2ms;
! double x_t3_bang;
! } t_t3_delay;
!
! static void t3_delay_tick(t_t3_delay *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
! }
!
! static void t3_delay_stop(t_t3_delay *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_delay_float(t_t3_delay *x, t_floatarg t3_bang)
! {
! double dticks;
! int iticks;
!
! if(t3_bang < 0)
! t3_bang = 0;
! dticks = (x->x_deltime + (double)t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
!
! static void t3_delay_ft1(t_t3_delay *x, t_floatarg f)
! {
! if(f < 0)
! f = 0;
! x->x_deltime = f;
! }
!
! static void t3_delay_list(t_t3_delay *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! t3_delay_ft1(x, atom_getfloatarg(1, ac, av));
! t3_delay_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void t3_delay_free(t_t3_delay *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *t3_delay_new(t_floatarg f)
! {
! t_t3_delay *x = (t_t3_delay *)pd_new(t3_delay_class);
!
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! t3_delay_ft1(x, f);
! x->x_clock = clock_new(x, (t_method)t3_delay_tick);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void t3_delay_setup(void)
! {
! t3_delay_class = class_new(gensym("t3_delay"), (t_newmethod)t3_delay_new,
! (t_method)t3_delay_free, sizeof(t_t3_delay), 0, A_DEFFLOAT, 0);
! class_addcreator((t_newmethod)t3_delay_new, gensym("t3_del"), A_DEFFLOAT, 0);
! class_addmethod(t3_delay_class, (t_method)t3_delay_stop, gensym("stop"), 0);
! class_addmethod(t3_delay_class, (t_method)t3_delay_ft1,
! gensym("ft1"), A_FLOAT, 0);
! class_addfloat(t3_delay_class, (t_method)t3_delay_float);
! class_addlist(t3_delay_class, (t_method)t3_delay_list);
! class_sethelpsymbol(t3_delay_class, gensym("iemhelp/help-t3_delay"));
! }
Index: iemlib.h
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/iemlib.h,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iemlib.h 18 May 2004 21:33:28 -0000 1.1.1.1
--- iemlib.h 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,98 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifndef __IEMLIB_H__
! #define __IEMLIB_H__
!
!
! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)
! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)
! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)
! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)
! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)
! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)
! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)
!
!
! #ifdef NT
! int sys_noloadbang;
! //t_symbol *iemgui_key_sym=0;
! #include <io.h>
! #else
! extern int sys_noloadbang;
! //extern t_symbol *iemgui_key_sym;
! #include <unistd.h>
! #endif
!
! #define DEFDELVS 64
! #define XTRASAMPS 4
! #define SAMPBLK 4
!
!
! #define UNITBIT32 1572864. /* 3*2^19; bit 32 has place value 1 */
!
! /* machine-dependent definitions. These ifdefs really
! should have been by CPU type and not by operating system! */
! #ifdef IRIX
! /* big-endian. Most significant byte is at low address in memory */
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 long /* a data type that has 32 bits */
! #else
! #ifdef MSW
! /* little-endian; most significant byte is at highest address */
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #define int32 long
! #else
! #ifdef __FreeBSD__
! #include <machine/endian.h>
! #if BYTE_ORDER == LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* BYTE_ORDER */
! #include <sys/types.h>
! #define int32 int32_t
! #endif
! #ifdef __linux__
!
! #include <endian.h>
!
! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)
! #error No byte order defined
! #endif
!
! #if __BYTE_ORDER == __LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* __BYTE_ORDER */
!
! #include <sys/types.h>
! #define int32 int32_t
!
! #else
! #ifdef MACOSX
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 int /* a data type that has 32 bits */
!
! #endif /* MACOSX */
! #endif /* __linux__ */
! #endif /* MSW */
! #endif /* SGI */
!
! union tabfudge
! {
! double tf_d;
! int32 tf_i[2];
! };
!
! #endif
--- 1,102 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifndef __IEMLIB_H__
! #define __IEMLIB_H__
!
!
! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)
! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)
! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)
! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)
! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)
! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)
! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)
!
!
! #ifdef NT
! int sys_noloadbang;
! //t_symbol *iemgui_key_sym=0;
! #include <io.h>
! #else
! extern int sys_noloadbang;
! //extern t_symbol *iemgui_key_sym;
! #include <unistd.h>
! #endif
!
! #define DEFDELVS 64
! #define XTRASAMPS 4
! #define SAMPBLK 4
!
!
! #define UNITBIT32 1572864. /* 3*2^19; bit 32 has place value 1 */
!
! /* machine-dependent definitions. These ifdefs really
! should have been by CPU type and not by operating system! */
! #ifdef IRIX
! /* big-endian. Most significant byte is at low address in memory */
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 long /* a data type that has 32 bits */
! #else
! #ifdef MSW
! /* little-endian; most significant byte is at highest address */
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #define int32 long
! #else
! #ifdef __FreeBSD__
! #include <machine/endian.h>
! #if BYTE_ORDER == LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* BYTE_ORDER */
! #include <sys/types.h>
! #define int32 int32_t
! #endif
! #ifdef __linux__
!
! #include <endian.h>
!
! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)
! #error No byte order defined
! #endif
!
! #if __BYTE_ORDER == __LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* __BYTE_ORDER */
!
! #include <sys/types.h>
! #define int32 int32_t
!
! #else
! #ifdef __APPLE__
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 int /* a data type that has 32 bits */
!
! #endif /* __APPLE__ */
! #endif /* __linux__ */
! #endif /* MSW */
! #endif /* SGI */
!
! union tabfudge
! {
! double tf_d;
! int32 tf_i[2];
! };
!
! #define IEM_DENORMAL(f) ((((*(unsigned int*)&(f))&0x60000000)==0) || \
! (((*(unsigned int*)&(f))&0x60000000)==0x60000000))
! /* more stringent test: anything not between 1e-19 and 1e19 in absolute val */
!
! #endif
Index: sigt3_line.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/sigt3_line.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigt3_line.c 18 May 2004 21:33:28 -0000 1.1.1.1
--- sigt3_line.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,279 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- t3_line~ ------------------------------ */
! static t_class *sigt3_line_class;
!
! typedef struct _sigt3_line
! {
! t_object x_obj;
! t_clock *x_clock;
! float *x_beg;
! double x_cur_val;
! double x_dst_val;
! double x_inlet_val;
! double x_inc64;
! double x_inc;
! double x_ms2samps;
! double x_ticks2ms;
! double x_inlet_time;
! double x_dst_time;
! int x_cur_samps;
! int x_dur_samps;
! int x_n;
! int x_t3_bang_samps;
! int x_transient;
! } t_sigt3_line;
!
! static void sigt3_line_nontransient(float *vec, t_sigt3_line *x, int n)
! {
! int cur_samps = x->x_cur_samps, i;
! double inc = x->x_inc;
! double cur_val = x->x_cur_val;
!
! if(cur_samps)
! {
! if(cur_samps > n)
! {
! x->x_cur_samps -= n;
! while(n--)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val += x->x_inc64;
! }
! else if(cur_samps == n)
! {
! x->x_cur_samps = 0;
! while(n--)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val = x->x_dst_val;
! }
! else
! {
! for(i=0; i<cur_samps; i++)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val = cur_val = x->x_dst_val;
! for(i=cur_samps; i<n; i++)
! *vec++ = (float)cur_val;
! x->x_cur_samps = 0;
! }
! }
! else
! {
! while(n--)
! *vec++ = (float)cur_val;
! }
! }
!
! static t_int *sigt3_line_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_line *x = (t_sigt3_line *)(w[2]);
! int n = (int)(w[3]);
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! while(n--)
! *out++ = *trans++;
! x->x_transient = 0;
! }
! else
! sigt3_line_nontransient(out, x, n);
! return(w+4);
! }
!
! static void sigt3_line_tick(t_sigt3_line *x)
! {
! float *trans = x->x_beg;
! int n = x->x_n, t3_bang_samps, cur_samps, i;
! double inc, cur_val;
!
! if(!x->x_transient)
! sigt3_line_nontransient(trans, x, n);
! t3_bang_samps = x->x_t3_bang_samps;
! x->x_dst_val = x->x_inlet_val;
! if(x->x_inlet_time <= 0.0)
! {
! x->x_inlet_time = 0.0;
! x->x_dst_time = 0.0;
! x->x_dur_samps = 0;
! x->x_cur_samps = 0;
! cur_val = x->x_cur_val = x->x_dst_val;
! for(i=t3_bang_samps; i<n; i++)
! trans[i] = (float)cur_val;
! }
! else
! {
! int diff, end;
!
! x->x_dst_time = x->x_inlet_time;
! x->x_inlet_time = 0.0;
! cur_samps = (int)(x->x_dst_time * x->x_ms2samps);
! if(!cur_samps)
! cur_samps = 1;
! x->x_dur_samps = cur_samps;
! x->x_cur_samps = cur_samps;
! cur_val = x->x_cur_val = (double)trans[t3_bang_samps];
! inc = x->x_inc = (x->x_dst_val - cur_val)/(double)cur_samps;
! x->x_inc64 = (double)x->x_n * inc;
! diff = n - t3_bang_samps;
! if(cur_samps > diff)
! {
! for(i=t3_bang_samps; i<n; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! x->x_cur_val += (double)diff * inc;
! x->x_cur_samps -= diff;
! }
! else if(cur_samps == diff)
! {
! for(i=t3_bang_samps; i<n; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! x->x_cur_val = x->x_dst_val;
! x->x_cur_samps = 0;
! }
! else
! {
! end = t3_bang_samps + cur_samps;
! for(i=t3_bang_samps; i<end; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! cur_val = x->x_cur_val = x->x_dst_val;
! x->x_cur_samps = 0;
! for(i=end; i<n; i++)
! trans[i] = (float)cur_val;
! }
! }
! x->x_transient = 1;
! }
!
! static void sigt3_line_list(t_sigt3_line *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! int t3_bang_samps, ticks;
! double time;
!
! x->x_inlet_val = (double)atom_getfloatarg(1, ac, av);
! t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
! if(t3_bang_samps < 0)
! t3_bang_samps = 0;
! ticks = t3_bang_samps / x->x_n;
! x->x_t3_bang_samps = t3_bang_samps - x->x_n * ticks;
! if((ac >= 3)&&IS_A_FLOAT(av,2))
! {
! time = (double)atom_getfloatarg(2, ac, av);
! if(time < 0.0)
! time = 0.0;
! x->x_inlet_time = time;
! }
! if(ticks < 1)
! sigt3_line_tick(x);
! else
! clock_delay(x->x_clock, (double)ticks * x->x_ticks2ms);
! }
! }
!
! static void sigt3_line_ft1(t_sigt3_line *x, t_float time)
! {
! if(time < 0.0)
! time = 0.0;
! x->x_inlet_time = (double)time;
! }
!
! static void sigt3_line_stop(t_sigt3_line *x)
! {
! clock_unset(x->x_clock);
! x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
! x->x_inc = x->x_inc64 = x->x_inlet_time = x->x_dst_time = 0.0;
! }
!
! static void sigt3_line_dsp(t_sigt3_line *x, t_signal **sp)
! {
! int i;
! float val, *trans;
!
! if(sp[0]->s_n > x->x_n)
! {
! freebytes(x->x_beg, x->x_n*sizeof(float));
! x->x_n = (int)sp[0]->s_n;
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! }
! else
! x->x_n = (int)sp[0]->s_n;
! i = x->x_n;
! val = x->x_cur_val;
! trans = x->x_beg;
! while(i--)
! *trans++ = val;
! x->x_ms2samps = 0.001*(double)sp[0]->s_sr;
! x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
! dsp_add(sigt3_line_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigt3_line_free(t_sigt3_line *x)
! {
! if(x->x_beg)
! freebytes(x->x_beg, x->x_n*sizeof(float));
! clock_free(x->x_clock);
! }
!
! static void *sigt3_line_new(t_floatarg init_val)
! {
! t_sigt3_line *x = (t_sigt3_line *)pd_new(sigt3_line_class);
! int i;
!
! x->x_n = (int)sys_getblksize();
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! x->x_inlet_val = x->x_cur_val = x->x_dst_val = init_val;
! x->x_t3_bang_samps = x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
! x->x_inlet_time = x->x_dst_time = 0.0;
! x->x_inc64 = x->x_inc = 0.0;
! x->x_ms2samps = 0.001 * (double)sys_getsr();
! x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
! x->x_clock = clock_new(x, (t_method)sigt3_line_tick);
! outlet_new(&x->x_obj, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void sigt3_line_setup(void)
! {
! sigt3_line_class = class_new(gensym("t3_line~"), (t_newmethod)sigt3_line_new,
! (t_method)sigt3_line_free, sizeof(t_sigt3_line), 0, A_DEFFLOAT, 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_dsp, gensym("dsp"), 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_stop, gensym("stop"), 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addlist(sigt3_line_class, (t_method)sigt3_line_list);
! class_sethelpsymbol(sigt3_line_class, gensym("iemhelp/help-t3_line~"));
! }
--- 1,279 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- t3_line~ ------------------------------ */
! static t_class *sigt3_line_class;
!
! typedef struct _sigt3_line
! {
! t_object x_obj;
! t_clock *x_clock;
! float *x_beg;
! double x_cur_val;
! double x_dst_val;
! double x_inlet_val;
! double x_inc64;
! double x_inc;
! double x_ms2samps;
! double x_ticks2ms;
! double x_inlet_time;
! double x_dst_time;
! int x_cur_samps;
! int x_dur_samps;
! int x_n;
! int x_t3_bang_samps;
! int x_transient;
! } t_sigt3_line;
!
! static void sigt3_line_nontransient(float *vec, t_sigt3_line *x, int n)
! {
! int cur_samps = x->x_cur_samps, i;
! double inc = x->x_inc;
! double cur_val = x->x_cur_val;
!
! if(cur_samps)
! {
! if(cur_samps > n)
! {
! x->x_cur_samps -= n;
! while(n--)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val += x->x_inc64;
! }
! else if(cur_samps == n)
! {
! x->x_cur_samps = 0;
! while(n--)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val = x->x_dst_val;
! }
! else
! {
! for(i=0; i<cur_samps; i++)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val = cur_val = x->x_dst_val;
! for(i=cur_samps; i<n; i++)
! *vec++ = (float)cur_val;
! x->x_cur_samps = 0;
! }
! }
! else
! {
! while(n--)
! *vec++ = (float)cur_val;
! }
! }
!
! static t_int *sigt3_line_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_line *x = (t_sigt3_line *)(w[2]);
! int n = (int)(w[3]);
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! while(n--)
! *out++ = *trans++;
! x->x_transient = 0;
! }
! else
! sigt3_line_nontransient(out, x, n);
! return(w+4);
! }
!
! static void sigt3_line_tick(t_sigt3_line *x)
! {
! float *trans = x->x_beg;
! int n = x->x_n, t3_bang_samps, cur_samps, i;
! double inc, cur_val;
!
! if(!x->x_transient)
! sigt3_line_nontransient(trans, x, n);
! t3_bang_samps = x->x_t3_bang_samps;
! x->x_dst_val = x->x_inlet_val;
! if(x->x_inlet_time <= 0.0)
! {
! x->x_inlet_time = 0.0;
! x->x_dst_time = 0.0;
! x->x_dur_samps = 0;
! x->x_cur_samps = 0;
! cur_val = x->x_cur_val = x->x_dst_val;
! for(i=t3_bang_samps; i<n; i++)
! trans[i] = (float)cur_val;
! }
! else
! {
! int diff, end;
!
! x->x_dst_time = x->x_inlet_time;
! x->x_inlet_time = 0.0;
! cur_samps = (int)(x->x_dst_time * x->x_ms2samps);
! if(!cur_samps)
! cur_samps = 1;
! x->x_dur_samps = cur_samps;
! x->x_cur_samps = cur_samps;
! cur_val = x->x_cur_val = (double)trans[t3_bang_samps];
! inc = x->x_inc = (x->x_dst_val - cur_val)/(double)cur_samps;
! x->x_inc64 = (double)x->x_n * inc;
! diff = n - t3_bang_samps;
! if(cur_samps > diff)
! {
! for(i=t3_bang_samps; i<n; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! x->x_cur_val += (double)diff * inc;
! x->x_cur_samps -= diff;
! }
! else if(cur_samps == diff)
! {
! for(i=t3_bang_samps; i<n; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! x->x_cur_val = x->x_dst_val;
! x->x_cur_samps = 0;
! }
! else
! {
! end = t3_bang_samps + cur_samps;
! for(i=t3_bang_samps; i<end; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! cur_val = x->x_cur_val = x->x_dst_val;
! x->x_cur_samps = 0;
! for(i=end; i<n; i++)
! trans[i] = (float)cur_val;
! }
! }
! x->x_transient = 1;
! }
!
! static void sigt3_line_list(t_sigt3_line *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! int t3_bang_samps, ticks;
! double time;
!
! x->x_inlet_val = (double)atom_getfloatarg(1, ac, av);
! t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
! if(t3_bang_samps < 0)
! t3_bang_samps = 0;
! ticks = t3_bang_samps / x->x_n;
! x->x_t3_bang_samps = t3_bang_samps - x->x_n * ticks;
! if((ac >= 3)&&IS_A_FLOAT(av,2))
! {
! time = (double)atom_getfloatarg(2, ac, av);
! if(time < 0.0)
! time = 0.0;
! x->x_inlet_time = time;
! }
! if(ticks < 1)
! sigt3_line_tick(x);
! else
! clock_delay(x->x_clock, (double)ticks * x->x_ticks2ms);
! }
! }
!
! static void sigt3_line_ft1(t_sigt3_line *x, t_float time)
! {
! if(time < 0.0)
! time = 0.0;
! x->x_inlet_time = (double)time;
! }
!
! static void sigt3_line_stop(t_sigt3_line *x)
! {
! clock_unset(x->x_clock);
! x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
! x->x_inc = x->x_inc64 = x->x_inlet_time = x->x_dst_time = 0.0;
! }
!
! static void sigt3_line_dsp(t_sigt3_line *x, t_signal **sp)
! {
! int i;
! float val, *trans;
!
! if(sp[0]->s_n > x->x_n)
! {
! freebytes(x->x_beg, x->x_n*sizeof(float));
! x->x_n = (int)sp[0]->s_n;
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! }
! else
! x->x_n = (int)sp[0]->s_n;
! i = x->x_n;
! val = x->x_cur_val;
! trans = x->x_beg;
! while(i--)
! *trans++ = val;
! x->x_ms2samps = 0.001*(double)sp[0]->s_sr;
! x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
! dsp_add(sigt3_line_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigt3_line_free(t_sigt3_line *x)
! {
! if(x->x_beg)
! freebytes(x->x_beg, x->x_n*sizeof(float));
! clock_free(x->x_clock);
! }
!
! static void *sigt3_line_new(t_floatarg init_val)
! {
! t_sigt3_line *x = (t_sigt3_line *)pd_new(sigt3_line_class);
! int i;
!
! x->x_n = (int)sys_getblksize();
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! x->x_inlet_val = x->x_cur_val = x->x_dst_val = init_val;
! x->x_t3_bang_samps = x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
! x->x_inlet_time = x->x_dst_time = 0.0;
! x->x_inc64 = x->x_inc = 0.0;
! x->x_ms2samps = 0.001 * (double)sys_getsr();
! x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
! x->x_clock = clock_new(x, (t_method)sigt3_line_tick);
! outlet_new(&x->x_obj, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void sigt3_line_setup(void)
! {
! sigt3_line_class = class_new(gensym("t3_line~"), (t_newmethod)sigt3_line_new,
! (t_method)sigt3_line_free, sizeof(t_sigt3_line), 0, A_DEFFLOAT, 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_dsp, gensym("dsp"), 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_stop, gensym("stop"), 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addlist(sigt3_line_class, (t_method)sigt3_line_list);
! class_sethelpsymbol(sigt3_line_class, gensym("iemhelp/help-t3_line~"));
! }
Index: t3_bpe.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_bpe.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** t3_bpe.c 18 May 2004 21:33:28 -0000 1.1.1.1
--- t3_bpe.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,142 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_bpe ---------------------------- */
! static t_class *t3_bpe_class;
!
! typedef struct _t3_bpe
! {
! t_object x_obj;
! t_atom x_at[2];
! t_clock *x_clock;
! int x_maxnum;
! int x_curnum;
! int x_curindex;
! t_atom *x_beg;
! double x_t3_bang;
! double x_ticks2ms;
! int x_hit;
! void *x_out_val;
! void *x_out_time;
! void *x_out_finished;
! } t_t3_bpe;
!
! static void t3_bpe_stop(t_t3_bpe *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_bpe_tick(t_t3_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val;
! double dticks, time;
! int iticks;
!
! if(x->x_curindex >= x->x_curnum)
! {
! t3_bpe_stop(x);
! outlet_float(x->x_out_finished, x->x_t3_bang);
! }
! else
! {
! x->x_hit = 0;
! vec += x->x_curindex;
! val = atom_getfloat(vec++);
! time = (double)atom_getfloat(vec);
! outlet_float(x->x_out_time, (float)time);
! x->x_at[1].a_w.w_float = val;
! x->x_at[0].a_w.w_float = x->x_t3_bang;
! outlet_list(x->x_obj.ob_outlet, &s_list, 2, x->x_at);
! dticks = (time + x->x_t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! if(!x->x_hit)
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_curindex += 2;
! }
! }
!
! static void t3_bpe_float(t_t3_bpe *x, t_floatarg f)
! {
! double dticks;
! int iticks;
!
! if(x->x_curnum)
! {
! x->x_curindex = 0;
! dticks = (double)f/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_hit = 1;
! }
! }
!
! static void t3_bpe_list(t_t3_bpe *x, t_symbol *s, int ac, t_atom *av)
! {
! int n = ac & 0xfffffffe, i;
! t_atom *vec = x->x_beg;
! if(n > x->x_maxnum)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! x->x_maxnum = 2 + n;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! vec = x->x_beg;
! }
! x->x_curnum = n;
! for(i=0; i<n; i++)
! {
! *vec++ = *av++;
! }
! }
!
! static void t3_bpe_free(t_t3_bpe *x)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! clock_free(x->x_clock);
! }
!
! static void *t3_bpe_new(void)
! {
! t_t3_bpe *x = (t_t3_bpe *)pd_new(t3_bpe_class);
!
! x->x_t3_bang = 0.0;
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! x->x_curindex = 0;
! x->x_maxnum = 20;
! x->x_curnum = 0;
! x->x_hit = 0;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! x->x_clock = clock_new(x, (t_method)t3_bpe_tick);
! outlet_new(&x->x_obj, &s_list);
! x->x_out_time = outlet_new(&x->x_obj, &s_float);
! x->x_out_finished = outlet_new(&x->x_obj, &s_float);
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! return (x);
! }
!
! void t3_bpe_setup(void)
! {
! t3_bpe_class = class_new(gensym("t3_bpe"), (t_newmethod)t3_bpe_new,
! (t_method)t3_bpe_free, sizeof(t_t3_bpe), 0, 0);
! class_addmethod(t3_bpe_class, (t_method)t3_bpe_stop, gensym("stop"), 0);
! class_addfloat(t3_bpe_class, (t_method)t3_bpe_float);
! class_addlist(t3_bpe_class, (t_method)t3_bpe_list);
! class_sethelpsymbol(t3_bpe_class, gensym("iemhelp/help-t3_bpe"));
! }
!
--- 1,141 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_bpe ---------------------------- */
! static t_class *t3_bpe_class;
!
! typedef struct _t3_bpe
! {
! t_object x_obj;
! t_atom x_at[2];
! t_clock *x_clock;
! int x_maxnum;
! int x_curnum;
! int x_curindex;
! t_atom *x_beg;
! double x_t3_bang;
! double x_ticks2ms;
! int x_hit;
! void *x_out_val;
! void *x_out_time;
! void *x_out_finished;
! } t_t3_bpe;
!
! static void t3_bpe_stop(t_t3_bpe *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_bpe_tick(t_t3_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val;
! double dticks, time;
! int iticks;
!
! if(x->x_curindex >= x->x_curnum)
! {
! t3_bpe_stop(x);
! outlet_float(x->x_out_finished, x->x_t3_bang);
! }
! else
! {
! x->x_hit = 0;
! vec += x->x_curindex;
! val = atom_getfloat(vec++);
! time = (double)atom_getfloat(vec);
! outlet_float(x->x_out_time, (float)time);
! x->x_at[1].a_w.w_float = val;
! x->x_at[0].a_w.w_float = x->x_t3_bang;
! outlet_list(x->x_obj.ob_outlet, &s_list, 2, x->x_at);
! dticks = (time + x->x_t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! if(!x->x_hit)
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_curindex += 2;
! }
! }
!
! static void t3_bpe_float(t_t3_bpe *x, t_floatarg f)
! {
! double dticks;
! int iticks;
!
! if(x->x_curnum)
! {
! x->x_curindex = 0;
! dticks = (double)f/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_hit = 1;
! }
! }
!
! static void t3_bpe_list(t_t3_bpe *x, t_symbol *s, int ac, t_atom *av)
! {
! int n = ac & 0xfffffffe, i;
! t_atom *vec = x->x_beg;
! if(n > x->x_maxnum)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! x->x_maxnum = 2 + n;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! vec = x->x_beg;
! }
! x->x_curnum = n;
! for(i=0; i<n; i++)
! {
! *vec++ = *av++;
! }
! }
!
! static void t3_bpe_free(t_t3_bpe *x)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! clock_free(x->x_clock);
! }
!
! static void *t3_bpe_new(void)
! {
! t_t3_bpe *x = (t_t3_bpe *)pd_new(t3_bpe_class);
!
! x->x_t3_bang = 0.0;
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! x->x_curindex = 0;
! x->x_maxnum = 20;
! x->x_curnum = 0;
! x->x_hit = 0;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! x->x_clock = clock_new(x, (t_method)t3_bpe_tick);
! outlet_new(&x->x_obj, &s_list);
! x->x_out_time = outlet_new(&x->x_obj, &s_float);
! x->x_out_finished = outlet_new(&x->x_obj, &s_float);
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! return (x);
! }
!
! void t3_bpe_setup(void)
! {
! t3_bpe_class = class_new(gensym("t3_bpe"), (t_newmethod)t3_bpe_new,
! (t_method)t3_bpe_free, sizeof(t_t3_bpe), 0, 0);
! class_addmethod(t3_bpe_class, (t_method)t3_bpe_stop, gensym("stop"), 0);
! class_addfloat(t3_bpe_class, (t_method)t3_bpe_float);
! class_addlist(t3_bpe_class, (t_method)t3_bpe_list);
! class_sethelpsymbol(t3_bpe_class, gensym("iemhelp/help-t3_bpe"));
! }
Index: t3_metro.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_metro.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** t3_metro.c 18 May 2004 21:33:28 -0000 1.1.1.1
--- t3_metro.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,121 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_metro ---------------------------- */
! static t_class *t3_metro_class;
!
! typedef struct _t3_metro
! {
! t_object x_obj;
! t_clock *x_clock;
! double x_metrotime;
! double x_ticks2ms;
! double x_t3_bang;
! int x_hit;
! void *x_out_next;
! } t_t3_metro;
!
! static void t3_metro_stop(t_t3_metro *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_metro_tick(t_t3_metro *x)
! {
! double dticks;
! int iticks;
!
! x->x_hit = 0;
! outlet_float(x->x_out_next, x->x_metrotime);
! outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
! dticks = (x->x_metrotime + x->x_t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! if(!x->x_hit)
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
!
! static void t3_metro_float(t_t3_metro *x, t_floatarg t3_bang)
! {
! double dticks;
! int iticks;
!
! if(t3_bang < 0)
! t3_bang = 0;
! dticks = (double)t3_bang/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_hit = 1;
! }
!
! static void t3_metro_start(t_t3_metro *x, t_floatarg f)
! {
! t3_metro_float(x, f);
! x->x_hit = 1;
! }
!
! static void t3_metro_ft1(t_t3_metro *x, t_floatarg f)
! {
! if(f < 0.01) f = 0.01;
! x->x_metrotime = (double)f;
! }
!
! static void t3_metro_list(t_t3_metro *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! t3_metro_ft1(x, atom_getfloatarg(1, ac, av));
! t3_metro_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void t3_metro_free(t_t3_metro *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *t3_metro_new(t_symbol *s, int ac, t_atom *av)
! {
! t_t3_metro *x = (t_t3_metro *)pd_new(t3_metro_class);
!
! x->x_metrotime = 10.0;
! x->x_t3_bang = 0.0;
! x->x_hit = 0;
! if((ac == 1)&&IS_A_FLOAT(av,0))
! {
! t3_metro_ft1(x, atom_getfloatarg(0, ac, av));
! }
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! x->x_clock = clock_new(x, (t_method)t3_metro_tick);
! outlet_new(&x->x_obj, &s_float);
! x->x_out_next = outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void t3_metro_setup(void)
! {
! t3_metro_class = class_new(gensym("t3_metro"), (t_newmethod)t3_metro_new,
! (t_method)t3_metro_free, sizeof(t_t3_metro), 0, A_GIMME, 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_stop, gensym("stop"), 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_start, gensym("start"), A_FLOAT, 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addfloat(t3_metro_class, (t_method)t3_metro_float);
! class_addlist(t3_metro_class, (t_method)t3_metro_list);
! class_sethelpsymbol(t3_metro_class, gensym("iemhelp/help-t3_metro"));
! }
!
--- 1,120 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_metro ---------------------------- */
! static t_class *t3_metro_class;
!
! typedef struct _t3_metro
! {
! t_object x_obj;
! t_clock *x_clock;
! double x_metrotime;
! double x_ticks2ms;
! double x_t3_bang;
! int x_hit;
! void *x_out_next;
! } t_t3_metro;
!
! static void t3_metro_stop(t_t3_metro *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_metro_tick(t_t3_metro *x)
! {
! double dticks;
! int iticks;
!
! x->x_hit = 0;
! outlet_float(x->x_out_next, x->x_metrotime);
! outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
! dticks = (x->x_metrotime + x->x_t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! if(!x->x_hit)
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
!
! static void t3_metro_float(t_t3_metro *x, t_floatarg t3_bang)
! {
! double dticks;
! int iticks;
!
! if(t3_bang < 0)
! t3_bang = 0;
! dticks = (double)t3_bang/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_hit = 1;
! }
!
! static void t3_metro_start(t_t3_metro *x, t_floatarg f)
! {
! t3_metro_float(x, f);
! x->x_hit = 1;
! }
!
! static void t3_metro_ft1(t_t3_metro *x, t_floatarg f)
! {
! if(f < 0.01) f = 0.01;
! x->x_metrotime = (double)f;
! }
!
! static void t3_metro_list(t_t3_metro *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! t3_metro_ft1(x, atom_getfloatarg(1, ac, av));
! t3_metro_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void t3_metro_free(t_t3_metro *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *t3_metro_new(t_symbol *s, int ac, t_atom *av)
! {
! t_t3_metro *x = (t_t3_metro *)pd_new(t3_metro_class);
!
! x->x_metrotime = 10.0;
! x->x_t3_bang = 0.0;
! x->x_hit = 0;
! if((ac == 1)&&IS_A_FLOAT(av,0))
! {
! t3_metro_ft1(x, atom_getfloatarg(0, ac, av));
! }
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! x->x_clock = clock_new(x, (t_method)t3_metro_tick);
! outlet_new(&x->x_obj, &s_float);
! x->x_out_next = outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void t3_metro_setup(void)
! {
! t3_metro_class = class_new(gensym("t3_metro"), (t_newmethod)t3_metro_new,
! (t_method)t3_metro_free, sizeof(t_t3_metro), 0, A_GIMME, 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_stop, gensym("stop"), 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_start, gensym("start"), A_FLOAT, 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addfloat(t3_metro_class, (t_method)t3_metro_float);
! class_addlist(t3_metro_class, (t_method)t3_metro_list);
! class_sethelpsymbol(t3_metro_class, gensym("iemhelp/help-t3_metro"));
! }
Index: iem_t3_lib.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/iem_t3_lib.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_t3_lib.c 18 May 2004 21:33:27 -0000 1.1.1.1
--- iem_t3_lib.c 2 Jun 2005 18:25:00 -0000 1.2
***************
*** 1,65 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
! /*
! #include <ctype.h>
! #include <signal.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
!
! #ifndef NT
! #include <sys/signal.h>
! #include <unistd.h>
! #endif
!
! #ifdef NT
! #include <io.h>
! #endif
! */
!
! static t_class *iem_t3_lib_class;
!
! static void *iem_t3_lib_new(void)
! {
! t_object *x = (t_object *)pd_new(iem_t3_lib_class);
!
! return (x);
! }
!
! void sigt3_line_setup(void);
! void sigt3_sig_setup(void);
! void t3_bpe_setup(void);
! void t3_delay_setup(void);
! void t3_metro_setup(void);
! void t3_timer_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iem_t3_lib_setup(void)
! {
! iem_t3_lib_class = class_new(gensym("iem_t3_lib"), iem_t3_lib_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! sigt3_line_setup();
! sigt3_sig_setup();
! t3_bpe_setup();
! t3_delay_setup();
! t3_metro_setup();
! t3_timer_setup();
!
! post("iem_t3_lib (R-1.15) library loaded!");
! }
--- 1,66 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
! /*
! #include <ctype.h>
! #include <signal.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
!
! #ifndef NT
! #include <sys/signal.h>
! #include <unistd.h>
! #endif
!
! #ifdef NT
! #include <io.h>
! #endif
! */
!
! static t_class *iem_t3_lib_class;
!
! static void *iem_t3_lib_new(void)
! {
! t_object *x = (t_object *)pd_new(iem_t3_lib_class);
!
! return (x);
! }
!
! void sigt3_line_setup(void);
! void sigt3_sig_setup(void);
! void t3_bpe_setup(void);
! void t3_delay_setup(void);
! void t3_metro_setup(void);
! void t3_timer_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iem_t3_lib_setup(void)
! {
! iem_t3_lib_class = class_new(gensym("iem_t3_lib"), iem_t3_lib_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! sigt3_line_setup();
! sigt3_sig_setup();
! t3_bpe_setup();
! t3_delay_setup();
! t3_metro_setup();
! t3_timer_setup();
!
! post("iem_t3_lib (R-1.16) library loaded! (c) Gerhard Eckel, Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
1
0
Update of /cvsroot/pure-data/externals/iemlib/src/iemlib1
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28791
Modified Files:
biquad_freq_resp.c db2v.c f2note.c forpp.c gate.c iemlib.h
iemlib1.c sigFIR.c sigfilter.c sighml_shelf.c sigiem_cot4.c
sigiem_delay.c sigiem_pow4.c sigiem_sqrt4.c siglp1_t.c
sigmov_avrg_kern.c sigpara_bp2.c sigpeakenv.c sigprvu.c
sigpvu.c sigrvu.c sigsin_phase.c sigvcf_filter.c
soundfile_info.c split.c v2db.c
Log Message:
updated to release-1.16
Index: sigFIR.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigFIR.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigFIR.c 18 May 2004 21:33:29 -0000 1.1.1.1
--- sigFIR.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,177 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* ---------- FIR~ - FIR-filter with table~-coef ----------- */
!
! typedef struct sigFIR
! {
! t_object x_obj;
! float *x_coef_beg;
! float *x_history_beg;
! int x_rw_index;
! int x_fir_order;
! t_symbol *x_table_name;
! float x_msi;
! } t_sigFIR;
!
! t_class *sigFIR_class;
!
! static t_int *sigFIR_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigFIR *x = (t_sigFIR *)(w[3]);
! int n = (t_int)(w[4]);
! int rw_index = x->x_rw_index;
! int i, j;
! int order = x->x_fir_order;
! int ord16 = order / 16;
! float sum=0.0f;
! float *coef = x->x_coef_beg;
! float *write_hist1=x->x_history_beg;
! float *write_hist2;
! float *read_hist;
! float *coef_vec;
! float *hist_vec;
!
! if(!coef)
! goto sigFIRperfzero;
!
! write_hist1 = x->x_history_beg;
! write_hist2 = write_hist1 + order;
! read_hist = write_hist2;
!
! for(i=0; i<n; i++)
! {
! write_hist1[rw_index] = in[i];
! write_hist2[rw_index] = in[i];
!
! sum = 0.0f;
! coef_vec = coef;
! hist_vec = &read_hist[rw_index];
! for(j=0; j<ord16; j++)
! {
! sum += coef_vec[0] * hist_vec[0];
! sum += coef_vec[1] * hist_vec[-1];
! sum += coef_vec[2] * hist_vec[-2];
! sum += coef_vec[3] * hist_vec[-3];
! sum += coef_vec[4] * hist_vec[-4];
! sum += coef_vec[5] * hist_vec[-5];
! sum += coef_vec[6] * hist_vec[-6];
! sum += coef_vec[7] * hist_vec[-7];
! sum += coef_vec[8] * hist_vec[-8];
! sum += coef_vec[9] * hist_vec[-9];
! sum += coef_vec[10] * hist_vec[-10];
! sum += coef_vec[11] * hist_vec[-11];
! sum += coef_vec[12] * hist_vec[-12];
! sum += coef_vec[13] * hist_vec[-13];
! sum += coef_vec[14] * hist_vec[-14];
! sum += coef_vec[15] * hist_vec[-15];
! coef_vec += 16;
! hist_vec -= 16;
! }
! for(j=ord16*16; j<order; j++)
! {
! sum += coef[j] * read_hist[rw_index-j];
! }
! out[i] = sum;
!
! rw_index++;
! if(rw_index >= order)
! rw_index -= order;
! }
!
! x->x_rw_index = rw_index;
! return(w+5);
!
! sigFIRperfzero:
!
! while(n--)
! *out++ = 0.0f;
! return(w+5);
! }
!
! void sigFIR_set(t_sigFIR *x, t_symbol *table_name, t_floatarg forder)
! {
! t_garray *ga;
! int table_size;
! int order = (int)forder;
!
! x->x_table_name = table_name;
! if(!(ga = (t_garray *)pd_findbyclass(x->x_table_name, garray_class)))
! {
! if(*table_name->s_name)
! error("FIR~: %s: no such table~", x->x_table_name->s_name);
! x->x_coef_beg = 0;
! }
! else if(!garray_getfloatarray(ga, &table_size, &x->x_coef_beg))
! {
! error("%s: bad template for FIR~", x->x_table_name->s_name);
! x->x_coef_beg = 0;
! }
! else if(table_size < order)
! {
! error("FIR~: tablesize %d < order %d !!!!", table_size, order);
! x->x_coef_beg = 0;
! }
! else
! garray_usedindsp(ga);
! x->x_rw_index = 0;
! if(order > x->x_fir_order)/* resize */
! x->x_history_beg = (float *)resizebytes(x->x_history_beg, 2*x->x_fir_order*sizeof(float), 2*order*sizeof(float));
! x->x_fir_order = order;
! }
!
! static void sigFIR_dsp(t_sigFIR *x, t_signal **sp)
! {
! sigFIR_set(x, x->x_table_name, x->x_fir_order);
! dsp_add(sigFIR_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigFIR_new(t_symbol *ref, t_floatarg np)
! {
! t_sigFIR *x = (t_sigFIR *)pd_new(sigFIR_class);
!
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->x_table_name = ref;
! x->x_coef_beg = 0;
! if((int)np < 1)
! np = 1.0;
! x->x_fir_order = (int)np;
! x->x_history_beg = (float *)getbytes((2*x->x_fir_order)*sizeof(float));
! x->x_rw_index = 0;
! return(x);
! }
!
! static void sigFIR_free(t_sigFIR *x)
! {
! if(x->x_history_beg)
! freebytes(x->x_history_beg, (2*x->x_fir_order)*sizeof(float));
! }
!
! void sigFIR_setup(void)
! {
! sigFIR_class = class_new(gensym("FIR~"), (t_newmethod)sigFIR_new,
! (t_method)sigFIR_free, sizeof(t_sigFIR), 0, A_DEFSYM, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigFIR_class, t_sigFIR, x_msi);
! class_addmethod(sigFIR_class, (t_method)sigFIR_dsp, gensym("dsp"), 0);
! class_addmethod(sigFIR_class, (t_method)sigFIR_set,
! gensym("set"), A_SYMBOL, A_FLOAT, 0);
! class_sethelpsymbol(sigFIR_class, gensym("iemhelp/help-FIR~"));
! }
--- 1,177 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* ---------- FIR~ - FIR-filter with table-coef ----------- */
!
! typedef struct sigFIR
! {
! t_object x_obj;
! float *x_coef_beg;
! float *x_history_beg;
! int x_rw_index;
! int x_fir_order;
! t_symbol *x_table_name;
! float x_msi;
! } t_sigFIR;
!
! t_class *sigFIR_class;
!
! static t_int *sigFIR_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigFIR *x = (t_sigFIR *)(w[3]);
! int n = (t_int)(w[4]);
! int rw_index = x->x_rw_index;
! int i, j;
! int order = x->x_fir_order;
! int ord16 = order / 16;
! float sum=0.0f;
! float *coef = x->x_coef_beg;
! float *write_hist1=x->x_history_beg;
! float *write_hist2;
! float *read_hist;
! float *coef_vec;
! float *hist_vec;
!
! if(!coef)
! goto sigFIRperfzero;
!
! write_hist1 = x->x_history_beg;
! write_hist2 = write_hist1 + order;
! read_hist = write_hist2;
!
! for(i=0; i<n; i++)
! {
! write_hist1[rw_index] = in[i];
! write_hist2[rw_index] = in[i];
!
! sum = 0.0f;
! coef_vec = coef;
! hist_vec = &read_hist[rw_index];
! for(j=0; j<ord16; j++)
! {
! sum += coef_vec[0] * hist_vec[0];
! sum += coef_vec[1] * hist_vec[-1];
! sum += coef_vec[2] * hist_vec[-2];
! sum += coef_vec[3] * hist_vec[-3];
! sum += coef_vec[4] * hist_vec[-4];
! sum += coef_vec[5] * hist_vec[-5];
! sum += coef_vec[6] * hist_vec[-6];
! sum += coef_vec[7] * hist_vec[-7];
! sum += coef_vec[8] * hist_vec[-8];
! sum += coef_vec[9] * hist_vec[-9];
! sum += coef_vec[10] * hist_vec[-10];
! sum += coef_vec[11] * hist_vec[-11];
! sum += coef_vec[12] * hist_vec[-12];
! sum += coef_vec[13] * hist_vec[-13];
! sum += coef_vec[14] * hist_vec[-14];
! sum += coef_vec[15] * hist_vec[-15];
! coef_vec += 16;
! hist_vec -= 16;
! }
! for(j=ord16*16; j<order; j++)
! {
! sum += coef[j] * read_hist[rw_index-j];
! }
! out[i] = sum;
!
! rw_index++;
! if(rw_index >= order)
! rw_index -= order;
! }
!
! x->x_rw_index = rw_index;
! return(w+5);
!
! sigFIRperfzero:
!
! while(n--)
! *out++ = 0.0f;
! return(w+5);
! }
!
! void sigFIR_set(t_sigFIR *x, t_symbol *table_name, t_floatarg forder)
! {
! t_garray *ga;
! int table_size;
! int order = (int)forder;
!
! x->x_table_name = table_name;
! if(!(ga = (t_garray *)pd_findbyclass(x->x_table_name, garray_class)))
! {
! if(*table_name->s_name)
! error("FIR~: %s: no such table~", x->x_table_name->s_name);
! x->x_coef_beg = 0;
! }
! else if(!garray_getfloatarray(ga, &table_size, &x->x_coef_beg))
! {
! error("%s: bad template for FIR~", x->x_table_name->s_name);
! x->x_coef_beg = 0;
! }
! else if(table_size < order)
! {
! error("FIR~: tablesize %d < order %d !!!!", table_size, order);
! x->x_coef_beg = 0;
! }
! else
! garray_usedindsp(ga);
! x->x_rw_index = 0;
! if(order > x->x_fir_order)/* resize */
! x->x_history_beg = (float *)resizebytes(x->x_history_beg, 2*x->x_fir_order*sizeof(float), 2*order*sizeof(float));
! x->x_fir_order = order;
! }
!
! static void sigFIR_dsp(t_sigFIR *x, t_signal **sp)
! {
! sigFIR_set(x, x->x_table_name, x->x_fir_order);
! dsp_add(sigFIR_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigFIR_new(t_symbol *ref, t_floatarg np)
! {
! t_sigFIR *x = (t_sigFIR *)pd_new(sigFIR_class);
!
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->x_table_name = ref;
! x->x_coef_beg = 0;
! if((int)np < 1)
! np = 1.0;
! x->x_fir_order = (int)np;
! x->x_history_beg = (float *)getbytes((2*x->x_fir_order)*sizeof(float));
! x->x_rw_index = 0;
! return(x);
! }
!
! static void sigFIR_free(t_sigFIR *x)
! {
! if(x->x_history_beg)
! freebytes(x->x_history_beg, (2*x->x_fir_order)*sizeof(float));
! }
!
! void sigFIR_setup(void)
! {
! sigFIR_class = class_new(gensym("FIR~"), (t_newmethod)sigFIR_new,
! (t_method)sigFIR_free, sizeof(t_sigFIR), 0, A_DEFSYM, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigFIR_class, t_sigFIR, x_msi);
! class_addmethod(sigFIR_class, (t_method)sigFIR_dsp, gensym("dsp"), 0);
! class_addmethod(sigFIR_class, (t_method)sigFIR_set,
! gensym("set"), A_SYMBOL, A_FLOAT, 0);
! class_sethelpsymbol(sigFIR_class, gensym("iemhelp/help-FIR~"));
! }
Index: iemlib.h
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/iemlib.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iemlib.h 9 Mar 2005 17:15:59 -0000 1.2
--- iemlib.h 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,100 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifndef __IEMLIB_H__
! #define __IEMLIB_H__
!
!
! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)
! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)
! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)
! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)
! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)
! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)
! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)
!
!
! #ifdef NT
! int sys_noloadbang;
! //t_symbol *iemgui_key_sym=0;
! #include <io.h>
! #else
! extern int sys_noloadbang;
! //extern t_symbol *iemgui_key_sym;
! #include <unistd.h>
! #endif
!
! #define DEFDELVS 64
! #define XTRASAMPS 4
! #define SAMPBLK 4
!
!
! #define UNITBIT32 1572864. /* 3*2^19; bit 32 has place value 1 */
!
! /* machine-dependent definitions. These ifdefs really
! should have been by CPU type and not by operating system! */
! #ifdef IRIX
! /* big-endian. Most significant byte is at low address in memory */
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 long /* a data type that has 32 bits */
! #else
! #ifdef MSW
! /* little-endian; most significant byte is at highest address */
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #define int32 long
! #else
! #ifdef __FreeBSD__
! #include <machine/endian.h>
! #if BYTE_ORDER == LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* BYTE_ORDER */
! #include <sys/types.h>
! #define int32 int32_t
! #endif
! #ifdef __linux__
!
! #include <endian.h>
!
! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)
! #error No byte order defined
! #endif
!
! #if __BYTE_ORDER == __LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* __BYTE_ORDER */
!
! #include <sys/types.h>
! #define int32 int32_t
!
! #else
! #ifdef __APPLE__
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 int /* a data type that has 32 bits */
!
! #endif /* __APPLE__ */
! #endif /* __linux__ */
! #endif /* MSW */
! #endif /* SGI */
!
! union tabfudge
! {
! double tf_d;
! int32 tf_i[2];
! };
!
! #define IEM_DENORMAL(f) !(*(unsigned int*)&(f))&0x60000000
!
! #endif
--- 1,102 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifndef __IEMLIB_H__
! #define __IEMLIB_H__
!
!
! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)
! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)
! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)
! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)
! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)
! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)
! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)
!
!
! #ifdef NT
! int sys_noloadbang;
! //t_symbol *iemgui_key_sym=0;
! #include <io.h>
! #else
! extern int sys_noloadbang;
! //extern t_symbol *iemgui_key_sym;
! #include <unistd.h>
! #endif
!
! #define DEFDELVS 64
! #define XTRASAMPS 4
! #define SAMPBLK 4
!
!
! #define UNITBIT32 1572864. /* 3*2^19; bit 32 has place value 1 */
!
! /* machine-dependent definitions. These ifdefs really
! should have been by CPU type and not by operating system! */
! #ifdef IRIX
! /* big-endian. Most significant byte is at low address in memory */
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 long /* a data type that has 32 bits */
! #else
! #ifdef MSW
! /* little-endian; most significant byte is at highest address */
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #define int32 long
! #else
! #ifdef __FreeBSD__
! #include <machine/endian.h>
! #if BYTE_ORDER == LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* BYTE_ORDER */
! #include <sys/types.h>
! #define int32 int32_t
! #endif
! #ifdef __linux__
!
! #include <endian.h>
!
! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)
! #error No byte order defined
! #endif
!
! #if __BYTE_ORDER == __LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #endif /* __BYTE_ORDER */
!
! #include <sys/types.h>
! #define int32 int32_t
!
! #else
! #ifdef __APPLE__
! #define HIOFFSET 0 /* word offset to find MSB */
! #define LOWOFFSET 1 /* word offset to find LSB */
! #define int32 int /* a data type that has 32 bits */
!
! #endif /* __APPLE__ */
! #endif /* __linux__ */
! #endif /* MSW */
! #endif /* SGI */
!
! union tabfudge
! {
! double tf_d;
! int32 tf_i[2];
! };
!
! #define IEM_DENORMAL(f) ((((*(unsigned int*)&(f))&0x60000000)==0) || \
! (((*(unsigned int*)&(f))&0x60000000)==0x60000000))
! /* more stringent test: anything not between 1e-19 and 1e19 in absolute val */
!
! #endif
Index: siglp1_t.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/siglp1_t.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** siglp1_t.c 9 Mar 2005 17:15:59 -0000 1.2
--- siglp1_t.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,219 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* -- lp1_t~ - slow dynamic lowpass-filter 1. order with tau input --- */
!
! typedef struct siglp1_t
! {
! t_object x_obj;
! float yn1;
! float c0;
! float c1;
! float sr;
! float cur_t;
! float delta_t;
! float end_t;
! float ticks_per_interpol_time;
! float rcp_ticks;
! float interpol_time;
! int ticks;
! int counter_t;
! float x_msi;
! } t_siglp1_t;
!
! t_class *siglp1_t_class;
!
! static void siglp1_t_dsp_tick(t_siglp1_t *x)
! {
! if(x->counter_t)
! {
! if(x->counter_t <= 1)
! {
! x->cur_t = x->end_t;
! x->counter_t = 0;
! }
! else
! {
! x->counter_t--;
! x->cur_t += x->delta_t;
! }
! if(x->cur_t == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/x->cur_t);
! x->c0 = 1.0f - x->c1;
! }
! }
!
! static t_int *siglp1_t_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_siglp1_t *x = (t_siglp1_t *)(w[3]);
! int i, n = (t_int)(w[4]);
! float yn0, yn1=x->yn1;
! float c0=x->c0, c1=x->c1;
!
! siglp1_t_dsp_tick(x);
! for(i=0; i<n; i++)
! {
! yn0 = (*in++)*c0 + yn1*c1;
! *out++ = yn0;
! yn1 = yn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(yn1))
! yn1 = 0.0f;
! x->yn1 = yn1;
! return(w+5);
! }
!
! static t_int *siglp1_t_perf8(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_siglp1_t *x = (t_siglp1_t *)(w[3]);
! int i, n = (t_int)(w[4]);
! float yn[9];
! float c0=x->c0, c1=x->c1;
!
! siglp1_t_dsp_tick(x);
! yn[0] = x->yn1;
! for(i=0; i<n; i+=8, in+=8, out+=8)
! {
! yn[1] = in[0]*c0 + yn[0]*c1;
! out[0] = yn[1];
! yn[2] = in[1]*c0 + yn[1]*c1;
! out[1] = yn[2];
! yn[3] = in[2]*c0 + yn[2]*c1;
! out[2] = yn[3];
! yn[4] = in[3]*c0 + yn[3]*c1;
! out[3] = yn[4];
! yn[5] = in[4]*c0 + yn[4]*c1;
! out[4] = yn[5];
! yn[6] = in[5]*c0 + yn[5]*c1;
! out[5] = yn[6];
! yn[7] = in[6]*c0 + yn[6]*c1;
! out[6] = yn[7];
! yn[8] = in[7]*c0 + yn[7]*c1;
! out[7] = yn[8];
! yn[0] = yn[8];
! }
! /* NAN protect */
! if(IEM_DENORMAL(yn[0]))
! yn[0] = 0.0f;
!
! x->yn1 = yn[0];
! return(w+5);
! }
!
! static void siglp1_t_ft2(t_siglp1_t *x, t_floatarg t)
! {
! int i = (int)((x->ticks_per_interpol_time)*t);
!
! x->interpol_time = t;
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! }
!
! static void siglp1_t_ft1(t_siglp1_t *x, t_floatarg time_const)
! {
! if(time_const < 0.0f)
! time_const = 0.0f;
! if(time_const != x->cur_t)
! {
! x->end_t = time_const;
! x->counter_t = x->ticks;
! x->delta_t = (time_const - x->cur_t) * x->rcp_ticks;
! }
! }
!
! static void siglp1_t_dsp(t_siglp1_t *x, t_signal **sp)
! {
! int i, n=(int)sp[0]->s_n;
!
! x->sr = -1000.0f / (float)(sp[0]->s_sr);
! x->ticks_per_interpol_time = 0.001f * (float)(sp[0]->s_sr) / (float)n;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! if(x->cur_t == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/x->cur_t);
! x->c0 = 1.0f - x->c1;
! if(n&7)
! dsp_add(siglp1_t_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! else
! dsp_add(siglp1_t_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! }
!
! static void *siglp1_t_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_siglp1_t *x = (t_siglp1_t *)pd_new(siglp1_t_class);
! int i;
! float time_const=0.0f, interpol=0.0f;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->counter_t = 1;
! x->delta_t = 0.0f;
! x->interpol_time = 0.0f;
! x->yn1 = 0.0f;
! x->sr = -1.0f / 44.1f;
! if((argc >= 1)&&IS_A_FLOAT(argv,0))
! time_const = (float)atom_getfloatarg(0, argc, argv);
! if((argc >= 2)&&IS_A_FLOAT(argv,1))
! interpol = (float)atom_getfloatarg(1, argc, argv);
! if(time_const < 0.0f)
! time_const = 0.0f;
! x->cur_t = time_const;
! if(time_const == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/time_const);
! x->c0 = 1.0f - x->c1;
! if(interpol < 0.0f)
! interpol = 0.0f;
! x->interpol_time = interpol;
! x->ticks_per_interpol_time = 0.5f;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! x->end_t = x->cur_t;
! return (x);
! }
!
! void siglp1_t_setup(void)
! {
! siglp1_t_class = class_new(gensym("lp1_t~"), (t_newmethod)siglp1_t_new,
! 0, sizeof(t_siglp1_t), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(siglp1_t_class, t_siglp1_t, x_msi);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_dsp, gensym("dsp"), 0);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_ft2, gensym("ft2"), A_FLOAT, 0);
! class_sethelpsymbol(siglp1_t_class, gensym("iemhelp/help-lp1_t~"));
! }
--- 1,219 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* -- lp1_t~ - slow dynamic lowpass-filter 1. order with tau input --- */
!
! typedef struct siglp1_t
! {
! t_object x_obj;
! float yn1;
! float c0;
! float c1;
! float sr;
! float cur_t;
! float delta_t;
! float end_t;
! float ticks_per_interpol_time;
! float rcp_ticks;
! float interpol_time;
! int ticks;
! int counter_t;
! float x_msi;
! } t_siglp1_t;
!
! t_class *siglp1_t_class;
!
! static void siglp1_t_dsp_tick(t_siglp1_t *x)
! {
! if(x->counter_t)
! {
! if(x->counter_t <= 1)
! {
! x->cur_t = x->end_t;
! x->counter_t = 0;
! }
! else
! {
! x->counter_t--;
! x->cur_t += x->delta_t;
! }
! if(x->cur_t == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/x->cur_t);
! x->c0 = 1.0f - x->c1;
! }
! }
!
! static t_int *siglp1_t_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_siglp1_t *x = (t_siglp1_t *)(w[3]);
! int i, n = (t_int)(w[4]);
! float yn0, yn1=x->yn1;
! float c0=x->c0, c1=x->c1;
!
! siglp1_t_dsp_tick(x);
! for(i=0; i<n; i++)
! {
! yn0 = (*in++)*c0 + yn1*c1;
! *out++ = yn0;
! yn1 = yn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(yn1))
! yn1 = 0.0f;
! x->yn1 = yn1;
! return(w+5);
! }
!
! static t_int *siglp1_t_perf8(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_siglp1_t *x = (t_siglp1_t *)(w[3]);
! int i, n = (t_int)(w[4]);
! float yn[9];
! float c0=x->c0, c1=x->c1;
!
! siglp1_t_dsp_tick(x);
! yn[0] = x->yn1;
! for(i=0; i<n; i+=8, in+=8, out+=8)
! {
! yn[1] = in[0]*c0 + yn[0]*c1;
! out[0] = yn[1];
! yn[2] = in[1]*c0 + yn[1]*c1;
! out[1] = yn[2];
! yn[3] = in[2]*c0 + yn[2]*c1;
! out[2] = yn[3];
! yn[4] = in[3]*c0 + yn[3]*c1;
! out[3] = yn[4];
! yn[5] = in[4]*c0 + yn[4]*c1;
! out[4] = yn[5];
! yn[6] = in[5]*c0 + yn[5]*c1;
! out[5] = yn[6];
! yn[7] = in[6]*c0 + yn[6]*c1;
! out[6] = yn[7];
! yn[8] = in[7]*c0 + yn[7]*c1;
! out[7] = yn[8];
! yn[0] = yn[8];
! }
! /* NAN protect */
! if(IEM_DENORMAL(yn[0]))
! yn[0] = 0.0f;
!
! x->yn1 = yn[0];
! return(w+5);
! }
!
! static void siglp1_t_ft2(t_siglp1_t *x, t_floatarg t)
! {
! int i = (int)((x->ticks_per_interpol_time)*t);
!
! x->interpol_time = t;
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! }
!
! static void siglp1_t_ft1(t_siglp1_t *x, t_floatarg time_const)
! {
! if(time_const < 0.0f)
! time_const = 0.0f;
! if(time_const != x->cur_t)
! {
! x->end_t = time_const;
! x->counter_t = x->ticks;
! x->delta_t = (time_const - x->cur_t) * x->rcp_ticks;
! }
! }
!
! static void siglp1_t_dsp(t_siglp1_t *x, t_signal **sp)
! {
! int i, n=(int)sp[0]->s_n;
!
! x->sr = -1000.0f / (float)(sp[0]->s_sr);
! x->ticks_per_interpol_time = 0.001f * (float)(sp[0]->s_sr) / (float)n;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! if(x->cur_t == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/x->cur_t);
! x->c0 = 1.0f - x->c1;
! if(n&7)
! dsp_add(siglp1_t_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! else
! dsp_add(siglp1_t_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! }
!
! static void *siglp1_t_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_siglp1_t *x = (t_siglp1_t *)pd_new(siglp1_t_class);
! int i;
! float time_const=0.0f, interpol=0.0f;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->counter_t = 1;
! x->delta_t = 0.0f;
! x->interpol_time = 0.0f;
! x->yn1 = 0.0f;
! x->sr = -1.0f / 44.1f;
! if((argc >= 1)&&IS_A_FLOAT(argv,0))
! time_const = (float)atom_getfloatarg(0, argc, argv);
! if((argc >= 2)&&IS_A_FLOAT(argv,1))
! interpol = (float)atom_getfloatarg(1, argc, argv);
! if(time_const < 0.0f)
! time_const = 0.0f;
! x->cur_t = time_const;
! if(time_const == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/time_const);
! x->c0 = 1.0f - x->c1;
! if(interpol < 0.0f)
! interpol = 0.0f;
! x->interpol_time = interpol;
! x->ticks_per_interpol_time = 0.5f;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! x->end_t = x->cur_t;
! return (x);
! }
!
! void siglp1_t_setup(void)
! {
! siglp1_t_class = class_new(gensym("lp1_t~"), (t_newmethod)siglp1_t_new,
! 0, sizeof(t_siglp1_t), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(siglp1_t_class, t_siglp1_t, x_msi);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_dsp, gensym("dsp"), 0);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_ft2, gensym("ft2"), A_FLOAT, 0);
! class_sethelpsymbol(siglp1_t_class, gensym("iemhelp/help-lp1_t~"));
! }
Index: soundfile_info.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/soundfile_info.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** soundfile_info.c 18 May 2004 21:33:30 -0000 1.1.1.1
--- soundfile_info.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,261 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! #define SFI_HEADER_SAMPLERATE 0
! #define SFI_HEADER_FILENAME 1
! #define SFI_HEADER_MULTICHANNEL_FILE_LENGTH 2
! #define SFI_HEADER_HEADERBYTES 3
! #define SFI_HEADER_CHANNELS 4
! #define SFI_HEADER_BYTES_PER_SAMPLE 5
! #define SFI_HEADER_ENDINESS 6
!
! #define SFI_HEADER_SIZE 7
!
!
!
! /* -------------------- soundfile_info ------------------------------- */
!
! static t_class *soundfile_info_class;
!
! typedef struct _soundfile_info
! {
! t_object x_obj;
! long *x_begmem;
! int x_size;
! t_atom x_atheader[SFI_HEADER_SIZE];
! t_canvas *x_canvas;
! void *x_list_out;
! } t_soundfile_info;
!
! static short soundfile_info_str2short(char *cvec)
! {
! short s=0;
! unsigned char *uc=(unsigned char *)cvec;
!
! s += (short)(*uc);
! s += (short)(*(uc+1)*256);
! return(s);
! }
!
! static long soundfile_info_str2long(char *cvec)
! {
! long l=0;
! unsigned char *uc=(unsigned char *)cvec;
!
! l += (long)(*uc);
! l += (long)(*(uc+1)*256);
! l += (long)(*(uc+2)*65536);
! l += (long)(*(uc+3)*16777216);
! return(l);
! }
!
! static void soundfile_info_read(t_soundfile_info *x, t_symbol *filename)
! {
! char completefilename[400];
! int i, n, n2, n4, filesize, read_chars, header_size=0, ch, bps, sr;
! FILE *fh;
! t_atom *at;
! char *cvec;
! long ll;
! short ss;
!
! if(filename->s_name[0] == '/')/*make complete path + filename*/
! {
! strcpy(completefilename, filename->s_name);
! }
! else if(((filename->s_name[0] >= 'A')&&(filename->s_name[0] <= 'Z')||
! (filename->s_name[0] >= 'a')&&(filename->s_name[0] <= 'z'))&&
! (filename->s_name[1] == ':')&&(filename->s_name[2] == '/'))
! {
! strcpy(completefilename, filename->s_name);
! }
! else
! {
! strcpy(completefilename, canvas_getdir(x->x_canvas)->s_name);
! strcat(completefilename, "/");
! strcat(completefilename, filename->s_name);
! }
!
! fh = fopen(completefilename,"rb");
! if(!fh)
! {
! post("soundfile_info_read: cannot open %s !!\n", completefilename);
! }
! else
! {
! n = x->x_size;
! n2 = sizeof(short) * x->x_size;
! n4 = sizeof(long) * x->x_size;
! fseek(fh, 0, SEEK_END);
! filesize = ftell(fh);
! fseek(fh,0,SEEK_SET);
! read_chars = (int)fread(x->x_begmem, sizeof(char), n4, fh) /2;
! fclose(fh);
! // post("read chars = %d", read_chars);
! cvec = (char *)x->x_begmem;
! if(read_chars > 4)
! {
! if(strncmp(cvec, "RIFF", 4))
! {
! post("soundfile_info_read-error: %s is no RIFF-WAVE-file", completefilename);
! goto soundfile_info_end;
! }
! header_size += 8;
! cvec += 8;
! if(strncmp(cvec, "WAVE", 4))
! {
! post("soundfile_info_read-error: %s is no RIFF-WAVE-file", completefilename);
! goto soundfile_info_end;
! }
! header_size += 4;
! cvec += 4;
!
! for(i=header_size/2; i<read_chars; i++)
! {
! if(!strncmp(cvec, "fmt ", 4))
! goto soundfile_info_fmt;
! header_size += 2;
! cvec += 2;
! }
! post("soundfile_info_read-error: %s has at begin no format-chunk", completefilename);
! goto soundfile_info_end;
!
! soundfile_info_fmt:
! header_size += 4;
! cvec += 4;
! ll = soundfile_info_str2long(cvec);
! if(ll != 16)
! {
! post("soundfile_info_read-error: %s has a format-chunk not equal to 16", completefilename);
! goto soundfile_info_end;
! }
! header_size += 4;
! cvec += 4;
! ss = soundfile_info_str2short(cvec);
! /* format */
! if(ss != 1) /* PCM = 1 */
! {
! post("soundfile_info_read-error: %s is not PCM-format coded", completefilename);
! goto soundfile_info_end;
! }
! header_size += 2;
! cvec += 2;
! ss = soundfile_info_str2short(cvec);
! /* channels */
! if((ss < 1) || (ss > 100))
! {
! post("soundfile_info_read-error: %s has no common channel-number", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_CHANNELS, (float)ss);
! ch = ss;
! header_size += 2;
! cvec += 2;
! ll = soundfile_info_str2long(cvec);
! /* samplerate */
! if((ll > 400000) || (ll < 200))
! {
! post("soundfile_info_read-error: %s has no common samplerate", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_SAMPLERATE, (float)ll);
! sr = ll;
! header_size += 4;
! cvec += 4;
!
! header_size += 4; /* bytes_per_sec */
! cvec += 4;
! ss = soundfile_info_str2short(cvec);
!
! /* bytes_per_sample */
! if((ss < 1) || (ss > 100))
! {
! post("soundfile_info_read-error: %s has no common number of bytes per sample", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_BYTES_PER_SAMPLE, (float)(ss/ch));
! bps = ss;
! header_size += 2;
! cvec += 2;
!
! header_size += 2; /* bits_per_sample */
! cvec += 2;
!
! for(i=header_size/2; i<read_chars; i++)
! {
! if(!strncmp(cvec, "data", 4))
! goto soundfile_info_data;
! header_size += 2;
! cvec += 2;
! }
! post("soundfile_info_read-error: %s has at begin no data-chunk", completefilename);
! goto soundfile_info_end;
!
! soundfile_info_data:
! header_size += 8;
! cvec += 8;
!
! SETFLOAT(x->x_atheader+SFI_HEADER_HEADERBYTES, (float)header_size);
!
! filesize -= header_size;
! filesize /= bps;
! SETFLOAT(x->x_atheader+SFI_HEADER_MULTICHANNEL_FILE_LENGTH, (float)filesize);
! SETSYMBOL(x->x_atheader+SFI_HEADER_ENDINESS, gensym("l"));
! SETSYMBOL(x->x_atheader+SFI_HEADER_FILENAME, gensym(completefilename));
!
! /* post("ch = %d", ss);
! post("sr = %d", ll);
! post("bps = %d", ss/ch);
! post("head = %d", header_size);
! post("len = %d", filesize);*/
!
! outlet_list(x->x_list_out, &s_list, SFI_HEADER_SIZE, x->x_atheader);
!
!
! soundfile_info_end:
!
! ;
! }
! }
! }
!
! static void soundfile_info_free(t_soundfile_info *x)
! {
! freebytes(x->x_begmem, x->x_size * sizeof(long));
! }
!
! static void *soundfile_info_new(void)
! {
! t_soundfile_info *x = (t_soundfile_info *)pd_new(soundfile_info_class);
!
! x->x_size = 10000;
! x->x_begmem = (long *)getbytes(x->x_size * sizeof(long));
! x->x_list_out = outlet_new(&x->x_obj, &s_list);
! x->x_canvas = canvas_getcurrent();
! return (x);
! }
!
! /* ---------------- global setup function -------------------- */
!
! void soundfile_info_setup(void)
! {
! soundfile_info_class = class_new(gensym("soundfile_info"), (t_newmethod)soundfile_info_new,
! (t_method)soundfile_info_free, sizeof(t_soundfile_info), 0, 0);
! class_addmethod(soundfile_info_class, (t_method)soundfile_info_read, gensym("read"), A_SYMBOL, 0);
! class_sethelpsymbol(soundfile_info_class, gensym("iemhelp/help-soundfile_info"));
! }
!
--- 1,261 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! #define SFI_HEADER_SAMPLERATE 0
! #define SFI_HEADER_FILENAME 1
! #define SFI_HEADER_MULTICHANNEL_FILE_LENGTH 2
! #define SFI_HEADER_HEADERBYTES 3
! #define SFI_HEADER_CHANNELS 4
! #define SFI_HEADER_BYTES_PER_SAMPLE 5
! #define SFI_HEADER_ENDINESS 6
!
! #define SFI_HEADER_SIZE 7
!
!
!
! /* --------------------------- soundfile_info -------------------------------- */
! /* -- reads only header of a wave-file and outputs the important parameters -- */
!
! static t_class *soundfile_info_class;
!
! typedef struct _soundfile_info
! {
! t_object x_obj;
! long *x_begmem;
! int x_size;
! t_atom x_atheader[SFI_HEADER_SIZE];
! t_canvas *x_canvas;
! void *x_list_out;
! } t_soundfile_info;
!
! static short soundfile_info_str2short(char *cvec)
! {
! short s=0;
! unsigned char *uc=(unsigned char *)cvec;
!
! s += (short)(*uc);
! s += (short)(*(uc+1)*256);
! return(s);
! }
!
! static long soundfile_info_str2long(char *cvec)
! {
! long l=0;
! unsigned char *uc=(unsigned char *)cvec;
!
! l += (long)(*uc);
! l += (long)(*(uc+1)*256);
! l += (long)(*(uc+2)*65536);
! l += (long)(*(uc+3)*16777216);
! return(l);
! }
!
! static void soundfile_info_read(t_soundfile_info *x, t_symbol *filename)
! {
! char completefilename[400];
! int i, n, n2, n4, filesize, read_chars, header_size=0, ch, bps, sr;
! FILE *fh;
! t_atom *at;
! char *cvec;
! long ll;
! short ss;
!
! if(filename->s_name[0] == '/')/*make complete path + filename*/
! {
! strcpy(completefilename, filename->s_name);
! }
! else if(((filename->s_name[0] >= 'A')&&(filename->s_name[0] <= 'Z')||
! (filename->s_name[0] >= 'a')&&(filename->s_name[0] <= 'z'))&&
! (filename->s_name[1] == ':')&&(filename->s_name[2] == '/'))
! {
! strcpy(completefilename, filename->s_name);
! }
! else
! {
! strcpy(completefilename, canvas_getdir(x->x_canvas)->s_name);
! strcat(completefilename, "/");
! strcat(completefilename, filename->s_name);
! }
!
! fh = fopen(completefilename,"rb");
! if(!fh)
! {
! post("soundfile_info_read: cannot open %s !!\n", completefilename);
! }
! else
! {
! n = x->x_size;
! n2 = sizeof(short) * x->x_size;
! n4 = sizeof(long) * x->x_size;
! fseek(fh, 0, SEEK_END);
! filesize = ftell(fh);
! fseek(fh,0,SEEK_SET);
! read_chars = (int)fread(x->x_begmem, sizeof(char), n4, fh) /2;
! fclose(fh);
! // post("read chars = %d", read_chars);
! cvec = (char *)x->x_begmem;
! if(read_chars > 4)
! {
! if(strncmp(cvec, "RIFF", 4))
! {
! post("soundfile_info_read-error: %s is no RIFF-WAVE-file", completefilename);
! goto soundfile_info_end;
! }
! header_size += 8;
! cvec += 8;
! if(strncmp(cvec, "WAVE", 4))
! {
! post("soundfile_info_read-error: %s is no RIFF-WAVE-file", completefilename);
! goto soundfile_info_end;
! }
! header_size += 4;
! cvec += 4;
!
! for(i=header_size/2; i<read_chars; i++)
! {
! if(!strncmp(cvec, "fmt ", 4))
! goto soundfile_info_fmt;
! header_size += 2;
! cvec += 2;
! }
! post("soundfile_info_read-error: %s has at begin no format-chunk", completefilename);
! goto soundfile_info_end;
!
! soundfile_info_fmt:
! header_size += 4;
! cvec += 4;
! ll = soundfile_info_str2long(cvec);
! if(ll != 16)
! {
! post("soundfile_info_read-error: %s has a format-chunk not equal to 16", completefilename);
! goto soundfile_info_end;
! }
! header_size += 4;
! cvec += 4;
! ss = soundfile_info_str2short(cvec);
! /* format */
! if(ss != 1) /* PCM = 1 */
! {
! post("soundfile_info_read-error: %s is not PCM-format coded", completefilename);
! goto soundfile_info_end;
! }
! header_size += 2;
! cvec += 2;
! ss = soundfile_info_str2short(cvec);
! /* channels */
! if((ss < 1) || (ss > 100))
! {
! post("soundfile_info_read-error: %s has no common channel-number", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_CHANNELS, (float)ss);
! ch = ss;
! header_size += 2;
! cvec += 2;
! ll = soundfile_info_str2long(cvec);
! /* samplerate */
! if((ll > 400000) || (ll < 200))
! {
! post("soundfile_info_read-error: %s has no common samplerate", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_SAMPLERATE, (float)ll);
! sr = ll;
! header_size += 4;
! cvec += 4;
!
! header_size += 4; /* bytes_per_sec */
! cvec += 4;
! ss = soundfile_info_str2short(cvec);
!
! /* bytes_per_sample */
! if((ss < 1) || (ss > 100))
! {
! post("soundfile_info_read-error: %s has no common number of bytes per sample", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_BYTES_PER_SAMPLE, (float)(ss/ch));
! bps = ss;
! header_size += 2;
! cvec += 2;
!
! header_size += 2; /* bits_per_sample */
! cvec += 2;
!
! for(i=header_size/2; i<read_chars; i++)
! {
! if(!strncmp(cvec, "data", 4))
! goto soundfile_info_data;
! header_size += 2;
! cvec += 2;
! }
! post("soundfile_info_read-error: %s has at begin no data-chunk", completefilename);
! goto soundfile_info_end;
!
! soundfile_info_data:
! header_size += 8;
! cvec += 8;
!
! SETFLOAT(x->x_atheader+SFI_HEADER_HEADERBYTES, (float)header_size);
!
! filesize -= header_size;
! filesize /= bps;
! SETFLOAT(x->x_atheader+SFI_HEADER_MULTICHANNEL_FILE_LENGTH, (float)filesize);
! SETSYMBOL(x->x_atheader+SFI_HEADER_ENDINESS, gensym("l"));
! SETSYMBOL(x->x_atheader+SFI_HEADER_FILENAME, gensym(completefilename));
!
! /* post("ch = %d", ss);
! post("sr = %d", ll);
! post("bps = %d", ss/ch);
! post("head = %d", header_size);
! post("len = %d", filesize);*/
!
! outlet_list(x->x_list_out, &s_list, SFI_HEADER_SIZE, x->x_atheader);
!
!
! soundfile_info_end:
!
! ;
! }
! }
! }
!
! static void soundfile_info_free(t_soundfile_info *x)
! {
! freebytes(x->x_begmem, x->x_size * sizeof(long));
! }
!
! static void *soundfile_info_new(void)
! {
! t_soundfile_info *x = (t_soundfile_info *)pd_new(soundfile_info_class);
!
! x->x_size = 10000;
! x->x_begmem = (long *)getbytes(x->x_size * sizeof(long));
! x->x_list_out = outlet_new(&x->x_obj, &s_list);
! x->x_canvas = canvas_getcurrent();
! return (x);
! }
!
! /* ---------------- global setup function -------------------- */
!
! void soundfile_info_setup(void)
! {
! soundfile_info_class = class_new(gensym("soundfile_info"), (t_newmethod)soundfile_info_new,
! (t_method)soundfile_info_free, sizeof(t_soundfile_info), 0, 0);
! class_addmethod(soundfile_info_class, (t_method)soundfile_info_read, gensym("read"), A_SYMBOL, 0);
! class_sethelpsymbol(soundfile_info_class, gensym("iemhelp/help-soundfile_info"));
! }
Index: sigpeakenv.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigpeakenv.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigpeakenv.c 9 Mar 2005 17:15:59 -0000 1.2
--- sigpeakenv.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,102 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- peakenv~ - simple peak-envelope-converter. ----------------- */
!
! typedef struct sigpeakenv
! {
! t_object x_obj;
! float x_sr;
! float x_old_peak;
! float x_c1;
! float x_releasetime;
! float x_msi;
! } t_sigpeakenv;
!
! t_class *sigpeakenv_class;
!
! static void sigpeakenv_reset(t_sigpeakenv *x)
! {
! x->x_old_peak = 0.0f;
! }
!
! static void sigpeakenv_ft1(t_sigpeakenv *x, t_floatarg f)/* release-time in ms */
! {
! if(f < 0.0f)
! f = 0.0f;
! x->x_releasetime = f;
! x->x_c1 = exp(-1.0/(x->x_sr*0.001*x->x_releasetime));
! }
!
! static t_int *sigpeakenv_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpeakenv *x = (t_sigpeakenv *)(w[3]);
! int n = (int)(w[4]);
! float peak = x->x_old_peak;
! float c1 = x->x_c1;
! float absolute;
! int i;
!
! for(i=0; i<n; i++)
! {
! absolute = fabs(*in++);
! peak *= c1;
! if(absolute > peak)
! peak = absolute;
! *out++ = peak;
! }
! /* NAN protect */
! if(IEM_DENORMAL(peak))
! peak = 0.0f;
! x->x_old_peak = peak;
! return(w+5);
! }
!
! static void sigpeakenv_dsp(t_sigpeakenv *x, t_signal **sp)
! {
! x->x_sr = (float)sp[0]->s_sr;
! sigpeakenv_ft1(x, x->x_releasetime);
! dsp_add(sigpeakenv_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigpeakenv_new(t_floatarg f)
! {
! t_sigpeakenv *x = (t_sigpeakenv *)pd_new(sigpeakenv_class);
!
! if(f <= 0.0f)
! f = 0.0f;
! x->x_sr = 44100.0f;
! sigpeakenv_ft1(x, f);
! x->x_old_peak = 0.0f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! return(x);
! }
!
! void sigpeakenv_setup(void)
! {
! sigpeakenv_class = class_new(gensym("peakenv~"), (t_newmethod)sigpeakenv_new,
! 0, sizeof(t_sigpeakenv), 0, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigpeakenv_class, t_sigpeakenv, x_msi);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_dsp, gensym("dsp"), 0);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_reset, gensym("reset"), 0);
! class_sethelpsymbol(sigpeakenv_class, gensym("iemhelp/help-peakenv~"));
! }
--- 1,102 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- peakenv~ - simple peak-envelope-converter. ----------------- */
!
! typedef struct sigpeakenv
! {
! t_object x_obj;
! float x_sr;
! float x_old_peak;
! float x_c1;
! float x_releasetime;
! float x_msi;
! } t_sigpeakenv;
!
! t_class *sigpeakenv_class;
!
! static void sigpeakenv_reset(t_sigpeakenv *x)
! {
! x->x_old_peak = 0.0f;
! }
!
! static void sigpeakenv_ft1(t_sigpeakenv *x, t_floatarg f)/* release-time in ms */
! {
! if(f < 0.0f)
! f = 0.0f;
! x->x_releasetime = f;
! x->x_c1 = exp(-1.0/(x->x_sr*0.001*x->x_releasetime));
! }
!
! static t_int *sigpeakenv_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpeakenv *x = (t_sigpeakenv *)(w[3]);
! int n = (int)(w[4]);
! float peak = x->x_old_peak;
! float c1 = x->x_c1;
! float absolute;
! int i;
!
! for(i=0; i<n; i++)
! {
! absolute = fabs(*in++);
! peak *= c1;
! if(absolute > peak)
! peak = absolute;
! *out++ = peak;
! }
! /* NAN protect */
! if(IEM_DENORMAL(peak))
! peak = 0.0f;
! x->x_old_peak = peak;
! return(w+5);
! }
!
! static void sigpeakenv_dsp(t_sigpeakenv *x, t_signal **sp)
! {
! x->x_sr = (float)sp[0]->s_sr;
! sigpeakenv_ft1(x, x->x_releasetime);
! dsp_add(sigpeakenv_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigpeakenv_new(t_floatarg f)
! {
! t_sigpeakenv *x = (t_sigpeakenv *)pd_new(sigpeakenv_class);
!
! if(f <= 0.0f)
! f = 0.0f;
! x->x_sr = 44100.0f;
! sigpeakenv_ft1(x, f);
! x->x_old_peak = 0.0f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! return(x);
! }
!
! void sigpeakenv_setup(void)
! {
! sigpeakenv_class = class_new(gensym("peakenv~"), (t_newmethod)sigpeakenv_new,
! 0, sizeof(t_sigpeakenv), 0, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigpeakenv_class, t_sigpeakenv, x_msi);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_dsp, gensym("dsp"), 0);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_reset, gensym("reset"), 0);
! class_sethelpsymbol(sigpeakenv_class, gensym("iemhelp/help-peakenv~"));
! }
Index: iemlib1.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/iemlib1.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iemlib1.c 18 May 2004 21:33:29 -0000 1.1.1.1
--- iemlib1.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,82 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
!
! static t_class *iemlib1_class;
!
! static void *iemlib1_new(void)
! {
! t_object *x = (t_object *)pd_new(iemlib1_class);
!
! return (x);
! }
!
! void biquad_freq_resp_setup(void);
! void db2v_setup(void);
! void f2note_setup(void);
! void forpp_setup(void);
! void gate_setup(void);
! void sigfilter_setup(void);
! void sigFIR_setup(void);
! void sighml_shelf_setup(void);
! void sigiem_cot4_setup(void);
! void sigiem_delay_setup(void);
! void sigiem_sqrt4_setup(void);
! void sigiem_pow4_setup(void);
! void siglp1_t_setup(void);
! void sigmov_avrg_kern_setup(void);
! void sigpara_bp2_setup(void);
! void sigpeakenv_setup(void);
! void sigprvu_setup(void);
! void sigpvu_setup(void);
! void sigrvu_setup(void);
! void sigsin_phase_setup(void);
! void sigvcf_filter_setup(void);
! void soundfile_info_setup(void);
! void split_setup(void);
! void v2db_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iemlib1_setup(void)
! {
! iemlib1_class = class_new(gensym("iemlib1"), iemlib1_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! biquad_freq_resp_setup();
! db2v_setup();
! f2note_setup();
! forpp_setup();
! gate_setup();
! sigfilter_setup();
! sigFIR_setup();
! sighml_shelf_setup();
! sigiem_cot4_setup();
! sigiem_delay_setup();
! sigiem_sqrt4_setup();
! sigiem_pow4_setup();
! siglp1_t_setup();
! sigmov_avrg_kern_setup();
! sigpara_bp2_setup();
! sigpeakenv_setup();
! sigprvu_setup();
! sigpvu_setup();
! sigrvu_setup();
! sigsin_phase_setup();
! sigvcf_filter_setup();
! soundfile_info_setup();
! split_setup();
! v2db_setup();
!
! post("iemlib1 (R-1.15) library loaded!");
! }
--- 1,83 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
!
! static t_class *iemlib1_class;
!
! static void *iemlib1_new(void)
! {
! t_object *x = (t_object *)pd_new(iemlib1_class);
!
! return (x);
! }
!
! void biquad_freq_resp_setup(void);
! void db2v_setup(void);
! void f2note_setup(void);
! void forpp_setup(void);
! void gate_setup(void);
! void sigfilter_setup(void);
! void sigFIR_setup(void);
! void sighml_shelf_setup(void);
! void sigiem_cot4_setup(void);
! void sigiem_delay_setup(void);
! void sigiem_sqrt4_setup(void);
! void sigiem_pow4_setup(void);
! void siglp1_t_setup(void);
! void sigmov_avrg_kern_setup(void);
! void sigpara_bp2_setup(void);
! void sigpeakenv_setup(void);
! void sigprvu_setup(void);
! void sigpvu_setup(void);
! void sigrvu_setup(void);
! void sigsin_phase_setup(void);
! void sigvcf_filter_setup(void);
! void soundfile_info_setup(void);
! void split_setup(void);
! void v2db_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iemlib1_setup(void)
! {
! iemlib1_class = class_new(gensym("iemlib1"), iemlib1_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! biquad_freq_resp_setup();
! db2v_setup();
! f2note_setup();
! forpp_setup();
! gate_setup();
! sigfilter_setup();
! sigFIR_setup();
! sighml_shelf_setup();
! sigiem_cot4_setup();
! sigiem_delay_setup();
! sigiem_sqrt4_setup();
! sigiem_pow4_setup();
! siglp1_t_setup();
! sigmov_avrg_kern_setup();
! sigpara_bp2_setup();
! sigpeakenv_setup();
! sigprvu_setup();
! sigpvu_setup();
! sigrvu_setup();
! sigsin_phase_setup();
! sigvcf_filter_setup();
! soundfile_info_setup();
! split_setup();
! v2db_setup();
!
! post("iemlib1 (R-1.16) library loaded! (c) Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
Index: biquad_freq_resp.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/biquad_freq_resp.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** biquad_freq_resp.c 9 Mar 2005 17:15:59 -0000 1.2
--- biquad_freq_resp.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,92 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* --------------------------- biquad_freq_resp ----------------------------- */
!
! typedef struct _biquad_freq_resp
! {
! t_object x_obj;
! float a0;
! float a1;
! float a2;
! float b1;
! float b2;
! t_outlet *x_out_re;
! t_outlet *x_out_im;
! } t_biquad_freq_resp;
!
! static t_class *biquad_freq_resp_class;
!
! static void biquad_freq_resp_float(t_biquad_freq_resp *x, t_float f)
! {
! float re1, im1, re2, im2;
! float c, s, a;
!
! if(f < 0.0f)
! f = 0.0f;
! else if(f > 180.0f)
! f = 180.0;
! f *= 3.14159265f;
! f /= 180.0f;
!
! c = cos(f);
! s = sin(f);
!
! re1 = x->a0 + x->a1*c + x->a2*(c*c - s*s);
! im1 = x->a1*s + x->a2*2.0f*(s*c);
! re2 = 1.0f - x->b1*c - x->b2*(c*c - s*s);
! im2 = -x->b1*s - x->b2*2.0f*(s*c);
! a = re2*re2 + im2*im2;
! outlet_float(x->x_out_im, (re1*im2 - re2*im1)/a);/* because z^-1 = e^-jwt, negative sign */
! outlet_float(x->x_out_re, (re1*re2 + im1*im2)/a);
!
! }
! /* y/x = (a0 + a1*z-1 + a2*z-2)/(1 - b1*z-1 - b2*z-2);*/
!
! static void biquad_freq_resp_list(t_biquad_freq_resp *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc == 5)&&IS_A_FLOAT(argv,4)&&IS_A_FLOAT(argv,3)&&IS_A_FLOAT(argv,2)&&IS_A_FLOAT(argv,1)&&IS_A_FLOAT(argv,0))
! {
! x->b1 = (float)atom_getfloatarg(0, argc, argv);
! x->b2 = (float)atom_getfloatarg(1, argc, argv);
! x->a0 = (float)atom_getfloatarg(2, argc, argv);
! x->a1 = (float)atom_getfloatarg(3, argc, argv);
! x->a2 = (float)atom_getfloatarg(4, argc, argv);
! }
! }
!
! static void *biquad_freq_resp_new(void)
! {
! t_biquad_freq_resp *x = (t_biquad_freq_resp *)pd_new(biquad_freq_resp_class);
! x->x_out_re = outlet_new(&x->x_obj, &s_float);
! x->x_out_im = outlet_new(&x->x_obj, &s_float);
! x->b1 = 0.0f;
! x->b2 = 0.0f;
! x->a0 = 0.0f;
! x->a1 = 0.0f;
! x->a2 = 0.0f;
! return (x);
! }
!
! void biquad_freq_resp_setup(void)
! {
! biquad_freq_resp_class = class_new(gensym("biquad_freq_resp"), (t_newmethod)biquad_freq_resp_new, 0,
! sizeof(t_biquad_freq_resp), 0, 0);
! class_addfloat(biquad_freq_resp_class, biquad_freq_resp_float);
! class_addlist(biquad_freq_resp_class, (t_method)biquad_freq_resp_list);
! class_sethelpsymbol(biquad_freq_resp_class, gensym("iemhelp/help-biquad_freq_resp"));
! }
--- 1,93 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ biquad_freq_resp ------------------- */
! /* -- calculates the frequency responce of a biquad structure -- */
!
! typedef struct _biquad_freq_resp
! {
! t_object x_obj;
! float a0;
! float a1;
! float a2;
! float b1;
! float b2;
! t_outlet *x_out_re;
! t_outlet *x_out_im;
! } t_biquad_freq_resp;
!
! static t_class *biquad_freq_resp_class;
!
! static void biquad_freq_resp_float(t_biquad_freq_resp *x, t_float f)
! {
! float re1, im1, re2, im2;
! float c, s, a;
!
! if(f < 0.0f)
! f = 0.0f;
! else if(f > 180.0f)
! f = 180.0;
! f *= 3.14159265f;
! f /= 180.0f;
!
! c = cos(f);
! s = sin(f);
!
! re1 = x->a0 + x->a1*c + x->a2*(c*c - s*s);
! im1 = x->a1*s + x->a2*2.0f*(s*c);
! re2 = 1.0f - x->b1*c - x->b2*(c*c - s*s);
! im2 = -x->b1*s - x->b2*2.0f*(s*c);
! a = re2*re2 + im2*im2;
! outlet_float(x->x_out_im, (re1*im2 - re2*im1)/a);/* because z^-1 = e^-jwt, negative sign */
! outlet_float(x->x_out_re, (re1*re2 + im1*im2)/a);
!
! }
! /* y/x = (a0 + a1*z-1 + a2*z-2)/(1 - b1*z-1 - b2*z-2);*/
!
! static void biquad_freq_resp_list(t_biquad_freq_resp *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc == 5)&&IS_A_FLOAT(argv,4)&&IS_A_FLOAT(argv,3)&&IS_A_FLOAT(argv,2)&&IS_A_FLOAT(argv,1)&&IS_A_FLOAT(argv,0))
! {
! x->b1 = (float)atom_getfloatarg(0, argc, argv);
! x->b2 = (float)atom_getfloatarg(1, argc, argv);
! x->a0 = (float)atom_getfloatarg(2, argc, argv);
! x->a1 = (float)atom_getfloatarg(3, argc, argv);
! x->a2 = (float)atom_getfloatarg(4, argc, argv);
! }
! }
!
! static void *biquad_freq_resp_new(void)
! {
! t_biquad_freq_resp *x = (t_biquad_freq_resp *)pd_new(biquad_freq_resp_class);
! x->x_out_re = outlet_new(&x->x_obj, &s_float);
! x->x_out_im = outlet_new(&x->x_obj, &s_float);
! x->b1 = 0.0f;
! x->b2 = 0.0f;
! x->a0 = 0.0f;
! x->a1 = 0.0f;
! x->a2 = 0.0f;
! return (x);
! }
!
! void biquad_freq_resp_setup(void)
! {
! biquad_freq_resp_class = class_new(gensym("biquad_freq_resp"), (t_newmethod)biquad_freq_resp_new, 0,
! sizeof(t_biquad_freq_resp), 0, 0);
! class_addfloat(biquad_freq_resp_class, biquad_freq_resp_float);
! class_addlist(biquad_freq_resp_class, (t_method)biquad_freq_resp_list);
! class_sethelpsymbol(biquad_freq_resp_class, gensym("iemhelp/help-biquad_freq_resp"));
! }
Index: sigsin_phase.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigsin_phase.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigsin_phase.c 18 May 2004 21:33:30 -0000 1.1.1.1
--- sigsin_phase.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,129 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* --- sin_phase~ - output the phase-difference between 2 sinewaves in samples (sig) ---- */
!
! typedef struct sigsin_phase
! {
! t_object x_obj;
! float x_prev1;
! float x_prev2;
! float x_cur_out;
! int x_counter1;
! int x_counter2;
! int x_state1;
! int x_state2;
! float x_msi;
! } t_sigsin_phase;
!
! t_class *sigsin_phase_class;
!
! static t_int *sigsin_phase_perform(t_int *w)
! {
! float *in1 = (float *)(w[1]);
! float *in2 = (float *)(w[2]);
! float *out = (float *)(w[3]);
! t_sigsin_phase *x = (t_sigsin_phase *)(w[4]);
! int i, n = (t_int)(w[5]);
! float prev1=x->x_prev1;
! float prev2=x->x_prev2;
! float cur_out=x->x_cur_out;
! int counter1=x->x_counter1;
! int counter2=x->x_counter2;
! int state1=x->x_state1;
! int state2=x->x_state2;
!
! for(i=0; i<n; i++)
! {
! if((in1[i] >= 0.0f) && (prev1 < 0.0f))
! {
! state1 = 1;
! counter1 = 0;
! }
! else if((in1[i] < 0.0f) && (prev1 >= 0.0f))
! {
! state2 = 1;
! counter2 = 0;
! }
!
! if((in2[i] >= 0.0f) && (prev2 < 0.0f))
! {
! state1 = 0;
! cur_out = (float)(counter1);
! counter1 = 0;
! }
! else if((in2[i] < 0.0f) && (prev2 >= 0.0f))
! {
! state2 = 0;
! cur_out = (float)(counter2);
! counter2 = 0;
! }
!
! if(state1)
! counter1++;
! if(state2)
! counter2++;
!
! prev1 = in1[i];
! prev2 = in2[i];
! out[i] = cur_out;
! }
!
! x->x_prev1 = prev1;
! x->x_prev2 = prev2;
! x->x_cur_out = cur_out;
! x->x_counter1 = counter1;
! x->x_counter2 = counter2;
! x->x_state1 = state1;
! x->x_state2 = state2;
!
! return(w+6);
! }
!
! static void sigsin_phase_dsp(t_sigsin_phase *x, t_signal **sp)
! {
! dsp_add(sigsin_phase_perform, 5, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigsin_phase_new(void)
! {
! t_sigsin_phase *x = (t_sigsin_phase *)pd_new(sigsin_phase_class);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! outlet_new(&x->x_obj, &s_signal);
!
! x->x_prev1 = 0.0f;
! x->x_prev2 = 0.0f;
! x->x_cur_out = 0.0f;
! x->x_counter1 = 0;
! x->x_counter2 = 0;
! x->x_state1 = 0;
! x->x_state2 = 0;
! x->x_msi = 0;
!
! return (x);
! }
!
! void sigsin_phase_setup(void)
! {
! sigsin_phase_class = class_new(gensym("sin_phase~"), (t_newmethod)sigsin_phase_new,
! 0, sizeof(t_sigsin_phase), 0, 0);
! CLASS_MAINSIGNALIN(sigsin_phase_class, t_sigsin_phase, x_msi);
! class_addmethod(sigsin_phase_class, (t_method)sigsin_phase_dsp, gensym("dsp"), 0);
! class_sethelpsymbol(sigsin_phase_class, gensym("iemhelp/help-sin_phase~"));
! }
--- 1,129 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* --- sin_phase~ - output the phase-difference between 2 sinewaves in samples (sig) ---- */
!
! typedef struct sigsin_phase
! {
! t_object x_obj;
! float x_prev1;
! float x_prev2;
! float x_cur_out;
! int x_counter1;
! int x_counter2;
! int x_state1;
! int x_state2;
! float x_msi;
! } t_sigsin_phase;
!
! t_class *sigsin_phase_class;
!
! static t_int *sigsin_phase_perform(t_int *w)
! {
! float *in1 = (float *)(w[1]);
! float *in2 = (float *)(w[2]);
! float *out = (float *)(w[3]);
! t_sigsin_phase *x = (t_sigsin_phase *)(w[4]);
! int i, n = (t_int)(w[5]);
! float prev1=x->x_prev1;
! float prev2=x->x_prev2;
! float cur_out=x->x_cur_out;
! int counter1=x->x_counter1;
! int counter2=x->x_counter2;
! int state1=x->x_state1;
! int state2=x->x_state2;
!
! for(i=0; i<n; i++)
! {
! if((in1[i] >= 0.0f) && (prev1 < 0.0f))
! {
! state1 = 1;
! counter1 = 0;
! }
! else if((in1[i] < 0.0f) && (prev1 >= 0.0f))
! {
! state2 = 1;
! counter2 = 0;
! }
!
! if((in2[i] >= 0.0f) && (prev2 < 0.0f))
! {
! state1 = 0;
! cur_out = (float)(counter1);
! counter1 = 0;
! }
! else if((in2[i] < 0.0f) && (prev2 >= 0.0f))
! {
! state2 = 0;
! cur_out = (float)(counter2);
! counter2 = 0;
! }
!
! if(state1)
! counter1++;
! if(state2)
! counter2++;
!
! prev1 = in1[i];
! prev2 = in2[i];
! out[i] = cur_out;
! }
!
! x->x_prev1 = prev1;
! x->x_prev2 = prev2;
! x->x_cur_out = cur_out;
! x->x_counter1 = counter1;
! x->x_counter2 = counter2;
! x->x_state1 = state1;
! x->x_state2 = state2;
!
! return(w+6);
! }
!
! static void sigsin_phase_dsp(t_sigsin_phase *x, t_signal **sp)
! {
! dsp_add(sigsin_phase_perform, 5, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigsin_phase_new(void)
! {
! t_sigsin_phase *x = (t_sigsin_phase *)pd_new(sigsin_phase_class);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! outlet_new(&x->x_obj, &s_signal);
!
! x->x_prev1 = 0.0f;
! x->x_prev2 = 0.0f;
! x->x_cur_out = 0.0f;
! x->x_counter1 = 0;
! x->x_counter2 = 0;
! x->x_state1 = 0;
! x->x_state2 = 0;
! x->x_msi = 0;
!
! return (x);
! }
!
! void sigsin_phase_setup(void)
! {
! sigsin_phase_class = class_new(gensym("sin_phase~"), (t_newmethod)sigsin_phase_new,
! 0, sizeof(t_sigsin_phase), 0, 0);
! CLASS_MAINSIGNALIN(sigsin_phase_class, t_sigsin_phase, x_msi);
! class_addmethod(sigsin_phase_class, (t_method)sigsin_phase_dsp, gensym("dsp"), 0);
! class_sethelpsymbol(sigsin_phase_class, gensym("iemhelp/help-sin_phase~"));
! }
Index: sigrvu.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigrvu.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigrvu.c 9 Mar 2005 17:15:59 -0000 1.2
--- sigrvu.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,187 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- rvu~ - simple peak&rms-vu-meter. ----------------- */
!
! typedef struct sigrvu
! {
! t_object x_obj;
! void *x_clock_metro;
! int x_metro_time;
! float x_sum_rms;
! float x_old_rms;
! float x_rcp;
! float x_sr;
! float x_release_time;
! float x_c1;
! int x_started;
! float x_msi;
! } t_sigrvu;
!
! t_class *sigrvu_class;
! static void sigrvu_tick_metro(t_sigrvu *x);
!
! static void sigrvu_reset(t_sigrvu *x)
! {
! outlet_float(x->x_obj.ob_outlet, -99.9f);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_stop(t_sigrvu *x)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
!
! static void sigrvu_start(t_sigrvu *x)
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigrvu_float(t_sigrvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigrvu_t_release(t_sigrvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! }
!
! static void sigrvu_t_metro(t_sigrvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! }
!
! static t_int *sigrvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigrvu *x = (t_sigrvu *)(w[2]);
! int n = (int)(w[3]);
! float pow, sum=x->x_sum_rms;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! sum += in[i]*in[i];
! }
! x->x_sum_rms = sum;
! }
! return(w+4);
! }
!
! static void sigrvu_dsp(t_sigrvu *x, t_signal **sp)
! {
! x->x_sr = 0.001*(float)sp[0]->s_sr;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! dsp_add(sigrvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_tick_metro(t_sigrvu *x)
! {
! float dbr, cur_rms, c1=x->x_c1;
!
! cur_rms = (1.0f - c1)*x->x_sum_rms*x->x_rcp + c1*x->x_old_rms;
! /* NAN protect */
! if(IEM_DENORMAL(cur_rms))
! cur_rms = 0.0f;
!
! if(cur_rms <= 0.0000000001f)
! dbr = -99.9f;
! else if(cur_rms > 1000000.0f)
! {
! dbr = 60.0f;
! x->x_old_rms = 1000000.0f;
! }
! else
! dbr = 4.3429448195f*log(cur_rms);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = cur_rms;
! outlet_float(x->x_obj.ob_outlet, dbr);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_ff(t_sigrvu *x)
! {
! clock_free(x->x_clock_metro);
! }
!
! static void *sigrvu_new(t_floatarg metro_time, t_floatarg release_time)
! {
! t_sigrvu *x=(t_sigrvu *)pd_new(sigrvu_class);
! float t;
! int i;
!
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_sr = 44.1f;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! x->x_clock_metro = clock_new(x, (t_method)sigrvu_tick_metro);
! x->x_started = 1;
! outlet_new(&x->x_obj, &s_float);
! x->x_msi = 0.0f;
! return(x);
! }
!
! void sigrvu_setup(void)
! {
! sigrvu_class = class_new(gensym("rvu~"), (t_newmethod)sigrvu_new,
! (t_method)sigrvu_ff, sizeof(t_sigrvu), 0,
! A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigrvu_class, t_sigrvu, x_msi);
! class_addmethod(sigrvu_class, (t_method)sigrvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigrvu_class, sigrvu_float);
! class_addmethod(sigrvu_class, (t_method)sigrvu_reset, gensym("reset"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_start, gensym("start"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_stop, gensym("stop"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_sethelpsymbol(sigrvu_class, gensym("iemhelp/help-rvu~"));
! }
--- 1,187 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- rvu~ - simple peak&rms-vu-meter. ----------------- */
!
! typedef struct sigrvu
! {
! t_object x_obj;
! void *x_clock_metro;
! int x_metro_time;
! float x_sum_rms;
! float x_old_rms;
! float x_rcp;
! float x_sr;
! float x_release_time;
! float x_c1;
! int x_started;
! float x_msi;
! } t_sigrvu;
!
! t_class *sigrvu_class;
! static void sigrvu_tick_metro(t_sigrvu *x);
!
! static void sigrvu_reset(t_sigrvu *x)
! {
! outlet_float(x->x_obj.ob_outlet, -99.9f);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_stop(t_sigrvu *x)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
!
! static void sigrvu_start(t_sigrvu *x)
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigrvu_float(t_sigrvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigrvu_t_release(t_sigrvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! }
!
! static void sigrvu_t_metro(t_sigrvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! }
!
! static t_int *sigrvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigrvu *x = (t_sigrvu *)(w[2]);
! int n = (int)(w[3]);
! float pow, sum=x->x_sum_rms;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! sum += in[i]*in[i];
! }
! x->x_sum_rms = sum;
! }
! return(w+4);
! }
!
! static void sigrvu_dsp(t_sigrvu *x, t_signal **sp)
! {
! x->x_sr = 0.001*(float)sp[0]->s_sr;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! dsp_add(sigrvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_tick_metro(t_sigrvu *x)
! {
! float dbr, cur_rms, c1=x->x_c1;
!
! cur_rms = (1.0f - c1)*x->x_sum_rms*x->x_rcp + c1*x->x_old_rms;
! /* NAN protect */
! if(IEM_DENORMAL(cur_rms))
! cur_rms = 0.0f;
!
! if(cur_rms <= 0.0000000001f)
! dbr = -99.9f;
! else if(cur_rms > 1000000.0f)
! {
! dbr = 60.0f;
! x->x_old_rms = 1000000.0f;
! }
! else
! dbr = 4.3429448195f*log(cur_rms);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = cur_rms;
! outlet_float(x->x_obj.ob_outlet, dbr);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_ff(t_sigrvu *x)
! {
! clock_free(x->x_clock_metro);
! }
!
! static void *sigrvu_new(t_floatarg metro_time, t_floatarg release_time)
! {
! t_sigrvu *x=(t_sigrvu *)pd_new(sigrvu_class);
! float t;
! int i;
!
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_sr = 44.1f;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! x->x_clock_metro = clock_new(x, (t_method)sigrvu_tick_metro);
! x->x_started = 1;
! outlet_new(&x->x_obj, &s_float);
! x->x_msi = 0.0f;
! return(x);
! }
!
! void sigrvu_setup(void)
! {
! sigrvu_class = class_new(gensym("rvu~"), (t_newmethod)sigrvu_new,
! (t_method)sigrvu_ff, sizeof(t_sigrvu), 0,
! A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigrvu_class, t_sigrvu, x_msi);
! class_addmethod(sigrvu_class, (t_method)sigrvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigrvu_class, sigrvu_float);
! class_addmethod(sigrvu_class, (t_method)sigrvu_reset, gensym("reset"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_start, gensym("start"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_stop, gensym("stop"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_sethelpsymbol(sigrvu_class, gensym("iemhelp/help-rvu~"));
! }
Index: db2v.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/db2v.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** db2v.c 18 May 2004 21:33:28 -0000 1.1.1.1
--- db2v.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,45 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- db2v - dB to value converter. ----------------- */
!
! static t_class *db2v_class;
!
! float db2v(float f)
! {
! return (f <= -199.9 ? 0 : exp(0.11512925465 * f));
! }
!
! static void db2v_float(t_object *x, t_float f)
! {
! outlet_float(x->ob_outlet, db2v(f));
! }
!
! static void *db2v_new(void)
! {
! t_object *x = (t_object *)pd_new(db2v_class);
! outlet_new(x, &s_float);
! return (x);
! }
!
! void db2v_setup(void)
! {
! db2v_class = class_new(gensym("db2v"), db2v_new, 0,
! sizeof(t_object), 0, 0);
! class_addfloat(db2v_class, (t_method)db2v_float);
! class_sethelpsymbol(db2v_class, gensym("iemhelp/help-db2v"));
! }
--- 1,45 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------- db2v - a techn. dB to rms-value converter. --------- */
!
! static t_class *db2v_class;
!
! float db2v(float f)
! {
! return (f <= -199.9 ? 0 : exp(0.11512925465 * f));
! }
!
! static void db2v_float(t_object *x, t_float f)
! {
! outlet_float(x->ob_outlet, db2v(f));
! }
!
! static void *db2v_new(void)
! {
! t_object *x = (t_object *)pd_new(db2v_class);
! outlet_new(x, &s_float);
! return (x);
! }
!
! void db2v_setup(void)
! {
! db2v_class = class_new(gensym("db2v"), db2v_new, 0,
! sizeof(t_object), 0, 0);
! class_addfloat(db2v_class, (t_method)db2v_float);
! class_sethelpsymbol(db2v_class, gensym("iemhelp/help-db2v"));
! }
Index: sigiem_delay.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigiem_delay.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigiem_delay.c 18 May 2004 21:33:30 -0000 1.1.1.1
--- sigiem_delay.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,208 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil (c) IEM KUG Graz Austria 2002 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- sigiem_delay~ ------------------------------ */
! static t_class *sigiem_delay_class;
!
! #define IEMDELAY_DEF_VEC_SIZE 64
!
! typedef struct _sigiem_delay
! {
! t_object x_obj;
! int x_mallocsize;
! t_float x_max_delay_ms;
! t_float x_current_delay_ms;
! t_float *x_begmem1;
! t_float *x_begmem2;
! int x_writeindex;
! int x_blocksize;
! int x_delay_samples;
! t_float x_sr;
! t_float x_msi;
! } t_sigiem_delay;
!
! static void sigiem_delay_cur_del(t_sigiem_delay *x, t_floatarg f)
! {
! if(f < 0.0f)
! f = 0.0f;
! else if(f > x->x_max_delay_ms)
! f = x->x_max_delay_ms;
! x->x_current_delay_ms = f;
! x->x_delay_samples = (int)(0.001f*x->x_sr * f + 0.5f);
! }
!
! static t_int *sigiem_delay_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_delay *x = (t_sigiem_delay *)(w[3]);
! int n=(int)(w[4]);
! int writeindex = x->x_writeindex;
! t_float *vec1, *vec2, *vec3;
!
! vec1 = x->x_begmem1 + writeindex;
! vec2 = x->x_begmem2 + writeindex;
! vec3 = x->x_begmem2 + writeindex - x->x_delay_samples;
! writeindex += n;
! while(n--)
! {
! *vec1++ = *vec2++ = *in++;
! *out++ = *vec3++;
! }
! if(writeindex >= x->x_mallocsize)
! {
! writeindex -= x->x_mallocsize;
! }
! x->x_writeindex = writeindex;
! return(w+5);
! }
!
! static t_int *sigiem_delay_perf8(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_delay *x = (t_sigiem_delay *)(w[3]);
! int i, n=(int)(w[4]);
! int writeindex = x->x_writeindex;
! t_float *vec1, *vec2;
!
! vec1 = x->x_begmem1 + writeindex;
! vec2 = x->x_begmem2 + writeindex;
! for(i=0; i<n; i+=8)
! {
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! }
!
! vec2 = x->x_begmem2 + writeindex - x->x_delay_samples;
! for(i=0; i<n; i+=8)
! {
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! }
!
! writeindex += n;
! if(writeindex >= x->x_mallocsize)
! {
! writeindex -= x->x_mallocsize;
! }
! x->x_writeindex = writeindex;
! return(w+5);
! }
!
! static void sigiem_delay_dsp(t_sigiem_delay *x, t_signal **sp)
! {
! int blocksize = sp[0]->s_n, i;
!
! if(!x->x_blocksize)/*first time*/
! {
! int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * 0.001f;
!
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (blocksize - 1));
! nsamps += blocksize;
! x->x_mallocsize = nsamps;
! x->x_begmem1 = (t_float *)getbytes(2 * x->x_mallocsize * sizeof(t_float));
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! post("beginn = %x", (unsigned long)x->x_begmem1);
! x->x_writeindex = blocksize;
! x->x_sr = (t_float)sp[0]->s_sr;
! x->x_blocksize = blocksize;
! x->x_delay_samples = (int)(0.001f*x->x_sr * x->x_current_delay_ms + 0.5f);
! }
! else if((x->x_blocksize != blocksize) || ((t_float)sp[0]->s_sr != x->x_sr))
! {
! int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * 0.001f;
!
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (blocksize - 1));
! nsamps += blocksize;
!
! x->x_begmem1 = (t_float *)resizebytes(x->x_begmem1, 2*x->x_mallocsize*sizeof(t_float), 2*nsamps*sizeof(t_float));
! x->x_mallocsize = nsamps;
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! post("beginn = %x", (unsigned long)x->x_begmem1);
! if(x->x_writeindex >= nsamps)
! x->x_writeindex -= nsamps;
! x->x_sr = (t_float)sp[0]->s_sr;
! x->x_blocksize = blocksize;
! x->x_delay_samples = (int)(0.001f*x->x_sr * x->x_current_delay_ms + 0.5f);
! }
!
! if(blocksize&7)
! dsp_add(sigiem_delay_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, blocksize);
! else
! dsp_add(sigiem_delay_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, blocksize);
! }
!
! static void *sigiem_delay_new(t_floatarg max_delay_ms, t_floatarg current_delay_ms)
! {
! t_sigiem_delay *x = (t_sigiem_delay *)pd_new(sigiem_delay_class);
! int nsamps;
!
! if(max_delay_ms < 2.0f)
! max_delay_ms = 2.0f;
! x->x_max_delay_ms = max_delay_ms;
! if(current_delay_ms < 0.0f)
! current_delay_ms = 0.0f;
! else if(current_delay_ms > max_delay_ms)
! current_delay_ms = max_delay_ms;
! x->x_current_delay_ms = current_delay_ms;
! nsamps = max_delay_ms * sys_getsr() * 0.001f;
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (IEMDELAY_DEF_VEC_SIZE - 1));
! nsamps += IEMDELAY_DEF_VEC_SIZE;
! x->x_mallocsize = nsamps;
! x->x_begmem1 = (t_float *)getbytes(2 * x->x_mallocsize * sizeof(t_float));
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! x->x_writeindex = IEMDELAY_DEF_VEC_SIZE;
! x->x_blocksize = 0;
! x->x_sr = 0.0f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0.0f;
! return (x);
! }
!
! static void sigiem_delay_free(t_sigiem_delay *x)
! {
! freebytes(x->x_begmem1, 2 * x->x_mallocsize * sizeof(t_float));
! }
!
! void sigiem_delay_setup(void)
! {
! sigiem_delay_class = class_new(gensym("iem_delay~"), (t_newmethod)sigiem_delay_new, (t_method)sigiem_delay_free,
! sizeof(t_sigiem_delay), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigiem_delay_class, t_sigiem_delay, x_msi);
! class_addmethod(sigiem_delay_class, (t_method)sigiem_delay_dsp, gensym("dsp"), 0);
! class_addmethod(sigiem_delay_class, (t_method)sigiem_delay_cur_del, gensym("ft1"), A_FLOAT, 0);
! }
--- 1,209 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- sigiem_delay~ ------------------------------ */
!
! static t_class *sigiem_delay_class;
!
! #define IEMDELAY_DEF_VEC_SIZE 64
!
! typedef struct _sigiem_delay
! {
! t_object x_obj;
! int x_mallocsize;
! t_float x_max_delay_ms;
! t_float x_current_delay_ms;
! t_float *x_begmem1;
! t_float *x_begmem2;
! int x_writeindex;
! int x_blocksize;
! int x_delay_samples;
! t_float x_sr;
! t_float x_msi;
! } t_sigiem_delay;
!
! static void sigiem_delay_cur_del(t_sigiem_delay *x, t_floatarg f)
! {
! if(f < 0.0f)
! f = 0.0f;
! else if(f > x->x_max_delay_ms)
! f = x->x_max_delay_ms;
! x->x_current_delay_ms = f;
! x->x_delay_samples = (int)(0.001f*x->x_sr * f + 0.5f);
! }
!
! static t_int *sigiem_delay_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_delay *x = (t_sigiem_delay *)(w[3]);
! int n=(int)(w[4]);
! int writeindex = x->x_writeindex;
! t_float *vec1, *vec2, *vec3;
!
! vec1 = x->x_begmem1 + writeindex;
! vec2 = x->x_begmem2 + writeindex;
! vec3 = x->x_begmem2 + writeindex - x->x_delay_samples;
! writeindex += n;
! while(n--)
! {
! *vec1++ = *vec2++ = *in++;
! *out++ = *vec3++;
! }
! if(writeindex >= x->x_mallocsize)
! {
! writeindex -= x->x_mallocsize;
! }
! x->x_writeindex = writeindex;
! return(w+5);
! }
!
! static t_int *sigiem_delay_perf8(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_delay *x = (t_sigiem_delay *)(w[3]);
! int i, n=(int)(w[4]);
! int writeindex = x->x_writeindex;
! t_float *vec1, *vec2;
!
! vec1 = x->x_begmem1 + writeindex;
! vec2 = x->x_begmem2 + writeindex;
! for(i=0; i<n; i+=8)
! {
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! }
!
! vec2 = x->x_begmem2 + writeindex - x->x_delay_samples;
! for(i=0; i<n; i+=8)
! {
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! }
!
! writeindex += n;
! if(writeindex >= x->x_mallocsize)
! {
! writeindex -= x->x_mallocsize;
! }
! x->x_writeindex = writeindex;
! return(w+5);
! }
!
! static void sigiem_delay_dsp(t_sigiem_delay *x, t_signal **sp)
! {
! int blocksize = sp[0]->s_n, i;
!
! if(!x->x_blocksize)/*first time*/
! {
! int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * 0.001f;
!
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (blocksize - 1));
! nsamps += blocksize;
! x->x_mallocsize = nsamps;
! x->x_begmem1 = (t_float *)getbytes(2 * x->x_mallocsize * sizeof(t_float));
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! post("beginn = %x", (unsigned long)x->x_begmem1);
! x->x_writeindex = blocksize;
! x->x_sr = (t_float)sp[0]->s_sr;
! x->x_blocksize = blocksize;
! x->x_delay_samples = (int)(0.001f*x->x_sr * x->x_current_delay_ms + 0.5f);
! }
! else if((x->x_blocksize != blocksize) || ((t_float)sp[0]->s_sr != x->x_sr))
! {
! int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * 0.001f;
!
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (blocksize - 1));
! nsamps += blocksize;
!
! x->x_begmem1 = (t_float *)resizebytes(x->x_begmem1, 2*x->x_mallocsize*sizeof(t_float), 2*nsamps*sizeof(t_float));
! x->x_mallocsize = nsamps;
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! post("beginn = %x", (unsigned long)x->x_begmem1);
! if(x->x_writeindex >= nsamps)
! x->x_writeindex -= nsamps;
! x->x_sr = (t_float)sp[0]->s_sr;
! x->x_blocksize = blocksize;
! x->x_delay_samples = (int)(0.001f*x->x_sr * x->x_current_delay_ms + 0.5f);
! }
!
! if(blocksize&7)
! dsp_add(sigiem_delay_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, blocksize);
! else
! dsp_add(sigiem_delay_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, blocksize);
! }
!
! static void *sigiem_delay_new(t_floatarg max_delay_ms, t_floatarg current_delay_ms)
! {
! t_sigiem_delay *x = (t_sigiem_delay *)pd_new(sigiem_delay_class);
! int nsamps;
!
! if(max_delay_ms < 2.0f)
! max_delay_ms = 2.0f;
! x->x_max_delay_ms = max_delay_ms;
! if(current_delay_ms < 0.0f)
! current_delay_ms = 0.0f;
! else if(current_delay_ms > max_delay_ms)
! current_delay_ms = max_delay_ms;
! x->x_current_delay_ms = current_delay_ms;
! nsamps = max_delay_ms * sys_getsr() * 0.001f;
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (IEMDELAY_DEF_VEC_SIZE - 1));
! nsamps += IEMDELAY_DEF_VEC_SIZE;
! x->x_mallocsize = nsamps;
! x->x_begmem1 = (t_float *)getbytes(2 * x->x_mallocsize * sizeof(t_float));
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! x->x_writeindex = IEMDELAY_DEF_VEC_SIZE;
! x->x_blocksize = 0;
! x->x_sr = 0.0f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0.0f;
! return (x);
! }
!
! static void sigiem_delay_free(t_sigiem_delay *x)
! {
! freebytes(x->x_begmem1, 2 * x->x_mallocsize * sizeof(t_float));
! }
!
! void sigiem_delay_setup(void)
! {
! sigiem_delay_class = class_new(gensym("iem_delay~"), (t_newmethod)sigiem_delay_new, (t_method)sigiem_delay_free,
! sizeof(t_sigiem_delay), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigiem_delay_class, t_sigiem_delay, x_msi);
! class_addmethod(sigiem_delay_class, (t_method)sigiem_delay_dsp, gensym("dsp"), 0);
! class_addmethod(sigiem_delay_class, (t_method)sigiem_delay_cur_del, gensym("ft1"), A_FLOAT, 0);
! }
Index: split.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/split.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** split.c 9 Mar 2005 17:15:59 -0000 1.2
--- split.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,54 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* --------------------------- split ----------------------------- */
!
! typedef struct _split
! {
! t_object x_obj;
! t_outlet *x_out_less;
! t_outlet *x_out_greater_equal;
! float x_threshold;
! } t_split;
!
! static t_class *split_class;
!
! static void split_float(t_split *x, t_float f)
! {
! if(f < x->x_threshold)
! outlet_float(x->x_out_less, f);
! else
! outlet_float(x->x_out_greater_equal, f);
! }
!
! static void *split_new(t_floatarg f)
! {
! t_split *x = (t_split *)pd_new(split_class);
! floatinlet_new(&x->x_obj, &x->x_threshold);
! x->x_out_less = outlet_new(&x->x_obj, &s_float);
! x->x_out_greater_equal = outlet_new(&x->x_obj, &s_float);
! x->x_threshold = f;
! return (x);
! }
!
! void split_setup(void)
! {
! split_class = class_new(gensym("split"), (t_newmethod)split_new, 0,
! sizeof(t_split), 0, A_DEFFLOAT, 0);
! class_addfloat(split_class, split_float);
! class_sethelpsymbol(split_class, gensym("iemhelp/help-split"));
! }
--- 1,54 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* --------- split is like moses ----------- */
!
! typedef struct _split
! {
! t_object x_obj;
! t_outlet *x_out_less;
! t_outlet *x_out_greater_equal;
! float x_threshold;
! } t_split;
!
! static t_class *split_class;
!
! static void split_float(t_split *x, t_float f)
! {
! if(f < x->x_threshold)
! outlet_float(x->x_out_less, f);
! else
! outlet_float(x->x_out_greater_equal, f);
! }
!
! static void *split_new(t_floatarg f)
! {
! t_split *x = (t_split *)pd_new(split_class);
! floatinlet_new(&x->x_obj, &x->x_threshold);
! x->x_out_less = outlet_new(&x->x_obj, &s_float);
! x->x_out_greater_equal = outlet_new(&x->x_obj, &s_float);
! x->x_threshold = f;
! return (x);
! }
!
! void split_setup(void)
! {
! split_class = class_new(gensym("split"), (t_newmethod)split_new, 0,
! sizeof(t_split), 0, A_DEFFLOAT, 0);
! class_addfloat(split_class, split_float);
! class_sethelpsymbol(split_class, gensym("iemhelp/help-split"));
! }
Index: forpp.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/forpp.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** forpp.c 18 May 2004 21:33:29 -0000 1.1.1.1
--- forpp.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,192 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- forpp ------------------------------ */
!
! typedef struct _forpp
! {
! t_object x_obj;
! int x_beg;
! int x_end;
! float x_delay;
! int x_cur;
! int x_incr;
! void *x_out_end;
! void *x_clock;
! void *x_clock2;
! } t_forpp;
!
! static t_class *forpp_class;
!
! static void forpp_tick2(t_forpp *x)
! {
! outlet_bang(x->x_out_end);
! clock_unset(x->x_clock2);
! }
!
! static void forpp_tick(t_forpp *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_cur);
! x->x_cur += x->x_incr;
! if(x->x_incr > 0)
! {
! if(x->x_cur <= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! else
! {
! if(x->x_cur >= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! }
!
! static void forpp_bang(t_forpp *x)
! {
! x->x_cur = x->x_beg;
! outlet_float(x->x_obj.ob_outlet, x->x_cur);
! x->x_cur += x->x_incr;
! if(x->x_incr > 0)
! {
! if(x->x_cur <= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! else
! {
! if(x->x_cur >= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
!
! }
!
! static void forpp_start(t_forpp *x)
! {
! forpp_bang(x);
! }
!
! static void forpp_stop(t_forpp *x)
! {
! if(x->x_incr > 0)
! x->x_cur = x->x_end + 1;
! else
! x->x_cur = x->x_end - 1;
! clock_unset(x->x_clock);
! clock_unset(x->x_clock2);
! }
!
! static void forpp_float(t_forpp *x, t_float beg)
! {
! x->x_beg = (int)beg;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! }
!
! static void forpp_ft1(t_forpp *x, t_float end)
! {
! x->x_end = (int)end;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! }
!
! static void forpp_ft2(t_forpp *x, t_float delay)
! {
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! }
!
! static void forpp_list(t_forpp *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc == 2)
! {
! forpp_float(x, atom_getfloatarg(0, argc, argv));
! forpp_ft1(x, atom_getfloatarg(1, argc, argv));
! }
! else if(argc == 3)
! {
! forpp_float(x, atom_getfloatarg(0, argc, argv));
! forpp_ft1(x, atom_getfloatarg(1, argc, argv));
! forpp_ft2(x, atom_getfloatarg(2, argc, argv));
! }
! }
!
! static void *forpp_new(t_floatarg beg, t_floatarg end, t_floatarg delay)
! {
! t_forpp *x = (t_forpp *)pd_new(forpp_class);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! outlet_new(&x->x_obj, &s_float);
! x->x_out_end = outlet_new(&x->x_obj, &s_bang);
! x->x_clock = clock_new(x, (t_method)forpp_tick);
! x->x_clock2 = clock_new(x, (t_method)forpp_tick2);
! x->x_beg = (int)beg;
! x->x_end = (int)end;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! x->x_cur = x->x_beg;
! return(x);
! }
!
! static void forpp_ff(t_forpp *x)
! {
! clock_free(x->x_clock);
! clock_free(x->x_clock2);
! }
!
! void forpp_setup(void)
! {
! forpp_class = class_new(gensym("for++"), (t_newmethod)forpp_new,
! (t_method)forpp_ff, sizeof(t_forpp),
! 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addbang(forpp_class, forpp_bang);
! class_addfloat(forpp_class, forpp_float);
! class_addlist(forpp_class, forpp_list);
! class_addmethod(forpp_class, (t_method)forpp_start, gensym("start"), 0);
! class_addmethod(forpp_class, (t_method)forpp_stop, gensym("stop"), 0);
! class_addmethod(forpp_class, (t_method)forpp_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(forpp_class, (t_method)forpp_ft2, gensym("ft2"), A_FLOAT, 0);
! class_sethelpsymbol(forpp_class, gensym("iemhelp/help-for++"));
! }
--- 1,193 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ----------------------------- for++ -------------------------------- */
! /* -- an internal timed counter (start-, stop-number and metro-time) -- */
!
! typedef struct _forpp
! {
! t_object x_obj;
! int x_beg;
! int x_end;
! float x_delay;
! int x_cur;
! int x_incr;
! void *x_out_end;
! void *x_clock;
! void *x_clock2;
! } t_forpp;
!
! static t_class *forpp_class;
!
! static void forpp_tick2(t_forpp *x)
! {
! outlet_bang(x->x_out_end);
! clock_unset(x->x_clock2);
! }
!
! static void forpp_tick(t_forpp *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_cur);
! x->x_cur += x->x_incr;
! if(x->x_incr > 0)
! {
! if(x->x_cur <= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! else
! {
! if(x->x_cur >= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! }
!
! static void forpp_bang(t_forpp *x)
! {
! x->x_cur = x->x_beg;
! outlet_float(x->x_obj.ob_outlet, x->x_cur);
! x->x_cur += x->x_incr;
! if(x->x_incr > 0)
! {
! if(x->x_cur <= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! else
! {
! if(x->x_cur >= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
!
! }
!
! static void forpp_start(t_forpp *x)
! {
! forpp_bang(x);
! }
!
! static void forpp_stop(t_forpp *x)
! {
! if(x->x_incr > 0)
! x->x_cur = x->x_end + 1;
! else
! x->x_cur = x->x_end - 1;
! clock_unset(x->x_clock);
! clock_unset(x->x_clock2);
! }
!
! static void forpp_float(t_forpp *x, t_float beg)
! {
! x->x_beg = (int)beg;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! }
!
! static void forpp_ft1(t_forpp *x, t_float end)
! {
! x->x_end = (int)end;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! }
!
! static void forpp_ft2(t_forpp *x, t_float delay)
! {
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! }
!
! static void forpp_list(t_forpp *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc == 2)
! {
! forpp_float(x, atom_getfloatarg(0, argc, argv));
! forpp_ft1(x, atom_getfloatarg(1, argc, argv));
! }
! else if(argc == 3)
! {
! forpp_float(x, atom_getfloatarg(0, argc, argv));
! forpp_ft1(x, atom_getfloatarg(1, argc, argv));
! forpp_ft2(x, atom_getfloatarg(2, argc, argv));
! }
! }
!
! static void *forpp_new(t_floatarg beg, t_floatarg end, t_floatarg delay)
! {
! t_forpp *x = (t_forpp *)pd_new(forpp_class);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! outlet_new(&x->x_obj, &s_float);
! x->x_out_end = outlet_new(&x->x_obj, &s_bang);
! x->x_clock = clock_new(x, (t_method)forpp_tick);
! x->x_clock2 = clock_new(x, (t_method)forpp_tick2);
! x->x_beg = (int)beg;
! x->x_end = (int)end;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! x->x_cur = x->x_beg;
! return(x);
! }
!
! static void forpp_ff(t_forpp *x)
! {
! clock_free(x->x_clock);
! clock_free(x->x_clock2);
! }
!
! void forpp_setup(void)
! {
! forpp_class = class_new(gensym("for++"), (t_newmethod)forpp_new,
! (t_method)forpp_ff, sizeof(t_forpp),
! 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addbang(forpp_class, forpp_bang);
! class_addfloat(forpp_class, forpp_float);
! class_addlist(forpp_class, forpp_list);
! class_addmethod(forpp_class, (t_method)forpp_start, gensym("start"), 0);
! class_addmethod(forpp_class, (t_method)forpp_stop, gensym("stop"), 0);
! class_addmethod(forpp_class, (t_method)forpp_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(forpp_class, (t_method)forpp_ft2, gensym("ft2"), A_FLOAT, 0);
! class_sethelpsymbol(forpp_class, gensym("iemhelp/help-for++"));
! }
Index: sigmov_avrg_kern.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigmov_avrg_kern.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigmov_avrg_kern.c 18 May 2004 21:33:30 -0000 1.1.1.1
--- sigmov_avrg_kern.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,143 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* -- mov_avrg_kern~ - kernel for a moving-average-filter with IIR - */
!
! typedef struct sigmov_avrg_kern
! {
! t_object x_obj;
! double x_wn1;
! double x_a0;
! double x_sr;
! double x_mstime;
! int x_nsamps;
! int x_counter;
! float x_msi;
! } t_sigmov_avrg_kern;
!
! t_class *sigmov_avrg_kern_class;
!
! static t_int *sigmov_avrg_kern_perform(t_int *w)
! {
! float *in_direct = (float *)(w[1]);
! float *in_delayed = (float *)(w[2]);
! float *out = (float *)(w[3]);
! t_sigmov_avrg_kern *x = (t_sigmov_avrg_kern *)(w[4]);
! int i, n = (int)(w[5]);
! double wn0, wn1=x->x_wn1, a0=x->x_a0;
!
! if(x->x_counter)
! {
! int counter = x->x_counter;
!
! if(counter >= n)
! {
! x->x_counter = counter - n;
! for(i=0; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! else
! {
! x->x_counter = 0;
! for(i=0; i<counter; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! for(i=counter; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++ - *in_delayed++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! }
! else
! {
! for(i=0; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++ - *in_delayed++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! x->x_wn1 = wn1;
! return(w+6);
! }
!
! static void sigmov_avrg_kern_ft1(t_sigmov_avrg_kern *x, t_floatarg mstime)
! {
! if(mstime < 0.04)
! mstime = 0.04;
! x->x_mstime = (double)mstime;
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
! }
!
! static void sigmov_avrg_kern_reset(t_sigmov_avrg_kern *x)
! {
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! }
!
! static void sigmov_avrg_kern_dsp(t_sigmov_avrg_kern *x, t_signal **sp)
! {
! x->x_sr = 0.001*(double)(sp[0]->s_sr);
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
! dsp_add(sigmov_avrg_kern_perform, 5, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigmov_avrg_kern_new(t_floatarg mstime)
! {
! t_sigmov_avrg_kern *x = (t_sigmov_avrg_kern *)pd_new(sigmov_avrg_kern_class);
!
! if(mstime < 0.04)
! mstime = 0.04;
! x->x_mstime = (double)mstime;
! x->x_sr = 44.1;
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! return(x);
! }
!
! void sigmov_avrg_kern_setup(void)
! {
! sigmov_avrg_kern_class = class_new(gensym("mov_avrg_kern~"), (t_newmethod)sigmov_avrg_kern_new,
! 0, sizeof(t_sigmov_avrg_kern), 0, A_FLOAT, 0);
! CLASS_MAINSIGNALIN(sigmov_avrg_kern_class, t_sigmov_avrg_kern, x_msi);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_dsp, gensym("dsp"), 0);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_reset, gensym("reset"), 0);
! }
--- 1,143 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* -- mov_avrg_kern~ - kernel for a moving-average-filter with IIR - */
!
! typedef struct sigmov_avrg_kern
! {
! t_object x_obj;
! double x_wn1;
! double x_a0;
! double x_sr;
! double x_mstime;
! int x_nsamps;
! int x_counter;
! float x_msi;
! } t_sigmov_avrg_kern;
!
! t_class *sigmov_avrg_kern_class;
!
! static t_int *sigmov_avrg_kern_perform(t_int *w)
! {
! float *in_direct = (float *)(w[1]);
! float *in_delayed = (float *)(w[2]);
! float *out = (float *)(w[3]);
! t_sigmov_avrg_kern *x = (t_sigmov_avrg_kern *)(w[4]);
! int i, n = (int)(w[5]);
! double wn0, wn1=x->x_wn1, a0=x->x_a0;
!
! if(x->x_counter)
! {
! int counter = x->x_counter;
!
! if(counter >= n)
! {
! x->x_counter = counter - n;
! for(i=0; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! else
! {
! x->x_counter = 0;
! for(i=0; i<counter; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! for(i=counter; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++ - *in_delayed++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! }
! else
! {
! for(i=0; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++ - *in_delayed++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! x->x_wn1 = wn1;
! return(w+6);
! }
!
! static void sigmov_avrg_kern_ft1(t_sigmov_avrg_kern *x, t_floatarg mstime)
! {
! if(mstime < 0.04)
! mstime = 0.04;
! x->x_mstime = (double)mstime;
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
! }
!
! static void sigmov_avrg_kern_reset(t_sigmov_avrg_kern *x)
! {
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! }
!
! static void sigmov_avrg_kern_dsp(t_sigmov_avrg_kern *x, t_signal **sp)
! {
! x->x_sr = 0.001*(double)(sp[0]->s_sr);
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
! dsp_add(sigmov_avrg_kern_perform, 5, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigmov_avrg_kern_new(t_floatarg mstime)
! {
! t_sigmov_avrg_kern *x = (t_sigmov_avrg_kern *)pd_new(sigmov_avrg_kern_class);
!
! if(mstime < 0.04)
! mstime = 0.04;
! x->x_mstime = (double)mstime;
! x->x_sr = 44.1;
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! return(x);
! }
!
! void sigmov_avrg_kern_setup(void)
! {
! sigmov_avrg_kern_class = class_new(gensym("mov_avrg_kern~"), (t_newmethod)sigmov_avrg_kern_new,
! 0, sizeof(t_sigmov_avrg_kern), 0, A_FLOAT, 0);
! CLASS_MAINSIGNALIN(sigmov_avrg_kern_class, t_sigmov_avrg_kern, x_msi);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_dsp, gensym("dsp"), 0);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_reset, gensym("reset"), 0);
! }
Index: sigvcf_filter.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigvcf_filter.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigvcf_filter.c 9 Mar 2005 17:15:59 -0000 1.2
--- sigvcf_filter.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,334 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------- vcf_filter~ - slow dynamic vcf_filter 1. and 2. order ----------- */
!
! typedef struct sigvcf_filter
! {
! t_object x_obj;
! float x_wn1;
! float x_wn2;
! float x_msi;
! char x_filtname[6];
! } t_sigvcf_filter;
!
! t_class *sigvcf_filter_class;
!
! static t_int *sigvcf_filter_perform_snafu(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[4]);
! int n = (t_int)(w[6]);
!
! while(n--)
! *out++ = *in++;
! return(w+7);
! }
!
! /*
! lp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! bp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! rbp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! hp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! */
!
! static t_int *sigvcf_filter_perform_lp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_bp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_rbp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float al, l, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_hp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp, forw;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
! forw = rcp * (l2 - 1.0f);
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static void sigvcf_filter_dsp(t_sigvcf_filter *x, t_signal **sp)
! {
! if(!strcmp(x->x_filtname,"bp2"))
! dsp_add(sigvcf_filter_perform_bp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"rbp2"))
! dsp_add(sigvcf_filter_perform_rbp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"lp2"))
! dsp_add(sigvcf_filter_perform_lp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"hp2"))
! dsp_add(sigvcf_filter_perform_hp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else
! {
! dsp_add(sigvcf_filter_perform_snafu, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! post("vcf_filter~-Error: 1. initial-arguments: <sym> kind: lp2, bp2, rbp2, hp2!");
! }
! }
!
! static void *sigvcf_filter_new(t_symbol *filt_typ)
! {
! t_sigvcf_filter *x = (t_sigvcf_filter *)pd_new(sigvcf_filter_class);
! char *c;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->x_wn1 = 0.0;
! x->x_wn2 = 0.0;
! c = (char *)filt_typ->s_name;
! c[5] = 0;
! strcpy(x->x_filtname, c);
! return(x);
! }
!
! void sigvcf_filter_setup(void)
! {
! sigvcf_filter_class = class_new(gensym("vcf_filter~"), (t_newmethod)sigvcf_filter_new,
! 0, sizeof(t_sigvcf_filter), 0, A_DEFSYM, 0);
! CLASS_MAINSIGNALIN(sigvcf_filter_class, t_sigvcf_filter, x_msi);
! class_addmethod(sigvcf_filter_class, (t_method)sigvcf_filter_dsp, gensym("dsp"), 0);
! class_sethelpsymbol(sigvcf_filter_class, gensym("iemhelp/help-vcf_filter~"));
! }
--- 1,334 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------- vcf_filter~ - slow dynamic vcf_filter 1. and 2. order ----------- */
!
! typedef struct sigvcf_filter
! {
! t_object x_obj;
! float x_wn1;
! float x_wn2;
! float x_msi;
! char x_filtname[6];
! } t_sigvcf_filter;
!
! t_class *sigvcf_filter_class;
!
! static t_int *sigvcf_filter_perform_snafu(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[4]);
! int n = (t_int)(w[6]);
!
! while(n--)
! *out++ = *in++;
! return(w+7);
! }
!
! /*
! lp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! bp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! rbp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! hp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! */
!
! static t_int *sigvcf_filter_perform_lp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_bp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_rbp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float al, l, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_hp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp, forw;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
! forw = rcp * (l2 - 1.0f);
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static void sigvcf_filter_dsp(t_sigvcf_filter *x, t_signal **sp)
! {
! if(!strcmp(x->x_filtname,"bp2"))
! dsp_add(sigvcf_filter_perform_bp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"rbp2"))
! dsp_add(sigvcf_filter_perform_rbp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"lp2"))
! dsp_add(sigvcf_filter_perform_lp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"hp2"))
! dsp_add(sigvcf_filter_perform_hp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else
! {
! dsp_add(sigvcf_filter_perform_snafu, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! post("vcf_filter~-Error: 1. initial-arguments: <sym> kind: lp2, bp2, rbp2, hp2!");
! }
! }
!
! static void *sigvcf_filter_new(t_symbol *filt_typ)
! {
! t_sigvcf_filter *x = (t_sigvcf_filter *)pd_new(sigvcf_filter_class);
! char *c;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->x_wn1 = 0.0;
! x->x_wn2 = 0.0;
! c = (char *)filt_typ->s_name;
! c[5] = 0;
! strcpy(x->x_filtname, c);
! return(x);
! }
!
! void sigvcf_filter_setup(void)
! {
! sigvcf_filter_class = class_new(gensym("vcf_filter~"), (t_newmethod)sigvcf_filter_new,
! 0, sizeof(t_sigvcf_filter), 0, A_DEFSYM, 0);
! CLASS_MAINSIGNALIN(sigvcf_filter_class, t_sigvcf_filter, x_msi);
! class_addmethod(sigvcf_filter_class, (t_method)sigvcf_filter_dsp, gensym("dsp"), 0);
! class_sethelpsymbol(sigvcf_filter_class, gensym("iemhelp/help-vcf_filter~"));
! }
Index: sigpvu.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigpvu.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigpvu.c 9 Mar 2005 17:15:59 -0000 1.2
--- sigpvu.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,206 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- pvu~ - simple peak-vu-meter. ----------------- */
!
! typedef struct sigpvu
! {
! t_object x_obj;
! void *x_outlet_meter;
! void *x_outlet_over;
! void *x_clock;
! float x_cur_peak;
! float x_old_peak;
! float x_threshold_over;
! float x_c1;
! int x_metro_time;
! float x_release_time;
! int x_overflow_counter;
! int x_started;
! float x_msi;
! } t_sigpvu;
!
! t_class *sigpvu_class;
! static void sigpvu_tick(t_sigpvu *x);
!
! static void sigpvu_reset(t_sigpvu *x)
! {
! outlet_float(x->x_outlet_over, (t_float)0);
! outlet_float(x->x_outlet_meter, -199.9);
! x->x_overflow_counter = 0;
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void sigpvu_stop(t_sigpvu *x)
! {
! clock_unset(x->x_clock);
! x->x_started = 0;
! }
!
! static void sigpvu_start(t_sigpvu *x)
! {
! clock_delay(x->x_clock, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigpvu_float(t_sigpvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigpvu_t_release(t_sigpvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-(float)x->x_metro_time/(float)release_time);
! }
!
! static void sigpvu_t_metro(t_sigpvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-(float)metro_time/(float)x->x_release_time);
! }
!
! static void sigpvu_threshold(t_sigpvu *x, t_floatarg thresh)
! {
! x->x_threshold_over = thresh;
! }
!
! static t_int *sigpvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigpvu *x = (t_sigpvu *)(w[2]);
! int n = (int)(w[3]);
! float peak = x->x_cur_peak;
! float absolute;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! absolute = fabs(*in++);
! if(absolute > peak)
! peak = absolute;
! }
! x->x_cur_peak = peak;
! }
! return(w+4);
! }
!
! static void sigpvu_dsp(t_sigpvu *x, t_signal **sp)
! {
! dsp_add(sigpvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void sigpvu_tick(t_sigpvu *x)
! {
! float db;
! int i;
!
! x->x_old_peak *= x->x_c1;
! /* NAN protect */
! if(IEM_DENORMAL(x->x_old_peak))
! x->x_old_peak = 0.0f;
!
! if(x->x_cur_peak > x->x_old_peak)
! x->x_old_peak = x->x_cur_peak;
! if(x->x_old_peak <= 0.0000000001f)
! db = -199.9f;
! else if(x->x_old_peak > 1000000.0f)
! {
! db = 120.0f;
! x->x_old_peak = 1000000.0f;
! }
! else
! db = 8.6858896381f*log(x->x_old_peak);
! if(db >= x->x_threshold_over)
! {
! x->x_overflow_counter++;
! outlet_float(x->x_outlet_over, (t_float)x->x_overflow_counter);
! }
! outlet_float(x->x_outlet_meter, db);
! x->x_cur_peak = 0.0f;
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void *sigpvu_new(t_floatarg metro_time, t_floatarg release_time, t_floatarg threshold)
! {
! t_sigpvu *x;
! float t;
!
! x = (t_sigpvu *)pd_new(sigpvu_class);
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! if(threshold == 0.0f)
! threshold = -0.01f;
! x->x_threshold_over = threshold;
! x->x_overflow_counter = 0;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_c1 = exp(-(float)metro_time/(float)release_time);
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_clock = clock_new(x, (t_method)sigpvu_tick);
! x->x_outlet_meter = outlet_new(&x->x_obj, &s_float);/* left */
! x->x_outlet_over = outlet_new(&x->x_obj, &s_float); /* right */
! x->x_started = 1;
! x->x_msi = 0;
! return(x);
! }
!
! static void sigpvu_ff(t_sigpvu *x)
! {
! clock_free(x->x_clock);
! }
!
! void sigpvu_setup(void )
! {
! sigpvu_class = class_new(gensym("pvu~"), (t_newmethod)sigpvu_new,
! (t_method)sigpvu_ff, sizeof(t_sigpvu), 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigpvu_class, t_sigpvu, x_msi);
! class_addmethod(sigpvu_class, (t_method)sigpvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigpvu_class, sigpvu_float);
! class_addmethod(sigpvu_class, (t_method)sigpvu_reset, gensym("reset"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_start, gensym("start"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_stop, gensym("stop"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_threshold, gensym("threshold"), A_FLOAT, 0);
! class_sethelpsymbol(sigpvu_class, gensym("iemhelp/help-pvu~"));
! }
--- 1,206 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- pvu~ - simple peak-vu-meter. ----------------- */
!
! typedef struct sigpvu
! {
! t_object x_obj;
! void *x_outlet_meter;
! void *x_outlet_over;
! void *x_clock;
! float x_cur_peak;
! float x_old_peak;
! float x_threshold_over;
! float x_c1;
! int x_metro_time;
! float x_release_time;
! int x_overflow_counter;
! int x_started;
! float x_msi;
! } t_sigpvu;
!
! t_class *sigpvu_class;
! static void sigpvu_tick(t_sigpvu *x);
!
! static void sigpvu_reset(t_sigpvu *x)
! {
! outlet_float(x->x_outlet_over, (t_float)0);
! outlet_float(x->x_outlet_meter, -199.9);
! x->x_overflow_counter = 0;
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void sigpvu_stop(t_sigpvu *x)
! {
! clock_unset(x->x_clock);
! x->x_started = 0;
! }
!
! static void sigpvu_start(t_sigpvu *x)
! {
! clock_delay(x->x_clock, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigpvu_float(t_sigpvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigpvu_t_release(t_sigpvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-(float)x->x_metro_time/(float)release_time);
! }
!
! static void sigpvu_t_metro(t_sigpvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-(float)metro_time/(float)x->x_release_time);
! }
!
! static void sigpvu_threshold(t_sigpvu *x, t_floatarg thresh)
! {
! x->x_threshold_over = thresh;
! }
!
! static t_int *sigpvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigpvu *x = (t_sigpvu *)(w[2]);
! int n = (int)(w[3]);
! float peak = x->x_cur_peak;
! float absolute;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! absolute = fabs(*in++);
! if(absolute > peak)
! peak = absolute;
! }
! x->x_cur_peak = peak;
! }
! return(w+4);
! }
!
! static void sigpvu_dsp(t_sigpvu *x, t_signal **sp)
! {
! dsp_add(sigpvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void sigpvu_tick(t_sigpvu *x)
! {
! float db;
! int i;
!
! x->x_old_peak *= x->x_c1;
! /* NAN protect */
! if(IEM_DENORMAL(x->x_old_peak))
! x->x_old_peak = 0.0f;
!
! if(x->x_cur_peak > x->x_old_peak)
! x->x_old_peak = x->x_cur_peak;
! if(x->x_old_peak <= 0.0000000001f)
! db = -199.9f;
! else if(x->x_old_peak > 1000000.0f)
! {
! db = 120.0f;
! x->x_old_peak = 1000000.0f;
! }
! else
! db = 8.6858896381f*log(x->x_old_peak);
! if(db >= x->x_threshold_over)
! {
! x->x_overflow_counter++;
! outlet_float(x->x_outlet_over, (t_float)x->x_overflow_counter);
! }
! outlet_float(x->x_outlet_meter, db);
! x->x_cur_peak = 0.0f;
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void *sigpvu_new(t_floatarg metro_time, t_floatarg release_time, t_floatarg threshold)
! {
! t_sigpvu *x;
! float t;
!
! x = (t_sigpvu *)pd_new(sigpvu_class);
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! if(threshold == 0.0f)
! threshold = -0.01f;
! x->x_threshold_over = threshold;
! x->x_overflow_counter = 0;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_c1 = exp(-(float)metro_time/(float)release_time);
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_clock = clock_new(x, (t_method)sigpvu_tick);
! x->x_outlet_meter = outlet_new(&x->x_obj, &s_float);/* left */
! x->x_outlet_over = outlet_new(&x->x_obj, &s_float); /* right */
! x->x_started = 1;
! x->x_msi = 0;
! return(x);
! }
!
! static void sigpvu_ff(t_sigpvu *x)
! {
! clock_free(x->x_clock);
! }
!
! void sigpvu_setup(void )
! {
! sigpvu_class = class_new(gensym("pvu~"), (t_newmethod)sigpvu_new,
! (t_method)sigpvu_ff, sizeof(t_sigpvu), 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigpvu_class, t_sigpvu, x_msi);
! class_addmethod(sigpvu_class, (t_method)sigpvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigpvu_class, sigpvu_float);
! class_addmethod(sigpvu_class, (t_method)sigpvu_reset, gensym("reset"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_start, gensym("start"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_stop, gensym("stop"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_threshold, gensym("threshold"), A_FLOAT, 0);
! class_sethelpsymbol(sigpvu_class, gensym("iemhelp/help-pvu~"));
! }
Index: gate.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/gate.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** gate.c 18 May 2004 21:33:29 -0000 1.1.1.1
--- gate.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,84 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- gate ------------------------------ */
!
! typedef struct _gate
! {
! t_object x_obj;
! float x_state;
! } t_gate;
!
! static t_class *gate_class;
!
! static void gate_bang(t_gate *x)
! {
! if(x->x_state != 0)
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void gate_pointer(t_gate *x, t_gpointer *gp)
! {
! if(x->x_state != 0)
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void gate_float(t_gate *x, t_floatarg f)
! {
! if(x->x_state != 0)
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void gate_symbol(t_gate *x, t_symbol *s)
! {
! if(x->x_state != 0)
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void gate_list(t_gate *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_state != 0)
! outlet_list(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void gate_anything(t_gate *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_state != 0)
! outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void *gate_new(t_floatarg f)
! {
! t_gate *x = (t_gate *)pd_new(gate_class);
! floatinlet_new(&x->x_obj, &x->x_state);
! outlet_new(&x->x_obj, 0);
! x->x_state = (f==0.0)?0:1;
! return (x);
! }
!
! void gate_setup(void)
! {
! gate_class = class_new(gensym("gate"), (t_newmethod)gate_new, 0,
! sizeof(t_gate), 0, A_DEFFLOAT, 0);
! class_addbang(gate_class, gate_bang);
! class_addpointer(gate_class, gate_pointer);
! class_addfloat(gate_class, gate_float);
! class_addsymbol(gate_class, gate_symbol);
! class_addlist(gate_class, gate_list);
! class_addanything(gate_class, gate_anything);
! class_sethelpsymbol(gate_class, gensym("iemhelp/help-gate"));
! }
--- 1,85 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* --------- gate ---------------------- */
! /* ----------- like spigot ------------ */
!
! typedef struct _gate
! {
! t_object x_obj;
! float x_state;
! } t_gate;
!
! static t_class *gate_class;
!
! static void gate_bang(t_gate *x)
! {
! if(x->x_state != 0)
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void gate_pointer(t_gate *x, t_gpointer *gp)
! {
! if(x->x_state != 0)
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void gate_float(t_gate *x, t_floatarg f)
! {
! if(x->x_state != 0)
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void gate_symbol(t_gate *x, t_symbol *s)
! {
! if(x->x_state != 0)
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void gate_list(t_gate *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_state != 0)
! outlet_list(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void gate_anything(t_gate *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_state != 0)
! outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void *gate_new(t_floatarg f)
! {
! t_gate *x = (t_gate *)pd_new(gate_class);
! floatinlet_new(&x->x_obj, &x->x_state);
! outlet_new(&x->x_obj, 0);
! x->x_state = (f==0.0)?0:1;
! return (x);
! }
!
! void gate_setup(void)
! {
! gate_class = class_new(gensym("gate"), (t_newmethod)gate_new, 0,
! sizeof(t_gate), 0, A_DEFFLOAT, 0);
! class_addbang(gate_class, gate_bang);
! class_addpointer(gate_class, gate_pointer);
! class_addfloat(gate_class, gate_float);
! class_addsymbol(gate_class, gate_symbol);
! class_addlist(gate_class, gate_list);
! class_addanything(gate_class, gate_anything);
! class_sethelpsymbol(gate_class, gensym("iemhelp/help-gate"));
! }
Index: sigpara_bp2.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigpara_bp2.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigpara_bp2.c 9 Mar 2005 17:15:59 -0000 1.2
--- sigpara_bp2.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,426 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* ---------- para_bp2~ - parametric bandpass 2. order ----------- */
!
! typedef struct sigpara_bp2
! {
! t_object x_obj;
! float wn1;
! float wn2;
! float a0;
! float a1;
! float a2;
! float b1;
! float b2;
! float sr;
! float cur_f;
! float cur_l;
! float cur_a;
! float cur_g;
! float delta_f;
! float delta_a;
! float delta_g;
! float end_f;
! float end_a;
! float end_g;
! float ticks_per_interpol_time;
! float rcp_ticks;
! float interpol_time;
! int ticks;
! int counter_f;
! int counter_a;
! int counter_g;
! int event_mask;
! void *x_debug_outlet;
! t_atom x_at[5];
! float x_msi;
! } t_sigpara_bp2;
!
! t_class *sigpara_bp2_class;
!
! static void sigpara_bp2_calc(t_sigpara_bp2 *x)
! {
! float l, al, gal, l2, rcp;
!
! l = x->cur_l;
! l2 = l*l + 1.0;
! al = l*x->cur_a;
! gal = al*x->cur_g;
! rcp = 1.0f/(al + l2);
! x->a0 = rcp*(l2 + gal);
! x->a1 = rcp*2.0f*(2.0f - l2);
! x->a2 = rcp*(l2 - gal);
! x->b1 = -x->a1;
! x->b2 = rcp*(al - l2);
! }
!
! static void sigpara_bp2_dsp_tick(t_sigpara_bp2 *x)
! {
! if(x->event_mask)
! {
! float discriminant;
!
! if(x->counter_f)
! {
! float l, si, co;
!
! if(x->counter_f <= 1)
! {
! x->cur_f = x->end_f;
! x->counter_f = 0;
! x->event_mask &= 6;/*set event_mask_bit 0 = 0*/
! }
! else
! {
! x->counter_f--;
! x->cur_f *= x->delta_f;
! }
! l = x->cur_f * x->sr;
! if(l < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(l > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(l);
! co = cos(l);
! x->cur_l = co/si;
! }
! }
! if(x->counter_a)
! {
! if(x->counter_a <= 1)
! {
! x->cur_a = x->end_a;
! x->counter_a = 0;
! x->event_mask &= 5;/*set event_mask_bit 1 = 0*/
! }
! else
! {
! x->counter_a--;
! x->cur_a *= x->delta_a;
! }
! }
! if(x->counter_g)
! {
! if(x->counter_g <= 1)
! {
! x->cur_g = x->end_g;
! x->counter_g = 0;
! x->event_mask &= 3;/*set event_mask_bit 2 = 0*/
! }
! else
! {
! x->counter_g--;
! x->cur_g *= x->delta_g;
! }
! }
!
! sigpara_bp2_calc(x);
!
! /* stability check */
!
! discriminant = x->b1 * x->b1 + 4.0f * x->b2;
! if(x->b1 <= -1.9999996f)
! x->b1 = -1.9999996f;
! else if(x->b1 >= 1.9999996f)
! x->b1 = 1.9999996f;
!
! if(x->b2 <= -0.9999998f)
! x->b2 = -0.9999998f;
! else if(x->b2 >= 0.9999998f)
! x->b2 = 0.9999998f;
!
! if(discriminant >= 0.0f)
! {
! if(0.9999998f - x->b1 - x->b2 < 0.0f)
! x->b2 = 0.9999998f - x->b1;
! if(0.9999998f + x->b1 - x->b2 < 0.0f)
! x->b2 = 0.9999998f + x->b1;
! }
! }
! }
!
! static t_int *sigpara_bp2_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)(w[3]);
! int i, n = (t_int)(w[4]);
! float wn0, wn1=x->wn1, wn2=x->wn2;
! float a0=x->a0, a1=x->a1, a2=x->a2;
! float b1=x->b1, b2=x->b2;
!
! sigpara_bp2_dsp_tick(x);
! for(i=0; i<n; i++)
! {
! wn0 = *in++ + b1*wn1 + b2*wn2;
! *out++ = a0*wn0 + a1*wn1 + a2*wn2;
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->wn1 = wn1;
! x->wn2 = wn2;
! return(w+5);
! }
! /* yn0 = *out;
! xn0 = *in;
! *************
! yn0 = a0*xn0 + a1*xn1 + a2*xn2 + b1*yn1 + b2*yn2;
! yn2 = yn1;
! yn1 = yn0;
! xn2 = xn1;
! xn1 = xn0;
! *************************
! y/x = (a0 + a1*z-1 + a2*z-2)/(1 - b1*z-1 - b2*z-2);*/
!
! static t_int *sigpara_bp2_perf8(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)(w[3]);
! int i, n = (t_int)(w[4]);
! float wn[10];
! float a0=x->a0, a1=x->a1, a2=x->a2;
! float b1=x->b1, b2=x->b2;
!
! sigpara_bp2_dsp_tick(x);
! wn[0] = x->wn2;
! wn[1] = x->wn1;
! for(i=0; i<n; i+=8, in+=8, out+=8)
! {
! wn[2] = in[0] + b1*wn[1] + b2*wn[0];
! out[0] = a0*wn[2] + a1*wn[1] + a2*wn[0];
! wn[3] = in[1] + b1*wn[2] + b2*wn[1];
! out[1] = a0*wn[3] + a1*wn[2] + a2*wn[1];
! wn[4] = in[2] + b1*wn[3] + b2*wn[2];
! out[2] = a0*wn[4] + a1*wn[3] + a2*wn[2];
! wn[5] = in[3] + b1*wn[4] + b2*wn[3];
! out[3] = a0*wn[5] + a1*wn[4] + a2*wn[3];
! wn[6] = in[4] + b1*wn[5] + b2*wn[4];
! out[4] = a0*wn[6] + a1*wn[5] + a2*wn[4];
! wn[7] = in[5] + b1*wn[6] + b2*wn[5];
! out[5] = a0*wn[7] + a1*wn[6] + a2*wn[5];
! wn[8] = in[6] + b1*wn[7] + b2*wn[6];
! out[6] = a0*wn[8] + a1*wn[7] + a2*wn[6];
! wn[9] = in[7] + b1*wn[8] + b2*wn[7];
! out[7] = a0*wn[9] + a1*wn[8] + a2*wn[7];
! wn[0] = wn[8];
! wn[1] = wn[9];
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn[0]))
! wn[0] = 0.0f;
! if(IEM_DENORMAL(wn[1]))
! wn[1] = 0.0f;
!
! x->wn1 = wn[1];
! x->wn2 = wn[0];
! return(w+5);
! }
!
! static void sigpara_bp2_ft4(t_sigpara_bp2 *x, t_floatarg t)
! {
! int i = (int)((x->ticks_per_interpol_time)*t);
!
! x->interpol_time = t;
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! }
!
! static void sigpara_bp2_ft3(t_sigpara_bp2 *x, t_floatarg l)
! {
! float g = exp(0.11512925465 * l);
!
! if(g != x->cur_g)
! {
! x->end_g = g;
! x->counter_g = x->ticks;
! x->delta_g = exp(log(g/x->cur_g)*x->rcp_ticks);
! x->event_mask |= 4;/*set event_mask_bit 2 = 1*/
! }
! }
!
! static void sigpara_bp2_ft2(t_sigpara_bp2 *x, t_floatarg q)
! {
! float a;
!
! if(q <= 0.0f)
! q = 0.000001f;
! a = 1.0f/q;
! if(a != x->cur_a)
! {
! x->end_a = a;
! x->counter_a = x->ticks;
! x->delta_a = exp(log(a/x->cur_a)*x->rcp_ticks);
! x->event_mask |= 2;/*set event_mask_bit 1 = 1*/
! }
! }
!
! static void sigpara_bp2_ft1(t_sigpara_bp2 *x, t_floatarg f)
! {
! if(f <= 0.0f)
! f = 0.000001f;
! if(f != x->cur_f)
! {
! x->end_f = f;
! x->counter_f = x->ticks;
! x->delta_f = exp(log(f/x->cur_f)*x->rcp_ticks);
! x->event_mask |= 1;/*set event_mask_bit 0 = 1*/
! }
! }
!
! static void sigpara_bp2_print(t_sigpara_bp2 *x)
! {
! // post("fb1 = %g, fb2 = %g, ff1 = %g, ff2 = %g, ff3 = %g", x->b1, x->b2, x->a0, x->a1, x->a2);
! x->x_at[0].a_w.w_float = x->b1;
! x->x_at[1].a_w.w_float = x->b2;
! x->x_at[2].a_w.w_float = x->a0;
! x->x_at[3].a_w.w_float = x->a1;
! x->x_at[4].a_w.w_float = x->a2;
! outlet_list(x->x_debug_outlet, &s_list, 5, x->x_at);
! }
!
! static void sigpara_bp2_dsp(t_sigpara_bp2 *x, t_signal **sp)
! {
! float si, co, f;
! int i, n=(int)sp[0]->s_n;
!
! x->sr = 3.14159265358979323846f / (float)(sp[0]->s_sr);
! x->ticks_per_interpol_time = 0.001f * (float)(sp[0]->s_sr) / (float)n;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! f = x->cur_f * x->sr;
! if(f < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(f > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(f);
! co = cos(f);
! x->cur_l = co/si;
! }
! if(n&7)
! dsp_add(sigpara_bp2_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! else
! dsp_add(sigpara_bp2_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! }
!
! static void *sigpara_bp2_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)pd_new(sigpara_bp2_class);
! int i;
! float si, co, f=0.0, q=1.0, l=0.0, interpol=0.0;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft3"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft4"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_debug_outlet = outlet_new(&x->x_obj, &s_list);
! x->x_msi = 0;
!
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! x->x_at[2].a_type = A_FLOAT;
! x->x_at[3].a_type = A_FLOAT;
! x->x_at[4].a_type = A_FLOAT;
!
! x->event_mask = 1;
! x->counter_f = 1;
! x->counter_a = 0;
! x->counter_g = 0;
! x->delta_f = 0.0f;
! x->delta_a = 0.0f;
! x->delta_g = 0.0f;
! x->interpol_time = 500.0f;
! x->wn1 = 0.0;
! x->wn2 = 0.0;
! x->a0 = 0.0;
! x->a1 = 0.0;
! x->a2 = 0.0;
! x->b1 = 0.0;
! x->b2 = 0.0;
! x->sr = 3.14159265358979323846f / 44100.0f;
! x->cur_a = 1.0;
! if((argc == 4)&&IS_A_FLOAT(argv,3)&&IS_A_FLOAT(argv,2)&&IS_A_FLOAT(argv,1)&&IS_A_FLOAT(argv,0))
! {
! f = (float)atom_getfloatarg(0, argc, argv);
! q = (float)atom_getfloatarg(1, argc, argv);
! l = (float)atom_getfloatarg(2, argc, argv);
! interpol = (float)atom_getfloatarg(3, argc, argv);
! }
! if(f <= 0.0f)
! f = 0.000001f;
! x->cur_f = f;
! f *= x->sr;
! if(f < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(f > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(f);
! co = cos(f);
! x->cur_l = co/si;
! }
! if(q <= 0.0f)
! q = 0.000001f;
! x->cur_a = 1.0f/q;
! x->cur_g = exp(0.11512925465 * l);
! if(interpol <= 0.0f)
! interpol = 0.0f;
! x->interpol_time = interpol;
! x->ticks_per_interpol_time = 0.5f;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! x->end_f = x->cur_f;
! x->end_a = x->cur_a;
! x->end_g = x->cur_g;
! return(x);
! }
!
! void sigpara_bp2_setup(void)
! {
! sigpara_bp2_class = class_new(gensym("para_bp2~"), (t_newmethod)sigpara_bp2_new,
! 0, sizeof(t_sigpara_bp2), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(sigpara_bp2_class, t_sigpara_bp2, x_msi);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_dsp, gensym("dsp"), 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft4, gensym("ft4"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_print, gensym("print"), 0);
! class_sethelpsymbol(sigpara_bp2_class, gensym("iemhelp/help-para_bp2~"));
! }
--- 1,426 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* ---------- para_bp2~ - parametric bandpass 2. order ----------- */
!
! typedef struct sigpara_bp2
! {
! t_object x_obj;
! float wn1;
! float wn2;
! float a0;
! float a1;
! float a2;
! float b1;
! float b2;
! float sr;
! float cur_f;
! float cur_l;
! float cur_a;
! float cur_g;
! float delta_f;
! float delta_a;
! float delta_g;
! float end_f;
! float end_a;
! float end_g;
! float ticks_per_interpol_time;
! float rcp_ticks;
! float interpol_time;
! int ticks;
! int counter_f;
! int counter_a;
! int counter_g;
! int event_mask;
! void *x_debug_outlet;
! t_atom x_at[5];
! float x_msi;
! } t_sigpara_bp2;
!
! t_class *sigpara_bp2_class;
!
! static void sigpara_bp2_calc(t_sigpara_bp2 *x)
! {
! float l, al, gal, l2, rcp;
!
! l = x->cur_l;
! l2 = l*l + 1.0;
! al = l*x->cur_a;
! gal = al*x->cur_g;
! rcp = 1.0f/(al + l2);
! x->a0 = rcp*(l2 + gal);
! x->a1 = rcp*2.0f*(2.0f - l2);
! x->a2 = rcp*(l2 - gal);
! x->b1 = -x->a1;
! x->b2 = rcp*(al - l2);
! }
!
! static void sigpara_bp2_dsp_tick(t_sigpara_bp2 *x)
! {
! if(x->event_mask)
! {
! float discriminant;
!
! if(x->counter_f)
! {
! float l, si, co;
!
! if(x->counter_f <= 1)
! {
! x->cur_f = x->end_f;
! x->counter_f = 0;
! x->event_mask &= 6;/*set event_mask_bit 0 = 0*/
! }
! else
! {
! x->counter_f--;
! x->cur_f *= x->delta_f;
! }
! l = x->cur_f * x->sr;
! if(l < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(l > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(l);
! co = cos(l);
! x->cur_l = co/si;
! }
! }
! if(x->counter_a)
! {
! if(x->counter_a <= 1)
! {
! x->cur_a = x->end_a;
! x->counter_a = 0;
! x->event_mask &= 5;/*set event_mask_bit 1 = 0*/
! }
! else
! {
! x->counter_a--;
! x->cur_a *= x->delta_a;
! }
! }
! if(x->counter_g)
! {
! if(x->counter_g <= 1)
! {
! x->cur_g = x->end_g;
! x->counter_g = 0;
! x->event_mask &= 3;/*set event_mask_bit 2 = 0*/
! }
! else
! {
! x->counter_g--;
! x->cur_g *= x->delta_g;
! }
! }
!
! sigpara_bp2_calc(x);
!
! /* stability check */
!
! discriminant = x->b1 * x->b1 + 4.0f * x->b2;
! if(x->b1 <= -1.9999996f)
! x->b1 = -1.9999996f;
! else if(x->b1 >= 1.9999996f)
! x->b1 = 1.9999996f;
!
! if(x->b2 <= -0.9999998f)
! x->b2 = -0.9999998f;
! else if(x->b2 >= 0.9999998f)
! x->b2 = 0.9999998f;
!
! if(discriminant >= 0.0f)
! {
! if(0.9999998f - x->b1 - x->b2 < 0.0f)
! x->b2 = 0.9999998f - x->b1;
! if(0.9999998f + x->b1 - x->b2 < 0.0f)
! x->b2 = 0.9999998f + x->b1;
! }
! }
! }
!
! static t_int *sigpara_bp2_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)(w[3]);
! int i, n = (t_int)(w[4]);
! float wn0, wn1=x->wn1, wn2=x->wn2;
! float a0=x->a0, a1=x->a1, a2=x->a2;
! float b1=x->b1, b2=x->b2;
!
! sigpara_bp2_dsp_tick(x);
! for(i=0; i<n; i++)
! {
! wn0 = *in++ + b1*wn1 + b2*wn2;
! *out++ = a0*wn0 + a1*wn1 + a2*wn2;
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->wn1 = wn1;
! x->wn2 = wn2;
! return(w+5);
! }
! /* yn0 = *out;
! xn0 = *in;
! *************
! yn0 = a0*xn0 + a1*xn1 + a2*xn2 + b1*yn1 + b2*yn2;
! yn2 = yn1;
! yn1 = yn0;
! xn2 = xn1;
! xn1 = xn0;
! *************************
! y/x = (a0 + a1*z-1 + a2*z-2)/(1 - b1*z-1 - b2*z-2);*/
!
! static t_int *sigpara_bp2_perf8(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)(w[3]);
! int i, n = (t_int)(w[4]);
! float wn[10];
! float a0=x->a0, a1=x->a1, a2=x->a2;
! float b1=x->b1, b2=x->b2;
!
! sigpara_bp2_dsp_tick(x);
! wn[0] = x->wn2;
! wn[1] = x->wn1;
! for(i=0; i<n; i+=8, in+=8, out+=8)
! {
! wn[2] = in[0] + b1*wn[1] + b2*wn[0];
! out[0] = a0*wn[2] + a1*wn[1] + a2*wn[0];
! wn[3] = in[1] + b1*wn[2] + b2*wn[1];
! out[1] = a0*wn[3] + a1*wn[2] + a2*wn[1];
! wn[4] = in[2] + b1*wn[3] + b2*wn[2];
! out[2] = a0*wn[4] + a1*wn[3] + a2*wn[2];
! wn[5] = in[3] + b1*wn[4] + b2*wn[3];
! out[3] = a0*wn[5] + a1*wn[4] + a2*wn[3];
! wn[6] = in[4] + b1*wn[5] + b2*wn[4];
! out[4] = a0*wn[6] + a1*wn[5] + a2*wn[4];
! wn[7] = in[5] + b1*wn[6] + b2*wn[5];
! out[5] = a0*wn[7] + a1*wn[6] + a2*wn[5];
! wn[8] = in[6] + b1*wn[7] + b2*wn[6];
! out[6] = a0*wn[8] + a1*wn[7] + a2*wn[6];
! wn[9] = in[7] + b1*wn[8] + b2*wn[7];
! out[7] = a0*wn[9] + a1*wn[8] + a2*wn[7];
! wn[0] = wn[8];
! wn[1] = wn[9];
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn[0]))
! wn[0] = 0.0f;
! if(IEM_DENORMAL(wn[1]))
! wn[1] = 0.0f;
!
! x->wn1 = wn[1];
! x->wn2 = wn[0];
! return(w+5);
! }
!
! static void sigpara_bp2_ft4(t_sigpara_bp2 *x, t_floatarg t)
! {
! int i = (int)((x->ticks_per_interpol_time)*t);
!
! x->interpol_time = t;
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! }
!
! static void sigpara_bp2_ft3(t_sigpara_bp2 *x, t_floatarg l)
! {
! float g = exp(0.11512925465 * l);
!
! if(g != x->cur_g)
! {
! x->end_g = g;
! x->counter_g = x->ticks;
! x->delta_g = exp(log(g/x->cur_g)*x->rcp_ticks);
! x->event_mask |= 4;/*set event_mask_bit 2 = 1*/
! }
! }
!
! static void sigpara_bp2_ft2(t_sigpara_bp2 *x, t_floatarg q)
! {
! float a;
!
! if(q <= 0.0f)
! q = 0.000001f;
! a = 1.0f/q;
! if(a != x->cur_a)
! {
! x->end_a = a;
! x->counter_a = x->ticks;
! x->delta_a = exp(log(a/x->cur_a)*x->rcp_ticks);
! x->event_mask |= 2;/*set event_mask_bit 1 = 1*/
! }
! }
!
! static void sigpara_bp2_ft1(t_sigpara_bp2 *x, t_floatarg f)
! {
! if(f <= 0.0f)
! f = 0.000001f;
! if(f != x->cur_f)
! {
! x->end_f = f;
! x->counter_f = x->ticks;
! x->delta_f = exp(log(f/x->cur_f)*x->rcp_ticks);
! x->event_mask |= 1;/*set event_mask_bit 0 = 1*/
! }
! }
!
! static void sigpara_bp2_print(t_sigpara_bp2 *x)
! {
! // post("fb1 = %g, fb2 = %g, ff1 = %g, ff2 = %g, ff3 = %g", x->b1, x->b2, x->a0, x->a1, x->a2);
! x->x_at[0].a_w.w_float = x->b1;
! x->x_at[1].a_w.w_float = x->b2;
! x->x_at[2].a_w.w_float = x->a0;
! x->x_at[3].a_w.w_float = x->a1;
! x->x_at[4].a_w.w_float = x->a2;
! outlet_list(x->x_debug_outlet, &s_list, 5, x->x_at);
! }
!
! static void sigpara_bp2_dsp(t_sigpara_bp2 *x, t_signal **sp)
! {
! float si, co, f;
! int i, n=(int)sp[0]->s_n;
!
! x->sr = 3.14159265358979323846f / (float)(sp[0]->s_sr);
! x->ticks_per_interpol_time = 0.001f * (float)(sp[0]->s_sr) / (float)n;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! f = x->cur_f * x->sr;
! if(f < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(f > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(f);
! co = cos(f);
! x->cur_l = co/si;
! }
! if(n&7)
! dsp_add(sigpara_bp2_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! else
! dsp_add(sigpara_bp2_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! }
!
! static void *sigpara_bp2_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)pd_new(sigpara_bp2_class);
! int i;
! float si, co, f=0.0, q=1.0, l=0.0, interpol=0.0;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft3"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft4"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_debug_outlet = outlet_new(&x->x_obj, &s_list);
! x->x_msi = 0;
!
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! x->x_at[2].a_type = A_FLOAT;
! x->x_at[3].a_type = A_FLOAT;
! x->x_at[4].a_type = A_FLOAT;
!
! x->event_mask = 1;
! x->counter_f = 1;
! x->counter_a = 0;
! x->counter_g = 0;
! x->delta_f = 0.0f;
! x->delta_a = 0.0f;
! x->delta_g = 0.0f;
! x->interpol_time = 500.0f;
! x->wn1 = 0.0;
! x->wn2 = 0.0;
! x->a0 = 0.0;
! x->a1 = 0.0;
! x->a2 = 0.0;
! x->b1 = 0.0;
! x->b2 = 0.0;
! x->sr = 3.14159265358979323846f / 44100.0f;
! x->cur_a = 1.0;
! if((argc == 4)&&IS_A_FLOAT(argv,3)&&IS_A_FLOAT(argv,2)&&IS_A_FLOAT(argv,1)&&IS_A_FLOAT(argv,0))
! {
! f = (float)atom_getfloatarg(0, argc, argv);
! q = (float)atom_getfloatarg(1, argc, argv);
! l = (float)atom_getfloatarg(2, argc, argv);
! interpol = (float)atom_getfloatarg(3, argc, argv);
! }
! if(f <= 0.0f)
! f = 0.000001f;
! x->cur_f = f;
! f *= x->sr;
! if(f < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(f > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(f);
! co = cos(f);
! x->cur_l = co/si;
! }
! if(q <= 0.0f)
! q = 0.000001f;
! x->cur_a = 1.0f/q;
! x->cur_g = exp(0.11512925465 * l);
! if(interpol <= 0.0f)
! interpol = 0.0f;
! x->interpol_time = interpol;
! x->ticks_per_interpol_time = 0.5f;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! x->end_f = x->cur_f;
! x->end_a = x->cur_a;
! x->end_g = x->cur_g;
! return(x);
! }
!
! void sigpara_bp2_setup(void)
! {
! sigpara_bp2_class = class_new(gensym("para_bp2~"), (t_newmethod)sigpara_bp2_new,
! 0, sizeof(t_sigpara_bp2), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(sigpara_bp2_class, t_sigpara_bp2, x_msi);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_dsp, gensym("dsp"), 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft4, gensym("ft4"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_print, gensym("print"), 0);
! class_sethelpsymbol(sigpara_bp2_class, gensym("iemhelp/help-para_bp2~"));
! }
Index: sigiem_cot4.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigiem_cot4.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigiem_cot4.c 18 May 2004 21:33:30 -0000 1.1.1.1
--- sigiem_cot4.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,176 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ iem_cot4~ ----------------------------- */
!
! float *iem_cot4_table_cos=(float *)0L;
! float *iem_cot4_table_sin=(float *)0L;
!
! static t_class *sigiem_cot4_class;
!
! typedef struct _sigiem_cot4
! {
! t_object x_obj;
! float x_sr;
! float x_msi;
! } t_sigiem_cot4;
!
! static t_int *sigiem_cot4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_float norm_freq;
! t_float hout;
! t_sigiem_cot4 *x = (t_sigiem_cot4 *)(w[3]);
! t_float sr=x->x_sr;
! int n = (int)(w[4]);
! float *ctab = iem_cot4_table_cos, *stab = iem_cot4_table_sin;
! float *caddr, *saddr, cf1, cf2, sf1, sf2, frac;
! double dphase;
! int normhipart;
! int32 mytfi;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! tf.tf_d = dphase;
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! in++;
! *out++ = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. prolog beg*/
! n /= 4;
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! tf.tf_d = dphase;
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! tf.tf_i[HIOFFSET] = normhipart;
! in += 4; /*prolog end*/
! while (--n)
! {
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! hout = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! in += 4;
! tf.tf_i[HIOFFSET] = normhipart;
! }/*epilog beg*/
! frac = tf.tf_d - UNITBIT32;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! hout = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! /*epilog end*/
! #endif
! return (w+5);
! }
!
! static void sigiem_cot4_dsp(t_sigiem_cot4 *x, t_signal **sp)
! {
! x->x_sr = 2.0f / (float)sp[0]->s_sr;
! dsp_add(sigiem_cot4_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigiem_cot4_maketable(void)
! {
! int i;
! float *fp, phase, fff, phsinc = 0.5*3.141592653 / ((float)COSTABSIZE);
! union tabfudge tf;
!
! if(!iem_cot4_table_sin)
! {
! iem_cot4_table_sin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_cot4_table_sin, phase=0; i--; fp++, phase+=phsinc)
! *fp = sin(phase);
! }
! if(!iem_cot4_table_cos)
! {
! iem_cot4_table_cos = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_cot4_table_cos, phase=0; i--; fp++, phase+=phsinc)
! *fp = cos(phase);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("iem_cot4~: unexpected machine alignment");
! }
!
! static void *sigiem_cot4_new(void)
! {
! t_sigiem_cot4 *x = (t_sigiem_cot4 *)pd_new(sigiem_cot4_class);
!
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_cot4_setup(void)
! {
! sigiem_cot4_class = class_new(gensym("iem_cot4~"), (t_newmethod)sigiem_cot4_new, 0,
! sizeof(t_sigiem_cot4), 0, 0);
! class_addcreator((t_newmethod)sigiem_cot4_new, gensym("iem_cot~"), 0);
! CLASS_MAINSIGNALIN(sigiem_cot4_class, t_sigiem_cot4, x_msi);
! class_addmethod(sigiem_cot4_class, (t_method)sigiem_cot4_dsp, gensym("dsp"), 0);
! sigiem_cot4_maketable();
! class_sethelpsymbol(sigiem_cot4_class, gensym("iemhelp/help-iem_cot4~"));
! }
!
--- 1,175 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ iem_cot4~ ----------------------------- */
!
! float *iem_cot4_table_cos=(float *)0L;
! float *iem_cot4_table_sin=(float *)0L;
!
! static t_class *sigiem_cot4_class;
!
! typedef struct _sigiem_cot4
! {
! t_object x_obj;
! float x_sr;
! float x_msi;
! } t_sigiem_cot4;
!
! static t_int *sigiem_cot4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_float norm_freq;
! t_float hout;
! t_sigiem_cot4 *x = (t_sigiem_cot4 *)(w[3]);
! t_float sr=x->x_sr;
! int n = (int)(w[4]);
! float *ctab = iem_cot4_table_cos, *stab = iem_cot4_table_sin;
! float *caddr, *saddr, cf1, cf2, sf1, sf2, frac;
! double dphase;
! int normhipart;
! int32 mytfi;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! tf.tf_d = dphase;
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! in++;
! *out++ = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. prolog beg*/
! n /= 4;
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! tf.tf_d = dphase;
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! tf.tf_i[HIOFFSET] = normhipart;
! in += 4; /*prolog end*/
! while (--n)
! {
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! hout = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! in += 4;
! tf.tf_i[HIOFFSET] = normhipart;
! }/*epilog beg*/
! frac = tf.tf_d - UNITBIT32;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! hout = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! /*epilog end*/
! #endif
! return (w+5);
! }
!
! static void sigiem_cot4_dsp(t_sigiem_cot4 *x, t_signal **sp)
! {
! x->x_sr = 2.0f / (float)sp[0]->s_sr;
! dsp_add(sigiem_cot4_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigiem_cot4_maketable(void)
! {
! int i;
! float *fp, phase, fff, phsinc = 0.5*3.141592653 / ((float)COSTABSIZE);
! union tabfudge tf;
!
! if(!iem_cot4_table_sin)
! {
! iem_cot4_table_sin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_cot4_table_sin, phase=0; i--; fp++, phase+=phsinc)
! *fp = sin(phase);
! }
! if(!iem_cot4_table_cos)
! {
! iem_cot4_table_cos = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_cot4_table_cos, phase=0; i--; fp++, phase+=phsinc)
! *fp = cos(phase);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("iem_cot4~: unexpected machine alignment");
! }
!
! static void *sigiem_cot4_new(void)
! {
! t_sigiem_cot4 *x = (t_sigiem_cot4 *)pd_new(sigiem_cot4_class);
!
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_cot4_setup(void)
! {
! sigiem_cot4_class = class_new(gensym("iem_cot4~"), (t_newmethod)sigiem_cot4_new, 0,
! sizeof(t_sigiem_cot4), 0, 0);
! class_addcreator((t_newmethod)sigiem_cot4_new, gensym("iem_cot~"), 0);
! CLASS_MAINSIGNALIN(sigiem_cot4_class, t_sigiem_cot4, x_msi);
! class_addmethod(sigiem_cot4_class, (t_method)sigiem_cot4_dsp, gensym("dsp"), 0);
! sigiem_cot4_maketable();
! class_sethelpsymbol(sigiem_cot4_class, gensym("iemhelp/help-iem_cot4~"));
! }
Index: sighml_shelf.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sighml_shelf.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sighml_shelf.c 9 Mar 2005 17:15:59 -0000 1.2
--- sighml_shelf.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,558 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
[...1086 lines suppressed...]
! x->end_mg = x->cur_mg;
! x->end_hg = x->cur_hg;
! return(x);
! }
!
! void sighml_shelf_setup(void)
! {
! sighml_shelf_class = class_new(gensym("hml_shelf~"), (t_newmethod)sighml_shelf_new,
! 0, sizeof(t_sighml_shelf), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(sighml_shelf_class, t_sighml_shelf, x_msi);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_dsp, gensym("dsp"), 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft4, gensym("ft4"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft5, gensym("ft5"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft6, gensym("ft6"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_print, gensym("print"), 0);
! class_sethelpsymbol(sighml_shelf_class, gensym("iemhelp/help-hml_shelf~"));
! }
Index: sigprvu.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigprvu.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigprvu.c 9 Mar 2005 17:15:59 -0000 1.2
--- sigprvu.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,282 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- prvu~ - simple peak&rms-vu-meter. ----------------- */
!
! typedef struct sigprvu
! {
! t_object x_obj;
! t_atom x_at[3];
! void *x_clock_metro;
! int x_metro_time;
! void *x_clock_hold;
! int x_hold_time;
! float x_cur_peak;
! float x_old_peak;
! float x_hold_peak;
! int x_hold;
! float x_sum_rms;
! float x_old_rms;
! float x_rcp;
! float x_sr;
! float x_threshold_over;
! int x_overflow_counter;
! float x_release_time;
! float x_c1;
! int x_started;
! float x_msi;
! } t_sigprvu;
!
! t_class *sigprvu_class;
! static void sigprvu_tick_metro(t_sigprvu *x);
! static void sigprvu_tick_hold(t_sigprvu *x);
!
! static void sigprvu_reset(t_sigprvu *x)
! {
! x->x_at[0].a_w.w_float = -99.9f;
! x->x_at[1].a_w.w_float = -99.9f;
! x->x_at[2].a_w.w_float = 0.0f;
! outlet_list(x->x_obj.ob_outlet, &s_list, 3, x->x_at);
! x->x_overflow_counter = 0;
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_hold_peak = 0.0f;
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_hold = 0;
! clock_unset(x->x_clock_hold);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_stop(t_sigprvu *x)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
!
! static void sigprvu_start(t_sigprvu *x)
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigprvu_float(t_sigprvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigprvu_t_release(t_sigprvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! }
!
! static void sigprvu_t_metro(t_sigprvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! }
!
! static void sigprvu_t_hold(t_sigprvu *x, t_floatarg hold_time)
! {
! if(hold_time <= 20.0f)
! hold_time = 20.0f;
! x->x_hold_time = (int)hold_time;
! }
!
! static void sigprvu_threshold(t_sigprvu *x, t_floatarg thresh)
! {
! x->x_threshold_over = thresh;
! }
!
! static t_int *sigprvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigprvu *x = (t_sigprvu *)(w[2]);
! int n = (int)(w[3]);
! float peak = x->x_cur_peak, pow, sum=x->x_sum_rms;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! pow = in[i]*in[i];
! if(pow > peak)
! peak = pow;
! sum += pow;
! }
! x->x_cur_peak = peak;
! x->x_sum_rms = sum;
! }
! return(w+4);
! }
!
! static void sigprvu_dsp(t_sigprvu *x, t_signal **sp)
! {
! x->x_sr = 0.001*(float)sp[0]->s_sr;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! dsp_add(sigprvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_tick_hold(t_sigprvu *x)
! {
! x->x_hold = 0;
! x->x_hold_peak = x->x_old_peak;
! }
!
! static void sigprvu_tick_metro(t_sigprvu *x)
! {
! float dbr, dbp, cur_rms, c1=x->x_c1;
!
! x->x_old_peak *= c1;
! /* NAN protect */
! if(IEM_DENORMAL(x->x_old_peak))
! x->x_old_peak = 0.0f;
!
! if(x->x_cur_peak > x->x_old_peak)
! x->x_old_peak = x->x_cur_peak;
! if(x->x_old_peak > x->x_hold_peak)
! {
! x->x_hold = 1;
! x->x_hold_peak = x->x_old_peak;
! clock_delay(x->x_clock_hold, x->x_hold_time);
! }
! if(!x->x_hold)
! x->x_hold_peak = x->x_old_peak;
! if(x->x_hold_peak <= 0.0000000001f)
! dbp = -99.9f;
! else if(x->x_hold_peak > 1000000.0f)
! {
! dbp = 60.0f;
! x->x_hold_peak = 1000000.0f;
! x->x_old_peak = 1000000.0f;
! }
! else
! dbp = 4.3429448195f*log(x->x_hold_peak);
! x->x_cur_peak = 0.0f;
! if(dbp >= x->x_threshold_over)
! x->x_overflow_counter++;
! x->x_at[1].a_w.w_float = dbp;
! x->x_at[2].a_w.w_float = (float)x->x_overflow_counter;
!
! cur_rms = (1.0f - c1)*x->x_sum_rms*x->x_rcp + c1*x->x_old_rms;
! /* NAN protect */
! if(IEM_DENORMAL(cur_rms))
! cur_rms = 0.0f;
!
! if(cur_rms <= 0.0000000001f)
! dbr = -99.9f;
! else if(cur_rms > 1000000.0f)
! {
! dbr = 60.0f;
! x->x_old_rms = 1000000.0f;
! }
! else
! dbr = 4.3429448195f*log(cur_rms);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = cur_rms;
! x->x_at[0].a_w.w_float = dbr;
! outlet_list(x->x_obj.ob_outlet, &s_list, 3, x->x_at);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_ff(t_sigprvu *x)
! {
! clock_free(x->x_clock_metro);
! clock_free(x->x_clock_hold);
! }
!
! static void *sigprvu_new(t_floatarg metro_time, t_floatarg hold_time,
! t_floatarg release_time, t_floatarg threshold)
! {
! t_sigprvu *x;
! float t;
! int i;
!
! x = (t_sigprvu *)pd_new(sigprvu_class);
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! if(hold_time <= 0.0f)
! hold_time = 1000.0f;
! if(hold_time <= 20.0f)
! hold_time = 20.0f;
! if(threshold == 0.0f)
! threshold = -0.01f;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_hold_time = (int)hold_time;
! x->x_threshold_over = threshold;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_hold_peak = 0.0f;
! x->x_hold = 0;
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_sr = 44.1f;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! x->x_overflow_counter = 0;
! x->x_clock_metro = clock_new(x, (t_method)sigprvu_tick_metro);
! x->x_clock_hold = clock_new(x, (t_method)sigprvu_tick_hold);
! x->x_started = 1;
! outlet_new(&x->x_obj, &s_list);
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! x->x_at[2].a_type = A_FLOAT;
! x->x_msi = 0.0f;
! return(x);
! }
!
! void sigprvu_setup(void)
! {
! sigprvu_class = class_new(gensym("prvu~"), (t_newmethod)sigprvu_new,
! (t_method)sigprvu_ff, sizeof(t_sigprvu), 0,
! A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigprvu_class, t_sigprvu, x_msi);
! class_addmethod(sigprvu_class, (t_method)sigprvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigprvu_class, sigprvu_float);
! class_addmethod(sigprvu_class, (t_method)sigprvu_reset, gensym("reset"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_start, gensym("start"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_stop, gensym("stop"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_hold, gensym("t_hold"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_threshold, gensym("threshold"), A_FLOAT, 0);
! class_sethelpsymbol(sigprvu_class, gensym("iemhelp/help-prvu~"));
! }
--- 1,282 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- prvu~ - simple peak&rms-vu-meter. ----------------- */
!
! typedef struct sigprvu
! {
! t_object x_obj;
! t_atom x_at[3];
! void *x_clock_metro;
! int x_metro_time;
! void *x_clock_hold;
! int x_hold_time;
! float x_cur_peak;
! float x_old_peak;
! float x_hold_peak;
! int x_hold;
! float x_sum_rms;
! float x_old_rms;
! float x_rcp;
! float x_sr;
! float x_threshold_over;
! int x_overflow_counter;
! float x_release_time;
! float x_c1;
! int x_started;
! float x_msi;
! } t_sigprvu;
!
! t_class *sigprvu_class;
! static void sigprvu_tick_metro(t_sigprvu *x);
! static void sigprvu_tick_hold(t_sigprvu *x);
!
! static void sigprvu_reset(t_sigprvu *x)
! {
! x->x_at[0].a_w.w_float = -99.9f;
! x->x_at[1].a_w.w_float = -99.9f;
! x->x_at[2].a_w.w_float = 0.0f;
! outlet_list(x->x_obj.ob_outlet, &s_list, 3, x->x_at);
! x->x_overflow_counter = 0;
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_hold_peak = 0.0f;
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_hold = 0;
! clock_unset(x->x_clock_hold);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_stop(t_sigprvu *x)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
!
! static void sigprvu_start(t_sigprvu *x)
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigprvu_float(t_sigprvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigprvu_t_release(t_sigprvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! }
!
! static void sigprvu_t_metro(t_sigprvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! }
!
! static void sigprvu_t_hold(t_sigprvu *x, t_floatarg hold_time)
! {
! if(hold_time <= 20.0f)
! hold_time = 20.0f;
! x->x_hold_time = (int)hold_time;
! }
!
! static void sigprvu_threshold(t_sigprvu *x, t_floatarg thresh)
! {
! x->x_threshold_over = thresh;
! }
!
! static t_int *sigprvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigprvu *x = (t_sigprvu *)(w[2]);
! int n = (int)(w[3]);
! float peak = x->x_cur_peak, pow, sum=x->x_sum_rms;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! pow = in[i]*in[i];
! if(pow > peak)
! peak = pow;
! sum += pow;
! }
! x->x_cur_peak = peak;
! x->x_sum_rms = sum;
! }
! return(w+4);
! }
!
! static void sigprvu_dsp(t_sigprvu *x, t_signal **sp)
! {
! x->x_sr = 0.001*(float)sp[0]->s_sr;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! dsp_add(sigprvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_tick_hold(t_sigprvu *x)
! {
! x->x_hold = 0;
! x->x_hold_peak = x->x_old_peak;
! }
!
! static void sigprvu_tick_metro(t_sigprvu *x)
! {
! float dbr, dbp, cur_rms, c1=x->x_c1;
!
! x->x_old_peak *= c1;
! /* NAN protect */
! if(IEM_DENORMAL(x->x_old_peak))
! x->x_old_peak = 0.0f;
!
! if(x->x_cur_peak > x->x_old_peak)
! x->x_old_peak = x->x_cur_peak;
! if(x->x_old_peak > x->x_hold_peak)
! {
! x->x_hold = 1;
! x->x_hold_peak = x->x_old_peak;
! clock_delay(x->x_clock_hold, x->x_hold_time);
! }
! if(!x->x_hold)
! x->x_hold_peak = x->x_old_peak;
! if(x->x_hold_peak <= 0.0000000001f)
! dbp = -99.9f;
! else if(x->x_hold_peak > 1000000.0f)
! {
! dbp = 60.0f;
! x->x_hold_peak = 1000000.0f;
! x->x_old_peak = 1000000.0f;
! }
! else
! dbp = 4.3429448195f*log(x->x_hold_peak);
! x->x_cur_peak = 0.0f;
! if(dbp >= x->x_threshold_over)
! x->x_overflow_counter++;
! x->x_at[1].a_w.w_float = dbp;
! x->x_at[2].a_w.w_float = (float)x->x_overflow_counter;
!
! cur_rms = (1.0f - c1)*x->x_sum_rms*x->x_rcp + c1*x->x_old_rms;
! /* NAN protect */
! if(IEM_DENORMAL(cur_rms))
! cur_rms = 0.0f;
!
! if(cur_rms <= 0.0000000001f)
! dbr = -99.9f;
! else if(cur_rms > 1000000.0f)
! {
! dbr = 60.0f;
! x->x_old_rms = 1000000.0f;
! }
! else
! dbr = 4.3429448195f*log(cur_rms);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = cur_rms;
! x->x_at[0].a_w.w_float = dbr;
! outlet_list(x->x_obj.ob_outlet, &s_list, 3, x->x_at);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_ff(t_sigprvu *x)
! {
! clock_free(x->x_clock_metro);
! clock_free(x->x_clock_hold);
! }
!
! static void *sigprvu_new(t_floatarg metro_time, t_floatarg hold_time,
! t_floatarg release_time, t_floatarg threshold)
! {
! t_sigprvu *x;
! float t;
! int i;
!
! x = (t_sigprvu *)pd_new(sigprvu_class);
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! if(hold_time <= 0.0f)
! hold_time = 1000.0f;
! if(hold_time <= 20.0f)
! hold_time = 20.0f;
! if(threshold == 0.0f)
! threshold = -0.01f;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_hold_time = (int)hold_time;
! x->x_threshold_over = threshold;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_hold_peak = 0.0f;
! x->x_hold = 0;
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_sr = 44.1f;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! x->x_overflow_counter = 0;
! x->x_clock_metro = clock_new(x, (t_method)sigprvu_tick_metro);
! x->x_clock_hold = clock_new(x, (t_method)sigprvu_tick_hold);
! x->x_started = 1;
! outlet_new(&x->x_obj, &s_list);
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! x->x_at[2].a_type = A_FLOAT;
! x->x_msi = 0.0f;
! return(x);
! }
!
! void sigprvu_setup(void)
! {
! sigprvu_class = class_new(gensym("prvu~"), (t_newmethod)sigprvu_new,
! (t_method)sigprvu_ff, sizeof(t_sigprvu), 0,
! A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigprvu_class, t_sigprvu, x_msi);
! class_addmethod(sigprvu_class, (t_method)sigprvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigprvu_class, sigprvu_float);
! class_addmethod(sigprvu_class, (t_method)sigprvu_reset, gensym("reset"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_start, gensym("start"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_stop, gensym("stop"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_hold, gensym("t_hold"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_threshold, gensym("threshold"), A_FLOAT, 0);
! class_sethelpsymbol(sigprvu_class, gensym("iemhelp/help-prvu~"));
! }
Index: sigiem_sqrt4.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigiem_sqrt4.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigiem_sqrt4.c 18 May 2004 21:33:30 -0000 1.1.1.1
--- sigiem_sqrt4.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,117 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! #define IEMSQRT4TAB1SIZE 256
! #define IEMSQRT4TAB2SIZE 1024
!
! /* ------------------------ iem_sqrt4~ ----------------------------- */
!
! float *iem_sqrt4_exptab=(float *)0L;
! float *iem_sqrt4_mantissatab=(float *)0L;
!
! static t_class *sigiem_sqrt4_class;
!
! typedef struct _sigiem_sqrt4
! {
! t_object x_obj;
! float x_msi;
! } t_sigiem_sqrt4;
!
! static t_int *sigiem_sqrt4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_int n = (t_int)(w[3])/4;
!
! while(n--)
! {
! float f = *in;
! float g, h;
! long l = *(long *)(in);
!
! if(f < 0.0f)
! {
! *out++ = 0.0f;
! *out++ = 0.0f;
! *out++ = 0.0f;
! *out++ = 0.0f;
! }
! else
! {
! g = iem_sqrt4_exptab[(l >> 23) & 0xff] * iem_sqrt4_mantissatab[(l >> 13) & 0x3ff];
! h = f * (1.5f * g - 0.5f * g * g * g * f);
! *out++ = h;
! *out++ = h;
! *out++ = h;
! *out++ = h;
! }
! in += 4;
! }
! return(w+4);
! }
!
! static void sigiem_sqrt4_dsp(t_sigiem_sqrt4 *x, t_signal **sp)
! {
! dsp_add(sigiem_sqrt4_perform, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
! }
!
! static void sigiem_sqrt4_maketable(void)
! {
! int i;
! float f;
! long l;
!
! if(!iem_sqrt4_exptab)
! {
! iem_sqrt4_exptab = (float *)getbytes(sizeof(float) * IEMSQRT4TAB1SIZE);
! for(i=0; i<IEMSQRT4TAB1SIZE; i++)
! {
! l = (i ? (i == IEMSQRT4TAB1SIZE-1 ? IEMSQRT4TAB1SIZE-2 : i) : 1)<< 23;
! *(long *)(&f) = l;
! iem_sqrt4_exptab[i] = 1.0f/sqrt(f);
! }
! }
! if(!iem_sqrt4_mantissatab)
! {
! iem_sqrt4_mantissatab = (float *)getbytes(sizeof(float) * IEMSQRT4TAB2SIZE);
! for(i=0; i<IEMSQRT4TAB2SIZE; i++)
! {
! f = 1.0f + (1.0f/(float)IEMSQRT4TAB2SIZE) * (float)i;
! iem_sqrt4_mantissatab[i] = 1.0f/sqrt(f);
! }
! }
! }
!
! static void *sigiem_sqrt4_new(void)
! {
! t_sigiem_sqrt4 *x = (t_sigiem_sqrt4 *)pd_new(sigiem_sqrt4_class);
!
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_sqrt4_setup(void)
! {
! sigiem_sqrt4_class = class_new(gensym("iem_sqrt4~"), (t_newmethod)sigiem_sqrt4_new, 0,
! sizeof(t_sigiem_sqrt4), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_sqrt4_class, t_sigiem_sqrt4, x_msi);
! class_addmethod(sigiem_sqrt4_class, (t_method)sigiem_sqrt4_dsp, gensym("dsp"), 0);
! sigiem_sqrt4_maketable();
! class_sethelpsymbol(sigiem_sqrt4_class, gensym("iemhelp/help-iem_sqrt4~"));
! }
!
--- 1,116 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! #define IEMSQRT4TAB1SIZE 256
! #define IEMSQRT4TAB2SIZE 1024
!
! /* ------------------------ iem_sqrt4~ ----------------------------- */
!
! float *iem_sqrt4_exptab=(float *)0L;
! float *iem_sqrt4_mantissatab=(float *)0L;
!
! static t_class *sigiem_sqrt4_class;
!
! typedef struct _sigiem_sqrt4
! {
! t_object x_obj;
! float x_msi;
! } t_sigiem_sqrt4;
!
! static t_int *sigiem_sqrt4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_int n = (t_int)(w[3])/4;
!
! while(n--)
! {
! float f = *in;
! float g, h;
! long l = *(long *)(in);
!
! if(f < 0.0f)
! {
! *out++ = 0.0f;
! *out++ = 0.0f;
! *out++ = 0.0f;
! *out++ = 0.0f;
! }
! else
! {
! g = iem_sqrt4_exptab[(l >> 23) & 0xff] * iem_sqrt4_mantissatab[(l >> 13) & 0x3ff];
! h = f * (1.5f * g - 0.5f * g * g * g * f);
! *out++ = h;
! *out++ = h;
! *out++ = h;
! *out++ = h;
! }
! in += 4;
! }
! return(w+4);
! }
!
! static void sigiem_sqrt4_dsp(t_sigiem_sqrt4 *x, t_signal **sp)
! {
! dsp_add(sigiem_sqrt4_perform, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
! }
!
! static void sigiem_sqrt4_maketable(void)
! {
! int i;
! float f;
! long l;
!
! if(!iem_sqrt4_exptab)
! {
! iem_sqrt4_exptab = (float *)getbytes(sizeof(float) * IEMSQRT4TAB1SIZE);
! for(i=0; i<IEMSQRT4TAB1SIZE; i++)
! {
! l = (i ? (i == IEMSQRT4TAB1SIZE-1 ? IEMSQRT4TAB1SIZE-2 : i) : 1)<< 23;
! *(long *)(&f) = l;
! iem_sqrt4_exptab[i] = 1.0f/sqrt(f);
! }
! }
! if(!iem_sqrt4_mantissatab)
! {
! iem_sqrt4_mantissatab = (float *)getbytes(sizeof(float) * IEMSQRT4TAB2SIZE);
! for(i=0; i<IEMSQRT4TAB2SIZE; i++)
! {
! f = 1.0f + (1.0f/(float)IEMSQRT4TAB2SIZE) * (float)i;
! iem_sqrt4_mantissatab[i] = 1.0f/sqrt(f);
! }
! }
! }
!
! static void *sigiem_sqrt4_new(void)
! {
! t_sigiem_sqrt4 *x = (t_sigiem_sqrt4 *)pd_new(sigiem_sqrt4_class);
!
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_sqrt4_setup(void)
! {
! sigiem_sqrt4_class = class_new(gensym("iem_sqrt4~"), (t_newmethod)sigiem_sqrt4_new, 0,
! sizeof(t_sigiem_sqrt4), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_sqrt4_class, t_sigiem_sqrt4, x_msi);
! class_addmethod(sigiem_sqrt4_class, (t_method)sigiem_sqrt4_dsp, gensym("dsp"), 0);
! sigiem_sqrt4_maketable();
! class_sethelpsymbol(sigiem_sqrt4_class, gensym("iemhelp/help-iem_sqrt4~"));
! }
Index: v2db.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/v2db.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** v2db.c 18 May 2004 21:33:31 -0000 1.1.1.1
--- v2db.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,45 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- v2db - value to dB converter. ----------------- */
!
! static t_class *v2db_class;
!
! float v2db(float f)
! {
! return (f <= 0 ? -199.9 : 8.6858896381*log(f));
! }
!
! static void v2db_float(t_object *x, t_float f)
! {
! outlet_float(x->ob_outlet, v2db(f));
! }
!
! static void *v2db_new(void)
! {
! t_object *x = (t_object *)pd_new(v2db_class);
! outlet_new(x, &s_float);
! return (x);
! }
!
! void v2db_setup(void)
! {
! v2db_class = class_new(gensym("v2db"), v2db_new, 0,
! sizeof(t_object), 0, 0);
! class_addfloat(v2db_class, (t_method)v2db_float);
! class_sethelpsymbol(v2db_class, gensym("iemhelp/help-v2db"));
! }
--- 1,45 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------- v2db - a rms-value to techn. dB converter. --------- */
!
! static t_class *v2db_class;
!
! float v2db(float f)
! {
! return (f <= 0 ? -199.9 : 8.6858896381*log(f));
! }
!
! static void v2db_float(t_object *x, t_float f)
! {
! outlet_float(x->ob_outlet, v2db(f));
! }
!
! static void *v2db_new(void)
! {
! t_object *x = (t_object *)pd_new(v2db_class);
! outlet_new(x, &s_float);
! return (x);
! }
!
! void v2db_setup(void)
! {
! v2db_class = class_new(gensym("v2db"), v2db_new, 0,
! sizeof(t_object), 0, 0);
! class_addfloat(v2db_class, (t_method)v2db_float);
! class_sethelpsymbol(v2db_class, gensym("iemhelp/help-v2db"));
! }
Index: sigiem_pow4.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigiem_pow4.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigiem_pow4.c 18 May 2004 21:33:30 -0000 1.1.1.1
--- sigiem_pow4.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,86 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ iem_pow4~ ----------------------------- */
!
! static t_class *sigiem_pow4_class;
!
! typedef struct _sigiem_pow4
! {
! t_object x_obj;
! float x_exp;
! float x_msi;
! } t_sigiem_pow4;
!
! static void sigiem_pow4_ft1(t_sigiem_pow4 *x, t_floatarg f)
! {
! x->x_exp = f;
! }
!
! static t_int *sigiem_pow4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_pow4 *x = (t_sigiem_pow4 *)(w[3]);
! t_float y=x->x_exp;
! t_float f, g;
! int n = (int)(w[4])/4;
!
! while (n--)
! {
! f = *in;
! if(f < 0.01f)
! f = 0.01f;
! else if(f > 1000.0f)
! f = 1000.0f;
! g = log(f);
! f = exp(g*y);
! *out++ = f;
! *out++ = f;
! *out++ = f;
! *out++ = f;
! in += 4;
! }
! return (w+5);
! }
!
! static void sigiem_pow4_dsp(t_sigiem_pow4 *x, t_signal **sp)
! {
! dsp_add(sigiem_pow4_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigiem_pow4_new(t_floatarg f)
! {
! t_sigiem_pow4 *x = (t_sigiem_pow4 *)pd_new(sigiem_pow4_class);
!
! x->x_exp = f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_pow4_setup(void)
! {
! sigiem_pow4_class = class_new(gensym("iem_pow4~"), (t_newmethod)sigiem_pow4_new, 0,
! sizeof(t_sigiem_pow4), 0, A_DEFFLOAT, 0);
! class_addcreator((t_newmethod)sigiem_pow4_new, gensym("icot~"), 0);
! CLASS_MAINSIGNALIN(sigiem_pow4_class, t_sigiem_pow4, x_msi);
! class_addmethod(sigiem_pow4_class, (t_method)sigiem_pow4_dsp, gensym("dsp"), 0);
! class_addmethod(sigiem_pow4_class, (t_method)sigiem_pow4_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(sigiem_pow4_class, gensym("iemhelp/help-iem_pow4~"));
! }
--- 1,86 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ iem_pow4~ ----------------------------- */
!
! static t_class *sigiem_pow4_class;
!
! typedef struct _sigiem_pow4
! {
! t_object x_obj;
! float x_exp;
! float x_msi;
! } t_sigiem_pow4;
!
! static void sigiem_pow4_ft1(t_sigiem_pow4 *x, t_floatarg f)
! {
! x->x_exp = f;
! }
!
! static t_int *sigiem_pow4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_pow4 *x = (t_sigiem_pow4 *)(w[3]);
! t_float y=x->x_exp;
! t_float f, g;
! int n = (int)(w[4])/4;
!
! while (n--)
! {
! f = *in;
! if(f < 0.01f)
! f = 0.01f;
! else if(f > 1000.0f)
! f = 1000.0f;
! g = log(f);
! f = exp(g*y);
! *out++ = f;
! *out++ = f;
! *out++ = f;
! *out++ = f;
! in += 4;
! }
! return (w+5);
! }
!
! static void sigiem_pow4_dsp(t_sigiem_pow4 *x, t_signal **sp)
! {
! dsp_add(sigiem_pow4_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigiem_pow4_new(t_floatarg f)
! {
! t_sigiem_pow4 *x = (t_sigiem_pow4 *)pd_new(sigiem_pow4_class);
!
! x->x_exp = f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_pow4_setup(void)
! {
! sigiem_pow4_class = class_new(gensym("iem_pow4~"), (t_newmethod)sigiem_pow4_new, 0,
! sizeof(t_sigiem_pow4), 0, A_DEFFLOAT, 0);
! class_addcreator((t_newmethod)sigiem_pow4_new, gensym("icot~"), 0);
! CLASS_MAINSIGNALIN(sigiem_pow4_class, t_sigiem_pow4, x_msi);
! class_addmethod(sigiem_pow4_class, (t_method)sigiem_pow4_dsp, gensym("dsp"), 0);
! class_addmethod(sigiem_pow4_class, (t_method)sigiem_pow4_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(sigiem_pow4_class, gensym("iemhelp/help-iem_pow4~"));
! }
Index: f2note.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/f2note.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** f2note.c 18 May 2004 21:33:28 -0000 1.1.1.1
--- f2note.c 2 Jun 2005 18:23:54 -0000 1.2
***************
*** 1,189 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------ frequency to note plus cents converter --------- */
!
! typedef struct _f2note
! {
! t_object x_obj;
! void *x_outlet_midi;
! void *x_outlet_note;
! void *x_outlet_cent;
! int x_centomidi;
! float x_refhz;
! float x_refexp;
! float x_reflog;
! t_symbol *x_set;
! } t_f2note;
!
! static t_class *f2note_class;
!
! float f2note_mtof(t_f2note *x, float midi)
! {
! return(x->x_refexp * exp(0.057762265047 * midi));
! }
!
! float f2note_ftom(t_f2note *x, float freq)
! {
! return (freq > 0 ? 17.31234049 * log(x->x_reflog * freq) : -1500);
! }
!
! void f2note_calc_ref(t_f2note *x)
! {
! float ln2=log(2.0);
!
! x->x_refexp = x->x_refhz*exp(-5.75*ln2);
! x->x_reflog = 1.0/x->x_refexp;
! }
!
! static void f2note_make_note(char *str, int midi)
! {
! int j,k,l=0;
!
! j = midi / 12;
! k = midi % 12;
! if(k <= 5)
! {
! if(k <= 2)
! {
! if(k==0)
! str[l]='c';
! else if(k==1)
! {
! str[l++]='#';
! str[l]='c';
! }
! else
! str[l]='d';
! }
! else
! {
! if(k==3)
! {
! str[l++]='#';
! str[l]='d';
! }
! else if(k==4)
! str[l]='e';
! else
! str[l]='f';
! }
! }
! else
! {
! if(k <= 8)
! {
! if(k==6)
! {
! str[l++]='#';
! str[l]='f';
! }
! else if(k==7)
! str[l]='g';
! else
! {
! str[l++]='#';
! str[l]='g';
! }
! }
! else
! {
! if(k==9)
! str[l]='a';
! else if(k==10)
! {
! str[l++]='#';
! str[l]='a';
! }
! else
! str[l]='h';
! }
! }
!
! if(j < 4)
! {
! str[l] -= 'a';
! str[l] += 'A';
! }
! l++;
! if(j < 3)
! {
! str[l++] = '0' + (char)(3 - j);
! }
! else if(j > 4)
! {
! str[l++] = '0' + (char)(j - 4);
! }
! str[l] = 0;
! }
!
! static void f2note_bang(t_f2note *x)
! {
! int i,j;
! t_atom at;
! char s[4];
!
! i = (x->x_centomidi + 50)/100;
! j = x->x_centomidi - 100*i;
! outlet_float(x->x_outlet_cent, (float)j);
! f2note_make_note(s, i);
! SETSYMBOL(&at, gensym(s));
! outlet_anything(x->x_outlet_note, x->x_set, 1, &at);
! outlet_float(x->x_outlet_midi, 0.01*(float)(x->x_centomidi));
! }
!
! static void f2note_float(t_f2note *x, t_floatarg freq)
! {
! x->x_centomidi = (int)(100.0*f2note_ftom(x, freq) + 0.5);
! f2note_bang(x);
! }
!
! void f2note_ref(t_f2note *x, t_floatarg ref)
! {
! x->x_refhz = ref;
! f2note_calc_ref(x);
! }
!
! static void *f2note_new(t_floatarg ref)
! {
! t_f2note *x = (t_f2note *)pd_new(f2note_class);
!
! if(ref == 0.0)
! ref=440.0;
! x->x_refhz = ref;
! x->x_centomidi = (int)(100.0*ref + 0.499);
! f2note_calc_ref(x);
! x->x_outlet_midi = outlet_new(&x->x_obj, &s_float);
! x->x_outlet_note = outlet_new(&x->x_obj, &s_list);
! x->x_outlet_cent = outlet_new(&x->x_obj, &s_float);
! x->x_set = gensym("set");
! return (x);
! }
!
! static void f2note_free(t_f2note *x)
! {
! }
!
! void f2note_setup(void)
! {
! f2note_class = class_new(gensym("f2note"), (t_newmethod)f2note_new, (t_method)f2note_free,
! sizeof(t_f2note), 0, A_DEFFLOAT, 0);
! class_addbang(f2note_class,f2note_bang);
! class_addfloat(f2note_class,f2note_float);
! class_addmethod(f2note_class, (t_method)f2note_ref, gensym("ref"), A_FLOAT, 0);
! class_sethelpsymbol(f2note_class, gensym("iemhelp/help-f2note"));
! }
--- 1,190 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------- f2note ---------------------- */
! /* ------ frequency to note plus cents converter --------- */
!
! typedef struct _f2note
! {
! t_object x_obj;
! void *x_outlet_midi;
! void *x_outlet_note;
! void *x_outlet_cent;
! int x_centomidi;
! float x_refhz;
! float x_refexp;
! float x_reflog;
! t_symbol *x_set;
! } t_f2note;
!
! static t_class *f2note_class;
!
! float f2note_mtof(t_f2note *x, float midi)
! {
! return(x->x_refexp * exp(0.057762265047 * midi));
! }
!
! float f2note_ftom(t_f2note *x, float freq)
! {
! return (freq > 0 ? 17.31234049 * log(x->x_reflog * freq) : -1500);
! }
!
! void f2note_calc_ref(t_f2note *x)
! {
! float ln2=log(2.0);
!
! x->x_refexp = x->x_refhz*exp(-5.75*ln2);
! x->x_reflog = 1.0/x->x_refexp;
! }
!
! static void f2note_make_note(char *str, int midi)
! {
! int j,k,l=0;
!
! j = midi / 12;
! k = midi % 12;
! if(k <= 5)
! {
! if(k <= 2)
! {
! if(k==0)
! str[l]='c';
! else if(k==1)
! {
! str[l++]='#';
! str[l]='c';
! }
! else
! str[l]='d';
! }
! else
! {
! if(k==3)
! {
! str[l++]='#';
! str[l]='d';
! }
! else if(k==4)
! str[l]='e';
! else
! str[l]='f';
! }
! }
! else
! {
! if(k <= 8)
! {
! if(k==6)
! {
! str[l++]='#';
! str[l]='f';
! }
! else if(k==7)
! str[l]='g';
! else
! {
! str[l++]='#';
! str[l]='g';
! }
! }
! else
! {
! if(k==9)
! str[l]='a';
! else if(k==10)
! {
! str[l++]='#';
! str[l]='a';
! }
! else
! str[l]='h';
! }
! }
!
! if(j < 4)
! {
! str[l] -= 'a';
! str[l] += 'A';
! }
! l++;
! if(j < 3)
! {
! str[l++] = '0' + (char)(3 - j);
! }
! else if(j > 4)
! {
! str[l++] = '0' + (char)(j - 4);
! }
! str[l] = 0;
! }
!
! static void f2note_bang(t_f2note *x)
! {
! int i,j;
! t_atom at;
! char s[4];
!
! i = (x->x_centomidi + 50)/100;
! j = x->x_centomidi - 100*i;
! outlet_float(x->x_outlet_cent, (float)j);
! f2note_make_note(s, i);
! SETSYMBOL(&at, gensym(s));
! outlet_anything(x->x_outlet_note, x->x_set, 1, &at);
! outlet_float(x->x_outlet_midi, 0.01*(float)(x->x_centomidi));
! }
!
! static void f2note_float(t_f2note *x, t_floatarg freq)
! {
! x->x_centomidi = (int)(100.0*f2note_ftom(x, freq) + 0.5);
! f2note_bang(x);
! }
!
! void f2note_ref(t_f2note *x, t_floatarg ref)
! {
! x->x_refhz = ref;
! f2note_calc_ref(x);
! }
!
! static void *f2note_new(t_floatarg ref)
! {
! t_f2note *x = (t_f2note *)pd_new(f2note_class);
!
! if(ref == 0.0)
! ref=440.0;
! x->x_refhz = ref;
! x->x_centomidi = (int)(100.0*ref + 0.499);
! f2note_calc_ref(x);
! x->x_outlet_midi = outlet_new(&x->x_obj, &s_float);
! x->x_outlet_note = outlet_new(&x->x_obj, &s_list);
! x->x_outlet_cent = outlet_new(&x->x_obj, &s_float);
! x->x_set = gensym("set");
! return (x);
! }
!
! static void f2note_free(t_f2note *x)
! {
! }
!
! void f2note_setup(void)
! {
! f2note_class = class_new(gensym("f2note"), (t_newmethod)f2note_new, (t_method)f2note_free,
! sizeof(t_f2note), 0, A_DEFFLOAT, 0);
! class_addbang(f2note_class,f2note_bang);
! class_addfloat(f2note_class,f2note_float);
! class_addmethod(f2note_class, (t_method)f2note_ref, gensym("ref"), A_FLOAT, 0);
! class_sethelpsymbol(f2note_class, gensym("iemhelp/help-f2note"));
! }
Index: sigfilter.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigfilter.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigfilter.c 9 Mar 2005 17:15:59 -0000 1.2
--- sigfilter.c 2 Jun 2005 18:23:54 -0000 1.3
***************
*** 1,822 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
[...1615 lines suppressed...]
! x->end_f = x->cur_f;
! x->end_a = x->cur_a;
! x->end_b = x->cur_b;
! }
! return (x);
! }
!
! void sigfilter_setup(void)
! {
! sigfilter_class = class_new(gensym("filter~"), (t_newmethod)sigfilter_new,
! 0, sizeof(t_sigfilter), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(sigfilter_class, t_sigfilter, x_msi);
! class_addmethod(sigfilter_class, (t_method)sigfilter_dsp, gensym("dsp"), 0);
! class_addmethod(sigfilter_class, (t_method)sigfilter_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigfilter_class, (t_method)sigfilter_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(sigfilter_class, (t_method)sigfilter_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(sigfilter_class, (t_method)sigfilter_ft4, gensym("ft4"), A_FLOAT, 0);
! class_addmethod(sigfilter_class, (t_method)sigfilter_print, gensym("print"), 0);
! class_sethelpsymbol(sigfilter_class, gensym("iemhelp/help-filter~"));
! }
1
0
Update of /cvsroot/pure-data/externals/ann/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28502
Modified Files:
makefile.darwin
Log Message:
now links fann correctly. todo: use libfann.a instead of *.o
Index: makefile.darwin
===================================================================
RCS file: /cvsroot/pure-data/externals/ann/src/makefile.darwin,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** makefile.darwin 31 May 2005 12:00:05 -0000 1.1
--- makefile.darwin 1 Jun 2005 16:27:06 -0000 1.2
***************
*** 1,14 ****
! # PSO - Particle Swarm Optimizer - Copyright Ben Bogart 2003
! # makefile adapted from pool - Copyright (c) 2002 Thomas Grill (xovo(a)gmx.net)
! #
! # Makefile for gcc @ darwin (OSX)
! #
! # usage:
! # to build run "make -f makefile.pd-darwin"
! # to install (as root), do "make -f makefile.pd-darwin install"
! #
- # your c++ compiler (define only if it's different than g++)
- # CXX=g++
# where are the PD header files?
--- 1,13 ----
! current: pd_darwin
!
! clean: ; rm -f *.pd_linux *.o *.pd_darwin
!
!
! # ----------------------- Mac OSX -----------------------
!
! pd_darwin: ann_mlp.pd_darwin ann_td.pd_darwin ann_som.pd_darwin ann.pd_darwin
!
! .SUFFIXES: .pd_darwin
# where are the PD header files?
***************
*** 21,110 ****
#PD=/usr/local/bin/pd
PD=/Users/davidemorelli/Desktop/robaDavide/Pd-0.38-3.app/Contents/Resources/bin/pd
! # where do the flext libraries reside?
! #FLEXTPATH=/usr/local/lib/pd/flext
! #FLEXTPATH=../../grill/flext
!
! # where is fann lib?
! FANNLIB=/usr/local/lib/libfann.a
!
! # where should flext libraries be built?
! TARGDIR=./pd-darwin
!
! # where should pool be installed?
! # (leave blank to omit installation)
! #INSTPATH=/usr/local/lib/pd/extra
! INSTPATH=
!
! # additional compiler flags
! # (check if they match your system!)
! UFLAGS=-malign-power -maltivec
!
! #FLEXTLIB=$(FLEXTPATH)/flext.a
! #FLEXTLIB=$(FLEXTPATH)/pd-darwin/libflext.a
!
! # compiler+linker stuff
! INCLUDES=$(PDPATH)
! LIBPATH=$(FANNLIB)
! FLAGS=-DFLEXT_SYS=2
! CFLAGS=-O6 ${UFLAGS} -Wno-unused -Wno-parentheses -Wno-switch -Wstrict-prototypes
! LIBS=m
! LDFLAGS=-bundle -bundle_loader $(PD)
! FRAMEWORKS=Carbon
!
!
! # ---------------------------------------------
! # the rest can stay untouched
! # ----------------------------------------------
!
! NAME=ann
!
! # all the source files from the package
! SRCS=ann.c ann_mlp.c ann_td.c ann_som.c
! HDRS=
!
! DIR=.
!
! TARGET=$(TARGDIR)/$(NAME).pd_darwin
!
! # default target
! all: $(TARGDIR) $(TARGET)
!
! $(patsubst %,$(DIR)/%,$(SRCS)): $(patsubst %,$(DIR)/%,$(HDRS)) $(CONFIG)
! touch $@
!
! $(TARGDIR):
! -mkdir $(TARGDIR)
!
! $(TARGDIR)/%.o : $(DIR)/%.c
! $(CXX) -c $(CFLAGS) $(FLAGS) $(patsubst %,-I%,$(INCLUDES)) $< -o $@
! # $(CXX) -c $(CFLAGS) $(FLAGS) $< -o $@
!
! #$(TARGET) : $(patsubst %.c,$(TARGDIR)/%.o,$(SRCS)) $(FANNLIB)
! $(TARGET) : $(patsubst %.c,$(TARGDIR)/%.o,$(SRCS))
! $(CXX) $(LDFLAGS) -I$(INCLUDES) $^ $(FANNLIB) $(patsubst %,-framework %,$(FRAMEWORKS)) $(patsubst %,-L%,$(LIBPATH)) $(patsubst %,-l%,$(LIBS)) -o $@
! chmod 755 $@
!
! $(INSTPATH):
! -mkdir $(INSTPATH)
!
! install:: $(INSTPATH)
!
! install:: $(TARGET)
! cp $^ $(INSTPATH)
! # chown root.root $(patsubst %,$(INSTPATH)/%,$(notdir $^))
! # chmod 755 $(patsubst %,$(INSTPATH)/%,$(notdir $^))
!
! .PHONY: clean
! clean:
! rm -f $(TARGDIR)/*.o $(TARGET)
!
!
!
!
!
!
--- 20,46 ----
#PD=/usr/local/bin/pd
PD=/Users/davidemorelli/Desktop/robaDavide/Pd-0.38-3.app/Contents/Resources/bin/pd
+ #PD=/Users/davidemorelli/Desktop/robaDavide/Pd-0.38-3.app/Contents/Resources/src/
! # where do the fann libraries reside?
! #FANNLIB=/Users/davidemorelli/Desktop/robaDavide/fann-1.2.0/src/fann.o
! FANNBASE=/Users/davidemorelli/Desktop/robaDavide/fann-1.2.0
! FANNLIB=$(FANNBASE)/src/fann.o \
! $(FANNBASE)/src/fann_train.o \
! $(FANNBASE)/src/fann_train_data.o \
! $(FANNBASE)/src/fann_io.o \
! $(FANNBASE)/src/fann_error.o \
! $(FANNBASE)/src/fann_options.o
! #FANNLIB=/usr/local/lib/libfann.a
+ DARWININCLUDE = -I../../src -I$(PDPATH)
+ DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \
+ -Wno-unused -Wno-parentheses -Wno-switch
+ .c.pd_darwin:
+ cc $(DARWINCFLAGS) $(DARWININCLUDE) -o $*.o -c $*.c
+ cc -bundle -bundle_loader $(PD) -flat_namespace -o $*.pd_darwin $(FANNLIB) *.o
+ # cc -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $(FANNLIB) *.o
+ # rm -f $*.o
+ # $(FANNLIB)
1
0
Update of /cvsroot/pure-data/externals/nusmuk/msd2D
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8732/msd2D
Modified Files:
help-msd2D.pd
Log Message:
Generalized for ND
Index: help-msd2D.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd2D/help-msd2D.pd,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** help-msd2D.pd 17 May 2005 15:37:43 -0000 1.9
--- help-msd2D.pd 1 Jun 2005 13:43:56 -0000 1.10
***************
*** 272,276 ****
#X restore 17 209 pd compute;
#X obj 17 181 tgl 20 0 empty empty ON/OFF 25 10 1 10 -262144 -1 -1
! 1 1;
#X obj 172 270 r \$0-out;
#X obj 17 126 bng 20 250 50 0 empty empty Reset 25 10 1 10 -262144
--- 272,276 ----
#X restore 17 209 pd compute;
#X obj 17 181 tgl 20 0 empty empty ON/OFF 25 10 1 10 -262144 -1 -1
! 0 1;
#X obj 172 270 r \$0-out;
#X obj 17 126 bng 20 250 50 0 empty empty Reset 25 10 1 10 -262144
***************
*** 450,455 ****
#X text 170 170 Output all masses positions in a list on outlet No
1;
- #X text 139 346 \$1 : Attribute type ( massesPos / massesSpeeds / massesForces
- / linksPos );
#X text 139 321 Get specific attribute on specific element;
#X msg 19 319 get \$1 ($2);
--- 450,453 ----
***************
*** 479,482 ****
--- 477,482 ----
#X text 170 202 Output all masses x or y in a list on outlet No 1;
#X msg 32 213 massesPosYL;
+ #X text 139 346 \$1 : Attribute type ( massesPos / massesSpeeds / massesForces
+ / linksPos / linksLenghts);
#X restore 12 499 pd attributes______;
#X text 9 761 KEYWORDS: physical model mass spring damper link;
1
0
Update of /cvsroot/pure-data/externals/nusmuk
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8732
Modified Files:
msd.h
Log Message:
Generalized for ND
Index: msd.h
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd.h,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** msd.h 1 Jun 2005 09:48:46 -0000 1.10
--- msd.h 1 Jun 2005 13:43:56 -0000 1.11
***************
*** 240,289 ****
t_float F;
Mass<N> *m1 = mass1,*m2 = mass2; // cache locally
! if (oriented == 0)
! distance = Mass<N>::dist(*m1,*m2);
! else if (oriented == 1) {
! for(int i = 0; i < N; ++i)
! distance += sqr((m1->pos[i]-m2->pos[i])*tdirection1[i]);
! distance = sqrt(distance);
! }
! else if (oriented == 2) {
! for(int i = 0; i < N; ++i)
! distance += sqr((m1->pos[i]-m2->pos[i])*(tdirection1[i] +tdirection2[i]));
! distance = sqrt(distance);
! }
!
! if (distance < long_min || distance > long_max || distance == 0) {
// for(int i = 0; i < N; ++i) {
// m1->force[i] -= D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
// m2->force[i] += D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
// }
}
- else { // Lmin < L < Lmax
- // F[n] = k1 (L[n] - L[0])/L[n] + D1 (L[n] - L[n-1])/L[n]
- if ((distance - longueur)>0)
- F = (K1 * pow(distance - longueur,puissance) + D1 * (distance - distance_old))/distance ;
- else
- F = (-K1 * pow(longueur - distance,puissance) + D1 * (distance - distance_old))/distance ;
- if (oriented == 0)
- for(int i = 0; i < N; ++i) {
- const t_float Fn = F * (m1->pos[i] - m2->pos[i]); // Fx = F * Lx[n]/L[n]
- m1->force[i] -= Fn + D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
- m2->force[i] += Fn - D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
- }
- else if (oriented == 1 || (oriented == 2 && N == 2))
- for(int i = 0; i < N; ++i) {
- const t_float Fn = F * (m1->pos[i] - m2->pos[i])*tdirection1[i]; // Fx = F * Lx[n]/L[n]
- m1->force[i] -= Fn + D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
- m2->force[i] += Fn - D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
- }
- else if (oriented == 2 && N == 3)
- for(int i = 0; i < N; ++i) {
- const t_float Fn = F * (m1->pos[i] - m2->pos[i])*(tdirection1[i] +tdirection2[i]); // Fx = F * Lx[n]/L[n]
- m1->force[i] -= Fn + D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
- m2->force[i] += Fn - D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
- }
- }
-
- distance_old = distance; // L[n-1] = L[n]
}
};
--- 240,291 ----
t_float F;
Mass<N> *m1 = mass1,*m2 = mass2; // cache locally
! if (m1->invM || m2->invM) {
! if (oriented == 0)
! distance = Mass<N>::dist(*m1,*m2);
! else if (oriented == 1) {
! for(int i = 0; i < N; ++i)
! distance += sqr((m1->pos[i]-m2->pos[i])*tdirection1[i]);
! distance = sqrt(distance);
! }
! else if (oriented == 2) {
! for(int i = 0; i < N; ++i)
! distance += sqr((m1->pos[i]-m2->pos[i])*(tdirection1[i] +tdirection2[i]));
! distance = sqrt(distance);
! }
!
! if (distance < long_min || distance > long_max || distance == 0) {
// for(int i = 0; i < N; ++i) {
// m1->force[i] -= D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
// m2->force[i] += D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
// }
+ }
+ else { // Lmin < L < Lmax
+ // F[n] = k1 (L[n] - L[0])/L[n] + D1 (L[n] - L[n-1])/L[n]
+ if ((distance - longueur)>0)
+ F = (K1 * pow(distance - longueur,puissance) + D1 * (distance - distance_old))/distance ;
+ else
+ F = (-K1 * pow(longueur - distance,puissance) + D1 * (distance - distance_old))/distance ;
+ if (oriented == 0)
+ for(int i = 0; i < N; ++i) {
+ const t_float Fn = F * (m1->pos[i] - m2->pos[i]); // Fx = F * Lx[n]/L[n]
+ m1->force[i] -= Fn + D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
+ m2->force[i] += Fn - D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
+ }
+ else if (oriented == 1 || (oriented == 2 && N == 2))
+ for(int i = 0; i < N; ++i) {
+ const t_float Fn = F * (m1->pos[i] - m2->pos[i])*tdirection1[i]; // Fx = F * Lx[n]/L[n]
+ m1->force[i] -= Fn + D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
+ m2->force[i] += Fn - D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
+ }
+ else if (oriented == 2 && N == 3)
+ for(int i = 0; i < N; ++i) {
+ const t_float Fn = F * (m1->pos[i] - m2->pos[i])*(tdirection1[i] +tdirection2[i]); // Fx = F * Lx[n]/L[n]
+ m1->force[i] -= Fn + D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
+ m2->force[i] += Fn - D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
+ }
+ }
+
+ distance_old = distance; // L[n-1] = L[n]
}
}
};
***************
*** 555,559 ****
m_pos(argc-1,arglist,GetAInt(argv[0])-1);
}
! // set mass No to mobile
void m_set_mobile(int argc,t_atom *argv,bool mob = true)
{
--- 557,561 ----
m_pos(argc-1,arglist,GetAInt(argv[0])-1);
}
! // set mass to mobile
void m_set_mobile(int argc,t_atom *argv,bool mob = true)
{
***************
*** 647,650 ****
--- 649,676 ----
}
+ // set Id of link(s) named Id or number No
+ void m_setMassId(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : OldId/NoMass NewId",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_symbol *id = GetSymbol(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_mass *>::iterator it;
+ for(it = massids.find(GetSymbol(argv[0])); it; ++it)
+ it.data()->Id = id;
+ }
+ else {
+ t_mass *m = mass.find(GetAInt(argv[0]));
+ if(m)
+ m->Id = id;
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
void m_grab_mass(int argc,t_atom *argv)
{
***************
*** 1046,1049 ****
--- 1072,1099 ----
}
+ // set Id of link(s) named Id or number No
+ void m_setLinkId(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : OldId/NoLink NewId",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_symbol *id = GetSymbol(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_link *>::iterator it;
+ for(it = linkids.find(GetSymbol(argv[0])); it; ++it)
+ it.data()->Id = id;
+ }
+ else {
+ t_link *l = link.find(GetAInt(argv[0]));
+ if(l)
+ l->Id = id;
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
// set rigidity of link(s) named Id or number No
void m_setK(int argc,t_atom *argv)
***************
*** 1167,1172 ****
--- 1217,1224 ----
t_atom sortie[1+2*N];
+ t_float mean[N] ,std[N], nombre;
const t_symbol *auxtype = GetSymbol(argv[0]);
+
if (argc == 1) {
if (auxtype == S_massesPos) { // get all masses positions
***************
*** 1177,1180 ****
--- 1229,1262 ----
}
}
+ else if (auxtype == S_massesPosMean) { // get all masses positions mean
+ for(int i = 0; i<N; ++i)
+ mean[i] = 0;
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i)
+ mean[i] += mit.data()->pos[i];
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],mean[i]/nombre);
+ ToOutAnything(0,S_massesPosMean,0+N,sortie);
+ }
+ else if (auxtype == S_massesPosStd) { // get all masses positions std
+ for(int i = 0; i<N; ++i) {
+ mean[i] = 0;
+ std[i] = 0;
+ }
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i) {
+ mean[i] += mit.data()->pos[i];
+ std[i] += sqr(mit.data()->pos[i]) ;
+ }
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],sqrt(std[i]/nombre-sqr(mean[i]/nombre)));
+ ToOutAnything(0,S_massesPosStd,0+N,sortie);
+ }
else if (auxtype == S_massesForces) { // get all masses forces
for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
***************
*** 1184,1187 ****
--- 1266,1299 ----
}
}
+ else if (auxtype == S_massesForcesMean) { // get all masses forces mean
+ for(int i = 0; i<N; ++i)
+ mean[i] = 0;
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i)
+ mean[i] += mit.data()->out_force[i];
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],mean[i]/nombre);
+ ToOutAnything(0,S_massesForcesMean,0+N,sortie);
+ }
+ else if (auxtype == S_massesForcesStd) { // get all masses forces std
+ for(int i = 0; i<N; ++i) {
+ mean[i] = 0;
+ std[i] = 0;
+ }
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i) {
+ mean[i] += mit.data()->out_force[i];
+ std[i] += sqr(mit.data()->out_force[i]) ;
+ }
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],sqrt(std[i]/nombre-sqr(mean[i]/nombre)));
+ ToOutAnything(0,S_massesForcesStd,0+N,sortie);
+ }
else if (auxtype == S_linksPos) { // get all links positions
for(typename IndexMap<t_link *>::iterator lit(link); lit; ++lit) {
***************
*** 1194,1198 ****
}
}
! else { // get all masses speeds
for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
SetInt(sortie[0],mit.data()->nbr);
--- 1306,1344 ----
}
}
! else if (auxtype == S_linksLenghts) { // get all links lenghts
! for(typename IndexMap<t_link *>::iterator lit(link); lit; ++lit) {
! SetInt(sortie[0],lit.data()->nbr);
! SetFloat(sortie[1],lit.data()->distance_old);
! ToOutAnything(0,S_linksLenghts,2,sortie);
! }
! }
! else if (auxtype == S_linksLenghtsMean) { // get all links lenghts mean
! for(int i = 0; i<N; ++i)
! mean[i] = 0;
! nombre = 0;
! for(typename IndexMap<t_link *>::iterator lit(link); lit; ++lit) {
! ++nombre;
! mean[0] += lit.data()->distance_old;
! }
! for(int i = 0; i < N; ++i)
! SetFloat(sortie[0],mean[0]/nombre);
! ToOutAnything(0,S_linksLenghtsMean,1,sortie);
! }
! else if (auxtype == S_linksLenghtsStd) { // get all links lenghts std
! for(int i = 0; i<N; ++i) {
! mean[i] = 0;
! std[i] = 0;
! }
! nombre = 0;
! for(typename IndexMap<t_link *>::iterator lit(link); lit; ++lit) {
! ++nombre;
! mean[0] += lit.data()->distance_old;
! std[0] += sqr(lit.data()->distance_old) ;
! }
! for(int i = 0; i < N; ++i)
! SetFloat(sortie[0],sqrt(std[0]/nombre-sqr(mean[0]/nombre)));
! ToOutAnything(0,S_linksLenghtsStd,1,sortie);
! }
! else if (auxtype == S_massesSpeeds) { // get all masses speeds
for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
SetInt(sortie[0],mit.data()->nbr);
***************
*** 1201,1204 ****
--- 1347,1382 ----
}
}
+ else if (auxtype == S_massesSpeedsMean) { // get all masses forces mean
+ for(int i = 0; i<N; ++i)
+ mean[i] = 0;
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i)
+ mean[i] += mit.data()->speed[i];
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],mean[i]/nombre);
+ ToOutAnything(0,S_massesSpeedsMean,0+N,sortie);
+ }
+ else if (auxtype == S_massesSpeedsStd) { // get all masses forces std
+ for(int i = 0; i<N; ++i) {
+ mean[i] = 0;
+ std[i] = 0;
+ }
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i) {
+ mean[i] += mit.data()->speed[i];
+ std[i] += sqr(mit.data()->speed[i]) ;
+ }
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],sqrt(std[i]/nombre-sqr(mean[i]/nombre)));
+ ToOutAnything(0,S_massesSpeedsStd,0+N,sortie);
+ }
+ else
+ error("%s - %s : Syntax error",thisName(),GetString(thisTag()));
return;
}
***************
*** 1280,1283 ****
--- 1458,1484 ----
}
}
+ else if (auxtype == S_linksLenghts) // get links lenghts
+ {
+ for(int j = 1; j<argc; j++) {
+ if(IsSymbol(argv[j])) {
+ typename IDMap<t_link *>::iterator lit;
+ for(lit = linkids.find(GetSymbol(argv[j])); lit; ++lit) {
+ SetSymbol(sortie[0],lit.data()->Id);
+ SetFloat(sortie[1],lit.data()->distance_old);
+ ToOutAnything(0,S_linksLenghtsId,2,sortie);
+ }
+ }
+ else {
+ t_link *l = link.find(GetAInt(argv[j]));
+ if(l) {
+ SetInt(sortie[0],l->nbr);
+ SetFloat(sortie[1],l->distance_old);
+ ToOutAnything(0,S_linksLenghtsNo,2,sortie);
+ }
+ // else
+ // error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+ }
else // get mass speeds
{
***************
*** 1489,1492 ****
--- 1690,1695 ----
const static t_symbol *S_Link_deleted;
const static t_symbol *S_massesPos;
+ const static t_symbol *S_massesPosMean;
+ const static t_symbol *S_massesPosStd;
const static t_symbol *S_massesPosNo;
const static t_symbol *S_massesPosId;
***************
*** 1494,1501 ****
--- 1697,1713 ----
const static t_symbol *S_linksPosNo;
const static t_symbol *S_linksPosId;
+ const static t_symbol *S_linksLenghts;
+ const static t_symbol *S_linksLenghtsMean;
+ const static t_symbol *S_linksLenghtsStd;
+ const static t_symbol *S_linksLenghtsNo;
+ const static t_symbol *S_linksLenghtsId;
const static t_symbol *S_massesForces;
+ const static t_symbol *S_massesForcesMean;
+ const static t_symbol *S_massesForcesStd;
const static t_symbol *S_massesForcesNo;
const static t_symbol *S_massesForcesId;
const static t_symbol *S_massesSpeeds;
+ const static t_symbol *S_massesSpeedsMean;
+ const static t_symbol *S_massesSpeedsStd;
const static t_symbol *S_massesSpeedsNo;
const static t_symbol *S_massesSpeedsId;
***************
*** 1517,1520 ****
--- 1729,1734 ----
S_Link_deleted = MakeSymbol("Link deleted");
S_massesPos = MakeSymbol("massesPos");
+ S_massesPosMean = MakeSymbol("massesPosMean");
+ S_massesPosStd = MakeSymbol("massesPosStd");
S_massesPosNo = MakeSymbol("massesPosNo");
S_massesPosId = MakeSymbol("massesPosId");
***************
*** 1522,1529 ****
--- 1736,1752 ----
S_linksPosNo = MakeSymbol("linksPosNo");
S_linksPosId = MakeSymbol("linksPosId");
+ S_linksLenghts = MakeSymbol("linksLenghts");
+ S_linksLenghtsMean = MakeSymbol("linksLenghtsMean");
+ S_linksLenghtsStd = MakeSymbol("linksLenghtsStd");
+ S_linksLenghtsNo = MakeSymbol("linksLenghtsNo");
+ S_linksLenghtsId = MakeSymbol("linksLenghtsId");
S_massesForces = MakeSymbol("massesForces");
+ S_massesForcesMean = MakeSymbol("massesForcesMean");
+ S_massesForcesStd = MakeSymbol("massesForcesStd");
S_massesForcesNo = MakeSymbol("massesForcesNo");
S_massesForcesId = MakeSymbol("massesForcesId");
S_massesSpeeds = MakeSymbol("massesSpeeds");
+ S_massesSpeedsMean = MakeSymbol("massesSpeedsMean");
+ S_massesSpeedsStd = MakeSymbol("massesSpeedsStd");
S_massesSpeedsNo = MakeSymbol("massesSpeedsNo");
S_massesSpeedsId = MakeSymbol("massesSpeedsId");
***************
*** 1572,1575 ****
--- 1795,1800 ----
FLEXT_CADDMETHOD_(c,0,"setMobile",m_set_mobile);
FLEXT_CADDMETHOD_(c,0,"setFixed",m_set_fixe);
+ FLEXT_CADDMETHOD_(c,0,"setMassId",m_setMassId);
+ FLEXT_CADDMETHOD_(c,0,"setLinkId",m_setLinkId);
FLEXT_CADDMETHOD_(c,0,"setK",m_setK);
FLEXT_CADDMETHOD_(c,0,"setD",m_setD);
***************
*** 1620,1623 ****
--- 1845,1850 ----
FLEXT_CALLBACK_V(m_forceN)
FLEXT_CALLBACK_V(m_posN)
+ FLEXT_CALLBACK_V(m_setMassId)
+ FLEXT_CALLBACK_V(m_setLinkId)
FLEXT_CALLBACK_V(m_setK)
FLEXT_CALLBACK_V(m_setD)
***************
*** 1639,1646 ****
*msdN<N>::S_massesPos,*msdN<N>::S_massesPosNo,*msdN<N>::S_massesPosId, \
*msdN<N>::S_linksPos,*msdN<N>::S_linksPosNo,*msdN<N>::S_linksPosId, \
! *msdN<N>::S_massesForces,*msdN<N>::S_massesForcesNo,*msdN<N>::S_massesForcesId, \
! *msdN<N>::S_massesSpeeds,*msdN<N>::S_massesSpeedsNo,*msdN<N>::S_massesSpeedsId, \
*msdN<N>::S_massesPosL,*msdN<N>::S_massesPosXL,*msdN<N>::S_massesPosYL, \
! *msdN<N>::S_massesPosZL,*msdN<N>::S_massesForcesL; \
\
typedef msdN<N> CLASS; \
--- 1866,1878 ----
*msdN<N>::S_massesPos,*msdN<N>::S_massesPosNo,*msdN<N>::S_massesPosId, \
*msdN<N>::S_linksPos,*msdN<N>::S_linksPosNo,*msdN<N>::S_linksPosId, \
! *msdN<N>::S_linksLenghts,*msdN<N>::S_linksLenghtsMean,*msdN<N>::S_linksLenghtsStd, \
! *msdN<N>::S_linksLenghtsNo,*msdN<N>::S_linksLenghtsId, \
! *msdN<N>::S_massesForces,*msdN<N>::S_massesForcesMean,*msdN<N>::S_massesForcesStd, \
! *msdN<N>::S_massesForcesNo,*msdN<N>::S_massesForcesId, \
! *msdN<N>::S_massesSpeeds,*msdN<N>::S_massesSpeedsMean,*msdN<N>::S_massesSpeedsStd, \
! *msdN<N>::S_massesSpeedsNo,*msdN<N>::S_massesSpeedsId, \
*msdN<N>::S_massesPosL,*msdN<N>::S_massesPosXL,*msdN<N>::S_massesPosYL, \
! *msdN<N>::S_massesPosZL,*msdN<N>::S_massesPosStd,*msdN<N>::S_massesPosMean,\
! *msdN<N>::S_massesForcesL; \
\
typedef msdN<N> CLASS; \
1
0
Update of /cvsroot/pure-data/externals/nusmuk/msd2D
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8234/msd2D
Modified Files:
02_msd2Dadd.pd
Log Message:
Generalized ND methods
Index: 02_msd2Dadd.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd2D/02_msd2Dadd.pd,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** 02_msd2Dadd.pd 18 May 2005 11:20:48 -0000 1.8
--- 02_msd2Dadd.pd 1 Jun 2005 09:48:46 -0000 1.9
***************
*** 420,423 ****
--- 420,425 ----
#X obj 137 62 t b b b b;
#X text 491 431 Get a few masses speeds;
+ #N canvas 0 0 450 300 record 1;
+ #X restore 268 344 pd record;
#X connect 0 0 5 0;
#X connect 1 0 34 0;
1
0