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

Setting pitch for pads works

This commit is contained in:
neauoire 2021-05-03 15:43:57 -07:00
parent 5ae48f84b3
commit 6649bec4f7
1 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
projects/demos/drum-rack.usm
View File

@ -524,17 +524,17 @@ RTN
;draw-label-left JSR2 ;draw-label-left JSR2
( draw note ) ( draw note )
OVR2 #0002 ADD2 .Screen/x DEO2 OVR2 #0003 ADD2 .Screen/x DEO2
DUP2 #0014 ADD2 .Screen/y DEO2 DUP2 #0014 ADD2 .Screen/y DEO2
OVRr STHr TOS ;pad-pitch ADD2 LDA ( get pitch ) DUPr STHr TOS ;pad-pitch ADD2 LDA
#0c MOD TOS #0008 MUL2 ;font-num-uc #0030 ADD2 ADD2 .Screen/addr DEO2 #0c DIV TOS #0008 MUL2 ;font-hex ADD2 .Screen/addr DEO2
#21 .Screen/color DEO #21 .Screen/color DEO
( draw octave ) ( draw octave )
OVR2 #000a ADD2 .Screen/x DEO2 OVR2 #000b ADD2 .Screen/x DEO2
DUP2 #0014 ADD2 .Screen/y DEO2 DUP2 #0014 ADD2 .Screen/y DEO2
OVRr STHr TOS ;pad-pitch ADD2 LDA ( get pitch ) DUPr STHr TOS ;pad-pitch ADD2 LDA
#0c DIV TOS #0008 MUL2 ;font-num-uc #0030 ADD2 ADD2 .Screen/addr DEO2 #0c MOD TOS #0008 MUL2 ;font-notes ADD2 .Screen/addr DEO2
#21 .Screen/color DEO #21 .Screen/color DEO
POP2 POP2 POP2 POP2
@ -776,6 +776,21 @@ RTN
707e 7e7e 7e7e 7e7e 707e 7e7e 7e7e 7e7e
7e7e 7e7e 7e7e 7e7e ] 7e7e 7e7e 7e7e 7e7e ]
@font-notes [
003e 4140 4040 413e
40ae 4100 4040 413e
007e 4141 4141 417e
40ae 4101 4141 417e
003e 4140 7c40 413e
003f 4040 7e40 4040
40af 4000 7e40 4040
003e 4140 5f41 413e
40ae 4100 5f41 413e
003e 4141 7f41 4141
40ae 4101 7f41 4141
007e 4141 7e41 417e
]
@font-hex ( 0-F ) @font-hex ( 0-F )
[ [
007c 8282 8282 827c 0030 1010 1010 1010 007c 8282 8282 827c 0030 1010 1010 1010