From 6649bec4f7f9adbd380f962baf9e019851b33738 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Mon, 3 May 2021 15:43:57 -0700
Subject: [PATCH] Setting pitch for pads works

---
 projects/demos/drum-rack.usm | 27 +++++++++++++++++++++------
 1 file changed, 21 insertions(+), 6 deletions(-)

diff --git a/projects/demos/drum-rack.usm b/projects/demos/drum-rack.usm
index 7600bc1..6267a70 100644
--- a/projects/demos/drum-rack.usm
+++ b/projects/demos/drum-rack.usm
@@ -524,17 +524,17 @@ RTN
 	;draw-label-left JSR2
 
 	( draw note )
-	OVR2 #0002 ADD2 .Screen/x DEO2
+	OVR2 #0003 ADD2 .Screen/x DEO2
 	DUP2 #0014 ADD2 .Screen/y DEO2
-	OVRr STHr TOS ;pad-pitch ADD2 LDA
-	#0c MOD TOS #0008 MUL2 ;font-num-uc #0030 ADD2 ADD2 .Screen/addr DEO2
+	( get pitch ) DUPr STHr TOS ;pad-pitch ADD2 LDA
+	#0c DIV TOS #0008 MUL2 ;font-hex ADD2 .Screen/addr DEO2
 	#21 .Screen/color DEO
 
 	( draw octave )
-	OVR2 #000a ADD2 .Screen/x DEO2
+	OVR2 #000b ADD2 .Screen/x DEO2
 	DUP2 #0014 ADD2 .Screen/y DEO2
-	OVRr STHr TOS ;pad-pitch ADD2 LDA
-	#0c DIV TOS #0008 MUL2 ;font-num-uc #0030 ADD2 ADD2 .Screen/addr DEO2
+	( get pitch ) DUPr STHr TOS ;pad-pitch ADD2 LDA
+	#0c MOD TOS #0008 MUL2 ;font-notes ADD2 .Screen/addr DEO2
 	#21 .Screen/color DEO
 
 	POP2 POP2
@@ -776,6 +776,21 @@ RTN
 	707e 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 )
 [
 	007c 8282 8282 827c 0030 1010 1010 1010