d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(piano.tal)Added sharps to keyboard mode

This commit is contained in:
Devine Lu Linvega 2023-02-27 18:23:40 -08:00
parent 41294b7537
commit 09c7365bc3
1 changed files with 26 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
projects/software/piano.tal
View File

@ -27,13 +27,16 @@
#0180 .Screen/width DEO2 #0180 .Screen/width DEO2
#00e0 .Screen/height DEO2 #00e0 .Screen/height DEO2
( find center ) ( find center )
.Screen/width DEI2 #01 SFT2 .center/x STZ2 .Screen/width DEI2 #01 SFT2
.Screen/height DEI2 #01 SFT2 #0010 ADD2 .center/y STZ2 DUP2 .center/x STZ2
( place octave ) #0080 SUB2
.center/x LDZ2 #0080 SUB2 .octave-view/x1 STZ2 DUP2 .octave-view/x1 STZ2
.center/y LDZ2 #0010 ADD2 .octave-view/y1 STZ2 #0050 ADD2 .octave-view/x2 STZ2
.octave-view/x1 LDZ2 #0050 ADD2 .octave-view/x2 STZ2 .Screen/height DEI2 #01 SFT2 #0010 ADD2
.octave-view/y1 LDZ2 #0018 ADD2 .octave-view/y2 STZ2 DUP2 .center/y STZ2
#0010 ADD2
DUP2 .octave-view/y1 STZ2
#0018 ADD2 .octave-view/y2 STZ2
( place adsr ) ( place adsr )
.center/x LDZ2 #0020 SUB2 .adsr-view/x1 STZ2 .center/x LDZ2 #0020 SUB2 .adsr-view/x1 STZ2
.center/y LDZ2 #0010 ADD2 .adsr-view/y1 STZ2 .center/y LDZ2 #0010 ADD2 .adsr-view/y1 STZ2
@ -44,6 +47,7 @@
.center/y LDZ2 #0040 SUB2 .wave-view/y1 STZ2 .center/y LDZ2 #0040 SUB2 .wave-view/y1 STZ2
.wave-view/x1 LDZ2 #0100 ADD2 .wave-view/x2 STZ2 .wave-view/x1 LDZ2 #0100 ADD2 .wave-view/x2 STZ2
.wave-view/y1 LDZ2 #0040 ADD2 .wave-view/y2 STZ2 .wave-view/y1 LDZ2 #0040 ADD2 .wave-view/y2 STZ2
( setup synth )
#041c .Audio0/adsr DEO2 #041c .Audio0/adsr DEO2
#dd .Audio0/volume DEO #dd .Audio0/volume DEO
;sin-pcm .Audio0/addr DEO2 ;sin-pcm .Audio0/addr DEO2
@ -65,14 +69,21 @@ BRK
@on-frame ( -> ) @on-frame ( -> )
[ LIT &last $1 ] .Audio0/output DEI NEQk ?&changed
POP2 BRK
&changed
,&last STR POP
( redraw )
[ LIT2 00 -Screen/auto ] DEO [ LIT2 00 -Screen/auto ] DEO
.adsr-view/y2 LDZ2 #0020 SUB2 .Screen/y DEO2 .adsr-view/y2 LDZ2 #0020 SUB2 .Screen/y DEO2
#1000 #1000
&loop &loop
.adsr-view/x2 LDZ2 #003a SUB2 .Screen/x DEO2 .adsr-view/x2 LDZ2 #003a SUB2 .Screen/x DEO2
#10 OVR SUB .Audio0/output DEI #0f AND LTH .Screen/pixel DEO #10 OVR SUB .Audio0/output DEI
.adsr-view/x2 LDZ2 #003a SUB2 INC2 INC2 .Screen/x DEO2 DUP2 #0f AND LTH .Screen/pixel DEO
#10 OVR SUB .Audio0/output DEI #04 SFT LTH .Screen/pixel DEO .Screen/x DEI2k INC2 INC2 ROT DEO2
#04 SFT LTH .Screen/pixel DEO
.Screen/y DEI2k INC2 INC2 ROT DEO2 .Screen/y DEI2k INC2 INC2 ROT DEO2
INC GTHk ?&loop INC GTHk ?&loop
POP2 POP2
@ -83,11 +94,16 @@ BRK
.Controller/key DEI .Controller/key DEI
[ LIT "a ] NEQk NIP ?&no-c #30 .octave LDZ #0c MUL ADD play &no-c [ LIT "a ] NEQk NIP ?&no-c #30 .octave LDZ #0c MUL ADD play &no-c
[ LIT "w ] NEQk NIP ?&no-c# #31 .octave LDZ #0c MUL ADD play &no-c#
[ LIT "s ] NEQk NIP ?&no-d #32 .octave LDZ #0c MUL ADD play &no-d [ LIT "s ] NEQk NIP ?&no-d #32 .octave LDZ #0c MUL ADD play &no-d
[ LIT "e ] NEQk NIP ?&no-d# #33 .octave LDZ #0c MUL ADD play &no-d#
[ LIT "d ] NEQk NIP ?&no-e #34 .octave LDZ #0c MUL ADD play &no-e [ LIT "d ] NEQk NIP ?&no-e #34 .octave LDZ #0c MUL ADD play &no-e
[ LIT "f ] NEQk NIP ?&no-f #35 .octave LDZ #0c MUL ADD play &no-f [ LIT "f ] NEQk NIP ?&no-f #35 .octave LDZ #0c MUL ADD play &no-f
[ LIT "t ] NEQk NIP ?&no-f# #36 .octave LDZ #0c MUL ADD play &no-f#
[ LIT "g ] NEQk NIP ?&no-g #37 .octave LDZ #0c MUL ADD play &no-g [ LIT "g ] NEQk NIP ?&no-g #37 .octave LDZ #0c MUL ADD play &no-g
[ LIT "y ] NEQk NIP ?&no-g# #38 .octave LDZ #0c MUL ADD play &no-g#
[ LIT "h ] NEQk NIP ?&no-a #39 .octave LDZ #0c MUL ADD play &no-a [ LIT "h ] NEQk NIP ?&no-a #39 .octave LDZ #0c MUL ADD play &no-a
[ LIT "u ] NEQk NIP ?&no-a# #3a .octave LDZ #0c MUL ADD play &no-a#
[ LIT "j ] NEQk NIP ?&no-b #3b .octave LDZ #0c MUL ADD play &no-b [ LIT "j ] NEQk NIP ?&no-b #3b .octave LDZ #0c MUL ADD play &no-b
[ LIT "k ] NEQk NIP ?&no-c2 #3c .octave LDZ #0c MUL ADD play &no-c2 [ LIT "k ] NEQk NIP ?&no-c2 #3c .octave LDZ #0c MUL ADD play &no-c2
[ #1b ] NEQk NIP ?&no-esc #010f DEO &no-esc [ #1b ] NEQk NIP ?&no-esc #010f DEO &no-esc