commit 51770be781a095a31a1dddf3ed8977c90b0439ba parent 30b12bae2dcafda2bceeb9aea502eac0ae06dbca Author: neauoire <aliceffekt@gmail.com> Date: Wed, 28 Apr 2021 12:11:05 -0700 Improved UV Diffstat:
| M | projects/demos/piano.usm | | | 34 | ++++++++++++---------------------- |
1 file changed, 12 insertions(+), 22 deletions(-)
diff --git a/projects/demos/piano.usm b/projects/demos/piano.usm @@ -107,10 +107,18 @@ BRK @on-frame ( -> ) - .wave-view/x1 PEK2 #0028 ADD2 .Screen/x DEO2 - .wave-view/y1 PEK2 #0010 SUB2 .Screen/y DEO2 - .Audio0/output DEI #04 SFT TOS #0008 MUL2 ;meter ADD2 .Screen/addr DEO2 - #21 .Screen/color DEO + .adsr-view/y2 PEK2 #0020 SUB2 .Screen/y DEO2 + + #00 #10 + &loop + .adsr-view/x2 PEK2 #003a SUB2 .Screen/x DEO2 + OVR #10 SWP SUB .Audio0/output DEI #0f AND LTH .Screen/color DEO + .adsr-view/x2 PEK2 #003a SUB2 #0002 ADD2 .Screen/x DEO2 + OVR #10 SWP SUB .Audio0/output DEI #04 SFT LTH .Screen/color DEO + .Screen/y DEI2 #0002 ADD2 .Screen/y DEO2 + ( incr ) SWP #01 ADD SWP + DUP2 LTH ,&loop JNZ + POP2 BRK @@ -496,24 +504,6 @@ RTN 07 06 05 03 02 01 00 00 00 00 01 02 03 05 06 07 ] -@meter [ - 0000 0000 0000 0000 - 0000 0000 0000 0070 - 0000 0000 0000 007e - 0000 0000 0000 707e - 0000 0000 0070 7e7e - 0000 0000 007e 7e7e - 0000 0000 707e 7e7e - 0000 0000 7e7e 7e7e - 0000 0070 7e7e 7e7e - 0000 007e 7e7e 7e7e - 0000 707e 7e7e 7e7e - 0000 7e7e 7e7e 7e7e - 0070 7e7e 7e7e 7e7e - 007e 7e7e 7e7e 7e7e - 707e 7e7e 7e7e 7e7e - 7e7e 7e7e 7e7e 7e7e ] - @font-hex ( 0-F ) [ 007c 8282 8282 827c 0030 1010 1010 1010