etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-23 14:25:10 +00:00
Code Issues Projects Releases Wiki Activity

Improved UV

Browse source
This commit is contained in:
neauoire 2021-04-28 12:11:05 -07:00
parent 30b12bae2d
commit 51770be781
1 changed files with 12 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
projects/demos/piano.usm
View file

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