object for creating date symbol in ISO format

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

1 files changed, 40 insertions, 0 deletions

diff --git a/ISOdate.pd b/ISOdate.pd
new file mode 100755
index 0000000..6862f20
--- /dev/null
+++ b/ISOdate.pd
@@ -0,0 +1,40 @@
+#N canvas 385 266 642 440 10;

+#X obj 93 84 zexy/date -----------;

+#X obj 93 31 inlet;

+#X obj 93 58 bang;

+#X obj 93 229 outlet;

+#N canvas 0 0 458 308 addzero 0;

+#X obj 134 16 inlet;

+#X obj 139 263 outlet;

+#X obj 136 80 moses 10;

+#X obj 13 195 zexy/makesymbol -0%s;

+#X obj 142 193 zexy/makesymbol -%s;

+#X connect 0 0 2 0;

+#X connect 2 0 3 0;

+#X connect 2 1 4 0;

+#X connect 3 0 1 0;

+#X connect 4 0 1 0;

+#X restore 205 135 pd addzero;

+#X obj 93 202 zexy/makesymbol %s%s%s;

+#X obj 93 175 pack float symbol symbol;

+#N canvas 0 0 458 308 addzero 0;

+#X obj 134 16 inlet;

+#X obj 139 263 outlet;

+#X obj 136 80 moses 10;

+#X obj 13 195 zexy/makesymbol -0%s;

+#X obj 142 193 zexy/makesymbol -%s;

+#X connect 0 0 2 0;

+#X connect 2 0 3 0;

+#X connect 2 1 4 0;

+#X connect 3 0 1 0;

+#X connect 4 0 1 0;

+#X restore 136 135 pd addzero;

+#X connect 0 0 6 0;

+#X connect 0 1 7 0;

+#X connect 0 2 4 0;

+#X connect 1 0 2 0;

+#X connect 2 0 0 0;

+#X connect 4 0 6 2;

+#X connect 5 0 3 0;

+#X connect 6 0 5 0;

+#X connect 7 0 6 1;