[PD] bl oscillator, was : Re: rjdj, was : Re: [equalizer] / [lowshelf] / [highshelf] in purepd!

Frank Barknecht fbar at footils.org
Sun Mar 29 16:33:41 CEST 2009


Hallo,

okay, attached is the pwm~ as well.

Ciao
-- 
Frank

cyrille henry hat gesagt: // cyrille henry wrote:

> wow, this version is almost 2 time faster than the original.
> i did not know that expr~ was so slow...
>
> do you mind if use this version to replace mine?
>
> thanks
> Cyrille
>
>
> Frank Barknecht a écrit :
>> Hallo,
>> cyrille henry hat gesagt: // cyrille henry wrote:
>>>> I think, currently it's probably a bit slower because of the sin(), but maybe
>>>> that could be put into a tabread~. 
>>> i think the sin object is doing a linear interpolation in a 512 point table.
>>> (don't know how it is done in expr~, but expr~ is not used for rjlib because of it's licence, right?)
>>
>> Attached is an expr-less version of saw~ which from a quick glance at
>> the scope looks and sounds the same. It is vanilla in that it uses
>> [abs~] and [>~] which are part of 0.42 (and thus RjDj). On older Pd
>> versions you can use for example the purepd abstractions for both from
>> the SVN in abstractions/purepd
>>
>> Ciao
>>
>>
>> ------------------------------------------------------------------------
>>
>> _______________________________________________
>> Pd-list at iem.at mailing list
>> UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
>
> _______________________________________________
> Pd-list at iem.at mailing list
> UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
>
-------------- next part --------------
#N canvas 268 49 728 707 10;
#X obj 65 122 phasor~;
#X obj 66 59 inlet~;
#X obj 238 172 +~;
#X obj 255 64 inlet~;
#X obj 237 198 wrap~;
#X obj 334 327 sig~ 22050;
#X obj 334 284 samplerate~;
#X obj 334 232 loadbang;
#X obj 334 307 * 0.5;
#X obj 67 505 -~;
#X obj 67 533 outlet~;
#X obj 475 432 loadbang;
#X obj 475 495 table \$0-lookup 2;
#X obj 475 474 s \$0-lookup;
#X msg 475 453 0 0 1;
#X obj 67 471 +~ -0.5;
#X obj 239 470 +~ -0.5;
#X msg 344 257 bang;
#N canvas 315 401 852 607 sinc-phasor 0;
#X obj 173 131 -~ 0.5;
#X obj 421 192 *~ 2;
#X obj 459 191 /~;
#X obj 421 219 *~;
#X obj 422 241 abs~;
#X obj 421 263 +~ 1.8955;
#X obj 174 427 +~;
#N canvas 104 42 701 480 sin(x)/x 0;
#X obj 220 229 cos~;
#X obj 221 204 -~ 0.25;
#X msg 288 90 1;
#X floatatom 288 162 5 0 0 0 - - -;
#X obj 288 116 atan;
#X obj 288 137 * 8;
#X obj 220 181 /~ 6.238;
#X obj 288 67 loadbang;
#X obj 221 148 inlet~;
#X obj 219 291 outlet~;
#X obj 220 255 /~;
#X connect 0 0 10 0;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 3 0 6 1;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 8 0 6 0;
#X connect 8 0 10 1;
#X connect 10 0 9 0;
#X restore 421 293 pd sin(x)/x;
#X text 208 426 + v3;
#X obj 175 333 tabread~ \$0-lookup;
#X obj 174 311 +~ 1;
#X obj 127 78 inlet~;
#X text 123 53 phasor~;
#X obj 433 71 inlet~;
#X obj 510 72 inlet~;
#X text 506 47 SR;
#X text 429 46 freq;
#X obj 109 486 outlet~;
#X obj 328 217 wrap~;
#X obj 329 243 *~ 2;
#X obj 329 268 -~ 1;
#X obj 330 392 *~;
#X text 357 387 v2*sin(v4)/v4;
#X obj 110 460 -~;
#X connect 0 0 1 0;
#X connect 0 0 10 0;
#X connect 0 0 18 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 23 0;
#X connect 7 0 21 1;
#X connect 9 0 6 0;
#X connect 10 0 9 0;
#X connect 11 0 0 0;
#X connect 11 0 23 1;
#X connect 13 0 2 1;
#X connect 14 0 2 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 6 1;
#X connect 23 0 17 0;
#X restore 238 446 pd sinc-phasor;
#N canvas 315 401 852 607 sinc-phasor 0;
#X obj 173 131 -~ 0.5;
#X obj 421 192 *~ 2;
#X obj 459 191 /~;
#X obj 421 219 *~;
#X obj 422 241 abs~;
#X obj 421 263 +~ 1.8955;
#X obj 174 427 +~;
#N canvas 104 42 701 480 sin(x)/x 0;
#X obj 220 229 cos~;
#X obj 221 204 -~ 0.25;
#X msg 288 90 1;
#X floatatom 288 162 5 0 0 0 - - -;
#X obj 288 116 atan;
#X obj 288 137 * 8;
#X obj 220 181 /~ 6.238;
#X obj 288 67 loadbang;
#X obj 221 148 inlet~;
#X obj 219 291 outlet~;
#X obj 220 255 /~;
#X connect 0 0 10 0;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 3 0 6 1;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 8 0 6 0;
#X connect 8 0 10 1;
#X connect 10 0 9 0;
#X restore 421 293 pd sin(x)/x;
#X text 208 426 + v3;
#X obj 175 333 tabread~ \$0-lookup;
#X obj 174 311 +~ 1;
#X obj 127 78 inlet~;
#X text 123 53 phasor~;
#X obj 433 71 inlet~;
#X obj 510 72 inlet~;
#X text 506 47 SR;
#X text 429 46 freq;
#X obj 109 486 outlet~;
#X obj 328 217 wrap~;
#X obj 329 243 *~ 2;
#X obj 329 268 -~ 1;
#X obj 330 392 *~;
#X text 357 387 v2*sin(v4)/v4;
#X obj 110 460 -~;
#X connect 0 0 1 0;
#X connect 0 0 10 0;
#X connect 0 0 18 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 23 0;
#X connect 7 0 21 1;
#X connect 9 0 6 0;
#X connect 10 0 9 0;
#X connect 11 0 0 0;
#X connect 11 0 23 1;
#X connect 13 0 2 1;
#X connect 14 0 2 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 6 1;
#X connect 23 0 17 0;
#X restore 66 443 pd sinc-phasor;
#X connect 0 0 2 0;
#X connect 0 0 19 0;
#X connect 1 0 0 0;
#X connect 1 0 18 1;
#X connect 1 0 19 1;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 4 0 18 0;
#X connect 5 0 18 2;
#X connect 5 0 19 2;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 11 0 14 0;
#X connect 14 0 13 0;
#X connect 15 0 9 0;
#X connect 16 0 9 1;
#X connect 17 0 6 0;
#X connect 18 0 16 0;
#X connect 19 0 15 0;


More information about the Pd-list mailing list