From 57045df5fe3ec557e57dc7434ac1a07b5521bffc Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Mon, 29 Jul 2002 17:06:19 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r58, which included commits to RCS files with non-trunk default branches. svn path=/trunk/; revision=59 --- pd/extra/hilbert~.pd | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 pd/extra/hilbert~.pd (limited to 'pd/extra/hilbert~.pd') diff --git a/pd/extra/hilbert~.pd b/pd/extra/hilbert~.pd new file mode 100644 index 00000000..5bc7a550 --- /dev/null +++ b/pd/extra/hilbert~.pd @@ -0,0 +1,15 @@ +#N canvas 451 128 556 360 12; +#X obj 117 129 biquad~ 0.83774 -0.06338 0.06338 -0.83774 1; +#X obj 117 103 biquad~ 1.94632 -0.94657 0.94657 -1.94632 1; +#X obj 98 186 biquad~ -0.02569 0.260502 -0.260502 0.02569 1; +#X obj 98 212 biquad~ 1.8685 -0.870686 0.870686 -1.8685 1; +#X obj 98 76 inlet~; +#X obj 117 158 outlet~; +#X obj 98 239 outlet~; +#X text 105 273 This is a pair of all-pass filters whose outputs somehow manage to be about 90 degrees out of phase from each other. I don't know what phase relation they have with the original signal. I adapted this from a 4X patch by Emmanuel Favreau \, circa 1982; +#X connect 0 0 5 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X connect 3 0 6 0; +#X connect 4 0 1 0; +#X connect 4 0 2 0; -- cgit v1.2.1