... | ... |
@@ -1,8 +1,4 @@ |
1 |
-( drum rack |
|
2 |
- |
|
3 |
- TODO |
|
4 |
- - When selecting a pad, should highlight note in octave |
|
5 |
-) |
|
1 |
+( drum rack ) |
|
6 | 2 |
|
7 | 3 |
%+ { ADD } %- { SUB } %* { MUL } %/ { DIV } |
8 | 4 |
%< { LTH } %> { GTH } %= { EQU } %! { NEQ } |
... | ... |
@@ -24,6 +20,7 @@ |
24 | 20 |
( devices ) |
25 | 21 |
|
26 | 22 |
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ] |
23 |
+|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 ] |
|
27 | 24 |
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ] |
28 | 25 |
|30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ] |
29 | 26 |
|40 @Audio1 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ] |
... | ... |
@@ -67,6 +64,7 @@ |
67 | 64 |
;on-control .Controller/vector DEO2 |
68 | 65 |
;on-mouse .Mouse/vector DEO2 |
69 | 66 |
;on-frame .Screen/vector DEO2 |
67 |
+ ;on-message .Console/vector DEO2 |
|
70 | 68 |
|
71 | 69 |
( channel defaults ) |
72 | 70 |
#dd .Audio0/volume DEO |
... | ... |
@@ -151,6 +149,12 @@ |
151 | 149 |
|
152 | 150 |
BRK |
153 | 151 |
|
152 |
+@on-message ( -> ) |
|
153 |
+ |
|
154 |
+ .Console/read DEI #10 MOD ;play-pad JSR2 |
|
155 |
+ |
|
156 |
+BRK |
|
157 |
+ |
|
154 | 158 |
@on-frame ( -> ) |
155 | 159 |
|
156 | 160 |
( update VU monitors ) |
... | ... |
@@ -298,8 +302,8 @@ BRK |
298 | 302 |
|
299 | 303 |
BRK |
300 | 304 |
|
301 |
-@play-pad ( note pad -- ) |
|
302 |
- |
|
305 |
+@play-pad ( pad -- ) |
|
306 |
+ |
|
303 | 307 |
( unselect last ) |
304 | 308 |
.pads/last LDZ #01 ;draw-pad JSR2 |
305 | 309 |
DUP .pads/last STZ |