Browse code

Implemented console i/o to drum-rack

neauoire authored on 30/06/2021 03:54:11
Showing 1 changed files
... ...
@@ -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