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@iem.at mailing list >> UNSUBSCRIBE and account-management -> >> http://lists.puredata.info/listinfo/pd-list > > _______________________________________________ > Pd-list@iem.at mailing list > UNSUBSCRIBE and account-management -> > http://lists.puredata.info/listinfo/pd-list >
#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;
_______________________________________________ Pd-list@iem.at mailing list UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list