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