Well, I've tried it now and looks I got it right, check the code below... can you confirm if I nailed it please?
#N canvas 425 68 530 262 10;
#X obj 400 126 samplerate~;
#X obj 400 149 v sr_\$0;
#X obj 390 62 loadbang;
#X floatatom 154 74 0 0 0 0 - - -;
#X obj 157 51 hsl 128 15 0 7000 0 1 empty empty empty -2 -8 0 10 -262144
-1 -1 1600 1;
#X obj 121 159 rpole~;
#X obj 48 178 lop~;
#X obj 121 183 expr~ $v1 * (1 - $f2);
#X obj 154 130 expr 1 - $f1;
#X obj 58 70 noise~;
#X obj 115 215 dac~;
#X msg 410 86 \; pd dsp 1;
#X obj 154 102 expr $f1 * 2*pi_\$0 / sr_\$0;
#X obj 390 171 expr atan(1) * 4;
#X obj 390 192 v pi_\$0;
#X text 90 176 =;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 2 0 11 0;
#X connect 2 0 13 0;
#X connect 3 0 6 1;
#X connect 3 0 12 0;
#X connect 4 0 3 0;
#X connect 5 0 7 0;
#X connect 7 0 10 0;
#X connect 7 0 10 1;
#X connect 8 0 7 1;
#X connect 8 0 5 1;
#X connect 9 0 6 0;
#X connect 9 0 5 0;
#X connect 12 0 8 0;
#X connect 13 0 14 0;