Browse code

Setting pitch for pads works

neauoire authored on 03/05/2021 22:43:57
Showing 1 changed files
... ...
@@ -524,17 +524,17 @@ RTN
524 524
 	;draw-label-left JSR2
525 525
 
526 526
 	( draw note )
527
-	OVR2 #0002 ADD2 .Screen/x DEO2
527
+	OVR2 #0003 ADD2 .Screen/x DEO2
528 528
 	DUP2 #0014 ADD2 .Screen/y DEO2
529
-	OVRr STHr TOS ;pad-pitch ADD2 LDA
530
-	#0c MOD TOS #0008 MUL2 ;font-num-uc #0030 ADD2 ADD2 .Screen/addr DEO2
529
+	( get pitch ) DUPr STHr TOS ;pad-pitch ADD2 LDA
530
+	#0c DIV TOS #0008 MUL2 ;font-hex ADD2 .Screen/addr DEO2
531 531
 	#21 .Screen/color DEO
532 532
 
533 533
 	( draw octave )
534
-	OVR2 #000a ADD2 .Screen/x DEO2
534
+	OVR2 #000b ADD2 .Screen/x DEO2
535 535
 	DUP2 #0014 ADD2 .Screen/y DEO2
536
-	OVRr STHr TOS ;pad-pitch ADD2 LDA
537
-	#0c DIV TOS #0008 MUL2 ;font-num-uc #0030 ADD2 ADD2 .Screen/addr DEO2
536
+	( get pitch ) DUPr STHr TOS ;pad-pitch ADD2 LDA
537
+	#0c MOD TOS #0008 MUL2 ;font-notes ADD2 .Screen/addr DEO2
538 538
 	#21 .Screen/color DEO
539 539
 
540 540
 	POP2 POP2
... ...
@@ -776,6 +776,21 @@ RTN
776 776
 	707e 7e7e 7e7e 7e7e
777 777
 	7e7e 7e7e 7e7e 7e7e ]
778 778
 
779
+@font-notes [
780
+	003e 4140 4040 413e
781
+	40ae 4100 4040 413e
782
+	007e 4141 4141 417e
783
+	40ae 4101 4141 417e
784
+	003e 4140 7c40 413e
785
+	003f 4040 7e40 4040
786
+	40af 4000 7e40 4040
787
+	003e 4140 5f41 413e
788
+	40ae 4100 5f41 413e
789
+	003e 4141 7f41 4141
790
+	40ae 4101 7f41 4141
791
+	007e 4141 7e41 417e
792
+]
793
+
779 794
 @font-hex ( 0-F )
780 795
 [
781 796
 	007c 8282 8282 827c 0030 1010 1010 1010