From 9d71d523721d4abc211bfba489ba4e86f17b1d3c Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Fri, 10 Apr 2009 13:59:02 +0000
Subject: handy shortcut objects for getting and setting the "pd audio-dialog"

svn path=/trunk/externals/hcs/; revision=11002
---
 get-audio-dialog-help.pd  |  9 +++++++++
 get-audio-dialog.pd       | 26 ++++++++++++++++++++++++++
 make-audio-dialog-help.pd | 13 +++++++++++++
 make-audio-dialog.pd      | 22 ++++++++++++++++++++++
 4 files changed, 70 insertions(+)
 create mode 100644 get-audio-dialog-help.pd
 create mode 100644 get-audio-dialog.pd
 create mode 100644 make-audio-dialog-help.pd
 create mode 100644 make-audio-dialog.pd

diff --git a/get-audio-dialog-help.pd b/get-audio-dialog-help.pd
new file mode 100644
index 0000000..ba186d8
--- /dev/null
+++ b/get-audio-dialog-help.pd
@@ -0,0 +1,9 @@
+#N canvas 337 290 528 329 10;
+#X msg 46 78 bang;
+#X obj 30 153 pddp/print;
+#X obj 42 109 get-audio-dialog;
+#X obj 10 158 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X connect 2 0 3 0;
diff --git a/get-audio-dialog.pd b/get-audio-dialog.pd
new file mode 100644
index 0000000..8cda266
--- /dev/null
+++ b/get-audio-dialog.pd
@@ -0,0 +1,26 @@
+#N canvas 361 286 450 300 10;
+#X obj 143 88 receive pd;
+#X obj 143 111 route audio-dialog;
+#X obj 122 161 list;
+#X obj 122 16 inlet;
+#X obj 122 43 route bang;
+#X obj 179 63 print ERROR: no method for;
+#X obj 179 272 outlet;
+#X obj 122 185 route bang;
+#X obj 85 235 print WARNING: no audio-dialog data! Open the Audio Settings
+and click OK to get the data.;
+#X obj 179 209 cyclone/prepend audio-dialog;
+#X obj 143 132 trigger bang anything;
+#X text 211 180 in a singleton;
+#X text 159 160 <-- TODO this list should be globally available;
+#X connect 0 0 1 0;
+#X connect 1 0 10 0;
+#X connect 2 0 7 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 0;
+#X connect 4 1 5 0;
+#X connect 7 0 8 0;
+#X connect 7 1 9 0;
+#X connect 9 0 6 0;
+#X connect 10 0 2 0;
+#X connect 10 1 2 1;
diff --git a/make-audio-dialog-help.pd b/make-audio-dialog-help.pd
new file mode 100644
index 0000000..ac46c5e
--- /dev/null
+++ b/make-audio-dialog-help.pd
@@ -0,0 +1,13 @@
+#N canvas 699 277 450 300 10;
+#X msg 59 115 bang;
+#X obj 59 147 get-audio-dialog;
+#X msg 59 203 \; pd audio-dialog 0 0 0 0 2 0 0 0 0 0 0 0 2 0 0 0 44100
+50 0;
+#X obj 59 176 make-audio-dialog;
+#X text 40 23 [make-audio-dialog] takes the audio-dialog message from
+[get-audio-dialog] and generates a clickable message box that will
+set the audio settings. This message box is also suitable for use with
+a [loadbang];
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 3 0 2 0;
diff --git a/make-audio-dialog.pd b/make-audio-dialog.pd
new file mode 100644
index 0000000..4a7f2d9
--- /dev/null
+++ b/make-audio-dialog.pd
@@ -0,0 +1,22 @@
+#N canvas 618 605 450 300 10;
+#X obj 91 23 inlet;
+#X msg 338 141 set;
+#X obj 103 246 outlet;
+#X msg 274 146 addsemi;
+#X msg 216 150 add2 pd;
+#X obj 23 147 cyclone/prepend add2;
+#X obj 99 64 route audio-dialog;
+#X msg 72 173 add2 audio-dialog;
+#X obj 98 111 trigger anything bang bang bang bang;
+#X connect 0 0 6 0;
+#X connect 1 0 2 0;
+#X connect 3 0 2 0;
+#X connect 4 0 2 0;
+#X connect 5 0 2 0;
+#X connect 6 0 8 0;
+#X connect 7 0 2 0;
+#X connect 8 0 5 0;
+#X connect 8 1 7 0;
+#X connect 8 2 4 0;
+#X connect 8 3 3 0;
+#X connect 8 4 1 0;
-- 
cgit v1.2.1