From 480b757207c659f0c3e06277e29733b52d46bcdc Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 13 Apr 2005 03:47:20 +0000
Subject: - created a suite of hid objects for using polar coordinates and
 converting   between the range of 0-1 and degrees/radians.

- made two joystick/polar examples

- added some pretty colors to help patches

svn path=/trunk/externals/hcs/hid/; revision=2754
---
 examples/polar-joystick.pd  | 44 ++++++++++++++++++++++++++++++++++
 examples/spiral-joystick.pd | 57 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 101 insertions(+)
 create mode 100644 examples/polar-joystick.pd
 create mode 100644 examples/spiral-joystick.pd

(limited to 'examples')

diff --git a/examples/polar-joystick.pd b/examples/polar-joystick.pd
new file mode 100644
index 0000000..baace12
--- /dev/null
+++ b/examples/polar-joystick.pd
@@ -0,0 +1,44 @@
+#N canvas 515 127 469 529 10;
+#X obj 184 159 joystick 3;
+#X obj 242 194 hid_invert;
+#X obj 183 92 tgl 25 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1
+;
+#X msg 246 125 open \$1;
+#X obj 246 105 hradio 15 1 1 8 \$0-device-number empty choose_a_device
+0 -6 1 9 -225271 -1 -1 3;
+#X obj 220 105 nbx 1 14 -1e+37 1e+37 0 0 empty \$0-device-number empty
+0 -6 0 14 -166441 -1 -1 3 256;
+#X msg 137 120 print;
+#X obj 242 314 mtof;
+#X obj 241 338 osc~;
+#X obj 126 422 *~;
+#X obj 182 488 dac~;
+#X obj 141 329 line~;
+#X msg 141 307 \$1 5;
+#X obj 141 288 hid_cube;
+#X obj 242 270 notescale 40 90;
+#X text 14 9 [polar_joystick];
+#X text 25 38 This patch uses the angle of the joystick to control
+pitch and the distance from the centerpoint to control amplitude. The
+joystick Z/twist is mapped to pan.;
+#X obj 183 455 pan~;
+#X obj 183 225 hid_polar;
+#X connect 0 0 18 0;
+#X connect 0 1 1 0;
+#X connect 0 2 17 1;
+#X connect 1 0 18 1;
+#X connect 2 0 0 0;
+#X connect 3 0 0 0;
+#X connect 4 0 3 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 17 0;
+#X connect 11 0 9 1;
+#X connect 12 0 11 0;
+#X connect 13 0 12 0;
+#X connect 14 0 7 0;
+#X connect 17 0 10 0;
+#X connect 17 1 10 1;
+#X connect 18 0 13 0;
+#X connect 18 1 14 0;
diff --git a/examples/spiral-joystick.pd b/examples/spiral-joystick.pd
new file mode 100644
index 0000000..f2f00e6
--- /dev/null
+++ b/examples/spiral-joystick.pd
@@ -0,0 +1,57 @@
+#N canvas 195 175 483 554 10;
+#X obj 184 159 joystick 3;
+#X obj 255 194 hid_invert;
+#X obj 183 92 tgl 25 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1
+;
+#X msg 246 125 open \$1;
+#X obj 246 105 hradio 15 1 1 8 \$0-device-number empty choose_a_device
+0 -6 1 9 -225271 -1 -1 3;
+#X obj 220 105 nbx 1 14 -1e+37 1e+37 0 0 empty \$0-device-number empty
+0 -6 0 14 -166441 -1 -1 3 256;
+#X msg 137 120 print;
+#X obj 249 309 osc~;
+#X obj 126 422 *~;
+#X obj 182 488 dac~;
+#X obj 141 329 line~;
+#X msg 141 307 \$1 5;
+#X obj 141 288 hid_cube;
+#X text 25 38 This patch uses the angle of the joystick to control
+pitch and the distance from the centerpoint to control amplitude. The
+joystick Z/twist is mapped to pan.;
+#X obj 183 455 pan~;
+#X text 14 9 [spiral_joystick];
+#X text 254 524 released under the GNU GPL;
+#X text 40 509 (C) Copyright 2005 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X obj 183 225 hid_spiral;
+#X floatatom 78 193 5 0 0 0 - - -;
+#X floatatom 124 193 5 0 0 0 - - -;
+#X msg 68 130 poll 2;
+#X floatatom 316 305 5 0 0 0 - - -;
+#X obj 249 283 pow 3;
+#X text 302 224 set 440 as start;
+#X obj 249 258 + 7.60591;
+#X text 303 240 (7.60591 ^ 3 = 440.001);
+#X connect 0 0 18 0;
+#X connect 0 0 19 0;
+#X connect 0 1 1 0;
+#X connect 0 1 20 0;
+#X connect 0 2 14 1;
+#X connect 1 0 18 1;
+#X connect 2 0 0 0;
+#X connect 3 0 0 0;
+#X connect 4 0 3 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 8 0 14 0;
+#X connect 10 0 8 1;
+#X connect 11 0 10 0;
+#X connect 12 0 11 0;
+#X connect 14 0 9 0;
+#X connect 14 1 9 1;
+#X connect 18 0 12 0;
+#X connect 18 1 25 0;
+#X connect 21 0 0 0;
+#X connect 23 0 7 0;
+#X connect 23 0 22 0;
+#X connect 25 0 23 0;
-- 
cgit v1.2.1