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 |