... | ... |
@@ -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 |