added generic object for getting the blocksize and outputing in ms. Currently this is fixed at a blocksize of 64, but once the changable blocksize is fully implemented, this object should use the actual current blocksize.

svn path=/trunk/externals/hcs/; revision=2359

2 files changed, 41 insertions, 0 deletions

diff --git a/blocksize_in_ms-help.pd b/blocksize_in_ms-help.pd
new file mode 100644
index 0000000..6b20d08
--- /dev/null
+++ b/blocksize_in_ms-help.pd
@@ -0,0 +1,16 @@
+#N canvas 256 153 461 330 10;
+#X obj 5 2 cnv 15 450 20 empty empty [blocksize_in_ms] 2 11 1 18 -233017
+-66577 0;
+#X obj 422 3 pddp;
+#X text 27 270 (C) Copyright 2004 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X text 244 284 released under the GNU GPL;
+#X obj 152 157 blocksize_in_ms;
+#X msg 152 115 bang;
+#X text 197 117 bang to recalculate;
+#X floatatom 152 210 7 0 0 1 ms - -;
+#X text 18 36 Output the current blocksize in ms rather than samples.
+This is currently set at a fixed blocksize of 64 \, but it will change
+dynamically in the future.;
+#X connect 4 0 7 0;
+#X connect 5 0 4 0;
diff --git a/blocksize_in_ms.pd b/blocksize_in_ms.pd
new file mode 100644
index 0000000..6a42b0e
--- /dev/null
+++ b/blocksize_in_ms.pd
@@ -0,0 +1,25 @@
+#N canvas 0 22 454 304 10;
+#X obj 178 272 outlet;
+#X obj 164 31 inlet;
+#X obj 164 56 bang;
+#X text 209 31 bang to recalculate;
+#X obj 164 124 samplerate~;
+#X obj 183 98 loadbang;
+#X obj 178 192 /;
+#X msg 164 170 64;
+#X obj 164 151 t b f;
+#X obj 147 104 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 30 170 default block size:;
+#X text 8 25 [blocksize_in_ms];
+#X obj 178 229 * 1000;
+#X connect 1 0 2 0;
+#X connect 2 0 4 0;
+#X connect 4 0 8 0;
+#X connect 5 0 4 0;
+#X connect 6 0 12 0;
+#X connect 7 0 6 0;
+#X connect 8 0 7 0;
+#X connect 8 1 6 1;
+#X connect 9 0 4 0;
+#X connect 12 0 0 0;