d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Implemented console i/o to drum-rack

This commit is contained in:
neauoire 2021-06-29 20:54:11 -07:00
parent 9fdb49e0ed
commit c9f10cd45a
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
projects/examples/demos/drum-rack.tal
View File

@ -1,8 +1,4 @@
( drum rack ( drum rack )
TODO
- When selecting a pad, should highlight note in octave
)
%+ { ADD } %- { SUB } %* { MUL } %/ { DIV } %+ { ADD } %- { SUB } %* { MUL } %/ { DIV }
%< { LTH } %> { GTH } %= { EQU } %! { NEQ } %< { LTH } %> { GTH } %= { EQU } %! { NEQ }
@ -24,6 +20,7 @@
( devices ) ( devices )
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ] |00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ] |20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ]
|30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ] |30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|40 @Audio1 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ] |40 @Audio1 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
@ -67,6 +64,7 @@
;on-control .Controller/vector DEO2 ;on-control .Controller/vector DEO2
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
;on-message .Console/vector DEO2
( channel defaults ) ( channel defaults )
#dd .Audio0/volume DEO #dd .Audio0/volume DEO
@ -151,6 +149,12 @@
BRK BRK
@on-message ( -> )
.Console/read DEI #10 MOD ;play-pad JSR2
BRK
@on-frame ( -> ) @on-frame ( -> )
( update VU monitors ) ( update VU monitors )
@ -298,7 +302,7 @@ BRK
BRK BRK
@play-pad ( note pad -- ) @play-pad ( pad -- )
( unselect last ) ( unselect last )
.pads/last LDZ #01 ;draw-pad JSR2 .pads/last LDZ #01 ;draw-pad JSR2