aboutsummaryrefslogtreecommitdiff
path: root/examples/spiral-joystick.pd
blob: f9cf82118b5cdc3f6ac3c3bc44b3dcfd8e786107 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
#N canvas 79 22 607 574 10;
#X declare -lib mapping;
#X obj 482 12 import mapping;
#X obj 100 81 tgl 18 0 empty empty start 1 12 2 9 -225271 -1 -1 0 1
;
#X obj 184 466 osc~;
#X obj 97 497 *~;
#X obj 127 541 dac~;
#X obj 17 466 line~;
#X msg 17 444 \$1 5;
#X text 22 12 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 97 518 pan/equal_power_pan~;
#X obj 19 81 pddp/dsp;
#X obj 123 141 hidio;
#X obj 192 277 route x y rz z;
#X text 289 277 some joysticks call twist 'z' \, others 'rz';
#X obj 23 194 route absolute;
#X obj 23 277 route x y rz z;
#X obj 192 193 route absolute;
#X obj 192 172 route range;
#X obj 63 322 /;
#X obj 192 213 unpack symbol float float;
#X obj 192 234 pack symbol float;
#X obj 192 255 list trim;
#X obj 23 213 unpack symbol float float;
#X obj 23 234 pack symbol float;
#X obj 23 255 list trim;
#X obj 93 322 /;
#X obj 133 322 /;
#X obj 173 322 /;
#X text 309 234 we don't need the instance number \, so ignore it;
#X obj 217 500 hsl 128 15 0 1 0 1 empty empty empty -2 -8 0 10 -262144
-1 -1 6350 0;
#X msg 143 81 open joystick;
#X text 153 59 1;
#X text 102 59 2;
#X text 34 59 3;
#X text 247 68 <-- click these in the order specified;
#X obj 184 445 mtof;
#X obj 184 423 notescale 60 72;
#X obj 17 423 exponential_sigmoid 0.3;
#X obj 93 343 reverse;
#X obj 63 390 spiral;
#X text 153 366 <-- reset position in spiral to middle C octave;
#X text 219 442 set middle C as start note \, with one octave per revolution
;
#X msg 124 366 bang;
#N canvas 0 22 450 300 get 0;
#X obj 60 9 inlet;
#X obj 60 261 outlet;
#X msg 60 197 info;
#X text 103 199 the [info( message outputs the range info;
#X obj 60 99 route open;
#X obj 60 173 purepd/once;
#X obj 60 121 select 1 0;
#X connect 0 0 4 0;
#X connect 2 0 1 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 5 0;
#X connect 6 1 5 1;
#X restore 176 116 pd get range info;
#X text 209 323 scale things to max 1 using the range values queryied
;
#X connect 1 0 10 0;
#X connect 2 0 3 1;
#X connect 3 0 8 0;
#X connect 5 0 3 0;
#X connect 6 0 5 0;
#X connect 8 0 4 0;
#X connect 8 1 4 1;
#X connect 10 0 13 0;
#X connect 10 1 16 0;
#X connect 10 1 42 0;
#X connect 11 0 17 1;
#X connect 11 1 24 1;
#X connect 11 2 25 1;
#X connect 11 3 26 0;
#X connect 13 0 21 0;
#X connect 14 0 17 0;
#X connect 14 1 24 0;
#X connect 14 2 25 0;
#X connect 14 3 26 0;
#X connect 15 0 18 0;
#X connect 16 0 15 0;
#X connect 17 0 38 0;
#X connect 18 0 19 0;
#X connect 18 2 19 1;
#X connect 19 0 20 0;
#X connect 20 0 11 0;
#X connect 21 0 22 0;
#X connect 21 2 22 1;
#X connect 22 0 23 0;
#X connect 23 0 14 0;
#X connect 24 0 37 0;
#X connect 28 0 8 1;
#X connect 29 0 10 0;
#X connect 34 0 2 0;
#X connect 35 0 34 0;
#X connect 36 0 6 0;
#X connect 37 0 38 1;
#X connect 38 0 36 0;
#X connect 38 1 35 0;
#X connect 41 0 38 2;
#X connect 42 0 10 0;