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

music improvements

This commit is contained in:
~d6 2024-08-22 11:25:25 -04:00
parent 03c6d96e62
commit ccc3b8b806
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
music.tal
View File

@ -60,7 +60,8 @@
;on-audio-4 .Audio4/vect DEO2
( adsr sample slen vol device )
#0231 ;square #0008 #77 .Audio1 setup-audio
( #0231 ;square #0008 #77 .Audio1 setup-audio )
#0231 ;variable #0008 #ff .Audio1 setup-audio
#0231 ;saw #0010 #34 .Audio2 setup-audio
#0231 ;triangle #0004 #64 .Audio3 setup-audio
#011f ;noise #0200 #44 .Audio4 setup-audio
@ -190,13 +191,23 @@
&skip POPr JMP2r
( this is the actual fun part: the note data for each track )
@timeline =slowdown 08
( @timeline =slowdown 08 )
@timeline =noop 08
( @timeline =vary 08 )
@track-1 2401 2b02 3001 2402 2e01 3001
@track-2 0004 3c02 3e01 3f01
@track-3 4301 4301 4402 4301 4301 4401 4601
@track-4 1004 3004 0103 0101 3002 3001 3001
@track-end
@noop ( -> ) JMP2r
@vary ( -> )
LIT2 [ &addr :variable ] .Audio1/addr DEO2
,&addr LDR2 INC2
DUP2 ;variable/limit LTH2 ?{ POP2 ;variable }
,&addr STR2 JMP2r
@slowdown ( -> )
.dur LDZ2 #0008 ADD2 #010e DEO !change-pulse
@ -206,6 +217,8 @@
@square ff ff ff ff ff 00 00 00
@variable ff ff ff ff ff ff ff &limit 00 00 00 00 00 00 00
( 512 random bytes to create noise )
@noise
da 4c 58 30 58 a7 d6 7a fd b1 60 2a 8a de 22 2f