BTW, here's the "correct" 1 pole 1 zero highpass filter:

#N canvas 0 50 450 300 10;
#X obj 40 63 inlet~;
#X obj 49 238 outlet~;
#X obj 139 31 inlet~;
#X obj 50 209 rpole~;
#X obj 48 140 *~;
#X obj 141 69 /~;
#X obj 206 69 samplerate~;
#X obj 205 31 loadbang;
#X obj 143 166 +~ 1;
#X obj 149 189 *~ 0.5;
#X obj 49 177 rzero~ 1;
#X obj 138 132 expr~ (1-sin($v1))/cos($v1);
#X obj 134 102 *~ 6.28319;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 4 0 10 0;
#X connect 5 0 12 0;
#X connect 6 0 5 1;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 4 1;
#X connect 10 0 3 0;
#X connect 11 0 3 1;
#X connect 11 0 8 0;
#X connect 12 0 11 0;