Skip to content

Commit 6361aee

Browse files
michaelpacemichaelpace
committed
make [above] and [below] work with any range, not just 12, and add [stepper]
1 parent 46c43b4 commit 6361aee

File tree

4 files changed

+145
-95
lines changed

4 files changed

+145
-95
lines changed

‎above.pd

+46-43
Original file line numberDiff line numberDiff line change
@@ -1,62 +1,65 @@
1-
#N canvas 530 103 334 586 12;
1+
#N canvas 530 103 402 586 12;
22
#X obj 67 91 inlet;
33
#X obj 159 91 inlet;
4-
#X obj 159 115 f \$1;
54
#X obj 201 91 loadbang;
6-
#X floatatom 106 330 5 0 0 0 - - -;
7-
#X obj 201 339 / 12;
5+
#X floatatom 106 330 5 0 0 0 - - - 0;
86
#X obj 201 363 i;
9-
#X obj 159 339 % 12;
107
#X obj 106 387 sel 1;
118
#X obj 106 435 +, f 14;
129
#X obj 106 363 <=, f 8;
1310
#X msg 106 411 1;
1411
#X msg 138 411 0;
15-
#X obj 106 459 * 12;
1612
#X obj 67 279 t f f, f 6;
1713
#X obj 67 493 +, f 6;
18-
#X floatatom 67 527 5 0 0 0 - - -;
14+
#X floatatom 67 527 5 0 0 0 - - - 0;
1915
#X obj 67 550 outlet;
2016
#X obj 67 145 <=;
2117
#X obj 67 169 sel 1;
2218
#X obj 67 115 t f f f, f 8;
2319
#X obj 67 228 f;
2420
#X obj 99 228 f;
25-
#X obj 99 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
26-
-1;
27-
#X obj 67 252 % 12;
21+
#X obj 99 193 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
22+
#000000;
2823
#X text 9 71 midi note to adjust;
29-
#X text 158 71 \$1 floor midi note;
30-
#X text 12 8 // MOVES THE OCTAVE OF A MIDI NOTE SO IT'S;
31-
#X text 11 24 // ABOVE FLOOR;
32-
#X connect 0 0 20 0;
33-
#X connect 1 0 2 0;
34-
#X connect 2 0 5 0;
35-
#X connect 2 0 7 0;
36-
#X connect 2 0 18 1;
37-
#X connect 3 0 2 0;
38-
#X connect 4 0 10 0;
39-
#X connect 5 0 6 0;
40-
#X connect 6 0 9 1;
41-
#X connect 7 0 10 1;
42-
#X connect 8 0 11 0;
43-
#X connect 8 1 12 0;
44-
#X connect 9 0 13 0;
45-
#X connect 10 0 8 0;
46-
#X connect 11 0 9 0;
47-
#X connect 12 0 9 0;
48-
#X connect 13 0 15 1;
24+
#X obj 67 252 % \$1;
25+
#X obj 159 339 % \$1;
26+
#X obj 201 339 / \$1;
27+
#X obj 106 459 * \$1;
28+
#X text 11 24 // INITIALIZE \$1 TO THE SIZE OF THE "GROUP.";
29+
#X text 11 40 // IN MOST COMMON USE CASE \, \$1 WOULD BE 12 FOR OCTAVE.
30+
;
31+
#X obj 159 115 f \$2;
32+
#X text 158 71 \$2 floor value;
33+
#X text 12 8 // MOVES THE VALUE SO IT'S ABOVE \$2 FLOOR (EXCLUSIVE).
34+
;
35+
#X connect 0 0 16 0;
36+
#X connect 1 0 27 0;
37+
#X connect 2 0 27 0;
38+
#X connect 3 0 7 0;
39+
#X connect 4 0 6 1;
40+
#X connect 5 0 8 0;
41+
#X connect 5 1 9 0;
42+
#X connect 6 0 24 0;
43+
#X connect 7 0 5 0;
44+
#X connect 8 0 6 0;
45+
#X connect 9 0 6 0;
46+
#X connect 10 0 11 0;
47+
#X connect 10 1 3 0;
48+
#X connect 11 0 12 0;
49+
#X connect 12 0 13 0;
4950
#X connect 14 0 15 0;
50-
#X connect 14 1 4 0;
51-
#X connect 15 0 16 0;
52-
#X connect 16 0 17 0;
53-
#X connect 18 0 19 0;
54-
#X connect 19 0 21 0;
55-
#X connect 19 1 23 0;
56-
#X connect 20 0 18 0;
57-
#X connect 20 1 21 1;
58-
#X connect 20 2 22 1;
59-
#X connect 21 0 24 0;
60-
#X connect 22 0 16 0;
61-
#X connect 23 0 22 0;
62-
#X connect 24 0 14 0;
51+
#X connect 15 0 17 0;
52+
#X connect 15 1 19 0;
53+
#X connect 16 0 14 0;
54+
#X connect 16 1 17 1;
55+
#X connect 16 2 18 1;
56+
#X connect 17 0 21 0;
57+
#X connect 18 0 12 0;
58+
#X connect 19 0 18 0;
59+
#X connect 21 0 10 0;
60+
#X connect 22 0 7 1;
61+
#X connect 23 0 4 0;
62+
#X connect 24 0 11 1;
63+
#X connect 27 0 14 1;
64+
#X connect 27 0 22 0;
65+
#X connect 27 0 23 0;

‎below.pd

+46-43
Original file line numberDiff line numberDiff line change
@@ -1,62 +1,65 @@
1-
#N canvas 572 114 331 583 12;
1+
#N canvas 572 114 420 583 12;
22
#X obj 67 91 inlet;
33
#X obj 155 91 inlet;
4-
#X obj 155 115 f \$1;
54
#X obj 197 91 loadbang;
6-
#X floatatom 106 330 5 0 0 0 - - -;
7-
#X obj 201 339 / 12;
5+
#X floatatom 106 330 5 0 0 0 - - - 0;
86
#X obj 201 363 i;
9-
#X obj 159 339 % 12;
107
#X obj 106 387 sel 1;
118
#X obj 106 435 +, f 14;
12-
#X obj 106 459 * 12;
139
#X obj 67 279 t f f, f 6;
1410
#X obj 67 493 +, f 6;
15-
#X floatatom 67 527 5 0 0 0 - - -;
11+
#X floatatom 67 527 5 0 0 0 - - - 0;
1612
#X obj 67 550 outlet;
1713
#X obj 67 169 sel 1;
1814
#X obj 67 115 t f f f, f 8;
1915
#X obj 67 228 f;
2016
#X obj 99 228 f;
21-
#X obj 99 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
22-
-1;
23-
#X obj 67 252 % 12;
17+
#X obj 99 193 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
18+
#000000;
2419
#X text 9 71 midi note to adjust;
25-
#X text 154 71 \$1 ceiling midi note;
2620
#X obj 67 145 >=;
2721
#X obj 106 363 >=, f 8;
2822
#X msg 106 411 -1;
2923
#X msg 138 411 0;
30-
#X text 12 8 // MOVES THE OCTAVE OF A MIDI NOTE SO IT'S;
31-
#X text 11 24 // BELOW CEIL;
32-
#X connect 0 0 16 0;
33-
#X connect 1 0 2 0;
34-
#X connect 2 0 5 0;
35-
#X connect 2 0 7 0;
36-
#X connect 2 0 23 1;
37-
#X connect 3 0 2 0;
38-
#X connect 4 0 24 0;
39-
#X connect 5 0 6 0;
40-
#X connect 6 0 9 1;
41-
#X connect 7 0 24 1;
42-
#X connect 8 0 25 0;
43-
#X connect 8 1 26 0;
24+
#X obj 67 252 % \$1;
25+
#X obj 159 339 % \$1;
26+
#X obj 201 339 / \$1;
27+
#X obj 106 459 * \$1;
28+
#X text 11 24 // INITIALIZE \$1 TO THE SIZE OF THE "GROUP.";
29+
#X text 11 40 // IN MOST COMMON USE CASE \, \$1 WOULD BE 12 FOR OCTAVE.
30+
;
31+
#X obj 155 115 f \$2;
32+
#X text 154 71 \$2 ceiling value;
33+
#X text 12 8 // MOVES THE VALUE SO IT'S BELOW \$2 CEIL (EXCLUSIVE).
34+
;
35+
#X connect 0 0 12 0;
36+
#X connect 1 0 27 0;
37+
#X connect 2 0 27 0;
38+
#X connect 3 0 18 0;
39+
#X connect 4 0 6 1;
40+
#X connect 5 0 19 0;
41+
#X connect 5 1 20 0;
42+
#X connect 6 0 24 0;
43+
#X connect 7 0 8 0;
44+
#X connect 7 1 3 0;
45+
#X connect 8 0 9 0;
4446
#X connect 9 0 10 0;
45-
#X connect 10 0 12 1;
46-
#X connect 11 0 12 0;
47-
#X connect 11 1 4 0;
48-
#X connect 12 0 13 0;
49-
#X connect 13 0 14 0;
50-
#X connect 15 0 17 0;
51-
#X connect 15 1 19 0;
52-
#X connect 16 0 23 0;
53-
#X connect 16 1 17 1;
54-
#X connect 16 2 18 1;
55-
#X connect 17 0 20 0;
56-
#X connect 18 0 13 0;
57-
#X connect 19 0 18 0;
58-
#X connect 20 0 11 0;
59-
#X connect 23 0 15 0;
60-
#X connect 24 0 8 0;
61-
#X connect 25 0 9 0;
62-
#X connect 26 0 9 0;
47+
#X connect 11 0 13 0;
48+
#X connect 11 1 15 0;
49+
#X connect 12 0 17 0;
50+
#X connect 12 1 13 1;
51+
#X connect 12 2 14 1;
52+
#X connect 13 0 21 0;
53+
#X connect 14 0 9 0;
54+
#X connect 15 0 14 0;
55+
#X connect 17 0 11 0;
56+
#X connect 18 0 5 0;
57+
#X connect 19 0 6 0;
58+
#X connect 20 0 6 0;
59+
#X connect 21 0 7 0;
60+
#X connect 22 0 18 1;
61+
#X connect 23 0 4 0;
62+
#X connect 24 0 8 1;
63+
#X connect 27 0 17 1;
64+
#X connect 27 0 22 0;
65+
#X connect 27 0 23 0;

‎between.pd

+9-9
Original file line numberDiff line numberDiff line change
@@ -5,19 +5,19 @@
55
#X obj 246 69 inlet;
66
#X text 178 48 \$1 floor;
77
#X text 247 47 \$2 ceil;
8-
#X obj 48 108 above \$1;
9-
#X obj 48 132 below \$2;
108
#X obj 48 196 clip \$1 \$2;
11-
#X floatatom 48 220 5 0 0 0 - - -;
9+
#X floatatom 48 220 5 0 0 0 - - - 0;
1210
#X obj 48 243 outlet;
11+
#X obj 48 108 above 12 \$1;
12+
#X obj 48 132 below 12 \$2;
1313
#X text 11 8 // MOVES THE OCTAVE OF A MIDI NOTE SO IT'S BETWEEN FLOOR
14-
AND CEIL;
15-
#X connect 0 0 6 0;
14+
AND CEIL (BOTH EXCLUSIVE);
15+
#X connect 0 0 9 0;
1616
#X connect 2 0 6 1;
17-
#X connect 2 0 8 1;
18-
#X connect 3 0 7 1;
19-
#X connect 3 0 8 2;
17+
#X connect 2 0 9 1;
18+
#X connect 3 0 6 2;
19+
#X connect 3 0 10 1;
2020
#X connect 6 0 7 0;
2121
#X connect 7 0 8 0;
22-
#X connect 8 0 9 0;
2322
#X connect 9 0 10 0;
23+
#X connect 10 0 6 0;

‎stepper.pd

+44
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,44 @@
1+
#N canvas 759 244 450 462 12;
2+
#X obj 108 162 inlet;
3+
#X obj 108 186 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
4+
#000000 #000000;
5+
#X obj 108 280 counter \$1;
6+
#X obj 108 328 +, f 27;
7+
#X obj 108 400 outlet;
8+
#X obj 152 162 inlet;
9+
#X obj 196 162 inlet;
10+
#X obj 196 210 t f f;
11+
#X obj 294 162 inlet;
12+
#X obj 108 304 % \$1, f 17;
13+
#X obj 152 245 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
14+
#000000 #000000;
15+
#X obj 108 352 % \$1;
16+
#X obj 383 260 f \$1;
17+
#X msg 351 260 0;
18+
#X obj 196 186 clip 0 \$1;
19+
#X text 24 9 /// INITIALIZE WITH \$1 SET TO MAXIMUM SEQUENCE LENGTH.
20+
\; /// BANG FIRST INLET TO COUNT FROM 0 (INCLUSIVE) TO THAT \, (EXCLUSIVE).
21+
\; /// BANG SECOND INLET TO RESET ALL STATE. \; /// PASS A FLOAT (BETWEEN
22+
0 AND \$1) TO THIRD INLET TO SET SEQUENCE LENGTH TO THAT. \; /// PASS
23+
A FLOAT TO FOURTH INLET TO OFFSET SEQUENCE BY THAT MANY STEPS.;
24+
#X obj 108 376 above \$1 -1;
25+
#X connect 0 0 1 0;
26+
#X connect 1 0 2 0;
27+
#X connect 2 0 9 0;
28+
#X connect 3 0 11 0;
29+
#X connect 5 0 10 0;
30+
#X connect 6 0 14 0;
31+
#X connect 7 0 2 2;
32+
#X connect 7 1 9 1;
33+
#X connect 8 0 3 1;
34+
#X connect 9 0 3 0;
35+
#X connect 10 0 2 1;
36+
#X connect 10 0 13 0;
37+
#X connect 10 0 12 0;
38+
#X connect 11 0 16 0;
39+
#X connect 12 0 11 1;
40+
#X connect 12 0 9 1;
41+
#X connect 12 0 2 2;
42+
#X connect 13 0 3 1;
43+
#X connect 14 0 7 0;
44+
#X connect 16 0 4 0;

0 commit comments

Comments
 (0)